Finish converting overload.t to Test::More
[p5sagit/p5-mst-13.2.git] / lib / Switch / t / nested.t
CommitLineData
88587957 1BEGIN {
6596d39b 2 if ($ENV{PERL_CORE}) {
3 chdir('t') if -d 't';
4 @INC = qw(../lib);
5 }
88587957 6}
7
55a1c97c 8use Switch;
9
10print "1..4\n";
11
12my $count = 1;
13for my $count (1..3, 'four')
14{
15 switch ([$count])
16 {
d38ca171 17
18=pod
19
20=head1 Test
21
22We also test if Switch is POD-friendly here
23
24=cut
25
55a1c97c 26 case qr/\d/ {
27 switch ($count) {
28 case 1 { print "ok 1\n" }
29 case [2,3] { print "ok $count\n" }
30 }
31 }
32 case 'four' { print "ok 4\n" }
33 }
34}
d38ca171 35
36__END__
37
38=head1 Another test
39
40Still friendly???
41
42=cut