$self->assert($case =~ /test text/, "warning message here");

##</code><code>##

my $result = $case =~ /test text/;
$self->assert($result, "warning message");