[bison.git] / tests / skeletons.at

# Checking skeleton support.                     -*- Autotest -*-

# Copyright (C) 2007, 2009-2012 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]], [[]],
[[<skeleton default value>: 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: b4_percent_define_get_loc: undefined %define variable 'bogus'
]])

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: b4_percent_define_get_syncline: undefined %define variable 'bogus'
]])

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


## ------------------------------------------------ ##
## Fatal errors but M4 continues producing output.  ##
## ------------------------------------------------ ##

# At one time, if Bison encountered a fatal error during M4 processing,
# Bison failed to drain M4's output pipe.  The result was a SIGPIPE.
# On some platforms, the default disposition for SIGPIPE is terminate,
# which was fine.  On others, it's ignore, which caused M4 to report
# the broken pipe to the user, but we don't want to bother the user with
# that.

# There is a race condition somewhere.  That is, before the associated
# fix, running this test group many times in a row would occasionally
# produce a pass among all the failures.

AT_SETUP([[Fatal errors but M4 continues producing output]])

AT_DATA([[gen-skel.pl]],
[[use warnings;
use strict;
my $M4 = "m4";
my $DNL = "d"."nl";
print "${M4}_divert_push(0)$DNL\n";
print '@output(@,@)', "\n";
(print "garbage"x10, "\n") for (1..1000);
print "${M4}_divert_pop(0)\n";
]])
AT_CHECK([[perl gen-skel.pl > skel.c || exit 77]])

AT_DATA([[input.y]],
[[%skeleton "./skel.c"
%%
start: ;
]])

AT_BISON_CHECK([[input.y]], [[1]], [[]],
[[input.y: fatal error: too many arguments for @output directive in skeleton
]])

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