blob: 56f916c27b70cf9b6d70edd54fc8f910a1e8c44d (
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
|
#!/bin/sh
# gentest/eval.1.test is part of the GNU m4 testsuite
# generated from example in ../doc/m4.texinfo line 3199
. ${srcdir}/defs
cat <<\EOF >in
eval(-3 * 5)
eval(index(`Hello world', `llo') >= 0)
define(`square', `eval(($1)**2)')
square(9)
square(square(5)+1)
define(`foo', `666')
eval(`foo'/6)
eval(foo/6)
EOF
cat <<\EOF >ok
-15
1
81
676
111
EOF
cat <<\EOF >okerr
in:7: m4: Bad expression in eval: foo/6
EOF
$M4 -d in >out 2>err
sed -e "s, ../../src/m4:, m4:," err >sederr && mv sederr err
$CMP -s out ok && $CMP -s err okerr
|