Commit | Line | Data |
5d0b10e0 |
1 | # -*- perl -*- |
2 | # Before `make install' is performed this script should be runnable with |
3 | # `make test'. After `make install' it should work as `perl File-Temp.t' |
4 | |
5 | ######################### |
6 | |
7 | # change 'tests => 1' to 'tests => last_test_to_print'; |
8 | |
b0ad0448 |
9 | use Test::More tests => 10; |
5d0b10e0 |
10 | BEGIN { use_ok('File::Temp') }; |
11 | |
12 | ######################### |
13 | |
14 | # Insert your test code below, the Test::More module is use()ed here so read |
15 | # its man page ( perldoc Test::More ) for help writing this test script. |
16 | |
17 | # make sure we can create a tmp file... |
18 | $tmp = File::Temp->new; |
19 | isa_ok( $tmp, 'File::Temp' ); |
20 | isa_ok( $tmp, 'IO::Handle' ); |
7d83ec39 |
21 | SKIP: { |
22 | skip "->isa is broken on 5.6.0", 1 if $] == 5.006000; |
23 | isa_ok( $tmp, 'IO::Seekable' ); |
24 | } |
5d0b10e0 |
25 | |
26 | # make sure the seek method is available... |
b0ad0448 |
27 | # Note that we need a reasonably modern IO::Seekable |
28 | SKIP: { |
29 | skip "IO::Seekable is too old", 1 if IO::Seekable->VERSION <= 1.06; |
30 | ok( File::Temp->can('seek'), 'tmp can seek' ); |
31 | } |
5d0b10e0 |
32 | |
33 | # make sure IO::Handle methods are still there... |
34 | ok( File::Temp->can('print'), 'tmp can print' ); |
35 | |
36 | # let's see what we're exporting... |
37 | $c = scalar @File::Temp::EXPORT; |
38 | $l = join ' ', @File::Temp::EXPORT; |
39 | ok( $c == 9, "really exporting $c: $l" ); |
b0ad0448 |
40 | |
41 | ok(defined eval { SEEK_SET() }, 'SEEK_SET defined by File::Temp') or diag $@; |
42 | ok(defined eval { SEEK_END() }, 'SEEK_END defined by File::Temp') or diag $@; |
43 | ok(defined eval { SEEK_CUR() }, 'SEEK_CUR defined by File::Temp') or diag $@; |