--- t/00-model-User.t 2008/03/13 14:22:53 11 +++ t/00-model-User.t 2008/03/30 16:58:21 42 @@ -17,17 +17,32 @@ my $system_user = A3C::CurrentUser->superuser; ok($system_user, "Found a system user"); +my $id; + +=for later +my $organization = A3C::Model::Organization->new(current_user => $system_user); +($id) = $organization->create( + o => 'CARNet', + hrEduPersonHomeOrg => 'skole.hr', + postalAddress => 'Pere Perica b.b.', + l => 'Zagreb', +); +ok($id, "Organization create returned success"); +=cut + # Try testing a create my $o = A3C::Model::User->new(current_user => $system_user); -my ($id) = $o->create( - sn => 'Foo', - givenName => 'Bar', +($id) = $o->create( + uid => 42, + hrEduPersonUniqueID => 42, + hrEduPersonExpireDate => '2042-12-30', + givenName => 'Foo', + sn => 'Bar', + cn => 'Foo Bar', hrEduPersonUniqueNumber => 42, hrEduPersonAffiliation => 'suradnik', - o => 'CARNet', hrEduPersonHomeOrg => 'skole.hr', - postalAddress => 'Pere Perica b.b.', - l => 'Zagreb', +# organization => $organization, ); ok($id, "User create returned success"); ok($o->id, "New User has valid id set"); @@ -35,14 +50,16 @@ # And another $o->create( - sn => 'Fooby', + uid => 1001, + hrEduPersonUniqueID => 1001, + hrEduPersonExpireDate => '1999-01-01', givenName => 'Bary', + sn => 'Fooby', + cn => 'Bary Fooby', hrEduPersonUniqueNumber => 1001, hrEduPersonAffiliation => 'gost', - o => 'CARNet', hrEduPersonHomeOrg => 'skole.hr', - postalAddress => 'Pere Perica b.b.', - l => 'Zagreb', +# organization => $organization, ); ok($o->id, "User create returned another value"); isnt($o->id, $id, "And it is different from the previous one");