From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

SBECK / Test-Inter-1.12 / examples / use_ok 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

              
#!/usr/bin/perl
use strict;
use warnings;
our($o);
BEGIN {
  print "The first test will fail, all others will be skipped.\n\n";
  use Test::Inter;
  $o = new Test::Inter;
}
BEGIN { $o->use_ok('Xxx::Yyy'); }
$o->ok();
$o->ok( 1 == 1 );
$o->ok( 1 == 2 );
$o->done_testing();