From 967c67876324858a356573173e882a8ea5c0781b Mon Sep 17 00:00:00 2001
From: Simon Bertrang <simon@cvs.openbsd.org>
Date: Sun, 11 Nov 2007 12:57:27 +0000
Subject: import perl 5.10.0 from CPAN

---
 gnu/usr.bin/perl/lib/File/Temp/t/cmp.t      | 11 ++++++++++
 gnu/usr.bin/perl/lib/File/Temp/t/seekable.t | 32 +++++++++++++++++++++++++++++
 2 files changed, 43 insertions(+)
 create mode 100644 gnu/usr.bin/perl/lib/File/Temp/t/cmp.t
 create mode 100644 gnu/usr.bin/perl/lib/File/Temp/t/seekable.t

(limited to 'gnu/usr.bin/perl')

diff --git a/gnu/usr.bin/perl/lib/File/Temp/t/cmp.t b/gnu/usr.bin/perl/lib/File/Temp/t/cmp.t
new file mode 100644
index 00000000000..a1b78cbea15
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/File/Temp/t/cmp.t
@@ -0,0 +1,11 @@
+#!perl -w
+# Test overloading
+
+use Test::More tests => 3;
+use strict;
+
+BEGIN {use_ok( "File::Temp" ); }
+
+my $fh = new File::Temp();
+ok( "$fh" ne "foo", "compare stringified object with string");
+ok( $fh ne "foo", "compare object with string");
diff --git a/gnu/usr.bin/perl/lib/File/Temp/t/seekable.t b/gnu/usr.bin/perl/lib/File/Temp/t/seekable.t
new file mode 100644
index 00000000000..8432a1d90d2
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/File/Temp/t/seekable.t
@@ -0,0 +1,32 @@
+#  -*- perl -*-
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl File-Temp.t'
+
+#########################
+
+# change 'tests => 1' to 'tests => last_test_to_print';
+
+use Test::More tests => 7;
+BEGIN { use_ok('File::Temp') };
+
+#########################
+
+# Insert your test code below, the Test::More module is use()ed here so read
+# its man page ( perldoc Test::More ) for help writing this test script.
+
+# make sure we can create a tmp file...
+$tmp = File::Temp->new;
+isa_ok( $tmp, 'File::Temp' );
+isa_ok( $tmp, 'IO::Handle' );
+isa_ok( $tmp, 'IO::Seekable' );
+
+# make sure the seek method is available...
+ok( File::Temp->can('seek'), 'tmp can seek' );
+
+# make sure IO::Handle methods are still there...
+ok( File::Temp->can('print'), 'tmp can print' );
+
+# let's see what we're exporting...
+$c = scalar @File::Temp::EXPORT;
+$l = join ' ', @File::Temp::EXPORT;
+ok( $c == 9, "really exporting $c: $l" );
-- 
cgit v1.2.3