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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
|
#!perl
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
}
use File::Basename;
use File::Spec;
use Test::More;
plan tests => 9;
use_ok( 'Pod::Functions' );
# How do you test exported vars?
my( $pkg_ref, $exp_ref ) = ( \%Pod::Functions::Kinds, \%Kinds );
is( $pkg_ref, $exp_ref, '%Pod::Functions::Kinds exported' );
( $pkg_ref, $exp_ref ) = ( \%Pod::Functions::Type, \%Type );
is( $pkg_ref, $exp_ref, '%Pod::Functions::Type exported' );
( $pkg_ref, $exp_ref ) = ( \%Pod::Functions::Flavor, \%Flavor );
is( $pkg_ref, $exp_ref, '%Pod::Functions::Flavor exported' );
( $pkg_ref, $exp_ref ) = ( \%Pod::Functions::Type_Description,
\%Type_Description );
is( $pkg_ref, $exp_ref, '%Pod::Functions::Type_Description exported' );
( $pkg_ref, $exp_ref ) = ( \@Pod::Functions::Type_Order, \@Type_Order );
is( $pkg_ref, $exp_ref, '@Pod::Functions::Type_Order exported' );
# Check @Type_Order
my @catagories = qw(
String Regexp Math ARRAY LIST HASH I/O
Binary File Flow Switch Namespace Misc Process
Modules Objects Socket SysV User Network Time
);
ok( eq_array( \@Type_Order, \@catagories ),
'@Type_Order' );
my @cat_keys = grep exists $Type_Description{ $_ } => @Type_Order;
ok( eq_array( \@cat_keys, \@catagories ),
'keys() %Type_Description' );
my( undef, $path ) = fileparse( $0 );
my $pod_functions = File::Spec->catfile(
$path, File::Spec->updir, 'Functions.pm' );
SKIP: {
my $test_out = do { local $/; <DATA> };
skip( "Can't fork '$^X': $!", 1)
unless open my $fh, qq[$^X "-I../lib" $pod_functions |];
my $fake_out = do { local $/; <$fh> };
skip( "Pipe error: $!", 1)
unless close $fh;
is( $fake_out, $test_out, 'run as plain program' );
}
=head1 NAME
Functions.t - Test Pod::Functions
=head1 AUTHOR
20011229 Abe Timmerman <abe@ztreet.demon.nl>
=cut
__DATA__
Functions for SCALARs or strings:
chomp, chop, chr, crypt, fc, hex, index, lc, lcfirst,
length, oct, ord, pack, q/STRING/, qq/STRING/, reverse,
rindex, sprintf, substr, tr///, uc, ucfirst, y///
Regular expressions and pattern matching:
m//, pos, qr/STRING/, quotemeta, s///, split, study
Numeric functions:
abs, atan2, cos, exp, hex, int, log, oct, rand, sin, sqrt,
srand
Functions for real @ARRAYs:
each, keys, pop, push, shift, splice, unshift, values
Functions for list data:
grep, join, map, qw/STRING/, reverse, sort, unpack
Functions for real %HASHes:
delete, each, exists, keys, values
Input and output functions:
binmode, close, closedir, dbmclose, dbmopen, die, eof,
fileno, flock, format, getc, print, printf, read, readdir,
readline, rewinddir, say, seek, seekdir, select, syscall,
sysread, sysseek, syswrite, tell, telldir, truncate, warn,
write
Functions for fixed-length data or records:
pack, read, syscall, sysread, sysseek, syswrite, unpack,
vec
Functions for filehandles, files, or directories:
-X, chdir, chmod, chown, chroot, fcntl, glob, ioctl, link,
lstat, mkdir, open, opendir, readlink, rename, rmdir,
stat, symlink, sysopen, umask, unlink, utime
Keywords related to the control flow of your Perl program:
__FILE__, __LINE__, __PACKAGE__, __SUB__, caller,
continue, die, do, dump, eval, evalbytes, exit, goto,
last, next, prototype, redo, return, sub, wantarray
Keywords related to the switch feature:
break, continue, default, given, when
Keywords related to scoping:
caller, import, local, my, our, package, state, use
Miscellaneous functions:
defined, dump, eval, evalbytes, formline, local, lock, my,
our, prototype, reset, scalar, state, undef, wantarray
Functions for processes and process groups:
alarm, exec, fork, getpgrp, getppid, getpriority, kill,
pipe, qx/STRING/, readpipe, setpgrp, setpriority, sleep,
system, times, wait, waitpid
Keywords related to Perl modules:
do, import, no, package, require, use
Keywords related to classes and object-orientation:
bless, dbmclose, dbmopen, package, ref, tie, tied, untie,
use
Low-level socket functions:
accept, bind, connect, getpeername, getsockname,
getsockopt, listen, recv, send, setsockopt, shutdown,
socket, socketpair
System V interprocess communication functions:
msgctl, msgget, msgrcv, msgsnd, semctl, semget, semop,
shmctl, shmget, shmread, shmwrite
Fetching user and group info:
endgrent, endhostent, endnetent, endpwent, getgrent,
getgrgid, getgrnam, getlogin, getpwent, getpwnam,
getpwuid, setgrent, setpwent
Fetching network info:
endprotoent, endservent, gethostbyaddr, gethostbyname,
gethostent, getnetbyaddr, getnetbyname, getnetent,
getprotobyname, getprotobynumber, getprotoent,
getservbyname, getservbyport, getservent, sethostent,
setnetent, setprotoent, setservent
Time-related functions:
gmtime, localtime, time, times
|
