Add test for RT #123308

Raku · Mar 12, 2015 · 29d4133 · 29d4133
1 parent b2386d1
commit 29d4133
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/S32-io/dir.t b/S32-io/dir.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 12;
+plan 13;
 
 # L<S32::IO/Functions/"=item dir">
 
@@ -31,3 +31,12 @@ nok dir( test=> none('.', '..', 't') ).grep(*.basename eq 't'), "can exclude t/
 
 #?rakudo todo '$*CWD misses slash at end still'
 is dir('t').[0].dirname, $*CWD ~ 't', 'dir("t") returns paths with .dirname of "t"';
+
+# RT #123308
+{
+    my $res = dir "/";
+    ok $res !~~ m/ "/" ** 2 /,
+        'results for \'dir "/"\' do not begin with 2 slashes';
+}
+
+# vim: ft=perl6