1use strict; 2use Test; 3use Win32; 4 5plan tests => 8; 6 7my $ansicp = Win32::GetACP(); 8ok($ansicp > 0 && $ansicp <= 65001); 9 10my $inputcp = Win32::GetConsoleCP(); 11ok($inputcp > 0 && $inputcp <= 65001); 12 13my $outputcp = Win32::GetConsoleOutputCP(); 14ok($outputcp > 0 && $outputcp <= 65001); 15 16my $oemcp = Win32::GetOEMCP(); 17ok($oemcp > 0 && $oemcp <= 65001); 18 19ok(Win32::SetConsoleCP($ansicp)); 20ok(Win32::GetConsoleCP() == $ansicp); 21 22ok(Win32::SetConsoleOutputCP($ansicp)); 23ok(Win32::GetConsoleOutputCP() == $ansicp); 24 25# Reset things when we're done. 26Win32::SetConsoleCP($inputcp); 27Win32::SetConsoleOutputCP($outputcp); 28