#!/usr/bin/env perl
use strict;
use warnings;

use Test::Most;
use Cvs::Simple;

my($cvs) = Cvs::Simple->new((csv_bin=>'/tmp/foobar'));

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

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

done_testing;
