1use strict;
2use warnings;
3use Pod::Simple::Search;
4use Test::More tests => 2;
5
6print "# ", __FILE__,
7 ": Testing limit_glob ...\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->shadows(1);
14
15use File::Spec;
16use Cwd ();
17use File::Basename ();
18
19my $t_dir = File::Basename::dirname(Cwd::abs_path(__FILE__));
20
21my $here1 = File::Spec->catdir($t_dir, 'testlib1');
22my $here2 = File::Spec->catdir($t_dir, 'testlib2');
23my $here3 = File::Spec->catdir($t_dir, 'testlib3');
24
25print "# OK, found the test corpora\n#  as $here1\n# and $here2\n# and $here3\n#\n";
26
27print $x->_state_as_string;
28#$x->verbose(12);
29
30use Pod::Simple;
31*pretty = \&Pod::Simple::BlackBox::pretty;
32
33my $glob = '*z*k*';
34print "# Limiting to $glob\n";
35$x->limit_glob($glob);
36
37my($name2where, $where2name) = $x->survey($here1, $here2, $here3);
38
39my $p = pretty( $where2name, $name2where )."\n";
40$p =~ s/, +/,\n/g;
41$p =~ s/^/#  /mg;
42print $p;
43
44require File::Spec->catfile($t_dir, 'ascii_order.pl');
45
46{
47my $names = join "|", sort ascii_order values %$where2name;
48is $names, "Zonk::Pronk|perlzuk|zikzik";
49}
50