diff options
Diffstat (limited to 'test/trans.d/case/scan1_ocaml.rl')
-rw-r--r-- | test/trans.d/case/scan1_ocaml.rl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/test/trans.d/case/scan1_ocaml.rl b/test/trans.d/case/scan1_ocaml.rl index 74984262..d3a156e6 100644 --- a/test/trans.d/case/scan1_ocaml.rl +++ b/test/trans.d/case/scan1_ocaml.rl @@ -15,7 +15,7 @@ let token = ref 0 # coverage of the scanner action types. main := |* 'a' => {print_string( "on last " ); -if p.contents + 1 == te .contents then +if p.contents + 1 == te .contents then begin print_string( "yes" ); @@ -25,7 +25,7 @@ print_string( "\n" ); }; 'b'+ => {print_string( "on next " ); -if p.contents + 1 == te .contents then +if p.contents + 1 == te .contents then begin print_string( "yes" ); @@ -35,7 +35,7 @@ print_string( "\n" ); }; 'c1' 'dxxx'? => {print_string( "on lag " ); -if p.contents + 1 == te .contents then +if p.contents + 1 == te .contents then begin print_string( "yes" ); @@ -45,7 +45,7 @@ print_string( "\n" ); }; 'd1' => {print_string( "lm switch1 " ); -if p.contents + 1 == te .contents then +if p.contents + 1 == te .contents then begin print_string( "yes" ); @@ -54,7 +54,7 @@ end print_string( "\n" ); }; 'd2' => {print_string( "lm switch2 " ); -if p.contents + 1 == te .contents then +if p.contents + 1 == te .contents then begin print_string( "yes" ); |