| ZZCOVTST;OSEHRA/JPS -- Test routine for Coverage Parsing;4/28/2014 |
| ; (tab) This is series of comments |
| ; (tab) it should all be not executable |
| ; (spaces) one of these sets might be a problem |
| ; (spaces) we will have to see. |
| EN ; This entry point shouldn't be found without fixing |
| N D |
| S D=1 ;An executable line |
| D T1^ZZCOVTST |
| I '$$T5 W "RETURNED FROM t5",! |
| Q |
| ; This line not executable |
| D T6^ZZCOVTST |
| ; |
| % ; a line to test for a problem where % was dropped |
| N Do,Re,Mi |
| S Do="A#" |
| T1 ; This line should always be found |
| N D |
| S D=2 |
| W !,D,!,"This is the second entry point",! |
| D T2^ZZCOVTST(D) |
| Q |
| ; |
| T2(EQ) ; This is debatable and only called with ENT^ROU notation |
| N D |
| S D=3 |
| W !,D,!,EQ,"This is the third entry point",! |
| D T3^ZZCOVTST |
| Q |
| ; |
| T3 N D S D=4 W D,!,"Fourth Entry point",! Q |
| ; |
| T4 N D S D=5 W "Shouldn't be executed" |
| W "Lots to not do" |
| Q |
| T5(EQ) ;this entry point is called with a $$ notation |
| W "THIS IS THE $$ NOTATION!",! |
| Q 0 |
| T6 ; An entry point to show comments inside of "DO" blocks |
| D |
| . W "This is executable code",! |
| . ;This is a comment inside the do block, not executable |
| . S ZZBLAH="blah" |
| W "Ending T6",! |
| ; |