blob: 792df4022c8cc44e7d360e409cd3bc4bf4cef71d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
--- ../tests/fCmd.test.orig Mon Nov 13 20:46:35 2006
+++ ../tests/fCmd.test Sun Apr 29 21:31:35 2007
@@ -572,7 +572,7 @@
set msg
} {1 {error copying "td2" to "~/td1/td2": permission denied}}
test fCmd-6.26 {CopyRenameOneFile: doesn't use original name} \
- {unix notRoot} {
+ -constraints {unixOnly notRoot} -match regexp -body {
cleanup
file mkdir ~/td1/td2
set td2name [file join [file dirname ~] [file tail ~] td1 td2]
@@ -581,7 +581,7 @@
file attributes $td2name -permissions 0755
file delete -force ~/td1
set msg
-} "1 {error copying \"~/td1\" to \"td1\": \"[file join $::env(HOME) td1 td2]\": permission denied}"
+} -result "1 {error copying \"~/td1\" to \"td1\": \".*[file join $::env(HOME) td1 td2]\": permission denied}"
test fCmd-6.27 {CopyRenameOneFile: TclpCopyDirectory failed} \
{unix notRoot xdev} {
cleanup /tmp
|