#!/usr/bin/perl -w
use
strict;
my
$loader
= Labyrinth::Test::Harness->new;
my
$dir
=
$loader
->directory;
$loader
->cleanup();
if
($^O =~ /Win32/i) {
# Windows cannot delete until after process has stopped
ok(1);
}
else
{
ok( ! -d
$dir
,
'directory removed'
);
}