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

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

revision 6 by dpavlin, Thu May 4 15:12:03 2006 UTC revision 7 by dpavlin, Fri May 5 12:36:45 2006 UTC
# Line 8  A basic test harness for the Transport m Line 8  A basic test harness for the Transport m
8    
9  =cut  =cut
10    
11  use Jifty::Test tests => 11;  use Jifty::Test tests => 13;
12    
13  # Make sure we can load the model  # Make sure we can load the model
14  use_ok('Transports::Model::Transport');  use_ok('Transports::Model::Transport');
# Line 17  use_ok('Transports::Model::Transport'); Line 17  use_ok('Transports::Model::Transport');
17  my $system_user = Transports::CurrentUser->superuser;  my $system_user = Transports::CurrentUser->superuser;
18  ok($system_user, "Found a system user");  ok($system_user, "Found a system user");
19    
20    my $s = Transports::Model::Source->new(current_user => $system_user);
21    ok(my $s_id = $s->create( name => 'test source' ), 'test source');
22    
23    my $d = Transports::Model::Destination->new(current_user => $system_user);
24    ok(my $d_id = $s->create( name => 'test destination' ), 'test destination');
25    
26  # Try testing a create  # Try testing a create
27  my $o = Transports::Model::Transport->new(current_user => $system_user);  my $o = Transports::Model::Transport->new(current_user => $system_user);
28  my ($id) = $o->create();  my ($id) = $o->create(
29            source => $s_id,
30            destination => $d_id,
31            request_nr => 12345,
32            client_dependent => 0,
33    );
34  ok($id, "Transport create returned success");  ok($id, "Transport create returned success");
35  ok($o->id, "New Transport has valid id set");  ok($o->id, "New Transport has valid id set");
36  is($o->id, $id, "Create returned the right id");  is($o->id, $id, "Create returned the right id");
37    
38  # And another  # And another
39  $o->create();  $o->create(
40            source => $s_id,
41            destination => $d_id,
42            request_nr => 54321,
43            client_dependent => 1,
44    );
45  ok($o->id, "Transport create returned another value");  ok($o->id, "Transport create returned another value");
46  isnt($o->id, $id, "And it is different from the previous one");  isnt($o->id, $id, "And it is different from the previous one");
47    
Legend:
Removed from v.6  
changed lines
  Added in v.7
  ViewVC Help
Powered by ViewVC 1.1.26