00filter.t #1

#!/usr/local/bin/perl -w

=head1 NAME

00filter.t - testing of VCP::Filter services

=cut

use strict ;

use Carp ;
use Test ;
use VCP::Filter;

my $r ;

my $f = VCP::Filter->new;
my $rules;

my @tests = (
sub {
    $rules = $f->parse_rules_list(
       [(1..6), "--", "NONONO" ],
       "A", "B", "C"
    );
    ok $rules;
},

sub { ok @$rules, 2; },
sub { ok ! grep @$_ != 3, @$rules; },
sub { ok $rules->[0]->[0], 1 },
sub { ok $rules->[0]->[1], 2 },
sub { ok $rules->[0]->[2], 3 },
sub { ok $rules->[1]->[0], 4 },
sub { ok $rules->[1]->[1], 5 },
sub { ok $rules->[1]->[2], 6 },
) ;

plan tests => scalar( @tests ) ;

$_->() for @tests ;