Author: jkeenan
Date: Thu May 10 19:04:29 2007
New Revision: 18501
Modified:
trunk/t/tools/ops2cutils/07-make_incdir.t
Log:
Change back to original directory at end of testing block. Needed due to
occasional problem with File::Temp::tempdir() on Win32.
Modified: trunk/t/tools/ops2cutils/07-make_incdir.t
==============================================================================
--- trunk/t/tools/ops2cutils/07-make_incdir.t (original)
+++ trunk/t/tools/ops2cutils/07-make_incdir.t Thu May 10 19:04:29 2007
@@ -19,7 +19,7 @@
}
unshift @INC, qq{$topdir/lib};
}
-use Test::More tests => 7;
+use Test::More tests => 8;
use Carp;
use Cwd;
use File::Copy;
@@ -60,8 +60,6 @@
mkdir qq{$tdir/include};
mkdir qq{$tdir/include/parrot};
- # mkdir qq{$tdir/include/parrot/oplib};
-
my $o2p = Parrot::Ops2pm::Utils->new(
{
argv => [EMAIL PROTECTED],
@@ -96,6 +94,7 @@
ok( defined $self,
"Constructor correctly returned even though include/parrot/oplib
had to be created" );
}
+ ok( chdir($cwd), "returned to starting directory" );
}
pass("Completed all tests in $0");
