update

[urisagit/Perl-Docs.git] / t / stdin.t

diff --git a/t/stdin.t b/t/stdin.t
deleted file mode 100644 (file)
index 071e0d3..0000000
--- a/t/stdin.t
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/usr/local/bin/perl -w
-
-use strict ;
-use File::Slurp ;
-
-use Carp ;
-use Socket ;
-use Symbol ;
-use Test::More tests => 6 ;
-
-my $data = <<TEXT ;
-line 1
-more text
-TEXT
-
-foreach my $file ( qw( stdin STDIN stdout STDOUT stderr STDERR ) ) {
-
-       write_file( $file, $data ) ;
-       my $read_buf = read_file( $file ) ;
-       is( $read_buf, $data, 'read/write of file [$file]' ) ;
-
-       unlink $file ;
-}