Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 39 lines (30 sloc) 0.855 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
#!perl

use strict;
use warnings;
$|=1;

use Test::More tests => 5;
use File::Path;
use lib 't';
use CTWS_Testing;
use File::Spec;
use File::Path;

ok( my $obj = CTWS_Testing::getObj(), "got object" );

rmtree( 't/_DBDIR' ); # removed DBDIR
rmtree($obj->directory); # removed directory

if($^O =~ /Win32/i) { # Windows cannot delete until after process has stopped
    ok(1);
} else {
    ok( ! -d $obj->directory, 'directory removed' );
}

# these shouldn't exist ... whack just to be sure.
rmtree( "t/$_" ) for(qw(_TMPDIR _DBDIR _EXPECTED));

# triple check
if($^O =~ /Win32/i) { # Windows cannot delete until after process has stopped
    ok(1);
    ok(1);
    ok(1);
} else {
    ok( ! -d 't/_TMPDIR', '_TMPDIR removed' );
    ok( ! -d 't/_DBDIR', '_DBDIR removed' );
    ok( ! -d 't/_EXPECTED', '_EXPECTED removed' );
}

Something went wrong with that request. Please try again.