Lines Matching full:temp

2 # Test for File::Temp - OO interface
31 # the ones that File::Temp configures since END blocks are evaluated
32 # in reverse order and we need to check the files *after* File::Temp
34 BEGIN {use_ok( "File::Temp" ); }
37 eval { File::Temp->tempfile };
38 like( $@, qr/can't be called as a method/, "File::Temp->tempfile error" );
39 eval { File::Temp->tempdir };
40 like( $@, qr/can't be called as a method/, "File::Temp->tempfile error" );
44 my $fh = File::Temp->new( SUFFIX => '.txt' );
54 my $tdir = File::Temp->newdir();
61 $tdir = File::Temp->newdir( TEMPLATE => 'helloXXXXX' );
65 $tdir = File::Temp->newdir( 'helloXXXXX' );
70 my $qfh = File::Temp->new();
72 ok (-f $qfname, "temp file exists");
74 ok( !-f $qfname, "temp file now gone");
77 # TEMPDIR test as somewhere to put the temp files
78 # Create temp directory in current dir
81 my $tempdir = File::Temp::tempdir( $template ,
91 # Create file in the temp dir
92 $fh = File::Temp->new(
105 $fh = File::Temp->new( DIR => $tempdir, UNLINK => 0 );
113 $fh = File::Temp->new( TEMPLATE => 'helloXXXXXXX',
121 $fh = File::Temp->new( 'helloXXXXXXX',
136 $fh = File::Temp->new( TEMPLATE => 'permXXXXXXX', UNLINK => 0);
144 # Now create a temp file that will remain when the object
146 $fh = File::Temp->new( TEMPLATE => 'permXXXXXXX', UNLINK => 1);
153 $File::Temp::KEEP_ALL = 1;
159 $File::Temp::KEEP_ALL = 0;