initial tests for IO::Path

Raku · Aug 1, 2012 · 279df78 · 279df78
1 parent ca2353f
commit 279df78
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/S32-io/io-path.t b/S32-io/io-path.t
@@ -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';