1use strict;
2use Test;
3use Cwd;
4
5plan test => 6;
6
7use Cvs;
8ok(1);
9
10my $cvs = new Cvs cvsroot => cwd().'/cvs'
11  or die $Cvs::ERROR;
12ok($cvs);
13
14my $result = $cvs->rtag("test_$$", 'test');
15ok($result->success);
16
17my $cvs2 = new Cvs 'cvs-test';
18
19my $status = $cvs2->status('test.txt');
20ok($status->tags, 3);
21
22$result = $cvs->rtag("test_$$", 'test', {delete => 1});
23ok($result->success);
24
25$status = $cvs2->status('test.txt');
26ok($status->tags, 2);
27