File: issue_43.t

package info (click to toggle)
libcompiler-lexer-perl 0.23-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 612 kB
  • sloc: cpp: 5,127; perl: 1,167; makefile: 3
file content (20 lines) | stat: -rw-r--r-- 302 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
use strict;
use warnings;
use Compiler::Lexer;
use Test::More;

my $tokens = Compiler::Lexer->new->tokenize(<<'...');
/foo/m;
/bar/;
...

my %delim = map {
    ($_->data => 1)
} grep {
    $_->type == Compiler::Lexer::TokenType::T_RegDelim
} @$tokens;


is_deeply([keys %delim], ['/']);

done_testing;