use strict;
use warnings;

use Test::More;

use File::Tempdir::ForPackage;

my $dir = File::Tempdir::ForPackage->new(
  package => 'File::Tempdir::ForPackage',

  #	with_version => 1,
  #	with_timestamp => 1,
  #	with_pid => 1,
  #	num_random => 4,
);

for my $i ( 0 .. 30 ) {
  $dir->run_once_in(
    sub {
      system 'find $PWD';
      $dir->preserve(0);
    }
  );
}
pass();
done_testing;