summaryrefslogtreecommitdiffstats
path: root/tests/dimension/tokenizer.sh
blob: 762cced507f5d3a4257bc4326210a0dc2030edff (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
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
#!/bin/sh

#########################################################################
# Copyright (C) 2009 Tavian Barnes <tavianator@gmail.com>               #
#                                                                       #
# This file is part of The Dimension Test Suite.                        #
#                                                                       #
# The Dimension Test Suite is free software; you can redistribute it    #
# and/or modify it under the terms of the GNU General Public License as #
# published by the Free Software Foundation; either version 3 of the    #
# License, or (at your option) any later version.                       #
#                                                                       #
# The Dimension Test Suite is distributed in the hope that it will be   #
# useful, but WITHOUT ANY WARRANTY; without even the implied warranty   #
# of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU  #
# General Public License for more details.                              #
#                                                                       #
# You should have received a copy of the GNU General Public License     #
# along with this program.  If not, see <http://www.gnu.org/licenses/>. #
#########################################################################

exitstatus=0

punctuation=$(${top_builddir}/dimension/dimension --tokenize ${srcdir}/punctuation.pov)
punctuation_exp='({ \( [ < + - * / , > ] \) })'

if [ "$punctuation" != "$punctuation_exp" ]; then
  echo "punctuation.pov tokenized as \"$punctuation\"" >&2
  echo "                 -- expected \"$punctuation_exp\"" >&2
  exitstatus=1
fi

numeric=$(${top_builddir}/dimension/dimension --tokenize ${srcdir}/numeric.pov)
numeric_exp='((int "1") (int "123456789") (int "01234567") (int "0x123456789") - (int "0x01") (float ".1") (float "0.1") (float "1.0") (float "0.123456789") - (float "0.123456789") < (int "1") , (float "2.2") , - (float "3.03") >)'

if [ "$numeric" != "$numeric_exp" ]; then
  echo "numeric.pov tokenized as \"$numeric\"" >&2
  echo "             -- expected \"$numeric_exp\"" >&2
  exitstatus=1
fi

strings=$(${top_builddir}/dimension/dimension --tokenize ${srcdir}/strings.pov)
strings_exp='((string "This is a string with
"escape sequences"\"))'

if [ "$strings" != "$strings_exp" ]; then
  echo "strings.pov tokenized as \"$strings\"" >&2
  echo "             -- expected \"$strings_exp\"" >&2
  exitstatus=1
fi

labels=$(${top_builddir}/dimension/dimension --tokenize ${srcdir}/labels.pov)
labels_exp='(camera { } sphere { color (identifier "new_identifier") } box { color (identifier "new_identifier") })';

if [ "$labels" != "$labels_exp" ]; then
  echo "labels.pov tokenized as \"$labels\"" >&2
  echo "            -- expected \"$labels_exp\"" >&2
  exitstatus=1
fi

directives=$(${top_builddir}/dimension/dimension --tokenize ${srcdir}/directives.pov)
directives_exp='({ \( [ < + - * / , > ] \) } #declare (identifier "x"))';

if [ "$directives" != "$directives_exp" ]; then
  echo "directives.pov tokenized as \"$directives\"" >&2
  echo "                -- expected \"$directives_exp\"" >&2
  exitstatus=1
fi

exit $exitstatus