Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | fix fCmd-6.19 on win32, which was broken by [a7e00a0e02] |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
8992b490110f4276459528ae633481c9 |
| User & Date: | jan.nijtmans 2012-06-14 13:56:20 |
Context
|
2012-06-15
| ||
| 09:02 | upgrade to 1.2.7 build of dll check-in: 0799b50a05 user: jan.nijtmans tags: trunk | |
|
2012-06-14
| ||
| 13:56 | fix fCmd-6.19 on win32, which was broken by [a7e00a0e02] check-in: 8992b49011 user: jan.nijtmans tags: trunk | |
| 07:37 | more readable check-in: 29049e28d2 user: jan.nijtmans tags: trunk | |
Changes
Changes to tests/fCmd.test.
| ︙ | ︙ | |||
44 45 46 47 48 49 50 |
testConstraint foundGroup [expr {![testConstraint unix]}]
if {[testConstraint unix]} {
catch {
set groupList [exec groups]
set group [lindex $groupList 0]
testConstraint foundGroup 1
}
| | > | | | | | | < | 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 |
testConstraint foundGroup [expr {![testConstraint unix]}]
if {[testConstraint unix]} {
catch {
set groupList [exec groups]
set group [lindex $groupList 0]
testConstraint foundGroup 1
}
}
proc dev dir {
file stat $dir stat
return $stat(dev)
}
if {[catch {makeDirectory tcl[pid] /tmp} tmpspace] == 0} {
testConstraint xdev [expr {([dev .] != [dev $tmpspace])}]
}
# Also used in winFCmd...
if {[testConstraint win]} {
set major [string index $tcl_platform(osVersion) 0]
if {[testConstraint nt] && $major > 4} {
if {$major > 5} {
|
| ︙ | ︙ |