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
|
|
|
|
|
2008-03-06 04:00:10 -05:00
|
|
|
TUPLE: foo ;
|
|
|
|
|
|
|
|
C: <foo> foo
|
|
|
|
|
2008-03-11 04:39:09 -04:00
|
|
|
M: foo init-session* drop 0 "x" sset ;
|
2008-03-06 04:00:10 -05:00
|
|
|
|
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
|
|
|
|
|
|
|
|
[ ] [
|
2008-03-06 04:00:10 -05:00
|
|
|
<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
|