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

Updated to log which Tclkit is being used to install the VFS (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
}