tests/skeletons.at

   1 # Checking skeleton support.                     -*- Autotest -*-
   2
   3 # Copyright (C) 2007, 2009-2015 Free Software Foundation, 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 3 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, see <http://www.gnu.org/licenses/>.
  17
  18 AT_BANNER([[Skeleton Support.]])
  19
  20 ## ------------------------------ ##
  21 ## Relative skeleton file names.  ##
  22 ## ------------------------------ ##
  23
  24 AT_SETUP([[Relative skeleton file names]])
  25
  26 AT_CHECK([[mkdir tmp]])
  27
  28 AT_DATA([[tmp/skel.c]],
  29 [[m4@&t@_divert_push(0)d@&t@nl
  30 @output(b4_parser_file_name@)d@&t@nl
  31 b4_percent_define_get([[test]])
  32 m4@&t@_divert_pop(0)
  33 ]])
  34
  35 AT_DATA([[skel.c]],
  36 [[m4@&t@_divert_push(0)d@&t@nl
  37 @output(b4_parser_file_name@)d@&t@nl
  38 b4_percent_define_get([[test]]) -- Local
  39 m4@&t@_divert_pop(0)
  40 ]])
  41
  42 AT_DATA([[tmp/input-gram.y]],
  43 [[%skeleton "./skel.c"
  44 %define test "Hello World"
  45 %%
  46 start: ;
  47 ]])
  48
  49 AT_DATA([[input-gram.y]],
  50 [[%skeleton "./skel.c"
  51 %define test "Hello World"
  52 %%
  53 start: ;
  54 ]])
  55
  56 AT_DATA([[tmp/input-cmd-line.y]],
  57 [[%define test "Hello World"
  58 %%
  59 start: ;
  60 ]])
  61
  62 AT_BISON_CHECK([[tmp/input-gram.y]])
  63 AT_CHECK([[cat input-gram.tab.c]], [[0]],
  64 [[Hello World
  65 ]])
  66
  67 AT_BISON_CHECK([[input-gram.y]])
  68 AT_CHECK([[cat input-gram.tab.c]], [[0]],
  69 [[Hello World -- Local
  70 ]])
  71
  72 AT_BISON_CHECK([[--skeleton=tmp/skel.c tmp/input-cmd-line.y]])
  73 AT_CHECK([[cat input-cmd-line.tab.c]], [[0]],
  74 [[Hello World
  75 ]])
  76
  77 AT_CLEANUP
  78
  79
  80 ## ------------------------------- ##
  81 ## Installed skeleton file names.  ##
  82 ## ------------------------------- ##
  83
  84 AT_SETUP([[Installed skeleton file names]])
  85
  86 AT_BISON_OPTION_PUSHDEFS
  87 m4_pushdef([AT_GRAM],
  88 [[%{
  89   #include <stdio.h>
  90   ]AT_YYERROR_DECLARE[
  91   int yylex (void);
  92 %}
  93
  94 %error-verbose
  95 %token 'a'
  96
  97 %%
  98
  99 start: ;
 100
 101 %%
 102
 103 ]AT_YYERROR_DEFINE[
 104 int
 105 yylex (void)
 106 {
 107   return 'a';
 108 }
 109 ]AT_MAIN_DEFINE[
 110 ]])
 111
 112 AT_DATA_GRAMMAR([[input-cmd-line.y]],
 113 [AT_GRAM])
 114
 115 AT_DATA_GRAMMAR([[input-gram.y]],
 116 [[%skeleton "yacc.c"]
 117 AT_GRAM])
 118
 119 AT_BISON_CHECK([[--skeleton=yacc.c -o input-cmd-line.c input-cmd-line.y]])
 120 AT_COMPILE([[input-cmd-line]])
 121 AT_PARSER_CHECK([[./input-cmd-line]], [[1]], [],
 122 [[syntax error, unexpected 'a', expecting $end
 123 ]])
 124
 125 AT_BISON_CHECK([[-o input-gram.c input-gram.y]])
 126 AT_COMPILE([[input-gram]])
 127 AT_PARSER_CHECK([[./input-gram]], [[1]], [],
 128 [[syntax error, unexpected 'a', expecting $end
 129 ]])
 130
 131 m4_popdef([AT_GRAM])
 132
 133 AT_BISON_OPTION_POPDEFS
 134 AT_CLEANUP
 135
 136
 137 ## ------------------------------------------------------ ##
 138 ## %define Boolean variables: invalid skeleton defaults.  ##
 139 ## ------------------------------------------------------ ##
 140
 141 AT_SETUP([[%define Boolean variables: invalid skeleton defaults]])
 142
 143 AT_DATA([[skel.c]],
 144 [[b4_percent_define_default([[foo]], [[bogus value]])
 145 b4_percent_define_flag_if([[foo]])
 146 ]])
 147
 148 AT_DATA([[input.y]],
 149 [[%skeleton "./skel.c"
 150 %%
 151 start: ;
 152 ]])
 153
 154 AT_BISON_CHECK([[input.y]], [[1]], [[]],
 155 [[<skeleton default value>: error: invalid value for %define Boolean variable 'foo'
 156 ]])
 157
 158 AT_CLEANUP
 159
 160
 161 ## --------------------------------------------- ##
 162 ## Complaining during macro argument expansion.  ##
 163 ## --------------------------------------------- ##
 164
 165 AT_SETUP([[Complaining during macro argument expansion]])
 166
 167 AT_DATA([[skel1.c]],
 168 [[m4@&t@_define([foow], [b4_warn([[foow fubar]])])
 169 m4@&t@_define([foowat], [b4_warn_at([[foow.y:2.3]],
 170                                     [[foow.y:5.4]], [[foowat fubar]])])
 171 m4@&t@_define([fooc], [b4_complain([[fooc fubar]])])
 172 m4@&t@_define([foocat], [b4_complain_at([[fooc.y:1.1]],
 173                                         [[fooc.y:10.6]], [[foocat fubar]])])
 174 m4@&t@_define([foof], [b4_fatal([[foof fubar]])])
 175 m4@&t@_if(foow, [1], [yes])
 176 m4@&t@_if(foowat, [1], [yes])
 177 m4@&t@_if(fooc, [1], [yes])
 178 m4@&t@_if(foocat, [1], [yes])
 179 m4@&t@_if(foof, [1], [yes])
 180 ]])
 181
 182 AT_DATA([[input1.y]],
 183 [[%skeleton "./skel1.c"
 184 %%
 185 start: ;
 186 ]])
 187
 188 AT_BISON_CHECK([[input1.y]], [[1]], [[]],
 189 [[input1.y: warning: foow fubar [-Wother]
 190 foow.y:2.3-5.3: warning: foowat fubar [-Wother]
 191 input1.y: error: fooc fubar
 192 fooc.y:1.1-10.5: error: foocat fubar
 193 input1.y: fatal error: foof fubar
 194 ]])
 195
 196 AT_DATA([[skel2.c]],
 197 [[m4@&t@_define([foofat], [b4_fatal_at([[foof.y:12.11]],
 198                                        [[foof.y:100.123]], [[foofat fubar]])])
 199 m4@&t@_if(foofat, [1], [yes])
 200 ]])
 201
 202 AT_DATA([[input2.y]],
 203 [[%skeleton "./skel2.c"
 204 %%
 205 start: ;
 206 ]])
 207
 208 AT_BISON_CHECK([[input2.y]], [[1]], [[]],
 209 [[foof.y:12.11-100.122: fatal error: foofat fubar
 210 ]])
 211
 212 AT_DATA([[skel3.c]],
 213 [[b4_complain_at(b4_percent_define_get_loc([[bogus]]), [[bad value]])
 214 ]])
 215
 216 AT_DATA([[input3.y]],
 217 [[%skeleton "./skel3.c"
 218 %%
 219 start: ;
 220 ]])
 221
 222 AT_BISON_CHECK([[input3.y]], [[1]], [[]],
 223 [[input3.y: fatal error: b4_percent_define_get_loc: undefined %define variable 'bogus'
 224 ]])
 225
 226 AT_DATA([[skel4.c]],
 227 [[b4_warn_at(b4_percent_define_get_syncline([[bogus]]), [[bad value]])
 228 ]])
 229
 230 AT_DATA([[input4.y]],
 231 [[%skeleton "./skel4.c"
 232 %%
 233 start: ;
 234 ]])
 235
 236 AT_BISON_CHECK([[input4.y]], [[1]], [[]],
 237 [[input4.y: fatal error: b4_percent_define_get_syncline: undefined %define variable 'bogus'
 238 ]])
 239
 240 AT_CLEANUP
 241
 242
 243 ## --------------------------------------- ##
 244 ## Fatal errors make M4 exit immediately.  ##
 245 ## --------------------------------------- ##
 246
 247 AT_SETUP([[Fatal errors make M4 exit immediately]])
 248
 249 AT_DATA([[skel1.c]],
 250 [[b4_complain([[non-fatal error]])
 251 b4_fatal([[M4 should exit immediately here]])
 252 m4@&t@_fatal([this should never be evaluated])
 253 ]])
 254
 255 AT_DATA([[input1.y]],
 256 [[%skeleton "./skel1.c"
 257 %%
 258 start: ;
 259 ]])
 260
 261 AT_BISON_CHECK([[input1.y]], [[1]], [[]],
 262 [[input1.y: error: non-fatal error
 263 input1.y: fatal error: M4 should exit immediately here
 264 ]])
 265
 266 AT_DATA([[skel2.c]],
 267 [[b4_warn([[morning]])
 268 b4_fatal_at([[foo.y:1.5]], [[foo.y:1.7]], [[M4 should exit immediately here]])
 269 m4@&t@_fatal([this should never be evaluated])
 270 ]])
 271
 272 AT_DATA([[input2.y]],
 273 [[%skeleton "./skel2.c"
 274 %%
 275 start: ;
 276 ]])
 277
 278 AT_BISON_CHECK([[input2.y]], [[1]], [[]],
 279 [[input2.y: warning: morning [-Wother]
 280 foo.y:1.5-6: fatal error: M4 should exit immediately here
 281 ]])
 282
 283 AT_CLEANUP
 284
 285
 286 ## ------------------------------------------------ ##
 287 ## Fatal errors but M4 continues producing output.  ##
 288 ## ------------------------------------------------ ##
 289
 290 # At one time, if Bison encountered a fatal error during M4 processing,
 291 # Bison failed to drain M4's output pipe.  The result was a SIGPIPE.
 292 # On some platforms, the default disposition for SIGPIPE is terminate,
 293 # which was fine.  On others, it's ignore, which caused M4 to report
 294 # the broken pipe to the user, but we don't want to bother the user with
 295 # that.
 296
 297 # There is a race condition somewhere.  That is, before the associated
 298 # fix, running this test group many times in a row would occasionally
 299 # produce a pass among all the failures.
 300
 301 AT_SETUP([[Fatal errors but M4 continues producing output]])
 302
 303 AT_DATA([[gen-skel.pl]],
 304 [[use warnings;
 305 use strict;
 306 my $M4 = "m4";
 307 my $DNL = "d"."nl";
 308 print "${M4}_divert_push(0)$DNL\n";
 309 print '@output(@,@)', "\n";
 310 (print "garbage"x10, "\n") for (1..1000);
 311 print "${M4}_divert_pop(0)\n";
 312 ]])
 313 AT_CHECK([[$PERL gen-skel.pl > skel.c || exit 77]])
 314
 315 AT_DATA([[input.y]],
 316 [[%skeleton "./skel.c"
 317 %%
 318 start: ;
 319 ]])
 320
 321 AT_BISON_CHECK([[input.y]], [[1]], [[]],
 322 [[input.y: fatal error: too many arguments for @output directive in skeleton
 323 ]])
 324
 325 AT_CLEANUP