03-tempfile.t

use Test;
use File::Directory::Tree;

plan(14);

my (@should-be-unlinked, @should-be-kept);

# Install this END phaser here before File::Temp has a chance to create its END phaser
# so that we can check that files are unlinked properly
END {
    for @should-be-kept -> $f {
        ok($f.IO ~~ :e, "file $f still exists");

        if $f.IO ~~ :f
        {
            unlink($f);
        }
        elsif $f.IO ~~ :d
        {
            rmtree($f);
        }
    }
    for @should-be-unlinked -> $f {
        nok(($f.IO ~~ :e), "file $f was unlinked");
    }
}


# TODO Remove the EVAL; this is a hack to work around improper ordering
#      of END phasers in Rakudo

EVAL '
use File::Temp;

# begin tempdile tests

my ($name,$handle) = tempfile;
ok($name.IO ~~ :e, "tempfile created");
ok($handle.close, "tempfile closed");


ok($name.IO ~~ :e, "tempfile exists after closing the handle");
@should-be-unlinked.push: $name;

($name,$handle) = tempfile( :!unlink );
@should-be-kept.push: $name;

($name,$handle) = tempfile( :prefix("foo") );
@should-be-unlinked.push: $name;
ok($name ~~ /foo/, "name has foo in it");

($name,$handle) = tempfile( :suffix(".txt") );
@should-be-unlinked.push: $name;
ok($name ~~ / ".txt" $ /, "name ends in .txt");


# begin tempdir tests

my $dir_name = tempdir;
ok($dir_name.IO ~~ :e, "tempdir created");

@should-be-unlinked.push: $dir_name;

$dir_name = tempdir( :!unlink );
@should-be-kept.push: $dir_name;

$dir_name = tempdir( :prefix("foo") );
@should-be-unlinked.push: $dir_name;
ok($dir_name ~~ /foo/, "$dir_name contains foo");

'