1de8cc8edSafresh1use strict; 2256a93a4Safresh1use warnings; 3de8cc8edSafresh1use Pod::Simple::Search; 4*5486feefSafresh1use Test::More tests => 3; 5de8cc8edSafresh1 6de8cc8edSafresh1print "# ", __FILE__, 7de8cc8edSafresh1 ": Testing forced case sensitivity ...\n"; 8de8cc8edSafresh1 9de8cc8edSafresh1my $x = Pod::Simple::Search->new; 10de8cc8edSafresh1die "Couldn't make an object!?" unless ok defined $x; 11de8cc8edSafresh1 12de8cc8edSafresh1$x->inc(0); 13de8cc8edSafresh1$x->is_case_insensitive(0); 14de8cc8edSafresh1 15de8cc8edSafresh1use File::Spec; 16*5486feefSafresh1use Cwd (); 17*5486feefSafresh1use File::Basename (); 18de8cc8edSafresh1 19*5486feefSafresh1my $t_dir = File::Basename::dirname(Cwd::abs_path(__FILE__)); 20de8cc8edSafresh1 21*5486feefSafresh1my $A = File::Spec->catdir($t_dir, 'search60', 'A'); 22*5486feefSafresh1my $B = File::Spec->catdir($t_dir, 'search60', 'B'); 23de8cc8edSafresh1 24de8cc8edSafresh1print "# OK, found the test corpora\n# as $A\n# and $B\n#\n"; 25de8cc8edSafresh1 26de8cc8edSafresh1my($name2where, $where2name) = $x->survey($A, $B); 27*5486feefSafresh1like ($name2where->{x}, qr{^\Q$A\E[\\/]x\.pod$}); 28de8cc8edSafresh1 29*5486feefSafresh1like ($name2where->{X}, qr{^\Q$B\E[\\/]X\.pod$}); 30