Help for this page

Select Code to Download


  1. or download this
    use warnings;
    use strict;
    ...
    
    if(Rmpfr_get_default_prec() == 101) { print "ok 2\n" }
    else { print "\$res: $res\nprec: ", Rmpfr_get_default_prec(), "\nNOT o
    +k 2\n"}
    
  2. or download this
    >perl tls.pl
    $res: 53 (expected 201) not ok 1
    ok 2
    
  3. or download this
    >perl tls.pl
    ok 1
    ok 2