summaryrefslogtreecommitdiffstats
path: root/Tests/MumpsCoverage/VistA-FOIA
diff options
context:
space:
mode:
authorJoseph Snyder <joe.snyder@kitware.com>2014-08-15 14:50:36 (GMT)
committerJoseph Snyder <joe.snyder@kitware.com>2014-08-15 14:50:36 (GMT)
commit6d66e396a1b534e7f13a8e4be83820c5a06d0265 (patch)
tree7224cd88b38ce95e7c3f8ba2b50e2a34e40fa58d /Tests/MumpsCoverage/VistA-FOIA
parent1c7089924e6240a1af6e50c097023f5898687733 (diff)
downloadCMake-6d66e396a1b534e7f13a8e4be83820c5a06d0265.zip
CMake-6d66e396a1b534e7f13a8e4be83820c5a06d0265.tar.gz
CMake-6d66e396a1b534e7f13a8e4be83820c5a06d0265.tar.bz2
CTEST: Fix MUMPS file parser and update test
The current file parser for a MUMPS routine uses a period "." as the one of the signals that a line of MUMPS code is executable. This is not a correct assumption. Add the period to the list of characters that CTest will not consider the start of a line of code. Update the test routine to have an entry point with code to match the scenario mentioned above.
Diffstat (limited to 'Tests/MumpsCoverage/VistA-FOIA')
-rw-r--r--Tests/MumpsCoverage/VistA-FOIA/Packages/Uncategorized/ZZCOVTST.m7
1 files changed, 7 insertions, 0 deletions
diff --git a/Tests/MumpsCoverage/VistA-FOIA/Packages/Uncategorized/ZZCOVTST.m b/Tests/MumpsCoverage/VistA-FOIA/Packages/Uncategorized/ZZCOVTST.m
index 9a08edf..ee70682 100644
--- a/Tests/MumpsCoverage/VistA-FOIA/Packages/Uncategorized/ZZCOVTST.m
+++ b/Tests/MumpsCoverage/VistA-FOIA/Packages/Uncategorized/ZZCOVTST.m
@@ -10,6 +10,7 @@ EN ; This entry point shouldn't be found without fixing
I '$$T5 W "RETURNED FROM t5",!
Q
; This line not executable
+ D T6^ZZCOVTST
;
T1 ; This line should always be found
N D
@@ -33,4 +34,10 @@ T4 N D S D=5 W "Shouldn't be executed"
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",!
;