summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/ioUtil.test100
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