#!/usr/bin/perl

use strict; use warnings;

use FindBin qw( $Bin );
use File::Spec;
use Test::More tests => 2 + 2 + 1;
use Test::Exception;
use Test::FileReferenced;

# Check if Test::FileReferenced clears it's "-result" files.

$ENV{'FILE_REFERENCED_NO_PROMPT'} = 1;

# Create '-result' files, as if they ware left by previous run.
# Their content does not actually matter, they may remain empty as well.
my $fh;
open($fh, q{>}, $Bin.q{/feature-cleanup-result.yaml}) or die("Unable to write '-result' file!");
open($fh, q{>}, $Bin.q{/example-hash-result.yaml}) or die("Unable to write 'example-hash-result' file!");
print $fh "Just a test\n";

is_referenced_in_file(
    {
        bar => 'Bar',
        baz => 'Baz',
        foo => 'Foo',
    },
    'example-hash',
    "This will pass using example-hash file",
);

my $result_file_path_1 = File::Spec->catfile($Bin, q{example-hash-result.yaml});
is (-f $result_file_path_1, undef, "Unneded example-hash-result file was removed.");


is_referenced_ok(
    {
        a => 'A',
        b => 'B',
    },
    "This will pass",
);

# Actually, it's not a bad idea to call it explicitly, if You like :)
lives_ok {
    Test::FileReferenced::at_exit();
} 'at_exit runs file';

my $result_file_path_2 = File::Spec->catfile($Bin, q{feature-cleanup-result.yaml});
is (-f $result_file_path_2, undef, "Unneded -result file was removed.");

# vim: fdm=marker