2008-03-06 04:00:10 -05:00
|
|
|
IN: http.server.auth.providers.assoc.tests
|
|
|
|
|
USING: http.server.auth.providers
|
|
|
|
|
http.server.auth.providers.assoc tools.test
|
2008-03-11 04:39:09 -04:00
|
|
|
namespaces accessors kernel ;
|
2008-03-06 04:00:10 -05:00
|
|
|
|
2008-03-15 07:22:47 -04:00
|
|
|
<users-in-memory> "provider" set
|
2008-03-06 04:00:10 -05:00
|
|
|
|
2008-03-11 04:39:09 -04:00
|
|
|
[ t ] [
|
|
|
|
|
<user>
|
|
|
|
|
"slava" >>username
|
|
|
|
|
"foobar" >>password
|
|
|
|
|
"slava@factorcode.org" >>email
|
|
|
|
|
"provider" get new-user
|
|
|
|
|
username>> "slava" =
|
|
|
|
|
] unit-test
|
2008-03-06 04:00:10 -05:00
|
|
|
|
2008-03-11 04:39:09 -04:00
|
|
|
[ f ] [
|
|
|
|
|
<user>
|
|
|
|
|
"slava" >>username
|
|
|
|
|
"provider" get new-user
|
|
|
|
|
] unit-test
|
2008-03-06 04:00:10 -05:00
|
|
|
|
2008-03-11 04:39:09 -04:00
|
|
|
[ f ] [ "fdasf" "slava" "provider" get check-login >boolean ] unit-test
|
2008-03-06 04:00:10 -05:00
|
|
|
|
2008-03-11 04:39:09 -04:00
|
|
|
[ t ] [ "foobar" "slava" "provider" get check-login >boolean ] unit-test
|
2008-03-06 04:00:10 -05:00
|
|
|
|
2008-03-11 04:39:09 -04:00
|
|
|
[ f ] [ "xx" "blah" "provider" get set-password ] unit-test
|
2008-03-06 04:00:10 -05:00
|
|
|
|
2008-03-15 08:57:52 -04:00
|
|
|
[ t ] [ "fdasf" "slava" "provider" get set-password >boolean ] unit-test
|
2008-03-11 04:39:09 -04:00
|
|
|
|
|
|
|
|
[ t ] [ "fdasf" "slava" "provider" get check-login >boolean ] unit-test
|
|
|
|
|
|
|
|
|
|
[ f ] [ "foobar" "slava" "provider" get check-login >boolean ] unit-test
|
