blob: 987461ebbc84ea6d82ed2b0baca1aa77c0bf2848 (
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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
#!/bin/sh
# Copyright 2018 by Denys Vlasenko
# Licensed under GPLv2 or later, see file LICENSE in this source tree.
. ./testing.sh
# testing "test name" "command" "expected result" "file input" "stdin"
testing "bc comment 1" \
"bc" \
"3\n" \
"" "1 /* comment */ + 2"
testing "bc comment 2: /*/ is not a closed comment" \
"bc" \
"4\n" \
"" "1 /*/ + 2 */ + 3"
testing "bc backslash 1" \
"bc" \
"3\n" \
"" "1 \\\\\n + 2"
testing "bc string 1" \
"bc" \
"STR\n" \
"" "\"STR\n\""
testing "bc if 0 else" \
"bc" \
"2\n9\n" \
"" "if (0) 1 else 2; 9"
testing "bc if 1 else" \
"bc" \
"1\n9\n" \
"" "if (1) 1 else 2; 9"
testing "bc if 1 if 1 else else" \
"bc" \
"1\n9\n" \
"" "if (1) if (1) 1 else 2 else 3; 9"
testing "bc if 0 else if 1" \
"bc" \
"2\n9\n" \
"" "if (0) 1 else if (1) 2; 9"
testing "bc define auto" \
"bc" \
"8\n9\n" \
"" "define w() { auto z; return 8; }; w(); 9"
testing "bc define with body on next line" \
"bc" \
"8\n9\n" \
"" "define w()\n{ auto z; return 8; }\nw()\n9"
testing "bc if(cond)<NL>" \
"bc" \
"9\n" \
"" "if(0)\n3\n9"
testing "bc if(cond) stmt else<NL>" \
"bc" \
"4\n9\n" \
"" "if(0)3 else\n4\n9"
testing "bc while(cond)<NL>" \
"bc" \
"8\n7\n6\n5\n4\n3\n2\n1\n9\n" \
"" "i=9;while(--i)\ni\n9"
testing "bc print 1,2,3" \
"bc" \
"123" \
"" "print 1,2,3"
testing "bc nested loops and breaks" \
"bc" \
"\
11
21
31
22
12
99
" \
"" "\
if(1) {
11
while(1) {
21
while(1) {
31
break
32
}
22
break
23
}
12
} else {
88
}
99
"
tar xJf bc_large.tar.xz
for f in bc*.bc; do
r="`basename "$f" .bc`_results.txt"
test -f "$r" || continue
# testing "test name" "command" "expected result" "file input" "stdin"
testing "bc -lq $f" \
"{ { bc -lq $f 2>&1; echo E:\$? >&2; } | diff -u - $r; echo E:\$?; } 2>&1" \
"E:0\nE:0\n" \
"" ""
done
exit $FAILCOUNT
|
