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
|
#!/bin/sh
CPPHS=${1:-"../cpphs"}
FAIL=0
runtest() {
if $1 >out 2>/dev/null && dos2unix -q out && diff $2 out >/dev/null
then echo "passed: " $1
else FAIL=$?
echo "FAILED: ($2) " $1
fi
}
if $CPPHS </dev/null; then echo -n "passed: "; else echo -n "FAILED: "; fi
echo " $CPPHS </dev/null"
runtest "$CPPHS --nomacro testfile" expect1
runtest "$CPPHS --nomacro -Dnoelif testfile" expect2
runtest "$CPPHS --nomacro -Delif testfile" expect3
runtest "$CPPHS --nomacro -Dinclude testfile" expect4
runtest "$CPPHS --noline -Dinclude testfile" expect5
runtest "$CPPHS cpp" expect6
runtest "$CPPHS -D__GLASGOW_HASKELL__ --layout Storable.hs " expect7
runtest "$CPPHS -DCALLCONV=ccall --hashes --layout HsOpenGLExt.h" expect8
runtest "$CPPHS --layout multiline" expect9
runtest "$CPPHS --nomacro multiline" expect10
runtest "$CPPHS --hashes stringise" expect11
runtest "$CPPHS recursive" expect12
runtest "$CPPHS --strip ross" expect13
runtest "$CPPHS precedence" expect14
runtest "$CPPHS indirect" expect15
runtest "$CPPHS --hashes indirect-a" expect15a
runtest "$CPPHS numbers" expect16
runtest "$CPPHS pragma" expect17 # see also test 32
runtest "$CPPHS --noline pragma" expect18 # see also test 33
runtest "$CPPHS -D__NHC__=117 parens" expect19
runtest "$CPPHS -Dc -Dd -De -Df -Dg -Dh chains" expect20
runtest "$CPPHS --hashes specials" expect21
runtest "$CPPHS --hashes specialinclude" expect22
runtest "$CPPHS incomplete" expect23
runtest "$CPPHS text" expect24
runtest "$CPPHS --text text" expect25
runtest "$CPPHS --text nastyhack" expect26
runtest "$CPPHS nastyhack" expect27
runtest "$CPPHS -DXXX symbolvalue" expect28
runtest "$CPPHS Test.hsc" expect29
runtest "$CPPHS --unlit Arr.lhs" expect30
runtest "$CPPHS -D__NHC__=118 elif" expect31
runtest "$CPPHS --pragma pragma" expect32
runtest "$CPPHS --pragma --noline pragma" expect33
runtest "$CPPHS igloo" expect34
runtest "$CPPHS igloo2" expect35
runtest "$CPPHS --hashes igloo3" expect36
runtest "$CPPHS --hashes igloo3a" expect36a
runtest "$CPPHS --hashes igloo3b" expect36b
runtest "$CPPHS --hashes igloo4" expect37
runtest "$CPPHS --hashes igloo4a" expect37a
runtest "$CPPHS mauke" expect38
runtest "$CPPHS mauke2" expect39
runtest "$CPPHS --hashes fasta" expect40
runtest "$CPPHS --hashes fasta2" expect40a
runtest "$CPPHS --hashes hashjoin" expect41
runtest "$CPPHS wrongline" expect42
runtest "$CPPHS --hashes param" expect43
runtest "$CPPHS --strip comments" expect44
runtest "$CPPHS --strip-eol comments" expect44a
runtest "$CPPHS nestcomment" expect45
runtest "$CPPHS --include=inclusion preinclude" expect46
runtest "$CPPHS --unlit endcode-a" expect47
runtest "$CPPHS --unlit endcode-b" expect48
runtest "$CPPHS undef.hs" expect49
runtest "$CPPHS --linepragma linepragma" expect50
runtest "$CPPHS nomacro" expect51
runtest "$CPPHS --nomacro nomacro" expect52
runtest "$CPPHS --nomacro --strip-eol nomacro" expect53
runtest "$CPPHS --strip-eol nomacro" expect54
runtest "$CPPHS ballard" expect55
runtest "$CPPHS th" expect56
runtest "$CPPHS cheplyaka" expect57
runtest "$CPPHS booleanchain" expect58
exit $FAIL
|
