#!perl -T

use warnings;
use strict;

use Test::More tests => 4;

use Carp::Assert::More;

use Test::Exception;

lives_ok( sub { assert_defined( 3 ); }, '3 is defined' );
lives_ok( sub { assert_defined( 0 ); }, '0 is false but defined' );
lives_ok( sub { assert_defined( '' ); }, 'blank is false but defined' );
throws_ok( sub { assert_defined( undef, 'Flargle' ); }, qr/\QAssertion (Flargle) failed!/, 'undef is not defined' );