Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Add incredibly simple/stupid test

  • Loading branch information...
commit fdfb86e8945777dd814b4c5d60bb719940eb2540 1 parent 6291026
@rwstauner authored
Showing with 22 additions and 0 deletions.
  1. +22 −0 t/native.t
View
22 t/native.t
@@ -0,0 +1,22 @@
+use strict;
+use warnings;
+use Test::More;
+
+use File::Spec ();
+use File::Spec::Native ();
+
+plan tests => 3;
+
+my @path = qw(dumb module);
+is(File::Spec->catfile(@path), File::Spec::Native->catfile(@path), 'base == Native');
+
+use File::Spec::Functions qw(catdir);
+is(catdir(@path), File::Spec::Native->catdir(@path), 'base == Native');
+
+my $format = $File::Spec::ISA[0] eq 'Win32' ? 'Unix' : 'Win32';
+my $fsclass = "File::Spec::$format";
+eval "require $fsclass";
+
+my $foreign = $fsclass->catfile(@path);
+
+isnt($foreign, File::Spec::Native->catfile(@path), 'foreign != native');

0 comments on commit fdfb86e

Please sign in to comment.
Something went wrong with that request. Please try again.