bin/generate-tests

   1 #!/usr/bin/perl
   2 @files = glob('FS/*.pm');
   3 foreach (@files) {
   4 #  warn $_;
   5   chomp;
   6   s/^FS\///;
   7   $f=$_;
   8   $f=~s/pm$/t/;
   9   $m=$_;
  10   $m=~s/\.pm$//;
  11   open(TEST,">t/$f");
  12   print "t/$f\n";
  13   print TEST
  14              'BEGIN { $| = 1; print "1..1\n" }'. "\n".
  15              'END {print "not ok 1\n" unless $loaded;}'. "\n".
  16              "use FS::$m;\n".
  17              '$loaded=1;'. "\n".
  18              'print "ok 1\n";'. "\n"
  19              ;
  20   close TEST;
  21 }