From c8b04b0da22061d0432a1dcb7378f80018ded6ac Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Wed, 8 Dec 1999 03:50:12 +0000
Subject: 	* tests/io.test: removed 'knownBug' tests that were for 
 unsupported0, which is now fcopy (that already has tests)

---
 tests/io.test | 69 +----------------------------------------------------------
 1 file changed, 1 insertion(+), 68 deletions(-)

diff --git a/tests/io.test b/tests/io.test
index 65e1662..e225423 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -12,7 +12,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: io.test,v 1.12 1999/08/27 21:45:17 jenn Exp $
+# RCS: @(#) $Id: io.test,v 1.13 1999/12/08 03:50:12 hobbs Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -64,73 +64,6 @@ makeFile {
 
 set thisScript [file join [pwd] [info script]]
 
-# These tests are disabled until we decide what to do with "unsupported0".
-#
-test io-1.1 {unsupported0 command} {knownBug} {
-    removeFile test1
-    set f1 [open iocmd.test]
-    set f2 [open test1 w]
-    unsupported0 $f1 $f2
-    close $f1
-    catch {close $f2}
-    set s1 [file size $thisScript]
-    set s2 [file size test1]
-    set x ok
-    if {"$s1" != "$s2"} {
-        set x broken
-    }
-    set x
-} ok
-test io-1.2 {unsupported0 command} {knownBug} {
-    removeFile test1
-    set f1 [open $thisScript]
-    set f2 [open test1 w]
-    unsupported0 $f1 $f2 40
-    close $f1
-    close $f2
-    file size test1
-} 40
-test io-1.3 {unsupported0 command} {knownBug} {
-    removeFile test1
-    set f1 [open $thisScript]
-    set f2 [open test1 w]
-    unsupported0 $f1 $f2 -1
-    close $f1
-    close $f2
-    set x ok
-    set s1 [file size $thisScript]
-    set s2 [file size test1]
-    if {$s1 != $s2} {
-        set x broken
-    }
-    set x
-} ok
-test io-1.4 {unsupported0 command} {knownBug unixOrPc} {
-    removeFile pipe
-    removeFile test1
-    set f1 [open pipe w]
-    puts $f1 {puts ready}
-    puts $f1 {gets stdin}
-    puts $f1 {set f1 [open $thisScript r]}
-    puts $f1 {puts [read $f1 100]}
-    puts $f1 {close $f1}
-    close $f1
-    set f1 [open "|[list $::tcltest::tcltest pipe]" r+]
-    gets $f1
-    puts $f1 ready
-    flush $f1
-    set f2 [open test1 w]
-    set c [unsupported0 $f1 $f2 40]
-    catch {close $f1}
-    close $f2
-    set s1 [file size test1]
-    set x ok
-    if {$s1 != "40"} {
-        set x broken
-    }
-    list $c $x
-} {40 ok}
-
 proc contents {file} {
     set f [open $file]
     fconfigure $f -translation binary
-- 
cgit v0.12