Lines Matching refs:got
197 skip("Couldn't generate infinity - got error '$@'", 1)
219 skip("Couldn't generate 2**1023 - got error '$@'", 3)
371 my $got = $what eq 'u' ? (unpack $template, $in) : (pack $template, $in);
372 unless (is($got, $out)) {
375 ' not '._qq($got)."\n";
418 # is using UV maths, and we've only got NVs.
736 my $got = eval {pack $template, @in};
738 is($out, $got) ||
740 encode_list (@in), encode_list ($got), encode_list ($out);
755 my @got = eval {unpack $template, $in};
757 ok (list_eq (\@got, \@out)) ||
759 _qq($in), encode_list (@got), encode_list (@out);
761 my $got = eval {unpack $template, $in};
763 @out ? is( $got, $out[0] ) # 1 or more items; should get first
764 : ok( !defined $got ) # 0 items; should get undef
766 _qq($in), encode_list ($got), encode_list ($out[0]);