[io grant] Test IO::Path.Str works as advertised

Author: zoffixznet

S32-io/path.t

@@ -1,8 +1,15 @@
 use v6;
 use Test;
 
-plan 1;
-ok 1;
+plan 3;
+
+{ # .Str tests
+    is-deeply '.'.IO.Str, '.', 'Str does not include CWD [relative path]';
+    is-deeply '/'.IO.Str, '/', 'Str does not include CWD [absolute path]';
+    is-deeply IO::Path.new(
+        :volume<foo:>, :dirname<bar>, :basename<ber>, :SPEC(IO::Spec::Win32.new)
+    ).Str, 'foo:\bar\ber', 'Str does not include CWD [mulit-part .new()]'
+}
 
 
 # vim: ft=perl6