Test::Simple

  • ok()
use Test::Simple tests => 1;
ok( $foo eq $bar, 'foo is bar' );
  • That's it!