This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Some simple tests for the POSIX::isXXX() functions.
[perl5.git] / ext / B / t / b.t
CommitLineData
ccc418af
GS
1#!./perl
2
3BEGIN {
4 chdir 't' if -d 't';
1b026014
NIS
5 if ($^O eq 'MacOS') {
6 @INC = qw(: ::lib ::macos:lib);
7 } else {
8 @INC = '.';
9 push @INC, '../lib';
db5fd395 10 }
ccc418af
GS
11}
12
13$| = 1;
14use warnings;
15use strict;
16use Config;
17
87a42246 18print "1..2\n";
ccc418af
GS
19
20my $test = 1;
21
22sub ok { print "ok $test\n"; $test++ }
23
87a42246 24use B;
ccc418af 25
08c6f5ec 26
87a42246
MS
27package Testing::Symtable;
28use vars qw($This @That %wibble $moo %moo);
29my $not_a_sym = 'moo';
ccc418af 30
87a42246
MS
31sub moo { 42 }
32sub car { 23 }
ccc418af 33
f70490b9 34
87a42246
MS
35package Testing::Symtable::Foo;
36sub yarrow { "Hock" }
f70490b9 37
87a42246
MS
38package Testing::Symtable::Bar;
39sub hock { "yarrow" }
9b86dfa2 40
87a42246
MS
41package main;
42use vars qw(%Subs);
43local %Subs = ();
44B::walksymtable(\%Testing::Symtable::, 'find_syms', sub { $_[0] =~ /Foo/ },
45 'Testing::Symtable::');
ccc418af 46
87a42246
MS
47sub B::GV::find_syms {
48 my($symbol) = @_;
de3f1649 49
87a42246 50 $main::Subs{$symbol->STASH->NAME . '::' . $symbol->NAME}++;
cfe9256d 51}
ccc418af 52
87a42246
MS
53my @syms = map { 'Testing::Symtable::'.$_ } qw(This That wibble moo car
54 BEGIN);
55push @syms, "Testing::Symtable::Foo::yarrow";
ccc418af 56
87a42246
MS
57# Make sure we hit all the expected symbols.
58print "not " unless join('', sort @syms) eq join('', sort keys %Subs);
ccc418af 59ok;
1e1dbab6 60
87a42246
MS
61# Make sure we only hit them each once.
62print "not " unless !grep $_ != 1, values %Subs;
1e1dbab6 63ok;