All pastes #908348 Raw Edit

Mine

public text v1 · immutable
·published 2008-02-18 11:03 UTC
rendered paste body
  my $schema = Runner::Model->connect(DBCONNECT . DBDESTINATION); 
  $schema->deploy({add_drop_table => 1, no_comments => 1}); 
 
  my $test = $schema->resultset('Test')->new( 
                                             { 
                                              creation => '2001-01-01', 
                                              modification => '2001-01-01', 
                                              name => 'CODE Performance', 
                                              runas => 'dscoular', 
                                              pre => 'build_ios.pl', 
                                              cmd => 'run_ios.pl', 
                                              post => 'present_ios.pl', 
                                              rawdata => 'foo', 
                                             }); 
 
  my $test1 = $schema->resultset('Test')->new(  
                                             { 
                                              creation => '2003-01-01', 
                                              modification => '2003-01-01', 
                                              name => 'CODE Functional', 
                                              runas => 'dscoular',   
                                              pre => 'build_ios.pl', 
                                              cmd => 'run_ios.pl', 
                                              post => 'present_ios.pl', 
                                              rawdata => 'bar', 
                                             }); 
 
  my $testGroup = $schema->resultset('TestGroup')->new( 
                                                       { 
                                                        creation => '2001-01-01', 
                                                        modification => '2001-01-01', 
                                                        name => 'CODE Performance', 
                                                        tests => [ $test ], 
                                                       }, 
                                                      ); 
  $testGroup->insert(); 
  $test->insert();