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