Lines Matching refs:mess

45     my @mess = map { /^#/ ? "$_\n" : "# $_\n" } 
48     print $fh @mess;
62     my ($pass, $where, $name, @mess) = @_;
82     _diag @mess;
96     my ($pass, $name, @mess) = @_;
97     _ok($pass, _where(), $name, @mess);
146     my ($got, $expected, $name, @mess) = @_;
158 	unshift(@mess, "#      got "._q($got)."\n",
161     _ok($pass, _where(), $name, @mess);
165     my ($got, $isnt, $name, @mess) = @_;
177         unshift(@mess, "# it should not be "._q($got)."\n",
180     _ok($pass, _where(), $name, @mess);
184     my($got, $type, $expected, $name, @mess) = @_;
202             unshift @mess, "# $got - $expected = " . ($got - $expected) . "\n";
204         unshift(@mess, "#      got "._q($got)."\n",
207     _ok($pass, _where(), $name, @mess);
217     my ($got, $expected, $range, $name, @mess) = @_;
223         unshift @mess, "# got, expected and range must be numeric\n";
226         unshift @mess, "# range must not be negative\n";
239             unshift @mess, "# $got - $expected = " . ($got - $expected) . "\n";
241 	unshift@mess, "#      got "._q($got)."\n",
244     _ok($pass, _where(), $name, @mess);
253     my ($flip, $got, $expected, $name, @mess) = @_;
258 	unshift(@mess, "#      got '$got'\n",
262     _ok($pass, _where(), $name, @mess);