Skip to content

Commit

Permalink
Splitting stopFlag and debugFlag
Browse files Browse the repository at this point in the history
  • Loading branch information
aplteam committed Oct 2, 2024
1 parent 0fd2ed4 commit 3fa4d28
Show file tree
Hide file tree
Showing 135 changed files with 448 additions and 333 deletions.
2 changes: 1 addition & 1 deletion APLSource/TestCases/TestCasesSimu/Test_009.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_009(stopFlag batchFlag);⎕TRAP
rTest_009(debugFlag batchFlag);⎕TRAP
Does not execute in batch mode but fails otherwise
r1
:If batchFlag
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/TestCasesSimu/Test_010.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_010(stopFlag batchFlag);⎕TRAP
rTest_010(debugFlag batchFlag);⎕TRAP
Does not execute in batch mode but is okay otherwise
r1
:If batchFlag
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/TestCasesSimu/Test_2.aplf
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
rTest_2(stopFlag batchFlag);⎕TRAP
rTest_2(debugFlag batchFlag);⎕TRAP
Successful test case
r##.T._OK
2 changes: 1 addition & 1 deletion APLSource/TestCases/TestCasesSimu/Test_Grouping_001.aplf
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
rTest_Grouping_001(stopFlag batchFlag);⎕TRAP
rTest_Grouping_001(debugFlag batchFlag);⎕TRAP
Exercise just grouping [1]
r##.T._OK
2 changes: 1 addition & 1 deletion APLSource/TestCases/TestCasesSimu/Test_Grouping_002.aplf
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
rTest_Grouping_002(stopFlag batchFlag);⎕TRAP
rTest_Grouping_002(debugFlag batchFlag);⎕TRAP
Exercise just grouping [2]
r##.T._OK
2 changes: 1 addition & 1 deletion APLSource/TestCases/TestCasesSimu/Test_Grouping_003.aplf
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
rTest_Grouping_003(stopFlag batchFlag);⎕TRAP
rTest_Grouping_003(debugFlag batchFlag);⎕TRAP
Exercise just grouping [3]
r##.T._OK
2 changes: 1 addition & 1 deletion APLSource/TestCases/TestCasesSimu/Test_Grp1_001.aplf
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
rTest_Grp1_001(stopFlag batchFlag);⎕TRAP
rTest_Grp1_001(debugFlag batchFlag);⎕TRAP
First in Grp1
r##.T._OK
2 changes: 1 addition & 1 deletion APLSource/TestCases/TestCasesSimu/Test_Grp1_002.aplf
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
rTest_Grp1_002(stopFlag batchFlag);⎕TRAP
rTest_Grp1_002(debugFlag batchFlag);⎕TRAP
Second in Grp1
r##.T._OK
2 changes: 1 addition & 1 deletion APLSource/TestCases/TestCasesSimu/Test_Grp1_003.aplf
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
rTest_Grp1_003(stopFlag batchFlag);⎕TRAP
rTest_Grp1_003(debugFlag batchFlag);⎕TRAP
Third in Grp1
r##.T._OK
2 changes: 1 addition & 1 deletion APLSource/TestCases/TestCasesSimu/Test_Grp2_001.aplf
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
rTest_Grp2_001(stopFlag batchFlag);⎕TRAP
rTest_Grp2_001(debugFlag batchFlag);⎕TRAP
First in Grp2
r##.T._OK
2 changes: 1 addition & 1 deletion APLSource/TestCases/TestCasesSimu/Test_Grp2_002.aplf
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
rTest_Grp2_002(stopFlag batchFlag);⎕TRAP
rTest_Grp2_002(debugFlag batchFlag);⎕TRAP
Second in Grp2
r##.T._OK
2 changes: 1 addition & 1 deletion APLSource/TestCases/TestGroupInits/Test_01.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_01(stopFlag batchFlag);⎕TRAP
rTest_01(debugFlag batchFlag);⎕TRAP
Pro-forma test to make sure we have one test function that does not belong to a group
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._OK
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/TestGroupInits/Test_Foo_01.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Foo_01(stopFlag batchFlag);⎕TRAP
rTest_Foo_01(debugFlag batchFlag);⎕TRAP
Pro-forma test for the group `Foo`. Used to test the execution of `Initial_Foo` and `Cleanup_Foo`.
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/TestGroupInits/Test_Misc_01.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Misc_01(stopFlag batchFlag);⎕TRAP
rTest_Misc_01(debugFlag batchFlag);⎕TRAP
Pro-forma test for the group `Misc`. Used to test the execution of `Initial_Misc` and `Cleanup_Misc`.
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')

Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/TestGroupInits/Test_Misc_02.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Misc_02(stopFlag batchFlag);⎕TRAP
rTest_Misc_02(debugFlag batchFlag);⎕TRAP
Pro-forma test for the group `Misc`. Used to test the execution of `Initial_Misc` and `Cleanup_Misc`.
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/TestGroupInits/Test_More_01.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_More_01(stopFlag batchFlag);⎕TRAP
rTest_More_01(debugFlag batchFlag);⎕TRAP
Pro-forma test for the group `Foo`. Used to test the execution of `Initial_More`
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')

Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/TestGroupInits/Test_Other_01.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Other_01(stopFlag batchFlag);⎕TRAP
rTest_Other_01(debugFlag batchFlag);⎕TRAP
Pro-forma test for the group `Other`. Used to test the execution of `Initial_Other` and `Cleanup_Other`.
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')

Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/TestGroupInits/Test_Other_02.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Other_02(stopFlag batchFlag);⎕TRAP
rTest_Other_02(debugFlag batchFlag);⎕TRAP
Pro-forma test for the group `Other`. Used to test the execution of `Initial_Other` and `Cleanup_Other`.
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')

Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/TestGroupInits/Test_ZZZ_01.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_ZZZ_01(stopFlag batchFlag);⎕TRAP
rTest_ZZZ_01(debugFlag batchFlag);⎕TRAP
Check whether there are any variables startting their names with `∆`: if so then `Cleanup*` function have not been executed.
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Custom_01.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Custom_01(stopFlag batchFlag);⎕TRAP;qdmx;i;T2
rTest_Custom_01(debugFlag batchFlag);⎕TRAP;qdmx;i;T2
Exercise `custom_{n}` properties with invalid settings
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Custom_02.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Custom_02(stopFlag batchFlag);⎕TRAP;qdmx;i;T2;noOfConstants
rTest_Custom_02(debugFlag batchFlag);⎕TRAP;qdmx;i;T2;noOfConstants
Set all custom messages and then call `ListSymbolicNames`
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
3 changes: 1 addition & 2 deletions APLSource/TestCases/Test_Custom_03.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Custom_03(stopFlag batchFlag);⎕TRAP;qdmx;i;T2;log;rc
rTest_Custom_03(debugFlag batchFlag);⎕TRAP;qdmx;i;T2;log;rc
Run a test suite that uses all custom messages
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down Expand Up @@ -31,5 +31,4 @@
T.PassesIf 10 0 0 2 1 1 1 1 1 1 1 1∆GetTotals log

rT._OK

Done
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Custom_04.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Custom_04(stopFlag batchFlag);⎕TRAP;qdmx;i;T2;log;rc
rTest_Custom_04(debugFlag batchFlag);⎕TRAP;qdmx;i;T2;log;rc
Run a test suite that uses some custom messages
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Custom_05.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Custom_05(stopFlag batchFlag);⎕TRAP;qdmx;i;T2;log;rc
rTest_Custom_05(debugFlag batchFlag);⎕TRAP;qdmx;i;T2;log;rc
Run a test suite that uses some custom messages with GUI
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')

Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Exec_01.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Exec_01(stopFlag batchFlag);⎕TRAP;rc;log;QDMX
rTest_Exec_01(debugFlag batchFlag);⎕TRAP;rc;log;QDMX
Test `exec_before_each_test` without a valid assignment.
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Exec_02.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Exec_02(stopFlag batchFlag);⎕TRAP;rc;log;QDMX
rTest_Exec_02(debugFlag batchFlag);⎕TRAP;rc;log;QDMX
Test `exec_after_each_test` without a valid assignment.
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Exec_10.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Exec_10(stopFlag batchFlag);⎕TRAP;rc;log;QDMX
rTest_Exec_10(debugFlag batchFlag);⎕TRAP;rc;log;QDMX
Test `exec_before_each_test` without returning a result
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Exec_11.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Exec_11(stopFlag batchFlag);⎕TRAP;rc;log;QDMX
rTest_Exec_11(debugFlag batchFlag);⎕TRAP;rc;log;QDMX
Test `exec_before_each_test` returning a result
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Exec_20.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Exec_20(stopFlag batchFlag);⎕TRAP;rc;log;QDMX
rTest_Exec_20(debugFlag batchFlag);⎕TRAP;rc;log;QDMX
Test `exec_after_each_test` without returning a result
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(888 'C' '→∆Error')(0 'N')
rT._Failed
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Group_001.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Group_001(stopFlag batchFlag);log;stopFlag;⎕TRAP;rc
rTest_Group_001(debugFlag batchFlag);log;debugFlag;⎕TRAP;rc
Exercise the grouping mechanism with specific numbers
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Group_002.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Group_002(stopFlag batchFlag);log;⎕TRAP;rc;T2
rTest_Group_002(debugFlag batchFlag);log;⎕TRAP;rc;T2
Exercise the grouping mechanism without any specific numbers
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Group_003.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Group_003(stopFlag batchFlag);log;⎕TRAP;rc;T2
rTest_Group_003(debugFlag batchFlag);log;⎕TRAP;rc;T2
Exercise the grouping mechanism without any specific numbers (not even empty ones)
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Group_004.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Group_004(stopFlag batchFlag);log;⎕TRAP;rc;T2
rTest_Group_004(debugFlag batchFlag);log;⎕TRAP;rc;T2
Exercise `RunThese`: grouping mechanism but without any hits
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Group_006.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Group_006(stopFlag batchFlag);ref;⎕TRAP;T2;names;res
rTest_Group_006(debugFlag batchFlag);ref;⎕TRAP;T2;names;res
Exercise stop flags for test cases, Initial- and Cleanup functions with `Run`; with a group.
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
16 changes: 8 additions & 8 deletions APLSource/TestCases/Test_Group_007.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Group_007(stopFlag batchFlag);ref;⎕TRAP;T2;names;rc;log;parms
rTest_Group_007(debugFlag batchFlag);ref;⎕TRAP;T2;names;rc;log;parms
Exercise stop flags for test cases, Initial- and Cleanup functions with `RunGUI`; with a group in the GUI
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand All @@ -22,7 +22,7 @@

:Trap 1001
parmsT2.CreateParms
parms.stopFlag1
parms.stop1
(rc log)parms T2.RunGUI'Foo'
T.FailsIf 1
:Else
Expand All @@ -35,7 +35,7 @@

:Trap 1001
parmsT2.CreateParms
parms.stopFlag2
parms.stop2
(rc log)parms T2.RunGUI'Foo'
T.FailsIf 1
:Else
Expand All @@ -47,7 +47,7 @@

:Trap 1001
parmsT2.CreateParms
parms.stopFlag4
parms.stop4
(rc log)parms T2.RunGUI'Foo'
T.FailsIf 1
:Else
Expand All @@ -59,7 +59,7 @@

:Trap 1001
parmsT2.CreateParms
parms.stopFlag3
parms.stop3
(rc log)parms T2.RunGUI'Foo'
T.FailsIf 1
:Else
Expand All @@ -71,7 +71,7 @@

:Trap 1001
parmsT2.CreateParms
parms.stopFlag5
parms.stop5
(rc log)parms T2.RunGUI'Foo'
T.FailsIf 1
:Else
Expand All @@ -83,7 +83,7 @@

:Trap 1001
parmsT2.CreateParms
parms.stopFlag7
parms.stop7
(rc log)parms T2.RunGUI'Foo'
T.FailsIf 1
:Else
Expand All @@ -95,7 +95,7 @@

:Trap 1001
parmsT2.CreateParms
parms.stopFlag6
parms.stop6
(rc log)parms T2.RunGUI'Foo'
T.FailsIf 1
:Else
Expand Down
3 changes: 2 additions & 1 deletion APLSource/TestCases/Test_Group_008.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Group_008(stopFlag batchFlag);log;⎕TRAP;rc;T2
rTest_Group_008(debugFlag batchFlag);log;⎕TRAP;rc;T2
Multiple groups
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand All @@ -8,3 +8,4 @@
T.PassesIf/0<+/¨/¨'Test_Grouping_' 'Test_Grp2_'¨log

rT._OK
Done
4 changes: 2 additions & 2 deletions APLSource/TestCases/Test_Group_009.aplf
Original file line number Diff line number Diff line change
@@ -1,11 +1,11 @@
rTest_Group_009(stopFlag batchFlag);log;⎕TRAP;rc;T2;names
rTest_Group_009(debugFlag batchFlag);log;⎕TRAP;rc;T2;names
Without multiple groups
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed

T2⎕NEW ##.Tester2 TestCasesSimu
(rc log)T2.RunThese'~Grouping,Grp1'
names∆GetDetails log
T.PassesIf (,'Grp1')('test_')¨ 'Test_Grp1'{()}¨names
T.PassesIf(,'Grp1')('test_')¨'Test_Grp1'{()}¨names

rT._OK
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Group_010.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Group_010(stopFlag batchFlag);log;⎕TRAP;rc;T2;qdmx
rTest_Group_010(debugFlag batchFlag);log;⎕TRAP;rc;T2;qdmx
RunThese with nested groups (illegal)
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Group_012.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Group_012(stopFlag batchFlag);log;⎕TRAP;rc;T2;qdmx;names
rTest_Group_012(debugFlag batchFlag);log;⎕TRAP;rc;T2;qdmx;names
Group definition that excludes all groups starting with "Gr" by a wildcard expression
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Group_014.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Group_014(stopFlag batchFlag);log;⎕TRAP;rc;T2;qdmx;names;noOf
rTest_Group_014(debugFlag batchFlag);log;⎕TRAP;rc;T2;qdmx;names;noOf
Group definition that specifies a wilcard expression and a specific test case
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Group_015.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Group_015(stopFlag batchFlag);log;⎕TRAP;rc;T2;qdmx;names;noOf
rTest_Group_015(debugFlag batchFlag);log;⎕TRAP;rc;T2;qdmx;names;noOf
Group definition that mixes "," (multiple groups) with "~" (without) and "*" (wildcard syntax)
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Group_016.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Group_016(stopFlag batchFlag);log;⎕TRAP;rc;T2;qdmx;names;noOf
rTest_Group_016(debugFlag batchFlag);log;⎕TRAP;rc;T2;qdmx;names;noOf
Group definition that specifies three groups but in "wrong" order
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Helpers_01.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Helpers_01(stopFlag batchFlag);⎕TRAP;list1;list2;list3
rTest_Helpers_01(debugFlag batchFlag);⎕TRAP;list1;list2;list3
Exercise `ListTestFunctions`.
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Helpers_02.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Helpers_02(stopFlag batchFlag);⎕TRAP;list1;list
rTest_Helpers_02(debugFlag batchFlag);⎕TRAP;list1;list
Exercise the `ListGroups` method.
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand Down
4 changes: 2 additions & 2 deletions APLSource/TestCases/Test_Helpers_03.aplf
Original file line number Diff line number Diff line change
@@ -1,10 +1,10 @@
rTest_Helpers_03(stopFlag batchFlag);stopFlag;⎕TRAP;list1
rTest_Helpers_03(debugFlag batchFlag);debugFlag;⎕TRAP;list1
Exercise the `EditTestFunctions` method.
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')

:If 0 TODO⍝ Bring back once bug <02142> is fixed
rT._Inactive Because of bug <02142>
:return
:Return
:EndIf

:If batchFlag
Expand Down
2 changes: 1 addition & 1 deletion APLSource/TestCases/Test_Helpers_04.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_Helpers_04(stopFlag batchFlag);stopFlag;⎕TRAP;list1;expected;result
rTest_Helpers_04(debugFlag batchFlag);debugFlag;⎕TRAP;list1;expected;result
Exercise the `ListSymbolicNames` method.
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')

Expand Down
4 changes: 2 additions & 2 deletions APLSource/TestCases/Test_IniFiles_01.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_IniFiles_01(stopFlag batchFlag);log;stopFlag;⎕TRAP;rc;ini;body;report;iniFilename;T2
rTest_IniFiles_01(debugFlag batchFlag);log;debugFlag;⎕TRAP;rc;ini;body;report;iniFilename;T2
Exercise single INI file "testcase.ini"
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand All @@ -12,7 +12,7 @@
'TEMP'#.⎕NS''
#.TEMP.T⎕NEW ##.Tester2 #.TEMP
#.TEMP.⎕EX'Test_000'
body'r←Test_01(stopFlag batchFlag);⎕TRAP'
body'r←Test_01(debugFlag batchFlag);⎕TRAP'
body,'⎕TRAP←(999 ''C'' ''∘∘∘ ⍝ Deliberate error'')(0 ''N'')'
body,'r←T._Failed'
body,'→T.FailsIf 2≠T.INI.⎕NC''foo'''
Expand Down
4 changes: 2 additions & 2 deletions APLSource/TestCases/Test_IniFiles_02.aplf
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
rTest_IniFiles_02(stopFlag batchFlag);log;stopFlag;⎕TRAP;rc;ini;body;report;iniFilename
rTest_IniFiles_02(debugFlag batchFlag);log;debugFlag;⎕TRAP;rc;ini;body;report;iniFilename
Exercise test case with a two INI files: "testcases.ini" & "testcases_{computername}.ini"
⎕TRAP(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
rT._Failed
Expand All @@ -11,7 +11,7 @@
#.⎕SHADOW'TEMP'
'TEMP'#.⎕NS''
#.TEMP.T⎕NEW ##.Tester2 #.TEMP
body'r←Test_02(stopFlag batchFlag);⎕TRAP'
body'r←Test_02(debugFlag batchFlag);⎕TRAP'
body,'⎕TRAP←(999 ''C'' ''∘∘∘ ⍝ Deliberate error'')(0 ''N'')'
body,'r←T._Failed'
body,'→T.FailsIf 2≠T.INI.⎕NC''foo'''
Expand Down
Loading

0 comments on commit 3fa4d28

Please sign in to comment.