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