Help for this page

Select Code to Download


  1. or download this
    $ cat 691617.pl
#!/usr/bin/perl
...
All tests successful.
Files=1, Tests=7,  1 wallclock secs ( 0.37 cusr +  0.05 csys =  0.42 C
+PU)
$
  2. or download this
    use strict;
use warnings;
...
1;

__END__
  3. or download this
    use strict;
use warnings;
...
cmp_ok(do_that(), '==', 6, 'expect do_that() to return 6)');

__END__
  4. or download this
    $ prove foo.t
foo....ok
All tests successful.
Files=1, Tests=3,  1 wallclock secs ( 0.04 cusr +  0.01 csys =  0.05 C
+PU)