More complete purge of things only present for supporting long-dead Mac 9 systems.

1 files changed, 1 insertions, 262 deletions

diff --git a/tests/cmdAH.test b/tests/cmdAH.test
index eb7d96a..28e396f 100644
--- a/tests/cmdAH.test
+++ b/tests/cmdAH.test
@@ -238,10 +238,6 @@ test cmdAH-8.3 {Tcl_FileObjCmd: dirname} {
     testsetplatform unix
     file dirname {}
 } .
-test cmdAH-8.4 {Tcl_FileObjCmd: dirname} {
-    testsetplatform mac
-    file dirname {}
-} :
 test cmdAH-8.5 {Tcl_FileObjCmd: dirname} {
     testsetplatform win
     file dirname {}
@@ -250,10 +246,6 @@ test cmdAH-8.6 {Tcl_FileObjCmd: dirname} {
     testsetplatform unix
     file dirname .def
 } .
-test cmdAH-8.7 {Tcl_FileObjCmd: dirname} {
-    testsetplatform mac
-    file dirname a
-} :
 test cmdAH-8.8 {Tcl_FileObjCmd: dirname} {
     testsetplatform win
     file dirname a
@@ -330,50 +322,6 @@ test cmdAH-8.26 {Tcl_FileObjCmd: dirname} {
     testsetplatform windows
     list [catch {file dirname {//foo/bar}} msg] $msg
 } {0 //foo/bar}
-test cmdAH-8.27 {Tcl_FileObjCmd: dirname} {
-    testsetplatform mac
-    list [catch {file dirname :} msg] $msg
-} {0 :}
-test cmdAH-8.28 {Tcl_FileObjCmd: dirname} {
-    testsetplatform mac
-    list [catch {file dirname :Foo} msg] $msg
-} {0 :}
-test cmdAH-8.29 {Tcl_FileObjCmd: dirname} {
-    testsetplatform mac
-    list [catch {file dirname Foo:} msg] $msg
-} {0 Foo:}
-test cmdAH-8.30 {Tcl_FileObjCmd: dirname} {
-    testsetplatform mac
-    list [catch {file dirname Foo:bar} msg] $msg
-} {0 Foo:}
-test cmdAH-8.31 {Tcl_FileObjCmd: dirname} {
-    testsetplatform mac
-    list [catch {file dirname :Foo:bar} msg] $msg
-} {0 :Foo}
-test cmdAH-8.32 {Tcl_FileObjCmd: dirname} {
-    testsetplatform mac
-    list [catch {file dirname ::} msg] $msg
-} {0 :}
-test cmdAH-8.33 {Tcl_FileObjCmd: dirname} {
-    testsetplatform mac
-    list [catch {file dirname :::} msg] $msg
-} {0 ::}
-test cmdAH-8.34 {Tcl_FileObjCmd: dirname} {
-    testsetplatform mac
-    list [catch {file dirname /foo/bar/} msg] $msg
-} {0 foo:}
-test cmdAH-8.35 {Tcl_FileObjCmd: dirname} {
-    testsetplatform mac
-    list [catch {file dirname /foo/bar} msg] $msg
-} {0 foo:}
-test cmdAH-8.36 {Tcl_FileObjCmd: dirname} {
-    testsetplatform mac
-    list [catch {file dirname /foo} msg] $msg
-} {0 foo:}
-test cmdAH-8.37 {Tcl_FileObjCmd: dirname} {
-    testsetplatform mac
-    list [catch {file dirname foo} msg] $msg
-} {0 :}
 test cmdAH-8.38 {Tcl_FileObjCmd: dirname} {
     testsetplatform unix
     list [catch {file dirname ~/foo} msg] $msg
@@ -382,18 +330,6 @@ test cmdAH-8.39 {Tcl_FileObjCmd: dirname} {
     testsetplatform unix
     list [catch {file dirname ~bar/foo} msg] $msg
 } {0 ~bar}
-test cmdAH-8.40 {Tcl_FileObjCmd: dirname} {
-    testsetplatform mac
-    list [catch {file dirname ~bar/foo} msg] $msg
-} {0 ~bar:}
-test cmdAH-8.41 {Tcl_FileObjCmd: dirname} {
-    testsetplatform mac
-    list [catch {file dirname ~/foo} msg] $msg
-} {0 ~:}
-test cmdAH-8.42 {Tcl_FileObjCmd: dirname} {
-    testsetplatform mac
-    list [catch {file dirname ~:baz} msg] $msg
-} {0 ~:}
 test cmdAH-8.43 {Tcl_FileObjCmd: dirname} {
     global env
     set temp $env(HOME)
@@ -421,15 +357,6 @@ test cmdAH-8.45 {Tcl_FileObjCmd: dirname} {
     set env(HOME) $temp
     set result
 } {0 /homewontexist}
-test cmdAH-8.46 {Tcl_FileObjCmd: dirname} {
-    global env
-    set temp $env(HOME)
-    set env(HOME) "/home/test"
-    testsetplatform mac
-    set result [list [catch {file dirname ~} msg] $msg]
-    set env(HOME) $temp
-    set result
-} {0 home:}
 
 # tail
 
@@ -445,10 +372,6 @@ test cmdAH-9.3 {Tcl_FileObjCmd: tail} {
     testsetplatform unix
     file tail {}
 } {}
-test cmdAH-9.4 {Tcl_FileObjCmd: tail} {
-    testsetplatform mac
-    file tail {}
-} {}
 test cmdAH-9.5 {Tcl_FileObjCmd: tail} {
     testsetplatform win
     file tail {}
@@ -457,10 +380,6 @@ test cmdAH-9.6 {Tcl_FileObjCmd: tail} {
     testsetplatform unix
     file tail .def
 } .def
-test cmdAH-9.7 {Tcl_FileObjCmd: tail} {
-    testsetplatform mac
-    file tail a
-} a
 test cmdAH-9.8 {Tcl_FileObjCmd: tail} {
     testsetplatform win
     file tail a
@@ -537,66 +456,6 @@ test cmdAH-9.26 {Tcl_FileObjCmd: tail} {
     testsetplatform windows
     file tail {//foo/bar}
 } {}
-test cmdAH-9.27 {Tcl_FileObjCmd: tail} {
-    testsetplatform mac
-    file tail :
-} :
-test cmdAH-9.28 {Tcl_FileObjCmd: tail} {
-    testsetplatform mac
-    file tail :Foo
-} Foo
-test cmdAH-9.29 {Tcl_FileObjCmd: tail} {
-    testsetplatform mac
-    file tail Foo:
-} {}
-test cmdAH-9.30 {Tcl_FileObjCmd: tail} {
-    testsetplatform mac
-    file tail Foo:bar
-} bar
-test cmdAH-9.31 {Tcl_FileObjCmd: tail} {
-    testsetplatform mac
-    file tail :Foo:bar
-} bar
-test cmdAH-9.32 {Tcl_FileObjCmd: tail} {
-    testsetplatform mac
-    file tail ::
-} ::
-test cmdAH-9.33 {Tcl_FileObjCmd: tail} {
-    testsetplatform mac
-    file tail :::
-} ::
-test cmdAH-9.34 {Tcl_FileObjCmd: tail} {
-    testsetplatform mac
-    file tail /foo/bar/
-} bar
-test cmdAH-9.35 {Tcl_FileObjCmd: tail} {
-    testsetplatform mac
-    file tail /foo/bar
-} bar
-test cmdAH-9.36 {Tcl_FileObjCmd: tail} {
-    testsetplatform mac
-    file tail /foo
-} {}
-test cmdAH-9.37 {Tcl_FileObjCmd: tail} {
-    testsetplatform mac
-    file tail foo
-} foo
-test cmdAH-9.38 {Tcl_FileObjCmd: tail} {
-    testsetplatform mac
-    file tail ~:foo
-} foo
-test cmdAH-9.39 {Tcl_FileObjCmd: tail} {
-    testsetplatform mac
-    file tail ~bar:foo
-} foo
-test cmdAH-9.40 {Tcl_FileObjCmd: tail} {
-    testsetplatform mac
-    file tail ~bar/foo
-} foo
-test cmdAH-9.41 {Tcl_FileObjCmd: tail} {
-    testsetplatform mac
-    file tail ~/foo
-} foo
 test cmdAH-9.42 {Tcl_FileObjCmd: tail} {
     global env
     set temp $env(HOME)
@@ -624,15 +483,6 @@ test cmdAH-9.44 {Tcl_FileObjCmd: tail} {
     set env(HOME) $temp
     set result
 } test
-test cmdAH-9.45 {Tcl_FileObjCmd: tail} {
-    global env
-    set temp $env(HOME)
-    set env(HOME) "/home/test"
-    testsetplatform mac
-    set result [file tail ~]
-    set env(HOME) $temp
-    set result
-} test
 test cmdAH-9.46 {Tcl_FileObjCmd: tail} {
     testsetplatform unix
     file tail {f.oo\bar/baz.bat}
@@ -700,54 +550,6 @@ test cmdAH-10.10 {Tcl_FileObjCmd: rootname} {
     testsetplatform unix
     file rootname a/b.c/
 } a/b.c/
-test cmdAH-10.11 {Tcl_FileObjCmd: rootname} {
-    testsetplatform mac
-    file ro foo
-} foo
-test cmdAH-10.12 {Tcl_FileObjCmd: rootname} {
-    testsetplatform mac
-    file rootname {}
-} {}
-test cmdAH-10.13 {Tcl_FileObjCmd: rootname} {
-    testsetplatform mac
-    file rootname foo.
-} foo
-test cmdAH-10.14 {Tcl_FileObjCmd: rootname} {
-    testsetplatform mac
-    file rootname .foo
-} {}
-test cmdAH-10.15 {Tcl_FileObjCmd: rootname} {
-    testsetplatform mac
-    file rootname abc.def
-} abc
-test cmdAH-10.16 {Tcl_FileObjCmd: rootname} {
-    testsetplatform mac
-    file rootname abc.def.ghi
-} abc.def
-test cmdAH-10.17 {Tcl_FileObjCmd: rootname} {
-    testsetplatform mac
-    file rootname a:b:c.d
-} a:b:c
-test cmdAH-10.18 {Tcl_FileObjCmd: rootname} {
-    testsetplatform mac
-    file rootname a:b.c:d
-} a:b.c:d
-test cmdAH-10.19 {Tcl_FileObjCmd: rootname} {
-    testsetplatform mac
-    file rootname a/b/c.d
-} a/b/c
-test cmdAH-10.20 {Tcl_FileObjCmd: rootname} {
-    testsetplatform mac
-    file rootname a/b.c/d
-} a/b.c/d
-test cmdAH-10.21 {Tcl_FileObjCmd: rootname} {
-    testsetplatform mac
-    file rootname /a.b
-} /a
-test cmdAH-10.22 {Tcl_FileObjCmd: rootname} {
-    testsetplatform mac
-    file rootname foo.c:
-} foo.c:
 test cmdAH-10.23 {Tcl_FileObjCmd: rootname} {
     testsetplatform windows
     file rootname {}
@@ -850,54 +652,6 @@ test cmdAH-11.10 {Tcl_FileObjCmd: extension} {
     testsetplatform unix
     file extension a/b.c/
 } {}
-test cmdAH-11.11 {Tcl_FileObjCmd: extension} {
-    testsetplatform mac
-    file ext foo
-} {}
-test cmdAH-11.12 {Tcl_FileObjCmd: extension} {
-    testsetplatform mac
-    file extension {}
-} {}
-test cmdAH-11.13 {Tcl_FileObjCmd: extension} {
-    testsetplatform mac
-    file extension foo.
-} .
-test cmdAH-11.14 {Tcl_FileObjCmd: extension} {
-    testsetplatform mac
-    file extension .foo
-} .foo
-test cmdAH-11.15 {Tcl_FileObjCmd: extension} {
-    testsetplatform mac
-    file extension abc.def
-} .def
-test cmdAH-11.16 {Tcl_FileObjCmd: extension} {
-    testsetplatform mac
-    file extension abc.def.ghi
-} .ghi
-test cmdAH-11.17 {Tcl_FileObjCmd: extension} {
-    testsetplatform mac
-    file extension a:b:c.d
-} .d
-test cmdAH-11.18 {Tcl_FileObjCmd: extension} {
-    testsetplatform mac
-    file extension a:b.c:d
-} {}
-test cmdAH-11.19 {Tcl_FileObjCmd: extension} {
-    testsetplatform mac
-    file extension a/b/c.d
-} .d
-test cmdAH-11.20 {Tcl_FileObjCmd: extension} {
-    testsetplatform mac
-    file extension a/b.c/d
-} {}
-test cmdAH-11.21 {Tcl_FileObjCmd: extension} {
-    testsetplatform mac
-    file extension /a.b
-} .b
-test cmdAH-11.22 {Tcl_FileObjCmd: extension} {
-    testsetplatform mac
-    file extension foo.c:
-} {}
 test cmdAH-11.23 {Tcl_FileObjCmd: extension} {
     testsetplatform windows
     file extension {}
@@ -948,7 +702,7 @@ test cmdAH-11.34 {Tcl_FileObjCmd: extension} {
 } {}
 set num 35
 foreach value {a..b a...b a.c..b ..b} result {.b .b .b .b} {
-    foreach p {unix mac windows} {
+    foreach p {unix windows} {
 ;	test cmdAH-7.$num {Tcl_FileObjCmd: extension} "
 	    testsetplatform $p
 	    file extension $value
@@ -1073,13 +827,6 @@ test cmdAH-18.3 {Tcl_FileObjCmd: executable} {unixOnly testchmod} {
     file exe $gorpfile
 } 1
 
-test cmdAH-18.4 {Tcl_FileObjCmd: executable} {macOnly testchmod} {
-    # On mac, the only executable files are of type APPL.
-
-    set x [file exe $gorpfile]
-    file attrib $gorpfile -type APPL
-    lappend x [file exe $gorpfile]
-} {0 1}
 test cmdAH-18.5 {Tcl_FileObjCmd: executable} {winOnly testchmod} {
     # On pc, must be a .exe, .com, etc.
 
@@ -1134,10 +881,6 @@ test cmdAH-19.7 {Tcl_FileObjCmd: nativename} {
     testsetplatform windows
     list [catch {file nativename a/b} msg] $msg [testsetplatform $platform]
 } {0 {a\b} {}}
-test cmdAH-19.8 {Tcl_FileObjCmd: nativename} {
-    testsetplatform mac
-    list [catch {file nativename a/b} msg] $msg [testsetplatform $platform]
-} {0 :a:b {}}
 }
 
 test cmdAH-19.9 {Tcl_FileObjCmd: ~ : exists} {
@@ -1486,10 +1229,6 @@ test cmdAH-26.3 {Tcl_FileObjCmd: readlink errors} {unixOnly nonPortable} {
     list [catch {file readlink _bogus_} msg] [string tolower $msg] \
 	    [string tolower $errorCode]
 } {1 {could not readlink "_bogus_": no such file or directory} {posix enoent {no such file or directory}}}
-test cmdAH-26.4 {Tcl_FileObjCmd: readlink errors} {macOnly nonPortable} {
-    list [catch {file readlink _bogus_} msg] [string tolower $msg] \
-	    [string tolower $errorCode]
-} {1 {could not readlink "_bogus_": no such file or directory} {posix enoent {no such file or directory}}}
 test cmdAH-26.5 {Tcl_FileObjCmd: readlink errors} {winOnly nonPortable} {
     list [catch {file readlink _bogus_} msg] [string tolower $msg] \
 	    [string tolower $errorCode]