1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
|
} -result {"-directory" cannot be used with "-path"}
test filename-11.45 {Tcl_GlobCmd on root volume} -setup {
set res1 ""
set res2 ""
set tmpd [pwd]
} -body {
catch {
set res1 [glob -dir [lindex [file volumes] 0] -tails *]
}
catch {
cd [lindex [file volumes] 0]
set res2 [glob *]
}
list $res1 $res2
} -cleanup {
cd $tmpd
} -match compareWords -result equal
test filename-11.46 {Tcl_GlobCmd} -returnCodes error -body {
|
|
|
|
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
|
} -result {"-directory" cannot be used with "-path"}
test filename-11.45 {Tcl_GlobCmd on root volume} -setup {
set res1 ""
set res2 ""
set tmpd [pwd]
} -body {
catch {
set res1 [glob -dir [lindex [file volumes] end-1] -tails *]
}
catch {
cd [lindex [file volumes] end-1]
set res2 [glob *]
}
list $res1 $res2
} -cleanup {
cd $tmpd
} -match compareWords -result equal
test filename-11.46 {Tcl_GlobCmd} -returnCodes error -body {
|