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 |
); |
); |
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 |
); |
); |