db.tester: the postgresql-db variable shouldn't be mutated

db4
Björn Lindqvist 2014-09-30 14:51:07 +02:00
parent e62acb7db3
commit 97b3ee37ff
1 changed files with 2 additions and 2 deletions

View File

@ -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 <sqlite-db> ;
! 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 ;