File-Slurp-9999.19HEADFile-Slurp-9999.19master

1 files changed, 23 insertions, 0 deletions

diff --git a/t/stdin.t b/t/stdin.t
new file mode 100644
index 0000000..071e0d3
--- /dev/null
+++ b/t/stdin.t
@@ -0,0 +1,23 @@
+#!/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 ;
+}