1use strict; 2use Test; 3use Cwd; 4 5plan test => 11; 6 7use Cvs; 8ok(1); 9 10my $cvs = new Cvs "cvs-test"; 11ok($cvs); 12 13my $status = $cvs->status('test.txt'); 14ok($status->success); 15 16my @tags = $status->tags(); 17ok(@tags, 2); 18ok($tags[0], 'rs'); 19ok($status->tag_revision($tags[0]), '1.1.1'); 20 21ok(!$status->is_modified); 22ok($status->is_up2date); 23 24open(FILE, "> $ENV{PWD}/cvs-test/test.txt") 25 or die "Cannot open file `$ENV{PWD}/cvs-test/test.txt': $!"; 26print FILE "test\n"; 27close(FILE); 28 29$status = $cvs->status('test.txt', {multiple=>1})->first; # testing StatusList 30ok($status); 31 32ok($status->is_modified); 33ok($status->is_up2date); 34