ZZCOVTST.cmcov 1.2 KB

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