| 123456789101112131415161718192021222324252627282930313233343536373839404142434445 |
- Routine,Line,RtnLine,Code
- ZZCOVTST,1,1,"ZZCOVTST;OSEHRA/JPS -- Test routine for Coverage Parsing;4/28/2014"
- ,2,0," ; (tab) This is series of comments"
- ,3,0," ; (tab) it should all be not executable"
- ,4,0," ; (spaces) one of these sets might be a problem"
- ,5,0," ; (spaces) we will have to see."
- ,6,0,"EN ; This entry point shouldn't be found without fixing"
- ,7,1," N D"
- ,8,1," S D=1 ;An executable line"
- ,9,1," D T1^ZZCOVTST"
- ,10,1," I '$$T5 W ""RETURNED FROM t5"",!"
- ,11,1," D T6^ZZCOVTST"
- ,12,1," Q"
- ,13,0," ; This line not executable"
- ,14,0," ;"
- ,15,0,"T1 ; This line should always be found"
- ,16,1," N D"
- ,17,1," S D=2"
- ,18,1," W !,D,!,""This is the second entry point"",!"
- ,19,1," D T2^ZZCOVTST(D)"
- ,20,1," Q"
- ,21,0," ;"
- ,22,0,"T2(EQ) ; This is debatable and only called with ENT^ROU notation"
- ,23,1," N D"
- ,24,1," S D=3"
- ,25,1," W !,D,!,EQ,""This is the third entry point"",!"
- ,26,1," D T3^ZZCOVTST"
- ,27,1," Q"
- ,28,0," ;"
- ,29,1,"T3 N D S D=4 W D,!,""Fourth Entry point"",! Q"
- ,30,0," ;"
- ,31,0,"T4 N D S D=5 W ""Shouldn't be executed"""
- ,32,0," W ""Lots to not do"""
- ,33,0," Q"
- ,34,1,"T5(EQ) ;this entry point is called with a $$ notation"
- ,35,1," W ""THIS IS THE $$ NOTATION!"",!"
- ,36,1," Q 0"
- ,37,0,"T6 ; An entry point to show comments inside of ""DO"" blocks"
- ,38,1," D"
- ,39,1," . W ""This is executable code"",!"
- ,40,0," . ; This is a comment inside the do block, not executable"
- ,41,1," . S ZZBLAH=""blah"""
- ,42,1," W ""Ending T6"",!"
- ,43,0," ;"
- Totals for ZZCOVTST,,25,
|
