diff options
Diffstat (limited to 'tests/macOSXFCmd.test')
| -rw-r--r-- | tests/macOSXFCmd.test | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/tests/macOSXFCmd.test b/tests/macOSXFCmd.test index 5a62a2a..071f11b 100644 --- a/tests/macOSXFCmd.test +++ b/tests/macOSXFCmd.test @@ -4,13 +4,13 @@ # built-in commands. Sourcing this file into Tcl runs the tests and # generates output for errors. No output means no errors were found. # -# Copyright © 2003 Tcl Core Team. +# Copyright (c) 2003 Tcl Core Team. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -if {"::tcltest" ni [namespace children]} { - package require tcltest 2.5 +if {[lsearch [namespace children] ::tcltest] == -1} { + package require tcltest namespace import -force ::tcltest::* } @@ -99,7 +99,7 @@ test macOSXFCmd-2.6 {MacOSXSetFileAttribute - hidden} {macosxFileAttr notRoot} { [catch {file attributes foo.test -hidden} msg] $msg \ [file delete -force -- foo.test] } {0 {} 0 1 {}} -test macOSXFCmd-2.7 {MacOSXSetFileAttribute - rsrclength} {macosxFileAttr notRoot nonPortable} { +test macOSXFCmd-2.7 {MacOSXSetFileAttribute - rsrclength} {macosxFileAttr notRoot} { catch {file delete -force -- foo.test} close [open foo.test w] catch { @@ -151,16 +151,16 @@ test macOSXFCmd-4.1 {TclMacOSXMatchType} {macosxFileAttr notRoot} { file attributes dir.test -hidden 1 } set res [list \ - [catch {lsort [glob *.test]} msg] $msg \ - [catch {lsort [glob -types FOOT *.test]} msg] $msg \ - [catch {lsort [glob -types {{macintosh type FOOT}} *.test]} msg] $msg \ - [catch {lsort [glob -types FOOTT *.test]} msg] $msg \ - [catch {lsort [glob -types {{macintosh type FOOTT}} *.test]} msg] $msg \ - [catch {lsort [glob -types {{macintosh type {}}} *.test]} msg] $msg \ - [catch {lsort [glob -types {{macintosh creator FOOC}} *.test]} msg] $msg \ - [catch {lsort [glob -types {{macintosh creator FOOC} {macintosh type FOOT}} *.test]} msg] $msg \ - [catch {lsort [glob -types hidden *.test]} msg] $msg \ - [catch {lsort [glob -types {hidden FOOT} *.test]} msg] $msg \ + [catch {glob *.test} msg] $msg \ + [catch {glob -types FOOT *.test} msg] $msg \ + [catch {glob -types {{macintosh type FOOT}} *.test} msg] $msg \ + [catch {glob -types FOOTT *.test} msg] $msg \ + [catch {glob -types {{macintosh type FOOTT}} *.test} msg] $msg \ + [catch {glob -types {{macintosh type {}}} *.test} msg] $msg \ + [catch {glob -types {{macintosh creator FOOC}} *.test} msg] $msg \ + [catch {glob -types {{macintosh creator FOOC} {macintosh type FOOT}} *.test} msg] $msg \ + [catch {glob -types hidden *.test} msg] $msg \ + [catch {glob -types {hidden FOOT} *.test} msg] $msg \ ] cd .. file delete -force globtest |