]> gitweb.factorcode.org Git - factor.git/commitdiff
furnace.auth.providers.db: make test db name use cpu name.
authorJohn Benediktsson <mrjbq7@gmail.com>
Tue, 14 May 2013 18:32:20 +0000 (11:32 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Tue, 14 May 2013 18:32:20 +0000 (11:32 -0700)
basis/furnace/auth/providers/db/db-tests.factor

index f23a4a852730508aedff03b7b58568d49c368440..18a9a350d28a648167505a773bdbf98e80768059 100644 (file)
@@ -4,14 +4,18 @@ furnace.auth.login
 furnace.auth.providers\r
 furnace.auth.providers.db tools.test\r
 namespaces db db.sqlite db.tuples continuations\r
-io.files io.files.temp io.directories accessors kernel ;\r
+io.files io.files.temp io.directories accessors kernel\r
+sequences system ;\r
 IN: furnace.auth.providers.db.tests\r
 \r
 <action> "test" <login-realm> realm set\r
 \r
-[ "auth-test.db" temp-file delete-file ] ignore-errors\r
+: auth-test-db-name ( -- string )\r
+    cpu name>> "auth-test." ".db" surround ;\r
 \r
-"auth-test.db" temp-file <sqlite-db> [\r
+[ auth-test-db-name temp-file delete-file ] ignore-errors\r
+\r
+auth-test-db-name temp-file <sqlite-db> [\r
 \r
     user ensure-table\r
 \r