[svn:parrot] r37882 - branches/install_tools/t/tools/install

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Fri Apr  3 01:24:28 2009
New Revision: 37882
URL: https://trac.parrot.org/parrot/changeset/37882

Log:
Add a self-contained test for create_directories().

Modified:
   branches/install_tools/t/tools/install/01-install_files.t

Modified: branches/install_tools/t/tools/install/01-install_files.t
==============================================================================
--- branches/install_tools/t/tools/install/01-install_files.t	Fri Apr  3 01:13:10 2009	(r37881)
+++ branches/install_tools/t/tools/install/01-install_files.t	Fri Apr  3 01:24:28 2009	(r37882)
@@ -47,6 +47,20 @@
 =cut
 
 {
+    my $dir = tempdir( CLEANUP => 1 );
+    $dir .= '/';
+
+    my @dirs = qw(foo/bar foo/bar/baz);
+    create_directories($dir, { map { $_ => 1 } @dirs });
+    my($fullname);
+    my $dirs_created = 0;
+    foreach my $d (@dirs) {
+        $dirs_created++ if -d "$dir$d";
+    }
+    is($dirs_created, 2, 'got expected number of directories created');
+}
+
+{
     my($dir) = tempdir( CLEANUP => 1 );
     $dir .= '/';