6 print "assert_eq($p, Bigfloats.pack(Bigfloats.unpack($p as any)));\n";
9 my $sre = qr{\"[^"]+\"};
12 // autogenerated from $0 @ARGV
17 next unless m/^mod test/..0;
19 $l =~ s{bf\(($sre)\)}{ chk_repr($1) }ge;
21 if (m{^ +fn addition}..m{^ +\#\[test\]}) {
22 if (m{^ +mk\(($sre)\)}) {
24 } elsif (m{^ +\.chk\((\w+),\s*($sre)\)\s*$}) {
25 print "mk = Bigfloats.add(mk, $1); assert_eq(mk, $2);\n";