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