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