File: 11bar.t

package info (click to toggle)
libregexp-log-perl 0.06-5
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 140 kB
  • sloc: perl: 144; makefile: 2
file content (9 lines) | stat: -rw-r--r-- 203 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
 
use Test::More tests => 1;
use strict;
use t::Bar;

my $bar = Regexp::Log::Bar->new;
my $before =  $bar->{_test};
my $re = $bar->regexp;
is( $bar->{_test}, $before + 1, 'postprocessing code executed');