[io grant] Cover IO::Spec::Win32.basename

Raku · Apr 9, 2017 · c3c51ed · c3c51ed
1 parent cd62ff2
commit c3c51ed
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/S32-io/io-spec-win.t b/S32-io/io-spec-win.t
@@ -2,7 +2,7 @@ use v6;
 use Test;
 # L<S32::IO/IO::Spec>
 
-plan 209;
+plan 210;
 my $win32 = IO::Spec::Win32;
 
 my @canonpath =
@@ -300,3 +300,15 @@ else {
 	is $*SPEC.rootdir, '\\',  'rootdir is "\\"';
 	ok {.IO.d && .IO.w}.($*SPEC.tmpdir), "tmpdir: {$*SPEC.tmpdir} is a writable directory";
 }
+
+subtest '.basename' => {
+    my @tests = '' => '', '.' => '.', '/' => '', 'foo/' => '', '/.' => '.',
+        'foo/.' => '.', 'foo/..' => '..', 'foo/...' => '...',
+        'bar/♥foo' => '♥foo', '♥foo' => '♥foo', '♥foo/..' => '..',
+		'//server/share' => 'share', '//server/share/' => '';
+
+    plan +@tests;
+    for @tests -> (:key($in), :value($out)) {
+        is-deeply IO::Spec::Win32.basename($in), $out, $in;
+    }
+}