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 studyperl(q{'123456789123456789.2' <=> '123456789123456790'}, "native big math float/int");
  15 studyperl(q{'123456789123456789.2' <=> '123456789123456790.0'}, "native big math float/float");
  16 studyperl(q{'123456789123456789' <=> '123456789123456790'}, "native big math int/int");
  17 studyperl(q{'123456789123456789123456789123456789' <=> '123456789123456789123456789123456790'}, "native big math int/int larger");
  18