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