Initial revision

1 files changed, 100 insertions, 0 deletions

diff --git a/tests/ioUtil.test b/tests/ioUtil.test
new file mode 100644
index 0000000..03b7caf
--- /dev/null
+++ b/tests/ioUtil.test
@@ -0,0 +1,100 @@
+# This file (iOUtil.test) tests the hookable TclStat(), @@@TclAccess(),
+# and @@@Tcl_OpenFileChannel, routines in the file generic/tclIOUtils.c.
+# Sourcing this file into Tcl runs the tests and generates output for
+# errors. No output means no errors were found. 
+# 
+# Copyright (c) 1998 by Scriptics Corporation. 
+# 
+# See the file "license.terms" for information on usage and redistribution 
+# of this file, and for a DISCLAIMER OF ALL WARRANTIES. 
+# 
+# SCCS: %Z% $Id: ioUtil.test,v 1.1 1998/06/04 12:44:44 suresh Exp $ 
+ 
+if {[string compare test [info procs test]] == 1} then {source defs}
+
+set unsetScript {
+    catch {unset testStat1(size)}
+    catch {unset testStat2(size)}
+    catch {unset testStat3(size)}
+}
+
+test stat-1.1 {TclStat: Check that none of the test procs are there.} {
+    catch {file stat testTclStat1%.fil testStat1} err1
+    catch {file stat testTclStat2%.fil testStat2} err2
+    catch {file stat testTclStat3%.fil testStat3} err3
+    list $err1 $err2 $err3
+} {{couldn't stat "testTclStat1%.fil": no such file or directory} {couldn't stat "testTclStat2%.fil": no such file or directory} {couldn't stat "testTclStat3%.fil": no such file or directory}}
+
+test stat-1.2 {TclStatInsertProc: Insert the 3 test TclStat_ procedures.} {
+    catch {testTclStat insert TclpStat} err1
+    testTclStat insert TestTclStatProc1
+    testTclStat insert TestTclStatProc2
+    testTclStat insert TestTclStatProc3
+    set err1
+} {bad arg "insert": must be TestTclStatProc1, TestTclStatProc2, or TestTclStatProc3}
+
+test stat-1.3 {TclStat: Use "file stat ?" to invoke each procedure.} {
+    file stat testTclStat2%.fil testStat2
+    file stat testTclStat1%.fil testStat1
+    file stat testTclStat3%.fil testStat3
+
+    list $testStat2(size) $testStat1(size) $testStat3(size)
+} {2345 1234 3456}
+
+eval $unsetScript
+
+test stat-1.4 {TclStatDeleteProc: "TclpStat" function should not be deletedable.} {
+    catch {testTclStat delete TclpStat} err2
+    set err2
+} {"TclpStat": could not be deleteed}
+
+test stat-1.5 {TclStatDeleteProc: Delete the 2nd TclStat procedure.} {
+    # Delete the 2nd procedure and test that it longer exists but that
+    #   the others do actually return a result.
+    testTclStat delete TestTclStatProc2
+    file stat testTclStat1%.fil testStat1
+    catch {file stat testTclStat2%.fil testStat2} err3
+    file stat testTclStat3%.fil testStat3
+
+    list $testStat1(size) $err3 $testStat3(size)
+} {1234 {couldn't stat "testTclStat2%.fil": no such file or directory} 3456}
+
+eval $unsetScript
+
+test stat-1.6 {TclStatDeleteProc: Delete the 1st TclStat procedure.} {
+    # Next delete the 1st procedure and test that only the 3rd procedure
+    #   is the only one that exists.
+    testTclStat delete TestTclStatProc1
+    catch {file stat testTclStat1%.fil testStat1} err4
+    catch {file stat testTclStat2%.fil testStat2} err5
+    file stat testTclStat3%.fil testStat3
+
+    list $err4 $err5 $testStat3(size)
+} {{couldn't stat "testTclStat1%.fil": no such file or directory} {couldn't stat "testTclStat2%.fil": no such file or directory} 3456}
+
+eval $unsetScript
+
+test stat-1.7 {TclStatDeleteProc: Delete the 3rd procedure & verify all are gone.} {
+    # Finally delete the 3rd procedure and check that none of the
+    #   procedures exist.
+    testTclStat delete TestTclStatProc3
+    catch {file stat testTclStat1%.fil testStat1} err6
+    catch {file stat testTclStat2%.fil testStat2} err7
+    catch {file stat testTclStat3%.fil testStat3} err8
+
+    list $err6 $err7 $err8
+} {{couldn't stat "testTclStat1%.fil": no such file or directory} {couldn't stat "testTclStat2%.fil": no such file or directory} {couldn't stat "testTclStat3%.fil": no such file or directory}}
+
+eval $unsetScript
+
+test stat-1.8 {TclStatDeleteProc: Verify that all procs have been deleted.} {
+    # Attempt to delete all the Stat procs. again to ensure they no longer
+    #   exist and an error is returned.
+    catch {testTclStat delete TestTclStatProc1} err9
+    catch {testTclStat delete TestTclStatProc2} err10
+    catch {testTclStat delete TestTclStatProc3} err11
+
+    list $err9 $err10 $err11
+} {{"TestTclStatProc1": could not be deleteed} {"TestTclStatProc2": could not be deleteed} {"TestTclStatProc3": could not be deleteed}}
+
+eval $unsetScript