Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use Test::Simple (tests => 9);
...
&ok(scalar(%hash), "Not empty: scalar");
&ok(scalar(%hash) != 0, "Not empty: scalar != 0");
&ok((keys(%hash) ? 1 : 0),"Not empty: keys");
  2. or download this
    1..9
ok 1 - Version = v5.32.1
...
ok 7 - Not empty: scalar
ok 8 - Not empty: scalar != 0
ok 9 - Not empty: keys