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
|
#!/bin/sh
CPPHS=${1:-"../cpphs"}
FAIL=0
runtest() {
if $1 >out && diff -q $2 out >/dev/null
then echo "passed: " $1
else echo "FAILED: ($2) " $1
FAIL=1
fi
}
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 numbers" expect16
runtest "$CPPHS pragma" expect17
runtest "$CPPHS --noline pragma" expect18
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
exit $FAIL
|
