/[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

t/00-model-User.t revision 32 by dpavlin, Tue Mar 18 19:03:53 2008 UTC t/00-model-Person.t revision 150 by dpavlin, Tue Jun 3 19:29:36 2008 UTC
# Line 4  use strict; Line 4  use strict;
4    
5  =head1 DESCRIPTION  =head1 DESCRIPTION
6    
7  A basic test harness for the User model.  A basic test harness for the Person model.
8    
9  =cut  =cut
10    
11  use Jifty::Test tests => 12;  use Jifty::Test tests => 11;
12    
13  # Make sure we can load the model  # Make sure we can load the model
14  use_ok('A3C::Model::User');  use_ok('A3C::Model::Person');
15    
16  # Grab a system user  # Grab a system 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);  my $organization = A3C::Model::Organization->new(current_user => $system_user);
24  my ($id) = $organization->create(  ($id) = $organization->create(
25          o => 'CARNet',          o => 'CARNet',
26          hrEduPersonHomeOrg => 'skole.hr',          hrEduPersonHomeOrg => 'skole.hr',
27          postalAddress => 'Pere Perica b.b.',          postalAddress => 'Pere Perica b.b.',
28          l => 'Zagreb',          l => 'Zagreb',
29  );  );
30  ok($id, "Organization create returned success");  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::Person->new(current_user => $system_user);
35  ($id) = $o->create(  ($id) = $o->create(
36          uid => 42,          uid => 42,
37          hrEduPersonUniqueID => 42,          hrEduPersonUniqueID => 42,
# Line 37  my $o = A3C::Model::User->new(current_us Line 41  my $o = A3C::Model::User->new(current_us
41          cn => 'Foo Bar',          cn => 'Foo Bar',
42          hrEduPersonUniqueNumber => 42,          hrEduPersonUniqueNumber => 42,
43          hrEduPersonAffiliation => 'suradnik',          hrEduPersonAffiliation => 'suradnik',
44          organization => $organization,          hrEduPersonHomeOrg => 'skole.hr',
45    #       organization => $organization,
46  );  );
47  ok($id, "User create returned success");  ok($id, "Person create returned success");
48  ok($o->id, "New User has valid id set");  ok($o->id, "New Person has valid id set");
49  is($o->id, $id, "Create returned the right id");  is($o->id, $id, "Create returned the right id");
50    
51  # And another  # And another
# Line 53  $o->create( Line 58  $o->create(
58          cn => 'Bary Fooby',          cn => 'Bary Fooby',
59          hrEduPersonUniqueNumber => 1001,          hrEduPersonUniqueNumber => 1001,
60          hrEduPersonAffiliation => 'gost',          hrEduPersonAffiliation => 'gost',
61          organization => $organization,          hrEduPersonHomeOrg => 'skole.hr',
62    #       organization => $organization,
63  );  );
64  ok($o->id, "User create returned another value");  ok($o->id, "Person 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");
66    
67  # Searches in general  # Searches in general
68  my $collection =  A3C::Model::UserCollection->new(current_user => $system_user);  my $collection =  A3C::Model::PersonCollection->new(current_user => $system_user);
69  $collection->unlimit;  $collection->unlimit;
70  is($collection->count, 2, "Finds two records");  is($collection->count, 2, "Finds two records");
71    

Legend:
Removed from v.32  
changed lines
  Added in v.150

  ViewVC Help
Powered by ViewVC 1.1.26