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
2

3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31




#! /usr/bin/env tclsh


set buildflags [split [lindex $argv 1] -]

# Determine if Threads was requested (or in 8.6+, unrequested)
if {$tcl_version == "8.6"} {
	if {[lsearch -exact $buildflags "unthreaded"] == -1} {
		set isthreaded 1
	} else {
		set isthreaded 0
	}
} else {
	if {[lsearch -exact $buildflags "threaded"] == -1} {
		set isthreaded 0
	} else {
		set isthreaded 1
	}
}

# Static builds don't come with threads.
if {[lsearch -exact $buildflags "static"] != -1} {
	set isthreaded 0
}

if {!$isthreaded} {
	exit 0
}

package require Thread

exit 0






>
|

|
|
|
|
|
|
|
|
|
|
|
|
|
|

|
|
|
|

|
|
|

|

|
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
#! /usr/bin/env tclsh

if {[catch {
	set buildflags [split [lindex $argv 1] -]

	# Determine if Threads was requested (or in 8.6+, unrequested)
	if {$tcl_version == "8.6"} {
		if {[lsearch -exact $buildflags "unthreaded"] == -1} {
			set isthreaded 1
		} else {
			set isthreaded 0
		}
	} else {
		if {[lsearch -exact $buildflags "threaded"] == -1} {
			set isthreaded 0
		} else {
			set isthreaded 1
		}
	}

	# Static builds don't come with threads.
	if {[lsearch -exact $buildflags "static"] != -1} {
		set isthreaded 0
	}

	if {!$isthreaded} {
		exit 0
	}

	package require Thread

	exit 0
}]} {
	puts "Error in Thread Test: $errorInfo"
	exit 1
}