Test cases for the first half of #13338.

p4raw-id: //depot/perl@13339

diff --git a/t/lib/h2ph.h b/t/lib/h2ph.h
index 9fd535d..f12a677 100644 (file)
--- a/t/lib/h2ph.h
+++ b/t/lib/h2ph.h
@@ -98,4 +98,20 @@ typedef enum _days_of_week { sun, mon, tue, wed, thu, fri, sat, Sun=0, Mon,
 ??= define SOMETHING_ELSE_TRIGRAPHIC_8 "??>"          /* | ??>|  }| */
        ??=endif
 
+/* comments (that look like string) inside enums... */
+
+enum {
+   /* foo;
+     can't
+   */                        
+ };
+
+enum flimflam {
+  flim,
+   /* foo;
+     can't
+   */
+  flam                      
+ } flamflim;
+
 #endif /* _H2PH_H_ */

diff --git a/t/lib/h2ph.pht b/t/lib/h2ph.pht
index 07b9470..235332d 100644 (file)
--- a/t/lib/h2ph.pht
+++ b/t/lib/h2ph.pht
@@ -79,5 +79,7 @@ unless(defined(&_H2PH_H_)) {
        eval 'sub SOMETHING_ELSE_TRIGRAPHIC_7 () {"#";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_7);
        eval 'sub SOMETHING_ELSE_TRIGRAPHIC_8 () {"}";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_8);
     }
+    eval("sub flim () { 0; }") unless defined(&flim);
+    eval("sub flam () { 1; }") unless defined(&flam);
 }
 1;