5 local $SIG{__WARN__} = sub { fail("Got unexpected warning"); diag($_[0]) };
9 is (eval <<'END', 1, 'lexical topic compiles') or diag $@;
10 use experimental 'lexical_topic';
18 fail("No experimental features available on perl $]");
22 is (eval <<'END', 1, 'switch compiles') or diag $@;
23 use experimental 'switch';
27 pass("bar matches 1");
30 fail("bar matches 1");
38 is (eval <<'END', 1, 'smartmatch compiles') or diag $@;
39 use experimental 'smartmatch';
41 is(1 ~~ \&bar, 1, "is 1");
47 is (eval <<'END', 1, 'lexical subs compiles') or diag $@;
48 use experimental 'lexical_subs';
50 is(foo(), 1, "foo is 1");
56 is (eval <<'END', 1, 'ref aliasing compiles') or diag $@;
57 use experimental 'refaliasing';
59 is(\@a, \@b, '@a and @b are the same after \@a=\@b');