51 lines
1.2 KiB
Factor
51 lines
1.2 KiB
Factor
USING: furnace.actions
|
|
furnace.auth
|
|
furnace.auth.login
|
|
furnace.auth.providers
|
|
furnace.auth.providers.db tools.test
|
|
namespaces db db.sqlite db.tuples continuations
|
|
io.files io.files.temp io.directories accessors kernel
|
|
sequences system ;
|
|
IN: furnace.auth.providers.db.tests
|
|
|
|
<action> "test" <login-realm> realm set
|
|
|
|
: auth-test-db-name ( -- string )
|
|
cpu name>> "auth-test." ".db" surround ;
|
|
|
|
auth-test-db-name temp-file ?delete-file
|
|
|
|
auth-test-db-name temp-file <sqlite-db> [
|
|
|
|
user ensure-table
|
|
|
|
[ t ] [
|
|
"slava" <user>
|
|
"foobar" >>encoded-password
|
|
"slava@factorcode.org" >>email
|
|
H{ } clone >>profile
|
|
users new-user
|
|
username>> "slava" =
|
|
] unit-test
|
|
|
|
[ f ] [
|
|
"slava" <user>
|
|
H{ } clone >>profile
|
|
users new-user
|
|
] unit-test
|
|
|
|
[ f ] [ "fdasf" "slava" check-login >boolean ] unit-test
|
|
|
|
[ ] [ "foobar" "slava" check-login "user" set ] unit-test
|
|
|
|
[ t ] [ "user" get >boolean ] unit-test
|
|
|
|
[ ] [ "user" get "fdasf" >>encoded-password drop ] unit-test
|
|
|
|
[ ] [ "user" get users update-user ] unit-test
|
|
|
|
[ t ] [ "fdasf" "slava" check-login >boolean ] unit-test
|
|
|
|
[ f ] [ "foobar" "slava" check-login >boolean ] unit-test
|
|
] with-db
|