Permalink
Browse files

Changed description to add group name as left argument to group from …

…file execution.

Added run_group_file test and implementation
  • Loading branch information...
1 parent 6c4fe77 commit 1217e419f5893a71d5baa8c603aba43f91af27ed @Gianfrancoalongi committed Nov 24, 2012
Showing with 19 additions and 2 deletions.
  1. +14 −1 UT.dyalog
  2. +2 −0 UTFile.dyalog
  3. +2 −0 UT_tests.dyalog
  4. +1 −1 requirement_specification.org
View
@@ -60,7 +60,6 @@ EN ← ⍬
display_exception Name
'EXCEPTION:',function_header Name
- ' LC:',⎕LC
' EN:',⎕EN
⎕DM
@@ -144,4 +143,18 @@ EN ← ⍬
'',( Failed),' FAILED'
+ Z Group run_group_file Path;Res
+ 'TmpSpace' ⎕NS ''
+ ⎕CS 'TmpSpace'
+ ⎕SE.SALT.Load Path
+ ⎕CS ⎕NL 9
+ Res #.UT.run ¨ Group
+ ⎕CS ##
+ ⎕EX 'TmpSpace'
+ ⎕CS #.UT
+ Res (+/1=Res) (+/0Res1Res) (+/0=Res)
+ Group print_group_result Res
+ Z Res
+
+
:EndNameSpace
View
@@ -25,4 +25,6 @@ fromfile_single_line_index_error_TEST ← { 4 ⌷ ⍳ 3 }
fromfile_single_line_expect_exception_failing_TEST { #.UT.EN 2 1 + 1 }
+file_GROUP ('fromfile_single_line_TEST' 'fromfile_single_line_failing_scalar_TEST')
+
:EndNameSpace
View
@@ -84,6 +84,8 @@ test_GROUP ← ('single_line_TEST' 'single_line_failing_TEST' 'single_line_synta
Z , (4 2 3) #.UT.run_file '/home/gianfranco/APL/UnitTestFrameWork/UTFile.dyalog'
'-------------------- Execution of GROUP'
Z , (1 1 1) #.UT.run_group 'test_GROUP'
+ '-------------------- Execution of GROUP from File'
+ Z , (1 0 1) 'file_GROUP' #.UT.run_group_file '/home/gianfranco/APL/UnitTestFrameWork/UTFile.dyalog'
'================= Finished Unit Test Execution =================='
@@ -268,7 +268,7 @@ target_GROUP UT.run_group_file File.dyalog
Output result shall for both cases show that this was a group
#+BEGIN_EXAMPLE
- (Passing Exception Failing) ← Test_GROUP UT.run_group File.dyalog
+ (Passing Exception Failing) ← ' Test_GROUP' UT.run_group_file File.dyalog
Group Test_GROUP in File.dyalog
⍋ 10 PASSED
⋄ 0 EXCEPTION

0 comments on commit 1217e41

Please sign in to comment.