package User::TestNewUser; use base qw(Test::Class); use Test::More; sub test_valid_user: Test { require_ok('Gallery3::IDM::User') or return 'cannot require Gallery3::IDM::User'; require Gallery3::IDM::User; my $u = new Gallery3::IDM::User(id=>1); is(defined($u), 1, 'creating_valid_user'); } 1;