/[transports]/trunk/t/00-model-User.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 /trunk/t/00-model-User.t

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

revision 7 by dpavlin, Thu May 4 15:12:03 2006 UTC revision 8 by dpavlin, Fri May 5 12:38:53 2006 UTC
# Line 19  ok($system_user, "Found a system user"); Line 19  ok($system_user, "Found a system user");
19    
20  # Try testing a create  # Try testing a create
21  my $o = Transports::Model::User->new(current_user => $system_user);  my $o = Transports::Model::User->new(current_user => $system_user);
22  my ($id) = $o->create();  my ($id) = $o->create(
23            name => 'Foo Bar',
24            email => 'foo.bar@example.com',
25            password => 'foo123',
26    );
27  ok($id, "User create returned success");  ok($id, "User create returned success");
28  ok($o->id, "New User has valid id set");  ok($o->id, "New User has valid id set");
29  is($o->id, $id, "Create returned the right id");  is($o->id, $id, "Create returned the right id");
30    
31  # And another  # And another
32  $o->create();  $o->create(
33            name => 'Baz Bar',
34            email => 'baz.bar@example.com',
35            password => 'baz123',
36    );
37  ok($o->id, "User create returned another value");  ok($o->id, "User create returned another value");
38  isnt($o->id, $id, "And it is different from the previous one");  isnt($o->id, $id, "And it is different from the previous one");
39    
Legend:
Removed from v.7  
changed lines
  Added in v.8
  ViewVC Help
Powered by ViewVC 1.1.26