no need to canonicalize the path twice

mojolicious · Sep 18, 2015 · 215f56b · 215f56b
1 parent ecaadeb
commit 215f56b
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/t/mojo/home.t b/t/mojo/home.t
@@ -11,25 +11,25 @@ use Mojo::HelloWorld;
 use Mojo::Home;
 
 # ENV detection
+my $target = canonpath realpath cwd;
 {
   local $ENV{MOJO_HOME} = '.';
   my $home = Mojo::Home->new->detect;
   is_deeply [split /\\|\//, canonpath($home->to_string)],
-    [split /\\|\//, canonpath(realpath cwd())], 'right path detected';
+    [split /\\|\//, $target], 'right path detected';
 }
 
 # Class detection
 my $original = catdir splitdir $FindBin::Bin;
 my $home     = Mojo::Home->new->detect;
-my $target   = realpath $original;
-is_deeply [split /\\|\//, $target], [split /\\|\//, $home],
+is_deeply [split /\\|\//, realpath $original], [split /\\|\//, $home],
   'right path detected';
 
 # Specific class detection
 $INC{'MyClass.pm'} = 'MyClass.pm';
 $home = Mojo::Home->new->detect('MyClass');
 is_deeply [split /\\|\//, canonpath($home->to_string)],
-  [split /\\|\//, canonpath(realpath cwd())], 'right path detected';
+  [split /\\|\//, $target], 'right path detected';
 
 # FindBin detection
 $home = Mojo::Home->new->detect(undef);