--- t/00-model-User.t 2008/03/09 22:39:58 2 +++ t/00-model-User.t 2008/03/13 12:09:06 6 @@ -19,13 +19,31 @@ # Try testing a create my $o = CAdmin::Model::User->new(current_user => $system_user); -my ($id) = $o->create(); +my ($id) = $o->create( + sn => 'Foo', + givenName => 'Bar', + hrEduPersonUniqueNumber => 42, + hrEduPersonAffiliation => 'suradnik', + o => 'CARNet', + hrEduPersonHomeOrg => 'skole.hr', + postalAddress => 'Pere Perica b.b.', + l => 'Zagreb', +); ok($id, "User create returned success"); ok($o->id, "New User has valid id set"); is($o->id, $id, "Create returned the right id"); # And another -$o->create(); +$o->create( + sn => 'Fooby', + givenName => 'Bary', + hrEduPersonUniqueNumber => 1001, + hrEduPersonAffiliation => 'gost', + o => 'CARNet', + hrEduPersonHomeOrg => 'skole.hr', + postalAddress => 'Pere Perica b.b.', + l => 'Zagreb', +); ok($o->id, "User create returned another value"); isnt($o->id, $id, "And it is different from the previous one");