Add test for broken symlink (#160)

Raku · Sep 26, 2016 · 01a6909 · 01a6909
1 parent aec5f6e
commit 01a6909
Showing 1 changed file with 14 additions and 1 deletion.
diff --git a/S16-filehandles/filetest.t b/S16-filehandles/filetest.t
@@ -10,7 +10,7 @@ This test tests the various filetest operators.
 
 =end pod
 
-plan 43;
+plan 44;
 
 # L<S32::IO/IO::FSNode/=item IO ~~ :X>
 # L<S03/Changes to Perl 5 operators/The filetest operators are gone.>
@@ -126,4 +126,17 @@ unlink "empty_file";
     }
 }
 
+# RT #129162
+{
+    my $name = "symlink-test-source";
+    my $target = "symlink-test-target";
+    my $src = open($name, :w);
+    $src.close;
+    symlink($target, $name);
+    unlink $name;
+
+    ok $target.IO.l, "Broken symlink exists";
+    unlink $target;
+}
+
 # vim: ft=perl6