5 furnace.auth.providers.db tools.test
6 namespaces db db.sqlite db.tuples continuations
7 io.files io.files.temp io.directories accessors kernel
9 IN: furnace.auth.providers.db.tests
11 <action> "test" <login-realm> realm set
13 : auth-test-db-name ( -- string )
14 cpu name>> "auth-test." ".db" surround ;
16 auth-test-db-name temp-file ?delete-file
18 auth-test-db-name temp-file <sqlite-db> [
24 "foobar" >>encoded-password
25 "slava@factorcode.org" >>email
37 [ f ] [ "fdasf" "slava" check-login >boolean ] unit-test
39 [ ] [ "foobar" "slava" check-login "user" set ] unit-test
41 [ t ] [ "user" get >boolean ] unit-test
43 [ ] [ "user" get "fdasf" >>encoded-password drop ] unit-test
45 [ ] [ "user" get users update-user ] unit-test
47 [ t ] [ "fdasf" "slava" check-login >boolean ] unit-test
49 [ f ] [ "foobar" "slava" check-login >boolean ] unit-test