/[transports]/trunk/lib/Transports/Bootstrap.pm
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/lib/Transports/Bootstrap.pm

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

revision 45 by dpavlin, Tue May 30 14:34:58 2006 UTC revision 46 by dpavlin, Tue May 30 18:09:51 2006 UTC
# Line 30  sub run { Line 30  sub run {
30                  password => 'user',                  password => 'user',
31          );          );
32    
33            my $u3 = Transports::Model::User->new(current_user => $system_user);
34            $u3->create(
35                    name => 'Import operator',
36                    email => 'import@example.com',
37                    password => 'import',
38                    can_import => 1,
39            );
40    
41          my $s;          my $s;
42    
43          foreach my $i ( 0 ... 5 ) {          foreach my $i ( 0 ... 5 ) {
# Line 68  sub run { Line 76  sub run {
76                  name => 'Upgrade',                  name => 'Upgrade',
77          );          );
78    
79            my @rc;
80            foreach my $s (
81                    '0: Transport (export and import test) was successful',
82                    '4: Warning messages were generated',
83                    '8: Error messages were generated',
84                    '12: Fatal error has occured',
85            ) {
86                    my $rc = Transports::Model::ReturnCode->new(current_user => $system_user);
87                    $rc->create( name => $s );
88                    push @rc, $rc;
89            }
90    
91          foreach my $i ( 1 ... 7 ) {          foreach my $i ( 1 ... 7 ) {
92                  my $t = Transports::Model::Transport->new(current_user => $system_user);                  my $t = Transports::Model::Transport->new(current_user => $system_user);
93                    my $rc = shift @rc;
94                  $t->create(                  $t->create(
95                          class => $i % 4 == 0 ? $tc2 : $tc1,                          class => $i % 4 == 0 ? $tc2 : $tc1,
96                          source => $s->{ $i % 5 },                          source => $s->{ $i % 5 },
# Line 77  sub run { Line 98  sub run {
98                          request_nr => $i,                          request_nr => $i,
99                          client_dependent => $i % 3 == 0 ? 0 : 1,                          client_dependent => $i % 3 == 0 ? 0 : 1,
100                          created_by => $i % 2 == 0 ? $u1 : $u2,                          created_by => $i % 2 == 0 ? $u1 : $u2,
101                            return_code => $rc,
102                  );                  );
103          }          }
104    
Legend:
Removed from v.45  
changed lines
  Added in v.46
  ViewVC Help
Powered by ViewVC 1.1.26