Check-in [7618ff9a65]
Overview
Comment:Added catch around thread test to avoid halting automated tests for an error
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:7618ff9a6511a6ee238a35076c7fa99bbd280a3a
User & Date: rkeene on 2011-03-01 14:45:19
Other Links: manifest | tags
Context
2011-03-03
04:09
Updated to support pulling Tcl and Tk from newest fossil sources. They are still likely to change in the future. check-in: f5886050c4 user: rkeene tags: trunk
2011-03-01
14:45
Added catch around thread test to avoid halting automated tests for an error check-in: 7618ff9a65 user: rkeene tags: trunk
2011-02-27
20:26
Updated to emit TclVFS faillure if "make install" fails.

Updated to log which Tclkit is being used to install the VFS check-in: 8c0ee91103 user: rkeene tags: trunk

Changes

Modified build/test/tests/12-threads.tcl from [df3ccdde39] to [6b4f8edcc8].

     1      1   #! /usr/bin/env tclsh
     2      2   
     3         -set buildflags [split [lindex $argv 1] -]
            3  +if {[catch {
            4  +	set buildflags [split [lindex $argv 1] -]
     4      5   
     5         -# Determine if Threads was requested (or in 8.6+, unrequested)
     6         -if {$tcl_version == "8.6"} {
     7         -	if {[lsearch -exact $buildflags "unthreaded"] == -1} {
     8         -		set isthreaded 1
            6  +	# Determine if Threads was requested (or in 8.6+, unrequested)
            7  +	if {$tcl_version == "8.6"} {
            8  +		if {[lsearch -exact $buildflags "unthreaded"] == -1} {
            9  +			set isthreaded 1
           10  +		} else {
           11  +			set isthreaded 0
           12  +		}
     9     13   	} else {
           14  +		if {[lsearch -exact $buildflags "threaded"] == -1} {
           15  +			set isthreaded 0
           16  +		} else {
           17  +			set isthreaded 1
           18  +		}
           19  +	}
           20  +
           21  +	# Static builds don't come with threads.
           22  +	if {[lsearch -exact $buildflags "static"] != -1} {
    10     23   		set isthreaded 0
    11     24   	}
    12         -} else {
    13         -	if {[lsearch -exact $buildflags "threaded"] == -1} {
    14         -		set isthreaded 0
    15         -	} else {
    16         -		set isthreaded 1
           25  +
           26  +	if {!$isthreaded} {
           27  +		exit 0
    17     28   	}
    18         -}
           29  +
           30  +	package require Thread
    19     31   
    20         -# Static builds don't come with threads.
    21         -if {[lsearch -exact $buildflags "static"] != -1} {
    22         -	set isthreaded 0
    23         -}
    24         -
    25         -if {!$isthreaded} {
    26     32   	exit 0
           33  +}]} {
           34  +	puts "Error in Thread Test: $errorInfo"
           35  +	exit 1
    27     36   }
    28         -
    29         -package require Thread
    30         -
    31         -exit 0