# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 1.t'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use
Test;
BEGIN {
plan(
tests
=> 7 );
$^W = 1;
}
use
B::Keywords;
#########################
ok(
scalar
@B::Keywords::Scalars
);
ok(
scalar
@B::Keywords::Arrays
);
ok(
scalar
@B::Keywords::Hashes
);
ok(
scalar
@B::Keywords::Filehandles
);
ok(
scalar
@B::Keywords::Symbols
);
ok(
scalar
@B::Keywords::Functions
);
ok(
scalar
@B::Keywords::Barewords
);