if ($^O eq 'MSWin32'){

    print "\nPreparing unit tests for MSWin32 platform...\n\n";

    my $dir = getcwd(); 
    $dir .= "/t";
 
    my @files;

    find({wanted => sub {
            return if ! -f;

            my $file = $File::Find::name;

            push @files, $file;
        },
        no_chdir => 1,
      }, $dir,
    );

    for (@files){
        tie my @file, 'Tie::File', $_ or die $!;

        for (@file){
            s/\n/\r\n/g;
        }

        untie @file;
    }
}