RT # 76608, 75370, 77158 and 67222 were testneeded should be closable…

… in RT
Raku · Sep 20, 2014 · b4fc0fe · b4fc0fe
1 parent 1aa3c11
commit b4fc0fe
Show file tree

Hide file tree

Showing 4 changed files with 29 additions and 0 deletions.
diff --git a/S02-names-vars/76608.t b/S02-names-vars/76608.t
@@ -0,0 +1,7 @@
+use v6;
+use Test;
+plan 2;
+
+my $y = "foo$(my $x = 42)bar";
+ok $x eq 42, "RT #76608 simple assignment";
+ok $y eq "foo42bar", "variable interpolation inside string";
diff --git a/S02-names/75370.t b/S02-names/75370.t
@@ -0,0 +1,8 @@
+use v6;
+use Test;
+plan 1;
+
+enum somenum <a b c d e>; 
+my somenum $temp = d; 
+ok  $temp eq 'd', "RT #75370 enum name";
+
diff --git a/S02-types/77158.t b/S02-types/77158.t
@@ -0,0 +1,6 @@
+use v6;
+use Test;
+plan 2;
+
+ok :(Int).perl eq ':(Int)', "RT #77158 Doing .perl on an :(Int)";
+ok :(Array of Int).perl eq ':(Array[Int])', "Doing .perl on an :(Array of Int)";
diff --git a/S05-substitution/67222.t b/S05-substitution/67222.t
@@ -0,0 +1,8 @@
+use v6;
+use Test;
+plan 1;
+
+$_ = "(foo,bar,(baz))"; 
+$_.=subst( /<-[(),]>+/, { "'$/'" }, :g ); 
+
+ok $_ eq "('foo','bar',('baz'))", "RT #67222 check the value of \$/ in closures in the second argument of .=subst calls";