File: 02-regexp-pattern.t

package info (click to toggle)
libregexp-pattern-license-perl 3.11.2-1
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 1,580 kB
  • sloc: perl: 12,506; makefile: 2; sh: 1
file content (21 lines) | stat: -rw-r--r-- 444 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
 
use Test2::V0;
use Test2::Require::Perl 'v5.12';

use Regexp::Pattern;

use Test::Regexp::Pattern;

plan 5;

my $OPTS = {};

my $re = re( "License::fsful", $OPTS );
ok $re;
isa_ok $re, ['Regexp'], 're object is a Regexp';
ref_ok $re, 'REGEXP', 're object is a native Regexp object';

regexp_patterns_in_module_ok 'Regexp::Pattern::License', $OPTS;
regexp_patterns_in_module_ok 'Regexp::Pattern::License::Parts', 'parts',
	$OPTS;

done_testing;