defaultobj.t

来自「Software Testing Automation Framework (S」· T 代码 · 共 16 行

BEGIN { $| = 1; print "1..3\n"; }
END {print "not ok 1\n" unless $loaded;}
use PLSTAF;
$| = 1;
$loaded = 1;
print "ok 1\n";

my $result;
$_ = "ok";
my $staf = PLSTAF->new() or $_ = "not ok";
print "$_ 2\n";
$_ = "ok";
$result = $staf->Submit("LOCAL", "ping", "ping") or $_ = "not ok";
$_ = "not ok" unless ($result eq "PONG");
print "$_ 3\n";