Fossil

Check-in [ccc66763]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Exit with error status when halt is triggered on error
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:ccc6676374be472788a4181c523496ba7b69a5c2af6793d55f6dfa91f8e79af9
User & Date: ashepilko 2018-08-02 03:53:17
Context
2018-08-02
06:54
Refactor to fix an unused var warning in debug build check-in: 811333a5 user: ashepilko tags: trunk
03:53
Exit with error status when halt is triggered on error check-in: ccc66763 user: ashepilko tags: trunk
03:35
Include winsock2.h for WinXP compatibility; was breaking the build check-in: 889bc0f7 user: ashepilko tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to test/tester.tcl.

718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
    if {$knownBug && !$::STRICT} {
      protOut "test $name FAILED (knownBug)!" 1
      lappend ignored_test $name
    } else {
      protOut "test $name FAILED!" 1
      if {$::QUIET} {protOut "RESULT: $RESULT" 1}
      lappend bad_test $name
      if {$::HALT} exit
    }
  }
}
set bad_test {}
set ignored_test {}

# Return a random string N characters long.







|







718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
    if {$knownBug && !$::STRICT} {
      protOut "test $name FAILED (knownBug)!" 1
      lappend ignored_test $name
    } else {
      protOut "test $name FAILED!" 1
      if {$::QUIET} {protOut "RESULT: $RESULT" 1}
      lappend bad_test $name
      if {$::HALT} {exit 1}
    }
  }
}
set bad_test {}
set ignored_test {}

# Return a random string N characters long.