tap/tests/ok/ok-hash/test.pl

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use Test::More;
   7
   8 my $rc = 0;
   9
  10 $rc = plan tests => 4;
  11 diag("Returned: " . sprintf("%d", $rc));
  12
  13
  14 $rc = ok(1, 'Test with no hash');
  15 diag("Returned: $rc");
  16
  17 $rc = ok(1, 'Test with one # hash');
  18 diag("Returned: $rc");
  19
  20 $rc = ok(1, 'Test with # two # hashes');
  21 diag("Returned: $rc");
  22
  23 $rc = ok(1, 'Test with ## back to back hashes');
  24 diag("Returned: $rc");