1 IN: furnace.auth.providers.db.tests
\r
2 USING: furnace.actions
\r
5 furnace.auth.providers
\r
6 furnace.auth.providers.db tools.test
\r
7 namespaces db db.sqlite db.tuples continuations
\r
8 io.files accessors kernel ;
\r
10 <action> "test" <login-realm> realm set
\r
12 [ "auth-test.db" temp-file delete-file ] ignore-errors
\r
14 "auth-test.db" temp-file <sqlite-db> [
\r
20 "foobar" >>encoded-password
\r
21 "slava@factorcode.org" >>email
\r
22 H{ } clone >>profile
\r
24 username>> "slava" =
\r
29 H{ } clone >>profile
\r
33 [ f ] [ "fdasf" "slava" check-login >boolean ] unit-test
\r
35 [ ] [ "foobar" "slava" check-login "user" set ] unit-test
\r
37 [ t ] [ "user" get >boolean ] unit-test
\r
39 [ ] [ "user" get "fdasf" >>encoded-password drop ] unit-test
\r
41 [ ] [ "user" get users update-user ] unit-test
\r
43 [ t ] [ "fdasf" "slava" check-login >boolean ] unit-test
\r
45 [ f ] [ "foobar" "slava" check-login >boolean ] unit-test
\r