Tcl Source Code

Check-in [6a9564af94]
Login
☰Core Home Timeline Branches Tags Tickets Download Wiki

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

Overview
Comment:Less strictness about exactly which dll versions are tested
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 6a9564af94abe014007d291111107adbf24d4f5c
User & Date: jan.nijtmans 2012-07-30 12:51:38
Context
2012-07-30
13:15
fix load-9.1 test case, when testing using tcltest86.dll check-in: c3114ad016 user: jan.nijtmans tags: trunk
12:51
Less strictness about exactly which dll versions are tested check-in: 6a9564af94 user: jan.nijtmans tags: trunk
11:42
Fix various test when run outside of the build environment [3549770] check-in: c1dc55adfd user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/fileSystem.test.

︙︙
18
19
20
21
22
23
24

25

26
27
28
29
30
31
32
33

	file delete -force dir.link
	file delete -force [file join dir.dir linkinside.file]
    }

catch {
    ::tcltest::loadTestedCommands
    package require -exact Tcltest [info patchlevel]

    set ::ddelib [lindex [package ifneeded dde 1.4.0b1] 1]

    set ::reglib [lindex [package ifneeded registry 1.3.0] 1]
}

# Test for commands defined in Tcltest executable
testConstraint testfilesystem  	    [llength [info commands ::testfilesystem]]
testConstraint testsetplatform 	    [llength [info commands ::testsetplatform]]
testConstraint testsimplefilesystem [llength [info commands ::testsimplefilesystem]]









>
|
>
|








18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

	file delete -force dir.link
	file delete -force [file join dir.dir linkinside.file]
    }

catch {
    ::tcltest::loadTestedCommands
    package require -exact Tcltest [info patchlevel]
    set ::ddever [lindex [lsort [package versions dde]] end]
    set ::ddelib [lindex [package ifneeded dde $::ddever] 1]
    set ::regver [lindex [lsort [package versions registry]] end]
    set ::reglib [lindex [package ifneeded registry $::regver] 1]
}

# Test for commands defined in Tcltest executable
testConstraint testfilesystem  	    [llength [info commands ::testfilesystem]]
testConstraint testsetplatform 	    [llength [info commands ::testsetplatform]]
testConstraint testsimplefilesystem [llength [info commands ::testsimplefilesystem]]
︙︙

Changes to tests/registry.test.

︙︙
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

    namespace import -force ::tcltest::*
}

testConstraint reg 0
if {[testConstraint win]} {
    if {![catch {
	    ::tcltest::loadTestedCommands
	    package require -exact registry 1.3.0
	}]} {
	testConstraint reg 1
    }
}

# determine the current locale
testConstraint english [expr {
    [llength [info commands testlocale]]
    && [string match "English*" [testlocale all ""]]
}]

test registry-1.0 {check if we are testing the right dll} {win reg} {
    package versions registry
} {1.3.0}
test registry-1.1 {argument parsing for registry command} {win reg} {
    list [catch {registry} msg] $msg
} {1 {wrong # args: should be "registry ?-32bit|-64bit? option ?arg ...?"}}
test registry-1.1a {argument parsing for registry command} {win reg} {
    list [catch {registry -32bit} msg] $msg
} {1 {wrong # args: should be "registry ?-32bit|-64bit? option ?arg ...?"}}








|












|








15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

    namespace import -force ::tcltest::*
}

testConstraint reg 0
if {[testConstraint win]} {
    if {![catch {
	    ::tcltest::loadTestedCommands
	    set ::regver [package require registry 1.3.0]
	}]} {
	testConstraint reg 1
    }
}

# determine the current locale
testConstraint english [expr {
    [llength [info commands testlocale]]
    && [string match "English*" [testlocale all ""]]
}]

test registry-1.0 {check if we are testing the right dll} {win reg} {
    set ::regver
} {1.3.0}
test registry-1.1 {argument parsing for registry command} {win reg} {
    list [catch {registry} msg] $msg
} {1 {wrong # args: should be "registry ?-32bit|-64bit? option ?arg ...?"}}
test registry-1.1a {argument parsing for registry command} {win reg} {
    list [catch {registry -32bit} msg] $msg
} {1 {wrong # args: should be "registry ?-32bit|-64bit? option ?arg ...?"}}
︙︙

Changes to tests/winDde.test.

︙︙
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

    namespace import -force ::tcltest::*
}

testConstraint dde 0
if {[testConstraint win]} {
    if {![catch {
	    ::tcltest::loadTestedCommands
	    package require -exact dde 1.4.0b1
	    set ::ddelib [lindex [package ifneeded dde 1.4.0b1] 1]}]} {
	testConstraint dde 1
    }
}


# -------------------------------------------------------------------------
# Setup a script for a test server








|
|








15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

    namespace import -force ::tcltest::*
}

testConstraint dde 0
if {[testConstraint win]} {
    if {![catch {
	    ::tcltest::loadTestedCommands
	    set ::ddever [package require dde 1.4.0b1]
	    set ::ddelib [lindex [package ifneeded dde $::ddever] 1]}]} {
	testConstraint dde 1
    }
}


# -------------------------------------------------------------------------
# Setup a script for a test server
︙︙
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112

    fconfigure $f -buffering line
    gets $f line
    return $f
}

# -------------------------------------------------------------------------
test winDde-1.0 {check if we are testing the right dll} {win dde} {
    package versions dde
} {1.4.0b1}

test winDde-1.1 {Settings the server's topic name} -constraints dde -body {
    list [dde servername foobar] [dde servername] [dde servername self]
} -result {foobar foobar self}

test winDde-2.1 {Checking for other services} -constraints dde -body {








|








98
99
100
101
102
103
104
105
106
107
108
109
110
111
112

    fconfigure $f -buffering line
    gets $f line
    return $f
}

# -------------------------------------------------------------------------
test winDde-1.0 {check if we are testing the right dll} {win dde} {
    set ::ddever
} {1.4.0b1}

test winDde-1.1 {Settings the server's topic name} -constraints dde -body {
    list [dde servername foobar] [dde servername] [dde servername self]
} -result {foobar foobar self}

test winDde-2.1 {Checking for other services} -constraints dde -body {
︙︙

This page was generated in about 0.02s by Fossil 2.24 [f4ffefe708] 2024-04-17 14:02:19