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

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

Update of /cvsroot/lxr/lxr/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10802/lxr/tests

Modified Files:
	ConfigTest.pm 
Log Message:
Fix for [ 1277254 ] --url option needs better help

Produce better error messages if we can't find a configuration.

Index: ConfigTest.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/tests/ConfigTest.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- ConfigTest.pm	6 Sep 2004 21:54:45 -0000	1.2
+++ ConfigTest.pm	10 Sep 2005 00:09:20 -0000	1.3
@@ -52,6 +52,15 @@
 	$self->assert($#vars == 1, "Too many variables returned got " . $self->{config}->allvariables());
 }
 
+sub test_config_error {
+	my $self = shift;
+	my $t;
+	
+	eval {new LXR::Config("/a/path", "./lxr.conf")};
+	$t = $@;
+	$self->assert(defined($t), "Didn't fail to find config");
+	$self->assert_matches(qr/--url parameter should be a URL \(e\.g\. http:/, $t);
+}
 
 # set_up and tear_down are used to
 # prepare and release resources need for testing