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 ;