#!/usr/bin/perl
use strict;
use warnings;
use Test::More 'tests' => 3;
BEGIN {
# Test 1 - Ensure that the CGI::Upload module can be loaded
use_ok( 'CGI::Upload' );
}
# Test 2 - Create a new object and confirm its inheritance as CGI::Upload
# object
my $object = CGI::Upload->new;
isa_ok( $object, 'CGI::Upload' );
eval {
CGI::Upload->new(query => "CGI");
};
like($@, qr{Argument to new should be a HASH reference}, "Carp when new called with bad parameters");