move mk_temp_dir into a lib so we can reuse it

[p5sagit/local-lib.git] / t / stackable.t

diff --git a/t/stackable.t b/t/stackable.t
index 514dba0..c3b25b1 100644 (file)
--- a/t/stackable.t
+++ b/t/stackable.t
@@ -1,29 +1,14 @@
 use strict;
 use warnings;
 use Test::More;
-use File::Temp qw(tempdir);
 use File::Spec;
-use Cwd;
 use Config;
 
 plan tests => 24;
 
 use local::lib ();
 
-sub mk_temp_dir
-{
-    my $name_template = shift;
-
-    my $path = tempdir($name_template, DIR => Cwd::abs_path('t'), CLEANUP => 1);
-    local::lib->ensure_dir_structure_for($path);
-    # On Win32 the path where the distribution is built usually contains
-    # spaces. This is a problem for some parts of the CPAN toolchain, so
-    # local::lib uses the GetShortPathName trick do get an alternate
-    # representation of the path that doesn't constain spaces.
-    return ($^O eq 'MSWin32')
-         ? Win32::GetShortPathName($path)
-        : $path
-}
+use lib 't/lib'; use TempDir;
 
 my $dir1 = mk_temp_dir('test_local_lib-XXXXX');
 my $dir2 = mk_temp_dir('test_local_lib-XXXXX');