#!/usr/bin/perl
BEGIN { $ENV{TESTING} = 1 }
use strict;
use warnings;
use Test::More tests => 6 + 1;
use Test::NoWarnings;
my $module = 'Tail::Tool::Plugin::Match';
use_ok( $module );
my $ig = $module->new( regex => 'test' );
isa_ok $ig, $module, 'Get a new match object';
my $line = "the test line\n";
my @w = eval { $ig->process($line) };
diag $@ if $@;
ok !$@, 'No errors when trying to process the line';
ok @w, "Line match";
$line = "the line\n";
@w = eval { $ig->process($line) };
diag $@ if $@;
ok !$@, 'No errors when trying to process the line';
ok !@w, "Line not match";