#!/usr/local/bin/perl -w

# Test for File::Temp - OO interface

use strict;

use Test::More tests => 35;

use File::Spec;

# Will need to check that all files were unlinked correctly

# Set up an END block here to do it

# Arrays containing list of dirs/files to test

my (@files, @dirs, @still_there);

# And a test for files that should still be around

# These are tidied up

END {

  foreach (@still_there) {

    ok( -f $_, "Check $_ exists" );

    ok( unlink( $_ ), "Unlinked $_" );

    ok( !(-f $_), "$_ no longer there");

  }

}

# Loop over an array hoping that the files dont exist

END { foreach (@files) { ok( !(-e $_), "File $_ should not be there" )} }

# And a test for directories

END { foreach (@dirs)  { ok( !(-d $_), "Directory $_ should not be there" ) } }

# Need to make sure that the END blocks are setup before

# the ones that File::Temp configures since END blocks are evaluated

# in reverse order and we need to check the files *after* File::Temp

# removes them

BEGIN {use_ok( "File::Temp" ); }

# Check for misuse

eval { File::Temp->tempfile };

like( $@, qr/can't be called as a method/, "File::Temp->tempfile error" );

eval { File::Temp->tempdir };

like( $@, qr/can't be called as a method/, "File::Temp->tempfile error" );

# Tempfile

# Open tempfile in some directory, unlink at end

my $fh = new File::Temp( SUFFIX => '.txt' );

ok( (-f "$fh"), "File $fh exists"  );

# Should still be around after closing

ok( close( $fh ), "Close file $fh" );

ok( (-f "$fh"), "File $fh still exists after close" );

# Check again at exit

push(@files, "$fh");

# OO tempdir

my $tdir = File::Temp->newdir();

my $dirname = "$tdir"; # Stringify overload

ok( -d $dirname, "Directory $tdir exists");

undef $tdir;

ok( !-d $dirname, "Directory should now be gone");

# with template

$tdir = File::Temp->newdir( TEMPLATE => 'helloXXXXX' );

like( "$tdir", qr/hello/, "Directory with TEMPLATE" );

undef $tdir;

$tdir = File::Temp->newdir( 'helloXXXXX' );

like( "$tdir", qr/hello/, "Directory with leading template" );

undef $tdir;

# Quick basic tempfile test

my $qfh = File::Temp->new();

my $qfname = "$qfh";

ok (-f $qfname, "temp file exists");

undef $qfh;

ok( !-f $qfname, "temp file now gone");

# TEMPDIR test as somewhere to put the temp files

# Create temp directory in current dir

my $template = 'tmpdirXXXXXX';

print "# Template: $template\n";

my $tempdir = File::Temp::tempdir( $template ,

				   DIR => File::Spec->curdir,

				   CLEANUP => 1,

				 );

print "# TEMPDIR: $tempdir\n";

ok( (-d $tempdir), "Does $tempdir directory exist" );

push(@dirs, $tempdir);

# Create file in the temp dir

$fh = new File::Temp(

		     DIR => $tempdir,

		     SUFFIX => '.dat',

		    );

ok( $fh->unlink_on_destroy, "should unlink");

print "# TEMPFILE: Created $fh\n";

ok( (-f "$fh"), "File $fh exists in tempdir?");

push(@files, "$fh");

# Test tempfile

# ..and again (without unlinking it)

$fh = new File::Temp( DIR => $tempdir, UNLINK => 0 );

print "# TEMPFILE: Created $fh\n";

ok( (-f "$fh" ), "Second file $fh exists in tempdir [nounlink]?");

push(@files, "$fh");

# and another (with template)

$fh = new File::Temp( TEMPLATE => 'helloXXXXXXX',

		      DIR => $tempdir,

		      SUFFIX => '.dat',

		    );

print "# TEMPFILE: Created $fh\n";

# and with a leading template

$fh = File::Temp->new( 'helloXXXXXXX',

		      DIR => $tempdir,

		      SUFFIX => '.dat',

		    );

print "# TEMPFILE: Created $fh\n";

ok( (-f "$fh"), "File $fh exists? [from leading template]" );

like( "$fh", qr/hello/, "saw template" );

push(@files, "$fh");

# Create a temporary file that should stay around after

# it has been closed

$fh = new File::Temp( TEMPLATE => 'permXXXXXXX', UNLINK => 0);

print "# TEMPFILE: Created $fh\n";

ok( -f "$fh", "File $fh exists?" );

ok( close( $fh ), "Close file $fh" );

ok( ! $fh->unlink_on_destroy, "should not unlink");

push( @still_there, "$fh"); # check at END

# Now create a temp file that will remain when the object

# goes out of scope because of $KEEP_ALL

$fh = new File::Temp( TEMPLATE => 'permXXXXXXX', UNLINK => 1);

print "# TEMPFILE: Created $fh\n";

ok( -f "$fh", "File $fh exists?" );

ok( close( $fh ), "Close file $fh" );

ok( $fh->unlink_on_destroy, "should unlink (in principle)");

push( @still_there, "$fh"); # check at END

$File::Temp::KEEP_ALL = 1;

# Make sure destructors run

undef $fh;

# allow end blocks to run

$File::Temp::KEEP_ALL = 0;

# Now END block will execute to test the removal of directories

print "# End of tests. Execute END blocks\n";