#!/usr/bin/perl
# $Id: 99cleanup.t,v 1.1 2002/01/21 15:40:39 piers Exp $
use strict;
use Test;
BEGIN { plan tests => 4; }
if (-d 't') {
	chdir( 't' );
}

my @files = qw/dbdump.dat dbindex2.dat dbindext.dat temp.tmp/;

foreach (@files) {
	unlink( $_ );
	ok( ! -e $_ );
}

# cleanup done