26 int expect(const char* expr_str, const char* expected, int* errors) {  in expect()  argument
39         ++*errors;  in expect()
53         ++*errors;  in expect()
64         ++*errors;  in expect()
74     int errors = 0;  in test()  local
76     expect("a", "a", &errors);  in test()
77     expect("\"a\"", "a", &errors);  in test()
78     expect("\"\\x61\"", "a", &errors);  in test()
82            "a", &errors);  in test()
86     expect("a; b; c", "c", &errors);  in test()
89     expect("a + b", "ab", &errors);  in test()
90     expect("a + \n \"b\"", "ab", &errors);  in test()
91     expect("a + b +\nc\n", "abc", &errors);  in test()
94     expect("concat(a, b)", "ab", &errors);  in test()
95     expect("concat(a,\n \"b\")", "ab", &errors);  in test()
96     expect("concat(a + b,\nc,\"d\")", "abcd", &errors);  in test()
97     expect("\"concat\"(a + b,\nc,\"d\")", "abcd", &errors);  in test()
100     expect("a && b", "b", &errors);  in test()
101     expect("a && \"\"", "", &errors);  in test()
102     expect("\"\" && b", "", &errors);  in test()
103     expect("\"\" && \"\"", "", &errors);  in test()
104     expect("\"\" && abort()", "", &errors);   // test short-circuiting  in test()
105     expect("t && abort()", NULL, &errors);  in test()
108     expect("a || b", "a", &errors);  in test()
109     expect("a || \"\"", "a", &errors);  in test()
110     expect("\"\" || b", "b", &errors);  in test()
111     expect("\"\" || \"\"", "", &errors);  in test()
112     expect("a || abort()", "a", &errors);     // test short-circuiting  in test()
113     expect("\"\" || abort()", NULL, &errors);  in test()
116     expect("!a", "", &errors);  in test()
117     expect("! \"\"", "t", &errors);  in test()
118     expect("!!a", "t", &errors);  in test()
121     expect("\"\" == \"\" && b", "b", &errors);  in test()
122     expect("a + b == ab", "t", &errors);  in test()
123     expect("ab == a + b", "t", &errors);  in test()
124     expect("a + (b == ab)", "a", &errors);  in test()
125     expect("(ab == a) + b", "b", &errors);  in test()
128     expect("is_substring(cad, abracadabra)", "t", &errors);  in test()
129     expect("is_substring(abrac, abracadabra)", "t", &errors);  in test()
130     expect("is_substring(dabra, abracadabra)", "t", &errors);  in test()
131     expect("is_substring(cad, abracxadabra)", "", &errors);  in test()
132     expect("is_substring(abrac, axbracadabra)", "", &errors);  in test()
133     expect("is_substring(dabra, abracadabrxa)", "", &errors);  in test()
136     expect("ifelse(t, yes, no)", "yes", &errors);  in test()
137     expect("ifelse(!t, yes, no)", "no", &errors);  in test()
138     expect("ifelse(t, yes, abort())", "yes", &errors);  in test()
139     expect("ifelse(!t, abort(), no)", "no", &errors);  in test()
142     expect("if t then yes else no endif", "yes", &errors);  in test()
143     expect("if \"\" then yes else no endif", "no", &errors);  in test()
144     expect("if \"\" then yes endif", "", &errors);  in test()
145     expect("if \"\"; t then yes endif", "yes", &errors);  in test()
148     expect("less_than_int(3, 14)", "t", &errors);  in test()
149     expect("less_than_int(14, 3)", "", &errors);  in test()
150     expect("less_than_int(x, 3)", "", &errors);  in test()
151     expect("less_than_int(3, x)", "", &errors);  in test()
152     expect("greater_than_int(3, 14)", "", &errors);  in test()
153     expect("greater_than_int(14, 3)", "t", &errors);  in test()
154     expect("greater_than_int(x, 3)", "", &errors);  in test()
155     expect("greater_than_int(3, x)", "", &errors);  in test()
159     return errors;  in test()