The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
INGY / TestML-0.51 / t / testml / assertions.tml 
%TestML 0.1.0

Plan = 6

Label = 'EQ tests'
'The cat in the hat'.EQ('The cat in the hat')
'The cat in the hat' == 'The cat in the hat'

Label = 'HAS tests'
'The cat in the hat'.HAS('cat')
'The cat in the hat' ~~ 'hat'

Label = 'OK tests'
'The cat in the hat'.OK
'The cat in the hat'.OK()