Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Refactoring the print functions

  • Loading branch information...
commit 082e492a96e2bc381d30ef45bb10321fc67ca748 1 parent 3763f6f
@Gianfrancoalongi authored
Showing with 17 additions and 17 deletions.
  1. +17 −17 UT.dyalog
View
34 UT.dyalog
@@ -118,14 +118,6 @@ EN ← ⍬
Z '_TEST' ¯5 Tmp
- print_file_result (Passed Exception Failed)
- ''
- Path 'unit tests'
- '',( Passed),' PASSED'
- '',( Exception),' EXCEPTION'
- '',( Failed),' FAILED'
-
-
Z run_group Group;Res
⎕CS 1 ⎕RSI
Res #.UT.run ¨ (⍎ Group)
@@ -135,14 +127,6 @@ EN ← ⍬
Z Res
- Group print_group_result (Passed Exception Failed)
- ''
- 'Group ',Group
- '',( Passed),' PASSED'
- '',( Exception),' EXCEPTION'
- '',( Failed),' FAILED'
-
-
Z Group run_group_file Path;Res
'TmpSpace' ⎕NS ''
⎕CS 'TmpSpace'
@@ -157,9 +141,25 @@ EN ← ⍬
Z Res
- Group print_file_group_result (Passed Exception Failed)
+ print_file_result Result
+ ''
+ Path 'unit tests'
+ print_totals Result
+
+
+ Group print_group_result Result
+ ''
+ 'Group ',Group
+ print_totals Result
+
+
+ Group print_file_group_result Result
''
'Group ',Group,' in ',Path
+ print_totals Result
+
+
+ print_totals (Passed Exception Failed)
'',( Passed),' PASSED'
'',( Exception),' EXCEPTION'
'',( Failed),' FAILED'
Please sign in to comment.
Something went wrong with that request. Please try again.