]> git.saurik.com Git - bison.git/blobdiff - tests/skeletons.at
options: don't accept "error=" for -f and -r
[bison.git] / tests / skeletons.at
index ce079d62924fa369d0c27dc69e7c3741145a7d08..68a004ec5109dc0f5e66e33956ed8c16d4064892 100644 (file)
@@ -1,6 +1,6 @@
 # Checking skeleton support.                     -*- Autotest -*-
 
 # Checking skeleton support.                     -*- Autotest -*-
 
-# Copyright (C) 2007, 2009-2012 Free Software Foundation, Inc.
+# Copyright (C) 2007, 2009-2013 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
 
 # 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
@@ -106,18 +106,13 @@ yylex (void)
 {
   return 'a';
 }
 {
   return 'a';
 }
-
-int
-main (void)
-{
-  return yyparse ();
-}
+]AT_MAIN_DEFINE[
 ]])
 
 ]])
 
-AT_DATA([[input-cmd-line.y]],
+AT_DATA_GRAMMAR([[input-cmd-line.y]],
 [AT_GRAM])
 
 [AT_GRAM])
 
-AT_DATA([[input-gram.y]],
+AT_DATA_GRAMMAR([[input-gram.y]],
 [[%skeleton "yacc.c"]
 AT_GRAM])
 
 [[%skeleton "yacc.c"]
 AT_GRAM])
 
@@ -315,7 +310,7 @@ print '@output(@,@)', "\n";
 (print "garbage"x10, "\n") for (1..1000);
 print "${M4}_divert_pop(0)\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_CHECK([[$PERL gen-skel.pl > skel.c || exit 77]])
 
 AT_DATA([[input.y]],
 [[%skeleton "./skel.c"
 
 AT_DATA([[input.y]],
 [[%skeleton "./skel.c"