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 {
|