Fossil SCM
Exit with error status when halt is triggered on error
Commit
ccc6676374be472788a4181c523496ba7b69a5c2af6793d55f6dfa91f8e79af9
Parent
889bc0f79488ccc…
1 file changed
+1
-1
+1
-1
| --- test/tester.tcl | ||
| +++ test/tester.tcl | ||
| @@ -720,11 +720,11 @@ | ||
| 720 | 720 | lappend ignored_test $name |
| 721 | 721 | } else { |
| 722 | 722 | protOut "test $name FAILED!" 1 |
| 723 | 723 | if {$::QUIET} {protOut "RESULT: $RESULT" 1} |
| 724 | 724 | lappend bad_test $name |
| 725 | - if {$::HALT} exit | |
| 725 | + if {$::HALT} {exit 1} | |
| 726 | 726 | } |
| 727 | 727 | } |
| 728 | 728 | } |
| 729 | 729 | set bad_test {} |
| 730 | 730 | set ignored_test {} |
| 731 | 731 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -720,11 +720,11 @@ | |
| 720 | lappend ignored_test $name |
| 721 | } else { |
| 722 | protOut "test $name FAILED!" 1 |
| 723 | if {$::QUIET} {protOut "RESULT: $RESULT" 1} |
| 724 | lappend bad_test $name |
| 725 | if {$::HALT} exit |
| 726 | } |
| 727 | } |
| 728 | } |
| 729 | set bad_test {} |
| 730 | set ignored_test {} |
| 731 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -720,11 +720,11 @@ | |
| 720 | lappend ignored_test $name |
| 721 | } else { |
| 722 | protOut "test $name FAILED!" 1 |
| 723 | if {$::QUIET} {protOut "RESULT: $RESULT" 1} |
| 724 | lappend bad_test $name |
| 725 | if {$::HALT} {exit 1} |
| 726 | } |
| 727 | } |
| 728 | } |
| 729 | set bad_test {} |
| 730 | set ignored_test {} |
| 731 |