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