Update of /cvsroot/lxr/lxr/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19073/lxr/tests
Modified Files:
CVSTest.pm
Log Message:
ectags update for new language types (JBG)
Index: CVSTest.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/tests/CVSTest.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- CVSTest.pm 5 May 2005 22:01:34 -0000 1.2
+++ CVSTest.pm 4 Apr 2006 22:23:44 -0000 1.3
@@ -50,7 +50,7 @@
$self->{'cvs'}->{'path'} = '';
my $t;
- my $ret = eval($t = $self->{'cvs'}->getfilehandle('tests/CVSTest.pm','release'));
+ my $ret = eval($t = $self->{'cvs'}->getfilehandle('INSTALL','release'));
$self->assert(!defined($ret) or !defined($t), 'Getfilehandle should die');
}
@@ -61,11 +61,12 @@
# Prepare a CVS object
sub set_up {
my $self = shift;
- my $dir = getcwd;
- $dir = File::Spec->updir($dir);
+
+ # This test module relies on the CVSROOT env variable pointing to a test CVS repository
+ $self->assert(defined($ENV{'CVSROOT'}), 'CVSROOT must be defined');
- $self->{'cvs'} = new LXR::Files("cvs:$dir");
- $self->{'config'}->{'dir'} = "$dir/";
+ $self->{'cvs'} = new LXR::Files("cvs:$ENV{'CVSROOT'}");
+ $self->{'config'}->{'dir'} = "$ENV{'CVSROOT'}/";
}
sub tear_down {
|
