Lines Matching refs:got
13 my ($got, $expected, $name) = @_;
23 if (defined $got) {
24 print "# Got '$got'\n";
33 my ($got, $pattern, $name) = @_;
35 if (defined $got && $got =~ $pattern) {
46 failed($got, $pattern, $name);
50 my ($got, $expect, $name) = @_;
52 if (defined $got && $got eq $expect) {
61 failed($got, "'$expect'", $name);
65 my ($got, $expect, $name) = @_;
67 if (defined $got && $got ne $expect) {
76 failed($got, "not '$expect'", $name);