/swatch-3.2.3/t/01cpan_modules.t

# · Raku · 16 lines · 10 code · 6 blank · 0 comment · 1 complexity · ad55be069e72c23de1f2b7a53b20af8c MD5 · raw file

  1. BEGIN { $| = 1; $tx=1; print "1..1\n"; }
  2. END {print "not ok 1\n" unless $loaded;}
  3. use Time::HiRes 1.12;
  4. use Date::Calc;
  5. use Date::Format;
  6. use File::Tail;
  7. $loaded=1;
  8. sub ok { print "ok $tx\n"; $tx++; }
  9. sub not_ok { print "not ok $tx\n"; $tx++; }
  10. ok;