← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to lib/GenTest/Reporter/WinPackage.pm

initial import from internal tree

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/GenTest/Reporter/WinPackage.pm
 
1
package GenTest::Reporter::WinPackage;
 
2
 
 
3
require Exporter;
 
4
@ISA = qw(GenTest::Reporter);
 
5
 
 
6
use strict;
 
7
use File::Copy;
 
8
use GenTest;
 
9
use GenTest::Constants;
 
10
use GenTest::Reporter;
 
11
 
 
12
sub report {
 
13
        my $reporter = shift;
 
14
        my $bindir = $reporter->serverInfo('bindir');
 
15
        my $datadir = $reporter->serverVariable('datadir');
 
16
        $datadir =~ s{[\\/]$}{}sgio;
 
17
 
 
18
        if (windows()) {
 
19
                foreach my $file ('mysqld.exe', 'mysqld.pdb') {
 
20
                        my $old_loc = $bindir.'\\'.$file;
 
21
                        my $new_loc = $datadir.'\\'.$file;
 
22
                        say("Copying $old_loc to $new_loc .");
 
23
                        copy($old_loc, $new_loc);
 
24
                }
 
25
        }
 
26
        
 
27
        return STATUS_OK;
 
28
}
 
29
 
 
30
sub type {
 
31
        return REPORTER_TYPE_CRASH | REPORTER_TYPE_DEADLOCK ;
 
32
}
 
33
 
 
34
1;