t/parser-test

   1 #!/bin/sh
   2 # exercise the parser
   3
   4 . "${srcdir=.}/init.sh"; path_prepend_ .
   5
   6 cat <<\EOF > f.exp || framework_failure_
   7 AND
   8   COMPARISON
   9     SERVER FIELD a (never)
  10     STRING fubar
  11   NOT
  12     COMPARISON
  13       LINK
  14         LINK
  15           OBJECT FIELD b (7)
  16           DEST FIELD c
  17         DEST FIELD d
  18       NUMBER 3
  19 d= 0
  20 EOF
  21
  22 parser '#a=="fubar"&&!($b.c.d<3)' > features 2> err || fail=1
  23 compare features f.exp || fail=1
  24 compare /dev/null err || fail=1
  25
  26 parser '#a == "fubar" && ! ( $b.c.d < 3)' > white-space 2> err || fail=1
  27 compare white-space f.exp || fail=1
  28 compare /dev/null err || fail=1
  29
  30 parser '$ a' > a.out 2>&1 || fail=1
  31 printf "OBJECT FIELD a (2)\ns= 2\n" > a.exp
  32 compare a.out a.exp || fail=1
  33
  34 parser '$.a' > e1.out 2>&1; test $? = 1 || fail=1
  35 printf "could not parse '$.a'\n" > e1.exp
  36 compare e1.exp e1.out || fail=1
  37
  38 parser '1 = = 1' > e2.out 2>&1; test $? = 1 || fail=1
  39 printf "could not parse '1 = = 1'\n" > e2.exp
  40 compare e2.exp e2.out || fail=1
  41
  42 Exit $fail