# 692459.t

use strict;
use warnings;
use Test::More tests => 4;
my $f = q{outfile.txt};

require_ok(q{692459.pl});
ok(-f $f, q{file exists});
ok(-s $f, q{file's size is non-zero});
cmp_ok(unlink($f), q{==}, 1, q{Delete 1 file});
__END__