36 lines
871 B
Factor
36 lines
871 B
Factor
USING: furnace.actions furnace.auth furnace.auth.providers
|
|
furnace.auth.providers.assoc furnace.auth.login
|
|
tools.test namespaces accessors kernel ;
|
|
IN: furnace.auth.providers.assoc.tests
|
|
|
|
<action> "Test" <login-realm>
|
|
<users-in-memory> >>users
|
|
realm set
|
|
|
|
{ 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
|
|
|
|
{ t } [ "fdasf" "slava" check-login >boolean ] unit-test
|
|
|
|
{ f } [ "foobar" "slava" check-login >boolean ] unit-test
|