File: alias_literal.t

package info (click to toggle)
libregexp-grammars-perl 1.058-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 1,328 kB
  • sloc: perl: 53,328; makefile: 2
file content (22 lines) | stat: -rw-r--r-- 566 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
use 5.010;
use warnings;

use Test::More 'no_plan';

use Regexp::Grammars;

my $test_grammar = qr{ one    <alt=1>
                     | negtwo <alt= -2e+1 >
                     | str    <alt='str\'ing'>
                     }xms;

no Regexp::Grammars;

ok "one" =~ $test_grammar    => 'One matched';
is $/{alt}, 1                => 'Correct alternative';

ok "negtwo" =~ $test_grammar => 'NegTwo matched';
is $/{alt}, -20              => 'Correct alternative';

ok "str" =~ $test_grammar    => 'Str matched';
is $/{alt}, "str'ing"        => 'Correct alternative';