Commits

allison committed 9afc805

Add test for comment in spacing.

Comments (0)

Files changed (1)

     exports = split " ", "plan ok is isa_ok skip todo"
     test_namespace.'export_to'(curr_namespace, exports)
 
-    plan( 60 )
+    plan( 62 )
 
     test_leftarrow()
     test_slash()
 
     $I1 = parser.'pos'()
     is($I1, 12, "comment sets pos")
+
+    parser.'pos'(0)
+    parser.'length'(18)
+    $P0 = parser.'Spacing'("abcd # efgh\nijklm", 4)
+    $S0 = typeof $P0
+    is($S0, 'Spix;Match', "comment in spacing detected")
+
+    $I1 = parser.'pos'()
+    is($I1, 12, "comment in spacing sets pos")
 .end
 
 .sub test_endoffile