/[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 18 by dpavlin, Thu Mar 13 19:26:56 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::User->new(current_user => $system_user);  my $o = A3C::Model::User->new(current_user => $system_user);
22  my ($id) = $o->create(  my ($id) = $o->create(
23            uid => 42,
24            hrEduPersonUniqueID => 42,
25            hrEduPersonExpireDate => '2042-12-30',
26          sn => 'Foo',          sn => 'Foo',
27          givenName => 'Bar',          givenName => 'Bar',
28          hrEduPersonUniqueNumber => 42,          hrEduPersonUniqueNumber => 42,
# Line 35  is($o->id, $id, "Create returned the rig Line 38  is($o->id, $id, "Create returned the rig
38    
39  # And another  # And another
40  $o->create(  $o->create(
41            uid => 1001,
42            hrEduPersonUniqueID => 1001,
43            hrEduPersonExpireDate => '1999-01-01',
44          sn => 'Fooby',          sn => 'Fooby',
45          givenName => 'Bary',          givenName => 'Bary',
46          hrEduPersonUniqueNumber => 1001,          hrEduPersonUniqueNumber => 1001,

Legend:
Removed from v.11  
changed lines
  Added in v.18

  ViewVC Help
Powered by ViewVC 1.1.26