#!/usr/bin/perl

use lib 'lib';

use FindBin qw($Bin);

require 't/test-lib.pl';

use Storable;

my $frozen_file = "$Bin/frozen";

my $thawed = Storable::retrieve($frozen_file);

$thawed->dbh->do('DROP TABLE rose_db_storable_test');

print "dropped\n";

unlink($frozen_file); # ignore errors