Source/Test/ROBOTest.pm

   1 use strict;
   2 package ROBOTest;
   3
   4 my $ok = 1;
   5 my $name = "unknown";
   6
   7 sub start {
   8     $name = shift;
   9 #    printf("%-50s", $name);
  10 }
  11
  12 sub assertNotDir {
  13     my $filename = shift;
  14     assert( !( -d $filename ), "Directory $filename does not exists");
  15 }
  16
  17 sub assertDir {
  18     my $filename = shift;
  19     assert( -d $filename, "Directory $filename exists");
  20 }
  21
  22 sub assertNotFile {
  23     my $filename = shift;
  24     assert( !( -f $filename ), "File $filename does not exists");
  25 }
  26
  27 sub assertFile {
  28     my $filename = shift;
  29     assert( -f $filename, "File $filename exists");
  30 }
  31
  32 sub assert {
  33     my $arg_ok = shift;
  34     my $title = shift;
  35     printf("%-32s", $name);
  36     if ($title) {
  37         printf("%-40s", $title);
  38     } else {
  39         printf("%-40s", "--");
  40     }
  41     if ($arg_ok) {
  42         print "  OK\n";
  43     } else {
  44         print "  FAIL\n";
  45     }
  46 }
  47
  48 sub finish {
  49 #    if ($ok) {
  50 #        print "OK\n";
  51 #    } else {
  52 #        print "FAIL\n";
  53 #    }
  54 }
  55
  56 1;
  57