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;

#!/usr/bin/perl
use User::TestNewUser;

# run all the test methods in Example::Test
Test::Class->runtests;

D:\chr\Documents\Eclipse Workspace\gallery3\cgi-bin\t>perl TestUser.t
1..1
not ok 1 - require Gallery3::IDM::User;
#   Failed test 'require Gallery3::IDM::User;'
#   at User/TestNewUser.pm line 8.
#   (in User::TestNewUser->test_valid_user)
#     Tried to require 'Gallery3::IDM::User'.
#     Error:  Can't locate Gallery3/IDM/User.pm in @INC (@INC contains: C:/strawberry/perl/site/lib C:/strawberry/perl/vendor/lib C:/strawberry/perl/lib .) at (
eval 12) line 2.
# Looks like you failed 1 test of 1.