X-Git-Url: https://git.saurik.com/bison.git/blobdiff_plain/38e71ff8c8b5a0d0c6ad7dc064ebad9fe5163b18..4158e0a143725e7c9b6af17c653f49ade6e9a0cb:/tests/input.at?ds=sidebyside diff --git a/tests/input.at b/tests/input.at index a16289e2..cfff34c8 100644 --- a/tests/input.at +++ b/tests/input.at @@ -1,5 +1,5 @@ -# Checking the output filenames. -*- Autotest -*- -# Copyright (C) 2002 Free Software Foundation, Inc. +# Checking the Bison scanner. -*- Autotest -*- +# Copyright (C) 2002, 2003, 2004, 2005, 2006 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 @@ -13,8 +13,8 @@ # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA -# 02111-1307, USA. +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA +# 02110-1301, USA. AT_BANNER([[Input Processing.]]) @@ -25,7 +25,7 @@ AT_BANNER([[Input Processing.]]) ## Invalid $n. ## ## ------------ ## -AT_SETUP([Invalid $n]) +AT_SETUP([Invalid dollar-n]) AT_DATA([input.y], [[%% @@ -33,7 +33,7 @@ exp: { $$ = $1 ; }; ]]) AT_CHECK([bison input.y], [1], [], -[[input.y:2.6-14: integer out of range: `$1' +[[input.y:2.13-14: integer out of range: `$1' ]]) AT_CLEANUP @@ -51,7 +51,7 @@ exp: { @$ = @1 ; }; ]]) AT_CHECK([bison input.y], [1], [], -[[input.y:2.6-14: integer out of range: `@1' +[[input.y:2.13-14: integer out of range: `@1' ]]) AT_CLEANUP @@ -74,9 +74,126 @@ exp: foo {} foo ]]) AT_CHECK([bison input.y], [], [], -[[input.y:4.4-15: warning: type clash on default action: != <> -input.y:5.4-8: warning: type clash on default action: != <> -input.y:6.4: warning: empty rule for typed nonterminal, and no action +[[input.y:4.6-15: warning: type clash on default action: != <> +input.y:5.6-8: warning: type clash on default action: != <> +input.y:6.5: warning: empty rule for typed nonterminal, and no action +]]) + +AT_CLEANUP + + +## --------------- ## +## Unused values. ## +## --------------- ## + +m4_define([AT_CHECK_UNUSED_VALUES], +[AT_SETUP([Unused values]) + +AT_DATA([input.y], +[[%token INT +%type exp +%% +exp: + $1 +| INT +; +]]) + +AT_CHECK([bison input.y], [], [], +[[$2]]) + +AT_CLEANUP +]) + +AT_CHECK_UNUSED_VALUES([INT { } INT { } INT { }], +[input.y:5.3-25: warning: unset value: $$ +input.y:5.3-25: warning: unused value: $1 +input.y:5.3-25: warning: unused value: $3 +input.y:5.3-25: warning: unused value: $5 +]) + +AT_CHECK_UNUSED_VALUES([INT { $1 } INT { } INT { }], +[input.y:5.3-28: warning: unset value: $$ +input.y:5.3-28: warning: unused value: $3 +input.y:5.3-28: warning: unused value: $5 +]) + +AT_CHECK_UNUSED_VALUES([INT { } INT { $1 } INT { }], +[input.y:5.3-28: warning: unset value: $$ +input.y:5.3-28: warning: unused value: $3 +input.y:5.3-28: warning: unused value: $5 +]) + +AT_CHECK_UNUSED_VALUES([INT { } INT { } INT { $1 }], +[input.y:5.3-29: warning: unset value: $$ +input.y:5.3-29: warning: unused value: $3 +input.y:5.3-29: warning: unused value: $5 +]) + +AT_CHECK_UNUSED_VALUES([INT { } INT { } INT { $$ = $1 + $3 + $5; }]) + +# Checking mid-rule values. +AT_CHECK_UNUSED_VALUES([INT { $$ } INT { $$ } INT { }], +[input.y:5.3-31: warning: unset value: $$ +input.y:5.3-31: warning: unused value: $1 +input.y:5.3-31: warning: unused value: $2 +input.y:5.3-31: warning: unused value: $3 +input.y:5.3-31: warning: unused value: $4 +input.y:5.3-31: warning: unused value: $5 +]) + +AT_CHECK_UNUSED_VALUES([INT { $$ } INT { $$ = $2 } INT { }], +[input.y:5.3-36: warning: unset value: $$ +input.y:5.3-36: warning: unused value: $1 +input.y:5.3-36: warning: unused value: $3 +input.y:5.3-36: warning: unused value: $4 +input.y:5.3-36: warning: unused value: $5 +]) + +# AT_CHECK_UNUSED_VALUES([INT { $$ } { $$ = $2 } { }], +# [input.y:5.3-36: warning: unset value: $$ +# input.y:5.3-36: warning: unused value: $1 +# input.y:5.3-36: warning: unused value: $3 +# input.y:5.3-36: warning: unused value: $4 +# input.y:5.3-36: warning: unused value: $5 +# ]) + +AT_CHECK_UNUSED_VALUES([INT { $$ = $1 } INT { $$ = $2 + $3 } INT { $$ = $4 + $5 }]) + + + +## ---------------------- ## +## Incompatible Aliases. ## +## ---------------------- ## + +AT_SETUP([Incompatible Aliases]) + +AT_DATA([input.y], +[[%token foo "foo" + +%type foo +%printer {bar} foo +%destructor {bar} foo +%left foo + +%type "foo" +%printer {baz} "foo" +%destructor {baz} "foo" +%left "foo" + +%% +exp: foo; +]]) + +AT_CHECK([bison input.y], [1], [], +[[input.y:8.7-11: %type redeclaration for foo +input.y:3.7-11: first declaration +input.y:10.13-17: %destructor redeclaration for foo +input.y:5.13-17: first declaration +input.y:9.19-23: %printer redeclaration for foo +input.y:10.13-17: first declaration +input.y:11.1-5: %left redeclaration for foo +input.y:6.1-5: first declaration ]]) AT_CLEANUP @@ -92,6 +209,13 @@ AT_CLEANUP AT_SETUP([Torturing the Scanner]) + +AT_DATA([input.y], []) +AT_CHECK([bison input.y], [1], [], +[[input.y:1.1: syntax error, unexpected end of file +]]) + + AT_DATA_GRAMMAR([input.y], [[%{ /* This is seen in GCC: a %{ and %} in middle of a comment. */ @@ -132,7 +256,7 @@ char apostrophe = '\''; %{ /* Exercise pre-prologue dependency to %union. */ -typedef int value_t; +typedef int value; %} /* Exercise M4 quoting: '@:>@@:>@', 0. */ @@ -140,13 +264,13 @@ typedef int value_t; /* Also exercise %union. */ %union { - value_t ival; /* A comment to exercise an old bug. */ + value ival; /* A comment to exercise an old bug. */ }; /* Exercise post-prologue dependency to %union. */ %{ -static YYSTYPE value_t_as_yystype (value_t val); +static YYSTYPE value_as_yystype (value val); /* Exercise quotes in declarations. */ char quote[] = "@:>@@:>@,"; @@ -160,11 +284,11 @@ static int yylex (void); %type '@<:@' /* Exercise quotes in strings. */ -%token FAKE "fake @<:@@:>@ \a\b\f\n\r\t\v\"\'\?\\\u005B\U0000005c ??!??'??(??)??-??/?? \x0\0" +%token FAKE "fake @<:@@:>@ \a\b\f\n\r\t\v\"\'\?\\\u005B\U0000005c ??!??'??(??)??-??/?? \x1\1" %% /* Exercise M4 quoting: '@:>@@:>@', @<:@, 1. */ -exp: '@<:@' '\1' two '$' '@' '{' oline output +exp: '@<:@' '\1' two '$' '@' '{' oline output.or.oline.opt { /* Exercise quotes in braces. */ char tmp[] = "@<:@%c@:>@,\n"; @@ -174,12 +298,13 @@ exp: '@<:@' '\1' two '$' '@' '{' oline output two: '\x000000000000000000000000000000000000000000000000000000000000000000002'; oline: '@' 'o' 'l' 'i' 'n' 'e' '@' '_' '_' 'o' 'l' 'i' 'n' 'e' '_' '_'; +output.or.oline.opt: ;|oline;;|output;;; output: '#' 'o' 'u' 't' 'p' 'u' 't' ' '; %% /* Exercise M4 quoting: '@:>@@:>@', @<:@, 2. */ static YYSTYPE -value_t_as_yystype (value_t val) +value_as_yystype (value val) { YYSTYPE res; res.ival = val; @@ -192,7 +317,7 @@ yylex (void) static const char *input = "@<:@\1\2$@{@oline@__@&t@oline__\ #output "; /* " */ - yylval = value_t_as_yystype (*input); + yylval = value_as_yystype (*input); return *input++; } @@ -206,7 +331,7 @@ yyerror (const char *msg) # Pacify Emacs'font-lock-mode: " AT_DATA([main.c], -[[typedef int value_t; +[[typedef int value; #include "input.h" int yyparse (void); @@ -227,3 +352,49 @@ AT_PARSER_CHECK([./input], 0, ]]) AT_CLEANUP + + +## ---------------------- ## +## Typed symbol aliases. ## +## ---------------------- ## + +AT_SETUP([Typed symbol aliases]) + +# Bison 2.0 broke typed symbol aliases - ensure they work. + +AT_DATA_GRAMMAR([input.y], +[[%union +{ + int val; +}; +%token MY_TOKEN "MY TOKEN" +%type exp +%% +exp: "MY TOKEN"; +%% +]]) + +AT_CHECK([bison -o input.c input.y]) + +AT_CLEANUP + + +## --------- ## +## Require. ## +## --------- ## + +m4_define([AT_CHECK_REQUIRE], +[AT_SETUP([Require $1]) +AT_DATA_GRAMMAR([input.y], +[[%require "$1"; +%% +empty_file:; +]]) +AT_CHECK([bison -o input.c input.y], $2, [], ignore) +AT_CLEANUP +]) + +AT_CHECK_REQUIRE(1.0, 0) +AT_CHECK_REQUIRE(AT_PACKAGE_VERSION, 0) +## FIXME: Some day augment this version number. +AT_CHECK_REQUIRE(100.0, 63)