1use strict;
2use Test;
3use Cwd;
4use File::Path;
5
6plan test => 3;
7
8use Cvs;
9ok(1);
10my $cvsroot = cwd().'/cvs';
11
12my $cvs = new Cvs
13(
14    'cvs-test.export',
15    cvsroot => $cvsroot
16);
17ok($cvs);
18
19my $rv = $cvs->export('test', {date=>'now'})
20  or die $cvs->error();
21rmtree("cvs-test.export");
22ok($rv);
23