#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests=>3;
use Cvs::Simple;

my($cvs) = Cvs::Simple->new();

isa_ok($cvs,'Cvs::Simple');

{
local($@);
eval{$cvs->diff()};
like($@,qr/Syntax: /);
}

{
local($@);
eval{$cvs->diff(qw(1 2 3 4))};
like($@,qr/Syntax: /);
}

exit;
__END__