#!/usr/bin/perl

use warnings;
use strict;

use Test::More 'no_plan';
use IO::File; # just for creating objects

BEGIN { use_ok( 'Carp::Assert::More' ); }

local $@;
$@ = '';

eval {
    my $fh = new IO::File;
    assert_isa( $fh, 'IO::File', 'Created an IO::File object' );
};
is( $@, '' );

eval {
    my $random = 2112;
    assert_isa( $random, 'IO::File', 'Created an IO::File object' );
};
like( $@, qr/Assertion.*failed/ );
