testsuite/bc.tests

   1 #!/bin/sh
   2 # Copyright 2018 by Denys Vlasenko
   3 # Licensed under GPLv2 or later, see file LICENSE in this source tree.
   4
   5 . ./testing.sh
   6
   7 # testing "test name" "command" "expected result" "file input" "stdin"
   8
   9 testing "bc comment" \
  10         "bc" \
  11         "3\n" \
  12         "" "1 /* comment */ + 2"
  13
  14 testing "bc /*/ is not a closed comment" \
  15         "bc" \
  16         "4\n" \
  17         "" "1 /*/ + 2 */ + 3"
  18
  19 # this needs interactive testing
  20 testing "bc comment with \"" \
  21         "bc" \
  22         "3\n" \
  23         "" "1 /* \" */ + 2"
  24
  25 # this needs interactive testing
  26 testing "bc \"string/*\" is not a comment" \
  27         "bc" \
  28         "string/*9\n" \
  29         "" "\"string/*\";9"
  30
  31 testing "bc comment 3: unterminated #comment" \
  32         "bc" \
  33         "" \
  34         "" "#foo"  # no trailing newline
  35
  36 testing "bc backslash 1" \
  37         "bc" \
  38         "3\n" \
  39         "" "1 \\\\\n + 2"
  40
  41 testing "bc string 1" \
  42         "bc" \
  43         "STR\n" \
  44         "" "\"STR\n\""
  45
  46 testing "bc read() 4<EOF>" \
  47         "bc input" \
  48         "4\n" \
  49         "read();halt" "4"
  50
  51 testing "bc read()^2" \
  52         "bc input" \
  53         "16\n" \
  54         "read()^2;halt" "4\n"
  55
  56 testing "bc read()*read()" \
  57         "bc input" \
  58         "20\n" \
  59         "read()*read();halt" "4\n5"
  60
  61 testing "bc if 0 else" \
  62         "bc" \
  63         "2\n9\n" \
  64         "" "if (0) 1 else 2; 9"
  65
  66 testing "bc if 1 else" \
  67         "bc" \
  68         "1\n9\n" \
  69         "" "if (1) 1 else 2; 9"
  70
  71 testing "bc if 1 if 1 else else" \
  72         "bc" \
  73         "1\n9\n" \
  74         "" "if (1) if (1) 1 else 2 else 3; 9"
  75
  76 testing "bc if 0 else if 1" \
  77         "bc" \
  78         "2\n9\n" \
  79         "" "if (0) 1 else if (1) 2; 9"
  80
  81 testing "bc for (;;)" \
  82         "bc" \
  83         "2\n3\n2\n9\n" \
  84         "" "i=2; for (;;) { 2; if(--i==0) break; 3; }; 9"
  85
  86 testing "bc for (;cond;)" \
  87         "bc" \
  88         "1\n2\n3\n9\n" \
  89         "" "i=0; for(;i<3;)++i; 9"
  90
  91 testing "bc for (;cond;upd)" \
  92         "bc" \
  93         "1\n2\n3\n9\n" \
  94         "" "i=1; for(;i<4;i++)i; 9"
  95
  96 testing "bc for (init;cond;upd)" \
  97         "bc" \
  98         "1\n2\n3\n9\n" \
  99         "" "for(i=1;i<4;i++)i; 9"
 100
 101 testing "bc for (;;) {break}" \
 102         "bc" \
 103         "2\n9\n" \
 104         "" "for (;;) {2;break}; 9"
 105
 106 testing "bc define auto" \
 107         "bc" \
 108         "8\n9\n" \
 109         "" "define w() { auto z; return 8; }; w(); 9"
 110
 111 testing "bc define auto array same name" \
 112         "bc" \
 113         "8\n9\n" \
 114         "" "define w(x) { auto x[]; return x; }; w(8); 9"
 115
 116 testing "bc define with body on next line" \
 117         "bc" \
 118         "8\n9\n" \
 119         "" "define w()\n{ auto z; return 8; }\nw()\n9"
 120
 121 testing "bc if(cond)<NL>" \
 122         "bc" \
 123         "9\n" \
 124         "" "if(0)\n3\n9"
 125
 126 testing "bc if(cond) stmt else<NL>" \
 127         "bc" \
 128         "4\n9\n" \
 129         "" "if(0)3 else\n4\n9"
 130
 131 testing "bc while(cond)<NL>" \
 132         "bc" \
 133         "8\n7\n6\n5\n4\n3\n2\n1\n9\n" \
 134         "" "i=9;while(--i)\ni\n9"
 135
 136 testing "bc ifz does not match if keyword" \
 137         "bc" \
 138         "1\n2\n2\n3\n" \
 139         "" "ifz=1;ifz\n++ifz;ifz++\nifz"
 140
 141 # had parse error on "f()-N"
 142 testing "bc -l 'e(0)-2'" \
 143         "bc -l" \
 144         "-1.00000000000000000000\n" \
 145         "" "e(0)-2"
 146
 147 testing "bc (!a&&b)" \
 148         "bc" \
 149         "0\n" \
 150         "" "(!a&&b)"
 151
 152 # check that dc code is not messing this up (no NUL printing!)
 153 testing "bc print \"\"" \
 154         "bc" \
 155         "" \
 156         "" "print \"\""
 157
 158 testing "bc print 1,2,3" \
 159         "bc" \
 160         "123" \
 161         "" "print 1,2,3"
 162
 163 testing "bc { print 1 }" \
 164         "bc" \
 165         "1" \
 166         "" "{ print 1 }"
 167
 168 testing "bc nested loops and breaks" \
 169         "bc" \
 170         "\
 171 11
 172 21
 173 31
 174 22
 175 12
 176 99
 177 " \
 178         "" "\
 179 if(1) {
 180         11
 181         while(1) {
 182                 21
 183                 while(1) {
 184                         31
 185                         break
 186                         32
 187                 }
 188                 22
 189                 break
 190                 23
 191         }
 192         12
 193 } else {
 194         88
 195 }
 196 99
 197 "
 198
 199 testing "bc continue in if" \
 200         "bc" \
 201         "\
 202 11
 203 21
 204 11
 205 31
 206 99
 207 " \
 208         "" "\
 209 i=2
 210 while(i--) {
 211         11
 212         if(i) {
 213                 21
 214                 continue
 215                 22
 216         } else {
 217                 31
 218                 continue
 219                 32
 220         }
 221         12
 222 }
 223 99
 224 "
 225
 226 testing "bc continue in for" \
 227         "bc" \
 228         "\
 229 1
 230 77
 231 2
 232 99
 233 " \
 234         "" "\
 235 for(i=1; i<3; i++) {
 236     i
 237     if(i==2) continue
 238     77
 239 }
 240 99
 241 "
 242
 243 testing "bc ibase" \
 244         "bc" \
 245         "99\n1295\n1224\n" \
 246         "" "a=ZZ;a;ibase=36;a=ZZ;a;ibase=Z;a=ZZ;a"
 247
 248 tar xJf bc_large.tar.xz
 249
 250 for f in bc*.bc; do
 251         r="`basename "$f" .bc`_results.txt"
 252         test -f "$r" || continue
 253         # testing "test name" "command" "expected result" "file input" "stdin"
 254         testing "bc -lq $f" \
 255                 "{ { bc -lq $f 2>&1; echo E:\$? >&2; } | diff -u - $r; echo E:\$?; } 2>&1" \
 256                 "E:0\nE:0\n" \
 257                 "" ""
 258 done
 259
 260 exit $FAILCOUNT