* tests/regression.at: New test (comment in %union).

diff --git a/ChangeLog b/ChangeLog
index 69d1d58849c7a7c93cb6b66ff5492e85bb3d2b53..c81b65164e0fcc8e4aea747ad34ef327f809c9da 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2001-09-18  Marc Autret  <autret_m@epita.fr>
+
+       * tests/regression.at: New test (comment in %union).
+
 2001-09-18  Marc Autret  <autret_m@epita.fr>
 
        * src/reader.c (parse_union_decl): Do not output '/'. Let copy_comment

diff --git a/tests/regression.at b/tests/regression.at
index e12e4fddd3f06d962887dd272383d81c648f6ef1..619a1dcdc7a8a159d57b9fb2455039c55b72a6c8 100644 (file)
--- a/tests/regression.at
+++ b/tests/regression.at
@@ -64,3 +64,26 @@ exp: {};
 AT_CHECK([bison --defines union.y])
 
 AT_CLEANUP([union.*])
+
+
+## --------------------------------------- ##
+## Duplicate '/' in C comments in %union   ##
+## --------------------------------------- ##
+
+
+AT_SETUP([%union and C comments])
+
+AT_DATA([union-comment.y],
+[%union        
+{
+  /* The int.  */      int   integer;
+  /* The string.  */   char *string ;
+}
+%%
+exp: {};
+])
+
+AT_CHECK([bison union-comment.y])
+AT_CHECK([fgrep '//*' union-comment.tab.c], [1], [])
+
+AT_CLEANUP([union-comment.*])