fixed Windows bug in daemon.t

mojolicious · Nov 7, 2013 · d0f85b0 · d0f85b0
1 parent d73fb63
commit d0f85b0
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 3 deletions.
diff --git a/Changes b/Changes
@@ -1,4 +1,7 @@
 
+4.55  2013-11-07
+  - Fixed Windows bug in "daemon.t".
+
 4.54  2013-11-07
   - Added parts attribute to Mojo::Home.
   - Fixed keep alive connection timeout bug in Mojo::UserAgent.

diff --git a/lib/Mojolicious.pm b/lib/Mojolicious.pm
@@ -43,7 +43,7 @@ has types     => sub { Mojolicious::Types->new };
 has validator => sub { Mojolicious::Validator->new };
 
 our $CODENAME = 'Top Hat';
-our $VERSION  = '4.54';
+our $VERSION  = '4.55';
 
 sub AUTOLOAD {
   my $self = shift;

diff --git a/t/mojo/daemon.t b/t/mojo/daemon.t
@@ -6,6 +6,7 @@ BEGIN {
 }
 
 use Test::More;
+use File::Spec::Functions 'catdir';
 use IO::Socket::INET;
 use Mojo;
 use Mojo::IOLoop;
@@ -40,8 +41,9 @@ use Socket qw(SO_REUSEPORT SOL_SOCKET);
 }
 
 # Optional home detection
-my $app = Mojo->new(home => Mojo::Home->new('/will/never-ever/exist'));
-is $app->home, '/will/never-ever/exist', 'right home directory';
+my @path = qw(th is mojo dir wil l never-ever exist);
+my $app = Mojo->new(home => Mojo::Home->new(catdir @path));
+is $app->home, catdir(@path), 'right home directory';
 
 # Config
 is $app->config('foo'), undef, 'no value';