#!perl -T use strict; use warnings; use Test::More tests => 2; SKIP: { skip( 'Temporary database file does not exist.', 1 ) if ! -e 't/test_database'; ok( unlink( 't/test_database' ), 'Remove temporary database file', ); } SKIP: { my $DATA_FILE = 'audit_test_data.tmp'; skip( 'Temporary file does not exist.', 1 ) if ! -e $DATA_FILE; ok( unlink( $DATA_FILE ), 'Delete the test data file.', ); }