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