/[A3C]/t/00-model-Organization.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-Organization.t

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

revision 41 by dpavlin, Tue Mar 18 19:03:53 2008 UTC revision 42 by dpavlin, Sun Mar 30 16:58:21 2008 UTC
# Line 20  ok($system_user, "Found a system user"); Line 20  ok($system_user, "Found a system user");
20  # Try testing a create  # Try testing a create
21  my $o = A3C::Model::Organization->new(current_user => $system_user);  my $o = A3C::Model::Organization->new(current_user => $system_user);
22  my ($id) = $o->create(  my ($id) = $o->create(
23            uid => 'carnet.hr',
24            hrEduOrgUniqueNumber => 42,
25          o => 'CARNet',          o => 'CARNet',
         hrEduPersonHomeOrg => 'skole.hr',  
26          postalAddress => 'Pere Perica b.b.',          postalAddress => 'Pere Perica b.b.',
27          l => 'Zagreb',          l => 'Zagreb',
28  );  );
# Line 31  is($o->id, $id, "Create returned the rig Line 32  is($o->id, $id, "Create returned the rig
32    
33  # And another  # And another
34  $o->create(  $o->create(
35            uid => 'os-test-zg',
36            hrEduOrgUniqueNumber => 11,
37          o => 'Osnovna skola',          o => 'Osnovna skola',
         hrEduPersonHomeOrg => 'skole.hr',  
38          postalAddress => 'Pere Perica b.b.',          postalAddress => 'Pere Perica b.b.',
39          l => 'Zagreb',          l => 'Zagreb',
40  );  );

Legend:
Removed from v.41  
changed lines
  Added in v.42

  ViewVC Help
Powered by ViewVC 1.1.26