factor/extra/http/server/sessions/sessions-tests.factor

40 lines
957 B
Factor
Raw Normal View History

2008-03-03 03:19:36 -05:00
IN: http.server.sessions.tests
2008-02-29 01:57:38 -05:00
USING: tools.test http.server.sessions math namespaces
kernel accessors ;
2008-03-03 03:19:36 -05:00
: with-session \ session swap with-variable ; inline
TUPLE: foo ;
C: <foo> foo
2008-03-11 04:39:09 -04:00
M: foo init-session* drop 0 "x" sset ;
2008-03-11 04:39:09 -04:00
f <session> [
2008-02-29 01:57:38 -05:00
[ ] [ 3 "x" sset ] unit-test
[ 9 ] [ "x" sget sq ] unit-test
[ ] [ "x" [ 1- ] schange ] unit-test
[ 4 ] [ "x" sget sq ] unit-test
] with-session
[ t ] [ f <url-sessions> url-sessions? ] unit-test
[ t ] [ f <cookie-sessions> cookie-sessions? ] unit-test
[ ] [
<foo> <url-sessions>
2008-02-29 01:57:38 -05:00
"manager" set
] unit-test
[ { 5 0 } ] [
[
"manager" get new-session
dup "manager" get get-session [ 5 "a" sset ] with-session
dup "manager" get get-session [ "a" sget , ] with-session
dup "manager" get get-session [ "x" sget , ] with-session
"manager" get get-session delete-session
] { } make
] unit-test