blob: 26a1e53bda6c008f0779054203d922590757468b (
plain)
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
/*
* Parser errors
*
* Total errors: 8 (+1 = 9)
*/
# Too many arguments (1)
frop :this "is" "a" 2 :long "argument" "list" :and :it :should "fail" :during "parsing" :but "it" "should" "be"
"recoverable" "." :this "is" "a" 2 :long "argument" "list" :and :it :should "fail" :during "parsing" :but
"it" "should" "be" "recoverable" {
stop;
}
# Garbage argument (2)
friep $$$;
# Deep block nesting (1)
if true { if true { if true { if true { if true { if true { if true { if true {
if true { if true { if true { if true { if true { if true { if true { if true {
if true { if true { if true { if true { if true { if true { if true { if true {
if true { if true { if true { if true { if true { if true { if true { if true {
if true { if true { if true { if true { if true { if true { if true { if true {
stop;
} } } } } } } }
} } } } } } } }
} } } } } } } }
} } } } } } } }
} } } } } } } }
# Deepest block and too deep test (list) nesting (1)
if true { if true { if true { if true { if true { if true { if true { if true {
if true { if true { if true { if true { if true { if true { if true { if true {
if true { if true { if true { if true { if true { if true { if true { if true {
if true { if true { if true { if true { if true { if true {
if
anyof ( anyof ( anyof ( anyof ( anyof ( anyof ( anyof ( anyof (
anyof ( anyof ( anyof ( anyof ( anyof ( anyof ( anyof ( anyof (
anyof ( anyof ( anyof ( anyof ( anyof ( anyof ( anyof ( anyof (
anyof ( anyof ( anyof ( anyof ( anyof ( anyof ( anyof ( anyof (
anyof ( anyof ( anyof ( anyof ( anyof ( anyof ( anyof ( anyof (
true
))))))))
))))))))
))))))))
))))))))
))))))))
{
stop;
}
} } } } } }
} } } } } } } }
} } } } } } } }
} } } } } } } }
# Deepest block and too deep test nesting (1)
if true { if true { if true { if true { if true { if true { if true { if true {
if true { if true { if true { if true { if true { if true { if true { if true {
if true { if true { if true { if true { if true { if true { if true { if true {
if true { if true { if true { if true { if true { if true {
if
not not not not not not not not
not not not not not not not not
not not not not not not not not
not not not not not not not not
not not not not not not not not false
{
stop;
}
} } } } } }
} } } } } } } }
} } } } } } } }
} } } } } } } }
# Garbage command; test wether previous errors were resolved (2)
frop $$$$;
|
