#!perl -T
=head1 PURPOSE
Delete the SQLite database if it exists.
=cut
use strict;
use warnings;
use Test::FailWarnings -allow_deps => 1;
use Test::More tests => 1;
SKIP:
{
skip( 'Temporary database file does not exist.', 1 )
if ! -e 't/test_database';
ok(
unlink( 't/test_database' ),
'Remove temporary database file',
);
}