Test cover a segfault after trying to clone a Lock

rakudo · Oct 8, 2021 · d6be10e · d6be10e
1 parent 3dc4aca
commit d6be10e
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/t/09-moar/00-misc.t b/t/09-moar/00-misc.t
@@ -2,7 +2,7 @@ use lib <t/packages/>;
 use Test;
 use Test::Helpers;
 
-plan 6;
+plan 7;
 
 # https://github.com/rakudo/rakudo/issues/1534
 {
@@ -36,4 +36,8 @@ lives-ok { class C { }; await start { for ^10_0000 { C.^set_name('B') } } xx 4 }
       'does srand produce same rand_n values 2';
 }
 
+lives-ok
+    { my $l = Lock.new; for ^100_000 { try $l.clone } },
+    'Repeatedly trying to clone a Lock does not lead to a crash';
+
 # vim: expandtab shiftwidth=4