File: 11ordering.t

package info (click to toggle)
libsyntax-keyword-match-perl 0.15-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 236 kB
  • sloc: perl: 902; ansic: 34; makefile: 3
file content (31 lines) | stat: -rw-r--r-- 479 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
#!/usr/bin/perl

use v5.14;
use warnings;

use Test2::V0;

use Syntax::Keyword::Match;

my $var;

sub func
{
   my ( $topic ) = @_;

   match($topic : ==) {
      case(1) { return "one" }
      case($var) { return "var" }
      case(2) { return "two" }
   }
}

$var = 1;
is( func(1), "one", 'case(1) before case($var) takes precedence' );

is( func(2), "two", 'case(2) still works' );

$var = 2;
is( func(2), "var", 'case($var) before case(2) takes precedence' );

done_testing;