Commit | Line | Data |
262eb13a |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | unshift @INC, '../lib'; |
6 | } |
7 | |
8 | # Test for File::Temp - POSIX functions |
9 | |
10 | use strict; |
11 | use Test; |
12 | BEGIN { plan tests => 7} |
13 | |
14 | use File::Temp qw/ :POSIX unlink0 /; |
15 | ok(1); |
16 | |
17 | # TMPNAM - scalar |
18 | |
19 | print "# TMPNAM: in a scalar context: \n"; |
20 | my $tmpnam = tmpnam(); |
21 | |
22 | # simply check that the file does not exist |
23 | # Not a 100% water tight test though if another program |
24 | # has managed to create one in the meantime. |
25 | ok( !(-e $tmpnam )); |
26 | |
27 | print "# TMPNAM file name: $tmpnam\n"; |
28 | |
29 | # TMPNAM array context |
30 | # Not strict posix behaviour |
31 | (my $fh, $tmpnam) = tmpnam(); |
32 | |
33 | print "# TMPNAM: in array context: $fh $tmpnam\n"; |
34 | |
35 | # File is opened - make sure it exists |
36 | ok( (-e $tmpnam )); |
37 | |
38 | # Unlink it |
39 | ok( unlink0($fh, $tmpnam) ); |
40 | |
41 | # TMPFILE |
42 | |
43 | $fh = tmpfile(); |
44 | |
45 | ok( $fh ); |
46 | print "# TMPFILE: tmpfile got FH $fh\n"; |
47 | |
48 | $fh->autoflush(1) if $] >= 5.006; |
49 | |
50 | # print something to it |
51 | my $original = "Hello a test\n"; |
52 | print "# TMPFILE: Wrote line: $original"; |
53 | print $fh $original |
54 | or die "Error printing to tempfile\n"; |
55 | |
56 | # rewind it |
57 | ok( seek($fh,0,0) ); |
58 | |
59 | |
60 | # Read from it |
61 | my $line = <$fh>; |
62 | |
63 | print "# TMPFILE: Read line: $line"; |
64 | ok( $original, $line); |
65 | |
66 | close($fh); |