1*b39c5158Smillertuse strict; 2*b39c5158Smillertuse Test; 3*b39c5158Smillertuse Win32; 4*b39c5158Smillert 5*b39c5158Smillertplan tests => 1; 6*b39c5158Smillert 7*b39c5158Smillertmy $scalar = Win32::GetOSVersion(); 8*b39c5158Smillertmy @array = Win32::GetOSVersion(); 9*b39c5158Smillert 10*b39c5158Smillertprint "not " unless $scalar == $array[4]; 11*b39c5158Smillertprint "ok 1\n"; 12