extra-tests: Add an extra suppression for OCaml 3.11.2 in RHEL 6.
[libguestfs.git] / regressions / test-guestfish-escapes.sh
1 #!/bin/bash -
2 # libguestfs
3 # Copyright (C) 2011 Red Hat Inc.
4 #
5 # This program is free software; you can redistribute it and/or modify
6 # it under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 2 of the License, or
8 # (at your option) any later version.
9 #
10 # This program is distributed in the hope that it will be useful,
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13 # GNU General Public License for more details.
14 #
15 # You should have received a copy of the GNU General Public License
16 # along with this program; if not, write to the Free Software
17 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18
19 # Test guestfish string escapes.
20
21 set -e
22
23 rm -f test.output test.error test.error.old
24
25 ../fish/guestfish <<'EOF' 2>test.error | od > test.output
26 echo ""
27 echo " "
28 echo "  "
29 echo "\n"
30 echo "\r"
31 echo "\n\n"
32 echo "\x01"
33 echo "\001"
34 echo "\100"
35
36 # These are invalid:
37 -echo "\x00"
38 -echo "\000"
39 -echo "\x"
40 -echo "\x0"
41 -echo "\7"
42 -echo "\77"
43 -echo "\777"
44 -echo "\"
45 -echo "\\\"
46 -echo "
47 -echo """
48 EOF
49
50 # Since trace and debug output also goes to stderr, we must
51 # remove it before testing.
52 mv test.error test.error.old
53 grep -v '^libguestfs: ' < test.error.old > test.error
54
55 if [ "$(cat test.error)" != "\
56 guestfish: invalid escape sequence in string (starting at offset 0)
57 guestfish: invalid escape sequence in string (starting at offset 0)
58 guestfish: invalid escape sequence in string (starting at offset 0)
59 guestfish: invalid escape sequence in string (starting at offset 0)
60 guestfish: invalid escape sequence in string (starting at offset 0)
61 guestfish: invalid escape sequence in string (starting at offset 0)
62 guestfish: invalid escape sequence in string (starting at offset 0)
63 guestfish: unterminated double quote
64 guestfish: unterminated double quote
65 guestfish: unterminated double quote
66 guestfish: command arguments not separated by whitespace" ]; then
67     echo "unexpected stderr from guestfish:"
68     cat test.error
69     echo "[end of stderr]"
70     exit 1
71 fi
72
73 if [ "$(cat test.output)" != "\
74 0000000 020012 020012 005040 005012 005015 005012 000412 000412
75 0000020 040012 000012
76 0000023" ]; then
77     echo "unexpected stdout from guestfish:"
78     cat test.output
79     echo "[end of stdout]"
80     exit 1
81 fi
82
83 rm -f test.output test.error test.error.old