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