diff options
Diffstat (limited to 'lib/File/Temp/t/seekable.t')
| -rw-r--r-- | lib/File/Temp/t/seekable.t | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lib/File/Temp/t/seekable.t b/lib/File/Temp/t/seekable.t index 8432a1d90d..69346d05fd 100644 --- a/lib/File/Temp/t/seekable.t +++ b/lib/File/Temp/t/seekable.t @@ -6,7 +6,7 @@ # change 'tests => 1' to 'tests => last_test_to_print'; -use Test::More tests => 7; +use Test::More tests => 10; BEGIN { use_ok('File::Temp') }; ######################### @@ -21,7 +21,11 @@ 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' ); +# Note that we need a reasonably modern IO::Seekable +SKIP: { + skip "IO::Seekable is too old", 1 if IO::Seekable->VERSION <= 1.06; + ok( File::Temp->can('seek'), 'tmp can seek' ); +} # make sure IO::Handle methods are still there... ok( File::Temp->can('print'), 'tmp can print' ); @@ -30,3 +34,7 @@ ok( File::Temp->can('print'), 'tmp can print' ); $c = scalar @File::Temp::EXPORT; $l = join ' ', @File::Temp::EXPORT; ok( $c == 9, "really exporting $c: $l" ); + +ok(defined eval { SEEK_SET() }, 'SEEK_SET defined by File::Temp') or diag $@; +ok(defined eval { SEEK_END() }, 'SEEK_END defined by File::Temp') or diag $@; +ok(defined eval { SEEK_CUR() }, 'SEEK_CUR defined by File::Temp') or diag $@; |