1#!perl -Tw 2 3use warnings; 4use strict; 5 6use Test::More tests => 8; 7 8use Carp::Assert::More; 9 10use Test::Exception; 11 12throws_ok { assert_is( 4, 3 ) } qr/Assertion.*failed/, "4 is not 3"; 13throws_ok { assert_is( undef, "" ) } qr/Assertion.*failed/, "Undef is not space"; 14throws_ok { assert_is( "", undef ) } qr/Assertion.*failed/, "Space is not undef"; 15 16lives_ok { assert_is( undef, undef ) } "Undef only matches undef"; 17lives_ok { assert_is( "a", "a" ) } "a is a"; 18lives_ok { assert_is( 4, 4 ) } "4 is 4"; 19lives_ok { assert_is( "", "" ) } "space is space"; 20lives_ok { assert_is( "14", 14 ) } "14 is 14 as strings"; 21