[Lxr-commits] CVS: lxr/tests SecurityTest.pm,1.3,1.4

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

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

Modified Files:
	SecurityTest.pm 
Log Message:
Fix Bug 1230443: Two letter directories fail.

Fix the various regexps in Common.pm

Index: SecurityTest.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/tests/SecurityTest.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- SecurityTest.pm	15 May 2005 22:55:23 -0000	1.3
+++ SecurityTest.pm	9 Sep 2005 22:06:18 -0000	1.4
@@ -143,6 +143,14 @@
 	$SIG{'__WARN__'} = $warn;
 	$self->assert($pathname eq '/a/test/path+!/some/%chars,v', "pathname not washed, got $pathname");
 	
+	$ENV{'PATH_INFO'} = '/ab/-/path+!/some/%chars,v';
+	$ENV{'QUERY_STRING'} = '';
+	$die = $SIG{'__DIE__'};
+	$warn = $SIG{'__WARN__'};
+	httpinit;
+	$SIG{'__DIE__'} = $die;
+	$SIG{'__WARN__'} = $warn;
+	$self->assert($pathname eq '/ab/-/path+!/some/%chars,v', "pathname not washed, got $pathname");
 }
 
 sub test_filename_compat {