/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. 

  2. END {print "not ok 1\n" unless $loaded;}
    3. 

  3. 

  4. use Time::HiRes 1.12;
    5. 

  5. use Date::Calc;
    6. 

  6. use Date::Format;
    7. 

  7. use File::Tail;
    8. 

  8. 

  9. $loaded=1;
    10. 

  10. 

  11. sub ok { print "ok $tx\n"; $tx++; }
    12. 

  12. sub not_ok { print "not ok $tx\n"; $tx++; }
    13. 

  13. 

  14. ok;
    15.