File: 10basic.t

package info (click to toggle)
libb-keywords-perl 1.08-2
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 68 kB
  • ctags: 8
  • sloc: perl: 381; makefile: 43
file content (26 lines) | stat: -rw-r--r-- 611 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
# 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 lib qw( ../lib lib );
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 );