torture_server.anubis
705 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
This is a torture test for the server defined in 'http_server.anubis'.
read web/http_get.anubis
define One
ask_pages
(
Int32 n,
Int32 i
) =
print(integer_to_string(n)+" ");
forget(http_get("127.0.0.1","/",[],[]));
ask_pages(n,i+1).
global define One
torture_server
(
List(String) args
) =
forget(
delegate ask_pages(0,0),
delegate ask_pages(1,0),
delegate ask_pages(2,0),
delegate ask_pages(3,0),
delegate ask_pages(4,0),
delegate ask_pages(5,0),
delegate ask_pages(6,0),
delegate ask_pages(7,0),
delegate ask_pages(8,0),
ask_pages(9,0)).