Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | 3574819 Increase test robustness by creating files in fresh directory to reduce trouble with any existing files in an existing directory. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
03878f7b0cf28a314e077c68febdb817 |
User & Date: | dgp 2012-10-05 16:37:27 |
Context
2012-10-06
| ||
06:13 | [Bug 2459774] win/tcl/Makefile.in not compatible with msys 0.8. check-in: ffd92c638b user: jan.nijtmans tags: trunk | |
2012-10-05
| ||
16:37 | 3574819 Increase test robustness by creating files in fresh directory to reduce trouble with any exi... check-in: 03878f7b0c user: dgp tags: trunk | |
2012-10-03
| ||
15:39 | When checking for std channels being closed, compare the channel state, not the channel itself so th... check-in: 986eb391ad user: dgp tags: trunk | |
Changes
Changes to tests/fileName.test.
︙ | ︙ | |||
745 746 747 748 749 750 751 | testsetplatform $platform } test filename-11.13 {Tcl_GlobCmd} { file join [lindex [glob ~] 0] } [file join $env(HOME)] set oldpwd [pwd] set oldhome $env(HOME) | | | 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 | testsetplatform $platform } test filename-11.13 {Tcl_GlobCmd} { file join [lindex [glob ~] 0] } [file join $env(HOME)] set oldpwd [pwd] set oldhome $env(HOME) catch {cd [makeDirectory tcl[pid]]} set env(HOME) [pwd] file delete -force globTest file mkdir globTest/a1/b1 file mkdir globTest/a1/b2 file mkdir globTest/a2/b3 file mkdir globTest/a3 touch globTest/x1.c |
︙ | ︙ | |||
1612 1613 1614 1615 1616 1617 1618 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 | } -result ~/sub/fileName-20.10 # cleanup catch {file delete -force C:/globTest} cd [temporaryDirectory] file delete -force globTest cd $oldpwd set env(HOME) $oldhome if {[testConstraint testsetplatform]} { testsetplatform $platform catch {unset platform} } catch {unset oldhome temp result globPreResult} ::tcltest::cleanupTests return # Local Variables: # mode: tcl # End: | > | 1612 1613 1614 1615 1616 1617 1618 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 | } -result ~/sub/fileName-20.10 # cleanup catch {file delete -force C:/globTest} cd [temporaryDirectory] file delete -force globTest cd $oldpwd catch {removeDirectory tcl[pid]} set env(HOME) $oldhome if {[testConstraint testsetplatform]} { testsetplatform $platform catch {unset platform} } catch {unset oldhome temp result globPreResult} ::tcltest::cleanupTests return # Local Variables: # mode: tcl # End: |