[Lxr-commits] CVS: lxr/tests CVSTest.pm,1.2,1.3

[Malcolm B. <mb...@us...>]

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 {