tests for RT #73344, where-constraint picked up the wrong outer lexical in rakudo

Author: moritz

S02-types/subset.t

@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 42;
+plan 44;
 
 =begin description
 
@@ -184,4 +184,17 @@ lives_ok { my Bug::RT80930 $rt80930 }, 'subset with "::" in the name';
 
 }
 
+# RT #73344
+my $a = 1;
+{
+    my $a = 3;
+    sub producer {
+        my $a = 2;
+        sub bar($x where $a ) { $x }
+    }
+    my &bar := producer();
+    lives_ok { bar(2) }, 'where-constraint picks up the right lexical (+)';
+    dies_ok  { bar(1) }, 'where-constraint picks up the right lexical (-)';
+}
+
 # vim: ft=perl6