Help for this page
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"}
>perl tls.pl $res: 53 (expected 201) not ok 1 ok 2
>perl tls.pl ok 1 ok 2