sub cleanup {
my $self = shift @_;
+ $_->disconnect for values %{ $self->schema->storage->replicants };
foreach my $slave (@{$self->slave_paths}) {
if(-e $slave) {
unlink $slave;
}
## Delete the old database files
-$_->disconnect for values %{ $replicated->schema->storage->replicants };
$replicated->cleanup;
done_testing;