Permalink
Browse files

Merge branch 'release/1.1999_03'

  • Loading branch information...
2 parents 94c89b5 + 4cfa115 commit ea9ef19a77b9f097c195eeb94eed5bc976294155 @xsawyerx xsawyerx committed Nov 11, 2010
Showing with 10 additions and 17 deletions.
  1. +1 −1 lib/Dancer.pm
  2. +9 −16 t/00_base/000_create_fake_env.t
View
@@ -31,7 +31,7 @@ use File::Basename 'basename';
use base 'Exporter';
$AUTHORITY = 'SUKRIA';
-$VERSION = '1.1999_02';
+$VERSION = '1.1999_03';
@EXPORT = qw(
after
any
@@ -4,24 +4,17 @@ use warnings;
use File::Spec;
use File::Path;
use File::Basename;
-use Test::More tests => 4 * 2, import => ['!pass'];
+use Test::More tests => 4 * 3, import => ['!pass'];
-foreach my $dir ( qw/ public logs views lib / ) {
- my $new_dir = File::Spec->catdir(
- dirname($0), $dir
- );
-
- my $newer_dir = File::Spec->catdir(
- 't', 'lib', $dir
- );
-
- ok(
- ( -d $new_dir or mkpath($new_dir) ),
- "Created $new_dir",
- );
+my @dirs = map {
+ $_,
+ File::Spec->catdir( dirname($0), $_ ),
+ File::Spec->catdir( 't', 'lib', $_ ),
+} qw/ public logs views lib /;
+foreach my $dir (@dirs) {
ok(
- ( -d $newer_dir or mkpath($newer_dir) ),
- "Created $newer_dir",
+ ( -d $dir or mkpath($dir) ),
+ "Created $dir",
);
}

0 comments on commit ea9ef19

Please sign in to comment.