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