# Checking the output filenames. -*- Autotest -*-
-# Copyright 2002 Free Software Foundation, Inc.
+# Copyright (C) 2002 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
# Mostly test that we are robust to mistakes.
+
## ------------ ##
## Invalid $n. ##
## ------------ ##
-
AT_SETUP([Invalid $n])
AT_DATA([input.y],
[[%%
-exp: { $$ = $1 ; }
+exp: { $$ = $1 ; };
]])
AT_CHECK([bison input.y], [1], [],
-[[input.y:2: invalid value: $1
+[[input.y:2.6-14: invalid value: $1
]])
AT_CLEANUP
## Invalid @n. ##
## ------------ ##
-
AT_SETUP([Invalid @n])
AT_DATA([input.y],
[[%%
-exp: { @$ = @1 ; }
+exp: { @$ = @1 ; };
]])
AT_CHECK([bison input.y], [1], [],
-[[input.y:2: invalid value: @1
+[[input.y:2.6-14: invalid value: @1
+]])
+
+AT_CLEANUP
+
+
+## -------------- ##
+## Type Clashes. ##
+## -------------- ##
+
+AT_SETUP([Type Clashes])
+
+AT_DATA([input.y],
+[[%token foo
+%type <bar> exp
+%%
+exp: foo {} foo
+ | foo
+ | /* Empty. */
+ ;
+]])
+
+AT_CHECK([bison input.y], [1], [],
+[[input.y:4.4-15: type clash (`bar' `') on default action
+input.y:5.4-8: type clash (`bar' `') on default action
+input.y:6.4: empty rule for typed nonterminal, and no action
+]])
+
+AT_CLEANUP
+
+
+
+## ----------------------- ##
+## Torturing the Scanner. ##
+## ----------------------- ##
+
+# Be sure to compile and run, so that the C compiler checks what
+# we do.
+
+AT_SETUP([Torturing the Scanner])
+
+AT_DATA([input.y],
+[[%{
+/* This is seen in GCC: a %{ and %} in middle of a comment. */
+const char *foo = "So %{ and %} can be here too.";
+
+#include <stdio.h>
+%}
+/* %{ and %} can be here too. */
+
+%{
+/* Exercise pre-prologue dependency to %union. */
+typedef int value_t;
+%}
+
+/* Exercise M4 quoting: '@:>@@:>@', 0. */
+
+/* Also exercise %union. */
+%union
+{
+ value_t ival; /* A comment to exercise an old bug. */
+};
+
+
+/* Exercise post-prologue dependency to %union. */
+%{
+static YYSTYPE value_t_as_yystype (value_t val);
+
+/* Exercise quotes in declarations. */
+char quote[] = "@:>@@:>@,";
+%}
+
+%{
+static void yyerror (const char *s);
+static int yylex (void);
+%}
+
+%type <ival> '1'
+
+/* Exercise quotes in strings. */
+%token FAKE "fake @<:@@:>@,"
+
+%%
+/* Exercise M4 quoting: '@:>@@:>@', 1. */
+exp: '1'
+ {
+ /* Exercise quotes in braces. */
+ char tmp[] = "@<:@%c@:>@,\n";
+ printf (tmp, $1);
+ }
+;
+%%
+/* Exercise M4 quoting: '@:>@@:>@', 2. */
+
+static YYSTYPE
+value_t_as_yystype (value_t val)
+{
+ YYSTYPE res;
+ res.ival = val;
+ return res;
+}
+
+static int
+yylex (void)
+{
+ static const char *input = "1";
+ yylval = value_t_as_yystype (*input);
+ return *input++;
+}
+
+static void
+yyerror (const char *msg)
+{
+ fprintf (stderr, "%s\n", msg);
+}
+]])
+
+AT_DATA([main.c],
+[[typedef int value_t;
+#include "input.h"
+
+int yyparse (void);
+
+int
+main (void)
+{
+ return yyparse ();
+}
+]])
+
+AT_CHECK([bison -d -v -o input.c input.y])
+AT_COMPILE([input], [input.c main.c])
+AT_PARSER_CHECK([./input], 0,
+[[[1],
]])
AT_CLEANUP