Cross Reference: libnet_t.pl
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
lib
/
Net
/
t
/
libnet_t.pl
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
1
N/A
1
N/A
my
$
number
=
0
;
1
N/A
sub
ok
{
1
N/A
my
($
condition
, $
name
) = @_;
1
N/A
1
N/A
my
$
message
= $
condition
?
"ok "
:
"not ok "
;
1
N/A
$
message
.= ++$
number
;
1
N/A
$
message
.=
" # $name"
if
defined
$
name
;
1
N/A
print
$
message
,
"\n"
;
1
N/A
return
$
condition
;
1
N/A
}
1
N/A
1
N/A
sub
is
{
1
N/A
my
($
got
, $
expected
, $
name
) = @_;
1
N/A
1
N/A
for
($
got
, $
expected
) {
1
N/A
$_ =
'undef'
unless
defined
$_;
1
N/A
}
1
N/A
1
N/A
unless
(
ok
($
got
eq
$
expected
, $
name
)) {
1
N/A
warn
"Got: '$got'\nExpected: '$expected'\n"
.
join
(
' '
,
caller
) .
"\n"
;
1
N/A
}
1
N/A
}
1
N/A
1
N/A
sub
skip
{
1
N/A
my
($
reason
, $
num
) = @_;
1
N/A
$
reason
||=
''
;
1
N/A
$
number
||=
1
;
1
N/A
1
N/A
for
(
1
.. $
num
) {
1
N/A
$
number
++;
1
N/A
print
"ok $number # skip $reason\n"
;
1
N/A
}
1
N/A
}
1
N/A
1
N/A
1
;
1
N/A