git @ Cat's Eye Technologies Treacle / rel_1_0_2014_0819
Test with csi. csi is picky about quoting literal vectors... Cat's Eye Technologies 9 years ago
2 changed file(s) with 8 addition(s) and 6 deletion(s). Raw diff Collapse all Expand all
+5
-5
src/tests.scm less more
3636
3737 (test pattern-1
3838 (mk-named 'jim (mk-wildcard))
39 #(named jim #(wildcard))
39 '#(named jim #(wildcard))
4040 )
4141
4242 (test pattern-2
228228 (test match-order-1
229229 (toplevel-match
230230 '(thing (flag (world (a b c) (a b (flag k)))) thang)
231 #(hole innermost #(named jim (flag #(wildcard))))
231 '#(hole innermost #(named jim (flag #(wildcard))))
232232 )
233233 '((jim 1 1 2 2))
234234 )
236236 (test match-order-2
237237 (toplevel-match
238238 '(thing (flag (world (a b c) (a b (flag k)))) thang)
239 #(hole outermost #(named jim (flag #(wildcard))))
239 '#(hole outermost #(named jim (flag #(wildcard))))
240240 )
241241 '((jim 1))
242242 )
254254 (test apply-rule-1
255255 (apply-rule
256256 '(a b c)
257 #(named jim (a b c))
257 '#(named jim (a b c))
258258 '((jim . k) (bones 1 2 3))
259259 0
260260 )
330330
331331 (test syntax-term-4
332332 (term-atom *)
333 #(wildcard)
333 '#(wildcard)
334334 )
335335
336336 (test syntax-term-5
+3
-1
test.sh less more
00 #!/bin/sh
11
22 cd src
3 huski tests.scm > test-output.txt || exit 1
3 csi -b tests.scm > test-output.txt || exit 1
4 #huski tests.scm > test-output.txt || exit 1
5 #plt-r5rs tests.scm > test-output.txt || exit 1
46 cat test-output.txt
57 if grep -q FAILED test-output.txt; then
68 echo "FAILED"