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