Fossil SCM
List skipped tests in the final summary.
Commit
c028f36de876860cef0705193d935d8edf0ad1cb6c08666116afe95c12d20704
Parent
41f7e90c84d5b95…
1 file changed
+7
+7
| --- test/tester.tcl | ||
| +++ test/tester.tcl | ||
| @@ -470,10 +470,12 @@ | ||
| 470 | 470 | } |
| 471 | 471 | error "Could not delete \"$path\", error: $error" |
| 472 | 472 | } |
| 473 | 473 | |
| 474 | 474 | proc test_cleanup_then_return {} { |
| 475 | + global skipped_tests testfile | |
| 476 | + lappend skipped_tests $testfile | |
| 475 | 477 | uplevel 1 [list test_cleanup] |
| 476 | 478 | return -code return |
| 477 | 479 | } |
| 478 | 480 | |
| 479 | 481 | proc test_cleanup {} { |
| @@ -835,10 +837,11 @@ | ||
| 835 | 837 | } |
| 836 | 838 | } |
| 837 | 839 | } |
| 838 | 840 | set bad_test {} |
| 839 | 841 | set ignored_test {} |
| 842 | +set skipped_tests {} | |
| 840 | 843 | |
| 841 | 844 | # Return a random string N characters long. |
| 842 | 845 | # |
| 843 | 846 | set vocabulary 01234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" |
| 844 | 847 | append vocabulary " ()*^!.eeeeeeeeaaaaattiioo " |
| @@ -1112,8 +1115,12 @@ | ||
| 1112 | 1115 | protOut "***** Ignored results: $nErr ignored errors out of $test_count tests" 1 |
| 1113 | 1116 | } |
| 1114 | 1117 | if {$nErr>0} { |
| 1115 | 1118 | protOut "***** Ignored failures: $ignored_test" 1 |
| 1116 | 1119 | } |
| 1120 | +set nSkipped [llength $skipped_tests] | |
| 1121 | +if {$nSkipped>0} { | |
| 1122 | + protOut "***** Skipped tests: $skipped_tests" 1 | |
| 1123 | +} | |
| 1117 | 1124 | if {$bad_test>0} { |
| 1118 | 1125 | exit 1 |
| 1119 | 1126 | } |
| 1120 | 1127 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -470,10 +470,12 @@ | |
| 470 | } |
| 471 | error "Could not delete \"$path\", error: $error" |
| 472 | } |
| 473 | |
| 474 | proc test_cleanup_then_return {} { |
| 475 | uplevel 1 [list test_cleanup] |
| 476 | return -code return |
| 477 | } |
| 478 | |
| 479 | proc test_cleanup {} { |
| @@ -835,10 +837,11 @@ | |
| 835 | } |
| 836 | } |
| 837 | } |
| 838 | set bad_test {} |
| 839 | set ignored_test {} |
| 840 | |
| 841 | # Return a random string N characters long. |
| 842 | # |
| 843 | set vocabulary 01234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" |
| 844 | append vocabulary " ()*^!.eeeeeeeeaaaaattiioo " |
| @@ -1112,8 +1115,12 @@ | |
| 1112 | protOut "***** Ignored results: $nErr ignored errors out of $test_count tests" 1 |
| 1113 | } |
| 1114 | if {$nErr>0} { |
| 1115 | protOut "***** Ignored failures: $ignored_test" 1 |
| 1116 | } |
| 1117 | if {$bad_test>0} { |
| 1118 | exit 1 |
| 1119 | } |
| 1120 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -470,10 +470,12 @@ | |
| 470 | } |
| 471 | error "Could not delete \"$path\", error: $error" |
| 472 | } |
| 473 | |
| 474 | proc test_cleanup_then_return {} { |
| 475 | global skipped_tests testfile |
| 476 | lappend skipped_tests $testfile |
| 477 | uplevel 1 [list test_cleanup] |
| 478 | return -code return |
| 479 | } |
| 480 | |
| 481 | proc test_cleanup {} { |
| @@ -835,10 +837,11 @@ | |
| 837 | } |
| 838 | } |
| 839 | } |
| 840 | set bad_test {} |
| 841 | set ignored_test {} |
| 842 | set skipped_tests {} |
| 843 | |
| 844 | # Return a random string N characters long. |
| 845 | # |
| 846 | set vocabulary 01234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" |
| 847 | append vocabulary " ()*^!.eeeeeeeeaaaaattiioo " |
| @@ -1112,8 +1115,12 @@ | |
| 1115 | protOut "***** Ignored results: $nErr ignored errors out of $test_count tests" 1 |
| 1116 | } |
| 1117 | if {$nErr>0} { |
| 1118 | protOut "***** Ignored failures: $ignored_test" 1 |
| 1119 | } |
| 1120 | set nSkipped [llength $skipped_tests] |
| 1121 | if {$nSkipped>0} { |
| 1122 | protOut "***** Skipped tests: $skipped_tests" 1 |
| 1123 | } |
| 1124 | if {$bad_test>0} { |
| 1125 | exit 1 |
| 1126 | } |
| 1127 |