Permalink
Browse files

initial tests for IO::Path

  • Loading branch information...
1 parent ca2353f commit 279df78566dc272b51c9eb7fc438e3fccc7ef401 @moritz moritz committed Aug 1, 2012
Showing with 12 additions and 0 deletions.
  1. +12 −0 S32-io/io-path.t
View
@@ -0,0 +1,12 @@
+use v6;
+use Test;
+
+plan 5;
+
+my $path = '/foo/bar.txt'.path;
+isa_ok $path, IO::Path;
+is $path.directory, '/foo', 'directory';
+is $path.basename, 'bar.txt', 'basename';
+
+is '/'.path.path, '/', '.path.path roundtrips';
+is '///.'.path.path, '///.', '... even for weird cases';

0 comments on commit 279df78

Please sign in to comment.