#!/usr/bin/perl
# Testing for File::Find::Rule::VCS
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use Test::More tests => 9;
use File::Find::Rule ();
use File::Find::Rule::VCS ();
use constant FFR => 'File::Find::Rule';
# Check the methods are added
ok( FFR->can('ignore_vcs'), '->ignore_vcs method exists' );
ok( FFR->can('ignore_cvs'), '->ignore_cvs method exists' );
ok( FFR->can('ignore_rcs'), '->ignore_rcs method exists' );
ok( FFR->can('ignore_svn'), '->ignore_svn method exists' );
ok( FFR->can('ignore_bzr'), '->ignore_bzr method exists' );
ok( FFR->can('ignore_git'), '->ignore_git method exists' );
ok( FFR->can('ignore_hg'), '->ignore_hg method exists' );
# Make an object containing all of them, to ensure there are no errors
my $Rule = File::Find::Rule->new
->ignore_cvs
->ignore_rcs
->ignore_svn
->ignore_bzr
->ignore_git
->ignore_vcs('')
->ignore_vcs('cvs')
->ignore_vcs('rcs')
->ignore_vcs('svn')
->ignore_vcs('subversion')
->ignore_vcs('bzr')
->ignore_vcs('bazaar')
->ignore_vcs('git')
->ignore_vcs('hg')
->ignore_vcs('mercurial');
isa_ok( $Rule, 'File::Find::Rule' );
$Rule = File::Find::Rule->ignore_vcs;
isa_ok( $Rule, 'File::Find::Rule' );