projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Upgrade to Devel::PPPort 3.00.
[p5sagit/p5-mst-13.2.git]
/
ext
/
Devel
/
PPPort
/
t
/
testutil.pl
1
{
2
my $__ntest;
3
4
sub ok ($;$$) {
5
local($\,$,);
6
my $ok = 0;
7
my $result = shift;
8
if (@_ == 0) {
9
$ok = $result;
10
} else {
11
$expected = shift;
12
if (!defined $expected) {
13
$ok = !defined $result;
14
} elsif (!defined $result) {
15
$ok = 0;
16
} elsif (ref($expected) eq 'Regexp') {
17
$ok = $result =~ /$expected/;
18
} else {
19
$ok = $result eq $expected;
20
}
21
}
22
++$__ntest;
23
if ($ok) {
24
print "ok $__ntest\n"
25
}
26
else {
27
print "not ok $__ntest\n"
28
}
29
}
30
}
31
32
1;