File: 212_object_extra_args.t

package info (click to toggle)
libtest-regexp-perl 2016060501-1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 224 kB
  • ctags: 30
  • sloc: perl: 1,320; makefile: 2
file content (45 lines) | stat: -rwxr-xr-x 922 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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
#!/usr/bin/perl

use strict;
use warnings;
no  warnings 'syntax';

use 5.010;

use Test::Tester;
use Test::Regexp import => [];
use t::Common;

my $pattern = '\w+';

my $checker = Test::Regexp:: -> new -> init (
    pattern => $pattern,
    name    => "test",
);

my @fails = (["----"     => "dashes",],
             ["# foo"    => "comment"],
             ["foo\nbar" => "has a newline"]);

my $c = 0;
foreach my $fail (@fails) {
    my ($subject, $Reason) = @$fail;

    my $match_res;
    my ($premature, @results) = run_tests sub {
        $match_res = $checker -> no_match ($subject, reason => $Reason);
    };

    check results   => \@results,
          premature => $premature,
          expected  => 'P',
          match     =>  0,
          match_res => $match_res,
          pattern   => $pattern,
          subject   => $subject,
          reason    => $Reason,
          comment   => "test",
    ;
}

__END__