t/studyperl.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5 use Test::More qw(no_plan);
   6 use Acme::Study::Perl qw(studyperl);
   7
   8 SKIP: {
   9     diag("no tests in this file, only diagnostics");
  10     skip;
  11 }
  12
  13 diag("\n");
  14 my @tests =
  15     (
  16      [q{'123456789123456789.2' <=> '123456789123456790'},
  17       "native big math float/int"],
  18      [q{'123456789123456789.2' <=> '123456789123456790.0'},
  19       "native big math float/float"],
  20      [q{'123456789123456789' <=> '123456789123456790'},
  21       "native big math int/int 18"],
  22      [q{'123456789123456789123456789123456789' <=> '123456789123456789123456789123456790'},
  23       "native big math int/int 36"],
  24      [q{sqrt(-1e-309)},
  25       "negative square root"],
  26     );
  27 for my $t (@tests) {
  28     studyperl(@$t);
  29 }
  30