File-Slurp-9999.19HEADFile-Slurp-9999.19master

1 files changed, 19 insertions, 0 deletions

diff --git a/t/slurp.t b/t/slurp.t
new file mode 100644
index 0000000..3ba53e3
--- /dev/null
+++ b/t/slurp.t
@@ -0,0 +1,19 @@
+#!/usr/local/bin/perl -w -T
+
+use strict ;
+use File::Slurp qw( write_file slurp ) ;
+
+use Test::More tests => 1 ;
+
+my $data = <<TEXT ;
+line 1
+more text
+TEXT
+
+my $file = 'xxx' ;
+
+write_file( $file, $data ) ;
+my $read_buf = slurp( $file ) ;
+is( $read_buf, $data, 'slurp alias' ) ;
+
+unlink $file ;