factor/extra/http/server/auth/providers/assoc/assoc-tests.factor

IN: http.server.auth.providers.assoc.tests
USING: http.server.actions http.server.auth.providers 
http.server.auth.providers.assoc tools.test
namespaces accessors kernel ;

<action> <login>
    <users-in-memory> >>users
login 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
HTTP authorization framework, first cut 2008-03-06 04:00:10 -05:00			`IN: http.server.auth.providers.assoc.tests`
Working on user capabilities 2008-05-01 17:24:50 -04:00			`USING: http.server.actions http.server.auth.providers`
HTTP authorization framework, first cut 2008-03-06 04:00:10 -05:00			`http.server.auth.providers.assoc tools.test`
HTTP server work in progress 2008-03-11 04:39:09 -04:00			`namespaces accessors kernel ;`
HTTP authorization framework, first cut 2008-03-06 04:00:10 -05:00
Working on user capabilities 2008-05-01 17:24:50 -04:00			`<action> <login>`
			`<users-in-memory> >>users`
			`login set`
HTTP authorization framework, first cut 2008-03-06 04:00:10 -05:00
HTTP server work in progress 2008-03-11 04:39:09 -04:00			`[ t ] [`
Working on user admin tool 2008-04-29 22:04:06 -04:00			`"slava" <user>`
Working on user capabilities 2008-05-01 17:24:50 -04:00			`"foobar" >>encoded-password`
HTTP server work in progress 2008-03-11 04:39:09 -04:00			`"slava@factorcode.org" >>email`
Working on user admin tool 2008-04-29 22:04:06 -04:00			`H{ } clone >>profile`
Working on user capabilities 2008-05-01 17:24:50 -04:00			`users new-user`
HTTP server work in progress 2008-03-11 04:39:09 -04:00			`username>> "slava" =`
			`] unit-test`
HTTP authorization framework, first cut 2008-03-06 04:00:10 -05:00
HTTP server work in progress 2008-03-11 04:39:09 -04:00			`[ f ] [`
Working on user admin tool 2008-04-29 22:04:06 -04:00			`"slava" <user>`
			`H{ } clone >>profile`
Working on user capabilities 2008-05-01 17:24:50 -04:00			`users new-user`
HTTP server work in progress 2008-03-11 04:39:09 -04:00			`] unit-test`
HTTP authorization framework, first cut 2008-03-06 04:00:10 -05:00
Working on user capabilities 2008-05-01 17:24:50 -04:00			`[ f ] [ "fdasf" "slava" check-login >boolean ] unit-test`
HTTP authorization framework, first cut 2008-03-06 04:00:10 -05:00
Working on user capabilities 2008-05-01 17:24:50 -04:00			`[ ] [ "foobar" "slava" check-login "user" set ] unit-test`
HTTP authorization framework, first cut 2008-03-06 04:00:10 -05:00
Working on HTTP server 2008-03-17 05:31:13 -04:00			`[ t ] [ "user" get >boolean ] unit-test`
HTTP authorization framework, first cut 2008-03-06 04:00:10 -05:00
Working on user capabilities 2008-05-01 17:24:50 -04:00			`[ ] [ "user" get "fdasf" >>encoded-password drop ] unit-test`
HTTP server work in progress 2008-03-11 04:39:09 -04:00
Working on user capabilities 2008-05-01 17:24:50 -04:00			`[ t ] [ "fdasf" "slava" check-login >boolean ] unit-test`
HTTP server work in progress 2008-03-11 04:39:09 -04:00
Working on user capabilities 2008-05-01 17:24:50 -04:00			`[ f ] [ "foobar" "slava" check-login >boolean ] unit-test`