This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update experimental to CPAN version 0.013
[perl5.git] / cpan / experimental / t / basic.t
index bb1ed81..ee03a02 100644 (file)
@@ -9,6 +9,7 @@ if ($] >= 5.010000) {
        use experimental 'lexical_topic';
        my $_ = 1;
        is($_, 1, '$_ is 1');
+       1;
 END
 }
 else {
@@ -16,10 +17,27 @@ else {
 }
 
 if ($] >= 5.010001) {
+       is (eval <<'END', 1, 'switch compiles') or diag $@;
+       use experimental 'switch';
+       sub bar { 1 };
+       given(1) {
+               when (\&bar) {
+                       pass("bar matches 1");
+               }
+               default {
+                       fail("bar matches 1");
+               }
+       }
+       1;
+END
+}
+
+if ($] >= 5.010001) {
        is (eval <<'END', 1, 'smartmatch compiles') or diag $@;
        use experimental 'smartmatch';
        sub bar { 1 };
        is(1 ~~ \&bar, 1, "is 1");
+       1;
 END
 }
 
@@ -32,5 +50,14 @@ if ($] >= 5.018) {
 END
 }
 
+if ($] >= 5.021005) {
+       is (eval <<'END', 1, 'ref aliasing compiles') or diag $@;
+       use experimental 'refaliasing';
+       \@a = \@b;
+       is(\@a, \@b, '@a and @b are the same after \@a=\@b');
+       1;
+END
+}
+
 done_testing;