Lines Matching refs:got
770 $test_body .= "my (\$error, \$got) = ${package}::constant (\$string);\n";
773 if ($error or $got ne $expect) {
774 print "not ok $test # error '$error', got '$got'\n";
787 $test_body .= "my (\$error, \$got) = ${package}::constant (\$string);\n";
790 if ($error or $got ne $expect) {
791 print "not ok $test # error '$error', got '$got'\n";
806 $test_body .= "my (\$error, \$got) = ${package}::constant (\$string);\n";
814 print "not ok $test # expected error, got no error and '$got'\n";
816 } elsif ($got ne $expect_bytes) {
817 print "not ok $test # error '$error', expect '$expect_bytes', got '$got'\n";
835 my (\$error, \$got) = ${package}::constant ('$string');\n;
841 if (\$error or \$got ne "$expect") {
842 print "not ok $dummytest # error '\$error', expect '$expect', got '\$got'\n";
854 print "not ok $dummytest # expected error, got no error and '\$got'\n";