1#!perl -Tw 2 3use warnings; 4use strict; 5 6use Test::More tests => 1; 7 8use Carp::Assert::More; 9 10eval { 11 assert_fail( "Everything is broken!" ); 12}; 13like( $@, qr/Everything is broken!/ ); 14