mirror of
https://github.com/MariaDB/server.git
synced 2025-10-31 15:50:51 +03:00
0d01221c17
Put all path conversions in one file Convert the --tmpdir passed to "mysqld --verbose --help" mysql-test/lib/My/Find.pm: Use My::Platform mysql-test/lib/My/SafeProcess.pm: use My::Platform mysql-test/lib/mtr_cases.pm: Use My::Platform mysql-test/lib/mtr_misc.pl: Move 'mtr_native_path' to My::Platform mysql-test/lib/My/Platform.pm: New BitKeeper file ``mysql-test/lib/My/Platform.pm'' mysql-test/lib/t/Platform.t: New BitKeeper file ``mysql-test/lib/t/Platform.t''
19 lines
459 B
Perl
19 lines
459 B
Perl
# -*- cperl -*-
|
|
use Test::More qw(no_plan);
|
|
use strict;
|
|
|
|
use_ok ("My::Platform");
|
|
use My::Platform;
|
|
|
|
use File::Temp qw / tempdir /;
|
|
my $dir = tempdir( CLEANUP => 1 );
|
|
|
|
print "Running on Windows\n" if (IS_WINDOWS);
|
|
print "Using ActiveState perl\n" if (IS_WIN32PERL);
|
|
print "Using cygwin perl\n" if (IS_CYGWIN);
|
|
|
|
print "dir: '$dir'\n";
|
|
print "native: '".native_path($dir)."'\n";
|
|
print "mixed: '".mixed_path($dir)."'\n";
|
|
print "posix: '".posix_path($dir)."'\n";
|