/[A3C]/t/00-model-Person.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /t/00-model-Person.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 11 by dpavlin, Thu Mar 13 14:22:53 2008 UTC revision 42 by dpavlin, Sun Mar 30 16:58:21 2008 UTC
# Line 17  use_ok('A3C::Model::User'); Line 17  use_ok('A3C::Model::User');
17  my $system_user = A3C::CurrentUser->superuser;  my $system_user = A3C::CurrentUser->superuser;
18  ok($system_user, "Found a system user");  ok($system_user, "Found a system user");
19    
20    my $id;
21    
22    =for later
23    my $organization = A3C::Model::Organization->new(current_user => $system_user);
24    ($id) = $organization->create(
25            o => 'CARNet',
26            hrEduPersonHomeOrg => 'skole.hr',
27            postalAddress => 'Pere Perica b.b.',
28            l => 'Zagreb',
29    );
30    ok($id, "Organization create returned success");
31    =cut
32    
33  # Try testing a create  # Try testing a create
34  my $o = A3C::Model::User->new(current_user => $system_user);  my $o = A3C::Model::User->new(current_user => $system_user);
35  my ($id) = $o->create(  ($id) = $o->create(
36          sn => 'Foo',          uid => 42,
37          givenName => 'Bar',          hrEduPersonUniqueID => 42,
38            hrEduPersonExpireDate => '2042-12-30',
39            givenName => 'Foo',
40            sn => 'Bar',
41            cn => 'Foo Bar',
42          hrEduPersonUniqueNumber => 42,          hrEduPersonUniqueNumber => 42,
43          hrEduPersonAffiliation => 'suradnik',          hrEduPersonAffiliation => 'suradnik',
         o => 'CARNet',  
44          hrEduPersonHomeOrg => 'skole.hr',          hrEduPersonHomeOrg => 'skole.hr',
45          postalAddress => 'Pere Perica b.b.',  #       organization => $organization,
         l => 'Zagreb',  
46  );  );
47  ok($id, "User create returned success");  ok($id, "User create returned success");
48  ok($o->id, "New User has valid id set");  ok($o->id, "New User has valid id set");
# Line 35  is($o->id, $id, "Create returned the rig Line 50  is($o->id, $id, "Create returned the rig
50    
51  # And another  # And another
52  $o->create(  $o->create(
53          sn => 'Fooby',          uid => 1001,
54            hrEduPersonUniqueID => 1001,
55            hrEduPersonExpireDate => '1999-01-01',
56          givenName => 'Bary',          givenName => 'Bary',
57            sn => 'Fooby',
58            cn => 'Bary Fooby',
59          hrEduPersonUniqueNumber => 1001,          hrEduPersonUniqueNumber => 1001,
60          hrEduPersonAffiliation => 'gost',          hrEduPersonAffiliation => 'gost',
         o => 'CARNet',  
61          hrEduPersonHomeOrg => 'skole.hr',          hrEduPersonHomeOrg => 'skole.hr',
62          postalAddress => 'Pere Perica b.b.',  #       organization => $organization,
         l => 'Zagreb',  
63  );  );
64  ok($o->id, "User create returned another value");  ok($o->id, "User create returned another value");
65  isnt($o->id, $id, "And it is different from the previous one");  isnt($o->id, $id, "And it is different from the previous one");
Legend:
Removed from v.11  
changed lines
  Added in v.42
  ViewVC Help
Powered by ViewVC 1.1.26