← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to runall-new.pl

merge

Show diffs side-by-side

added added

removed removed

Lines of Context:
runall-new.pl
56
56
    $redefine_file, $seed, $mask, $mask_level, $mem, $rows,
57
57
    $varchar_len, $xml_output, $valgrind, @valgrind_options, $views,
58
58
    $start_dirty, $filter, $build_thread, $sqltrace, $testname,
59
 
    $report_xml_tt, $report_xml_tt_type, $report_xml_tt_dest);
 
59
    $report_xml_tt, $report_xml_tt_type, $report_xml_tt_dest,
 
60
    $notnull);
60
61
 
61
62
my $gendata=''; ## default simple gendata
62
63
 
90
91
        'validators=s@' => \@validators,
91
92
        'reporters=s@' => \@reporters,
92
93
        'gendata:s' => \$gendata,
 
94
        'notnull' => \$notnull,
93
95
        'seed=s' => \$seed,
94
96
        'mask=i' => \$mask,
95
97
    'mask-level=i' => \$mask_level,
215
217
    
216
218
    if ($status > DBSTATUS_OK) {
217
219
        stopServers();
218
 
        say(system("ls -l ".$rplsrv->master->datadir));
219
 
        say(system("ls -l ".$rplsrv->slave->datadir));
 
220
        if (osWindows()) {
 
221
            say(system("dir ".unix2winPath($rplsrv->master->datadir)));
 
222
            say(system("dir ".unix2winPath($rplsrv->slave->datadir)));
 
223
        } else {
 
224
            say(system("ls -l ".$rplsrv->master->datadir));
 
225
            say(system("ls -l ".$rplsrv->slave->datadir));
 
226
        }
220
227
        croak("Could not start replicating server pair");
221
228
    }
222
229
    
253
260
        
254
261
        if ($status > DBSTATUS_OK) {
255
262
            stopServers();
256
 
            say(system("ls -l ".$server[$server_id]->datadir));
 
263
            if (osWindows()) {
 
264
                say(system("dir ".unix2winPath($server[$server_id]->datadir)));
 
265
            } else {
 
266
                say(system("ls -l ".$server[$server_id]->datadir));
 
267
            }
257
268
            croak("Could not start all servers");
258
269
        }
259
270
        
298
309
              'views',
299
310
              'start-dirty',
300
311
              'filter',
 
312
              'notnull',
301
313
              'valgrind',
302
314
              'testname',
303
315
              'sqltrace',
339
351
$gentestProps->property('xml-output',$xml_output) if defined $xml_output;
340
352
$gentestProps->debug(1) if defined $debug;
341
353
$gentestProps->filter($filter) if defined $filter;
 
354
$gentestProps->notnull($notnull) if defined $notnull;
342
355
$gentestProps->valgrind(1) if $valgrind;
343
356
$gentestProps->sqltrace(1) if $sqltrace;
344
357
$gentestProps->testname($testname) if $testname;
367
380
    my @dump_files;
368
381
    
369
382
        foreach my $i (0..$#server) {
370
 
                $dump_files[$i] = tmpdir()."/server_".$$."_".$i.".dump";
 
383
                $dump_files[$i] = tmpdir()."server_".$$."_".$i.".dump";
371
384
        
372
385
                my $dump_result = $server[$i]->dumpdb($database,$dump_files[$i]);
373
386
                exit_test($dump_result >> 8) if $dump_result > 0;
443
456
    --seed      : PRNG seed. Passed to gentest.pl
444
457
    --mask      : Grammar mask. Passed to gentest.pl
445
458
    --mask-level: Grammar mask level. Passed to gentest.pl
 
459
    --notnull   : Generate all fields with NOT NULL
446
460
    --rows      : No of rows. Passed to gentest.pl
 
461
    --sqltrace  : Print all generated SQL statements.
447
462
    --varchar-length: length of strings. passed to gentest.pl
448
463
    --xml-outputs: Passed to gentest.pl
449
464
    --views     : Generate views. Passed to gentest.pl