ext/Win32CORE/t/win32core.t

   1 #!perl
   2
   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
  13     if ($^O eq 'cygwin') {
  14         plan skip_all => '$^E is not Win32::GetLastError() under Cygwin';
  15     } else {
  16         plan tests => 4;
  17     }
  18 };
  19 use_ok( "Win32CORE" );
  20
  21 # Make sure that Win32 is not yet loaded
  22 ok(!defined &Win32::ExpandEnvironmentStrings);
  23
  24 # [perl #42925] - Loading Win32::GetLastError() via the forwarder function
  25 # should not affect the last error being retrieved
  26 $^E = 42;
  27 is(Win32::GetLastError(), 42, 'GetLastError() works on the first call');
  28
  29 # Now all Win32::* functions should be loaded
  30 ok(defined &Win32::ExpandEnvironmentStrings);