1use strict; 2use Test; 3use Cwd; 4 5plan test => 6; 6 7use Cvs; 8ok(1); 9 10my $cvs = new Cvs 'cvs-test'; 11ok($cvs); 12 13open(FILE, "> $ENV{PWD}/cvs-test/test.txt") 14 or die "Cannot open file `$ENV{PWD}/cvs-test/test.txt': $!"; 15print FILE "test\n"; 16close(FILE); 17 18my $resultlist = $cvs->diff({multiple => 1}); 19my @modified = $resultlist->get_modified(); 20ok(@modified, 1); 21ok($modified[0]->filename(), 'test.txt'); 22 23unlink("$ENV{PWD}/cvs-test/test.txt"); 24my $result = $cvs->update(); 25ok($result->modified, 0); 26ok($result->updated, 1); 27