From 97b3ee37ffa2c46863ec352e64e240025a9bed64 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Tue, 30 Sep 2014 14:51:07 +0200 Subject: [PATCH] db.tester: the postgresql-db variable shouldn't be mutated --- basis/db/tester/tester.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/db/tester/tester.factor b/basis/db/tester/tester.factor index e778168cff..306ea4a6ac 100644 --- a/basis/db/tester/tester.factor +++ b/basis/db/tester/tester.factor @@ -11,7 +11,7 @@ IN: db.tester H{ { CHAR: - CHAR: _ } { CHAR: . CHAR: _ } } substitute ; : postgresql-test-db ( -- postgresql-db ) - \ postgresql-db get-global postgresql-test-db-name >>database ; + \ postgresql-db get-global clone postgresql-test-db-name >>database ; : postgresql-template1-db ( -- postgresql-db ) \ postgresql-db get-global ; @@ -20,7 +20,7 @@ IN: db.tester cpu name>> "tuples-test." ".db" surround temp-file ; -! These words leak resources, but are useful for interactivel testing +! These words leak resources, but are useful for interactive testing : set-sqlite-db ( -- ) sqlite-db db-open db-connection set ;