[perl5.git] / ext / Win32CORE / t / win32core.t

#!perl

use Test::More;
BEGIN {
    if ( $ENV{PERL_CORE} ) {
    require Config;
	if ( $Config::Config{extensions} !~ /(?<!\S)Win32CORE(?!\S)/ ) {
	    plan skip_all => "Win32CORE extension not built";
	    exit();
	}
    }

        plan tests => 4;
};
use_ok( "Win32CORE" );

# Make sure that Win32 is not yet loaded
ok(!defined &Win32::ExpandEnvironmentStrings);

# [perl #42925] - Loading Win32::GetLastError() via the forwarder function
# should not affect the last error being retrieved
$^E = 42;
is(Win32::GetLastError(), $^O eq 'cygwin' ? 0 : 42, 'GetLastError() works on the first call');

# Now all Win32::* functions should be loaded
ok(defined &Win32::ExpandEnvironmentStrings);
Commit	Line	Data
78ff2d7b YST	1	#!perl
78ff2d7b YST	2
57d226e4 YST	3	use Test::More;
	4	BEGIN {
	5	if ( $ENV{PERL_CORE} ) {
	6	require Config;
	7	if ( $Config::Config{extensions} !~ /(?<!\S)Win32CORE(?!\S)/ ) {
	8	plan skip_all => "Win32CORE extension not built";
	9	exit();
	10	}
	11	}
	12
6bad109f	13	plan tests => 4;
57d226e4 YST	14	};
57d226e4 YST	15	use_ok( "Win32CORE" );
ad6e06ef	16
a13010ef JD	17	# Make sure that Win32 is not yet loaded
	18	ok(!defined &Win32::ExpandEnvironmentStrings);
	19
ad6e06ef SH	20	# [perl #42925] - Loading Win32::GetLastError() via the forwarder function
	21	# should not affect the last error being retrieved
	22	$^E = 42;
867ade39	23	is(Win32::GetLastError(), $^O eq 'cygwin' ? 0 : 42, 'GetLastError() works on the first call');
a13010ef JD	24
	25	# Now all Win32::* functions should be loaded
	26	ok(defined &Win32::ExpandEnvironmentStrings);