Index: bison/src/bison/2.4.1/bison-2.4.1-src/tests/skeletons.at |
=================================================================== |
--- bison/src/bison/2.4.1/bison-2.4.1-src/tests/skeletons.at (revision 0) |
+++ bison/src/bison/2.4.1/bison-2.4.1-src/tests/skeletons.at (revision 0) |
@@ -0,0 +1,290 @@ |
+# Checking skeleton support. -*- Autotest -*- |
+# Copyright (C) 2007 Free Software Foundation, Inc. |
+ |
+# This program 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. |
+# |
+# This program 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/>. |
+ |
+AT_BANNER([[Skeleton Support.]]) |
+ |
+## ------------------------------ ## |
+## Relative skeleton file names. ## |
+## ------------------------------ ## |
+ |
+AT_SETUP([[Relative skeleton file names]]) |
+ |
+AT_CHECK([[mkdir tmp]]) |
+ |
+AT_DATA([[tmp/skel.c]], |
+[[m4@&t@_divert_push(0)d@&t@nl |
+@output(b4_parser_file_name@)d@&t@nl |
+b4_percent_define_get([[test]]) |
+m4@&t@_divert_pop(0) |
+]]) |
+ |
+AT_DATA([[skel.c]], |
+[[m4@&t@_divert_push(0)d@&t@nl |
+@output(b4_parser_file_name@)d@&t@nl |
+b4_percent_define_get([[test]]) -- Local |
+m4@&t@_divert_pop(0) |
+]]) |
+ |
+AT_DATA([[tmp/input-gram.y]], |
+[[%skeleton "./skel.c" |
+%define test "Hello World" |
+%% |
+start: ; |
+]]) |
+ |
+AT_DATA([[input-gram.y]], |
+[[%skeleton "./skel.c" |
+%define test "Hello World" |
+%% |
+start: ; |
+]]) |
+ |
+AT_DATA([[tmp/input-cmd-line.y]], |
+[[%define test "Hello World" |
+%% |
+start: ; |
+]]) |
+ |
+AT_BISON_CHECK([[tmp/input-gram.y]]) |
+AT_CHECK([[cat input-gram.tab.c]], [[0]], |
+[[Hello World |
+]]) |
+ |
+AT_BISON_CHECK([[input-gram.y]]) |
+AT_CHECK([[cat input-gram.tab.c]], [[0]], |
+[[Hello World -- Local |
+]]) |
+ |
+AT_BISON_CHECK([[--skeleton=tmp/skel.c tmp/input-cmd-line.y]]) |
+AT_CHECK([[cat input-cmd-line.tab.c]], [[0]], |
+[[Hello World |
+]]) |
+ |
+AT_CLEANUP |
+ |
+ |
+## ------------------------------- ## |
+## Installed skeleton file names. ## |
+## ------------------------------- ## |
+ |
+AT_SETUP([[Installed skeleton file names]]) |
+ |
+m4_pushdef([AT_GRAM], |
+[[%{ |
+ #include <stdio.h> |
+ void yyerror (char const *msg); |
+ int yylex (void); |
+%} |
+ |
+%error-verbose |
+%token 'a' |
+ |
+%% |
+ |
+start: ; |
+ |
+%% |
+ |
+void |
+yyerror (char const *msg) |
+{ |
+ fprintf (stderr, "%s\n", msg); |
+} |
+ |
+int |
+yylex (void) |
+{ |
+ return 'a'; |
+} |
+ |
+int |
+main (void) |
+{ |
+ return yyparse (); |
+} |
+]]) |
+ |
+AT_DATA([[input-cmd-line.y]], |
+[AT_GRAM]) |
+ |
+AT_DATA([[input-gram.y]], |
+[[%skeleton "yacc.c"] |
+AT_GRAM]) |
+ |
+AT_BISON_CHECK([[--skeleton=yacc.c -o input-cmd-line.c input-cmd-line.y]]) |
+AT_COMPILE([[input-cmd-line]]) |
+AT_PARSER_CHECK([[./input-cmd-line]], [[1]], [], |
+[[syntax error, unexpected 'a', expecting $end |
+]]) |
+ |
+AT_BISON_CHECK([[-o input-gram.c input-gram.y]]) |
+AT_COMPILE([[input-gram]]) |
+AT_PARSER_CHECK([[./input-gram]], [[1]], [], |
+[[syntax error, unexpected 'a', expecting $end |
+]]) |
+ |
+m4_popdef([AT_GRAM]) |
+ |
+AT_CLEANUP |
+ |
+ |
+## ------------------------------------------------------ ## |
+## %define Boolean variables: invalid skeleton defaults. ## |
+## ------------------------------------------------------ ## |
+ |
+AT_SETUP([[%define Boolean variables: invalid skeleton defaults]]) |
+ |
+AT_DATA([[skel.c]], |
+[[b4_percent_define_default([[foo]], [[bogus value]]) |
+b4_percent_define_flag_if([[foo]]) |
+]]) |
+ |
+AT_DATA([[input.y]], |
+[[%skeleton "./skel.c" |
+%% |
+start: ; |
+]]) |
+ |
+AT_BISON_CHECK([[input.y]], [[1]], [[]], |
+[[[Bison:b4_percent_define_default]:1.0: invalid value for %define Boolean variable `foo' |
+]]) |
+ |
+AT_CLEANUP |
+ |
+ |
+## --------------------------------------------- ## |
+## Complaining during macro argument expansion. ## |
+## --------------------------------------------- ## |
+ |
+AT_SETUP([[Complaining during macro argument expansion]]) |
+ |
+AT_DATA([[skel1.c]], |
+[[m4@&t@_define([foow], [b4_warn([[foow fubar]])]) |
+m4@&t@_define([foowat], [b4_warn_at([[foow.y:2.3]], |
+ [[foow.y:5.4]], [[foowat fubar]])]) |
+m4@&t@_define([fooc], [b4_complain([[fooc fubar]])]) |
+m4@&t@_define([foocat], [b4_complain_at([[fooc.y:1.1]], |
+ [[fooc.y:10.6]], [[foocat fubar]])]) |
+m4@&t@_define([foof], [b4_fatal([[foof fubar]])]) |
+m4@&t@_if(foow, [1], [yes]) |
+m4@&t@_if(foowat, [1], [yes]) |
+m4@&t@_if(fooc, [1], [yes]) |
+m4@&t@_if(foocat, [1], [yes]) |
+m4@&t@_if(foof, [1], [yes]) |
+]]) |
+ |
+AT_DATA([[input1.y]], |
+[[%skeleton "./skel1.c" |
+%% |
+start: ; |
+]]) |
+ |
+AT_BISON_CHECK([[input1.y]], [[1]], [[]], |
+[[input1.y: warning: foow fubar |
+foow.y:2.3-5.3: warning: foowat fubar |
+input1.y: fooc fubar |
+fooc.y:1.1-10.5: foocat fubar |
+input1.y: fatal error: foof fubar |
+]]) |
+ |
+AT_DATA([[skel2.c]], |
+[[m4@&t@_define([foofat], [b4_fatal_at([[foof.y:12.11]], |
+ [[foof.y:100.123]], [[foofat fubar]])]) |
+m4@&t@_if(foofat, [1], [yes]) |
+]]) |
+ |
+AT_DATA([[input2.y]], |
+[[%skeleton "./skel2.c" |
+%% |
+start: ; |
+]]) |
+ |
+AT_BISON_CHECK([[input2.y]], [[1]], [[]], |
+[[foof.y:12.11-100.122: fatal error: foofat fubar |
+]]) |
+ |
+AT_DATA([[skel3.c]], |
+[[b4_complain_at(b4_percent_define_get_loc([[bogus]]), [[bad value]]) |
+]]) |
+ |
+AT_DATA([[input3.y]], |
+[[%skeleton "./skel3.c" |
+%% |
+start: ; |
+]]) |
+ |
+AT_BISON_CHECK([[input3.y]], [[1]], [[]], |
+[[input3.y: fatal error: undefined %define variable `bogus' passed to b4_percent_define_get_loc |
+]]) |
+ |
+AT_DATA([[skel4.c]], |
+[[b4_warn_at(b4_percent_define_get_syncline([[bogus]]), [[bad value]]) |
+]]) |
+ |
+AT_DATA([[input4.y]], |
+[[%skeleton "./skel4.c" |
+%% |
+start: ; |
+]]) |
+ |
+AT_BISON_CHECK([[input4.y]], [[1]], [[]], |
+[[input4.y: fatal error: undefined %define variable `bogus' passed to b4_percent_define_get_syncline |
+]]) |
+ |
+AT_CLEANUP |
+ |
+ |
+## --------------------------------------- ## |
+## Fatal errors make M4 exit immediately. ## |
+## --------------------------------------- ## |
+ |
+AT_SETUP([[Fatal errors make M4 exit immediately]]) |
+ |
+AT_DATA([[skel1.c]], |
+[[b4_complain([[non-fatal error]]) |
+b4_fatal([[M4 should exit immediately here]]) |
+m4@&t@_fatal([this should never be evaluated]) |
+]]) |
+ |
+AT_DATA([[input1.y]], |
+[[%skeleton "./skel1.c" |
+%% |
+start: ; |
+]]) |
+ |
+AT_BISON_CHECK([[input1.y]], [[1]], [[]], |
+[[input1.y: non-fatal error |
+input1.y: fatal error: M4 should exit immediately here |
+]]) |
+ |
+AT_DATA([[skel2.c]], |
+[[b4_warn([[morning]]) |
+b4_fatal_at([[foo.y:1.5]], [[foo.y:1.7]], [[M4 should exit immediately here]]) |
+m4@&t@_fatal([this should never be evaluated]) |
+]]) |
+ |
+AT_DATA([[input2.y]], |
+[[%skeleton "./skel2.c" |
+%% |
+start: ; |
+]]) |
+ |
+AT_BISON_CHECK([[input2.y]], [[1]], [[]], |
+[[input2.y: warning: morning |
+foo.y:1.5-6: fatal error: M4 should exit immediately here |
+]]) |
+ |
+AT_CLEANUP |