1 USING: accessors arrays http.server http.server.rewrite kernel
2 namespaces tools.test urls ;
3 IN: http.server.rewrite.tests
5 TUPLE: rewrite-test-default ;
7 M: rewrite-test-default call-responder*
8 drop "DEFAULT!" 2array ;
10 TUPLE: rewrite-test-child ;
12 M: rewrite-test-child call-responder*
13 drop "rewritten-param" param 2array ;
15 V{ } clone responder-nesting set
19 rewrite-test-child new >>child
20 rewrite-test-default new >>default
21 "rewritten-param" >>param
24 [ { { } "DEFAULT!" } ] [ { } "rewrite" get call-responder ] unit-test
25 [ { { } "xxx" } ] [ { "xxx" } "rewrite" get call-responder ] unit-test
26 [ { { "blah" } "xxx" } ] [ { "xxx" "blah" } "rewrite" get call-responder ] unit-test
29 rewrite-test-child new >>child
30 rewrite-test-default new >>default
31 "rewritten-param" >>param
32 "blogs.vegan.net" >>suffix
35 [ { { } "DEFAULT!" } ] [
36 URL" http://blogs.vegan.net" url set
37 { } "rewrite" get call-responder
40 [ { { } "DEFAULT!" } ] [
41 URL" http://www.blogs.vegan.net" url set
42 { } "rewrite" get call-responder
46 URL" http://erg.blogs.vegan.net" url set
47 { } "rewrite" get call-responder