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