#!/usr/local/bin/perl -w =head1 NAME 00default_filter.t - testing of VCP::DefaultFilter services =cut use strict ; use Carp ; use Test ; use VCP::DefaultFilters; my $f = VCP::DefaultFilters->new; my @tests = ( sub { my @filters = $f->cvs2p4_default_filters; my $res = join "\n", @filters; my $exp = join "\n", qw( Map: (...)<> main/$1 (...)<(*)> $2/$1 ); ok $res, $exp; }, ); plan tests => scalar( @tests ); $_->() for @tests;
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#1 | 4040 | timothee_besset | guest branch | ||
//guest/perforce_software/revml/t/00default_filter.t | |||||
#1 | 3559 | John Fetkovich | added simple test for DefaultFilters.pm |