Parent Directory | Revision Log | Patch
revision 27 by dpavlin, Fri May 26 21:21:25 2006 UTC | revision 53 by dpavlin, Mon Jun 5 14:14:19 2006 UTC | |
---|---|---|
# | Line 28 ok(my $d_id = $s->create( name => 'test | Line 28 ok(my $d_id = $s->create( name => 'test |
28 | # Try testing a create | # Try testing a create |
29 | my $o = Transports::Model::Transport->new(current_user => $system_user); | my $o = Transports::Model::Transport->new(current_user => $system_user); |
30 | my ($id) = $o->create( | my ($id) = $o->create( |
31 | class => 1, | |
32 | source => $s_id, | source => $s_id, |
33 | destination => $d_id, | destination => $d_id, |
34 | request_nr => 12345, | request_nr => 12345, |
# | Line 40 is($o->id, $id, "Create returned the rig | Line 41 is($o->id, $id, "Create returned the rig |
41 | ||
42 | # And another | # And another |
43 | $o->create( | $o->create( |
44 | class => 2, | |
45 | source => $s_id, | source => $s_id, |
46 | destination => $d_id, | destination => $d_id, |
47 | request_nr => 54321, | request_nr => 54321, |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |