1use Test::More tests => 2; 2 3my $blib = $ENV{PERL_CORE} ? '-I../../lib' : '-Mblib'; 4 5my $pl = $0; 6$pl =~ s{t$}{pl}; 7 8my $out = `$^X $blib $pl Foo`; 9$out =~ s{\s+}{ }gs; 10$out =~ s{^\s+|\s+$}{}gs; 11is($out, 'Foo: This is foo', 'selection of Foo section'); 12 13$out = `$^X $blib $pl Bar`; 14$out =~ s{\s+}{ }gs; 15$out =~ s{^\s+|\s+$}{}gs; 16is($out, 'Bar: This is bar.', 'selection of Bar section'); 17 18