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