use strict;
use Test;
use Win32;

plan tests => 8;

my $ansicp = Win32::GetACP();
ok($ansicp > 0 && $ansicp <= 65001);

my $inputcp = Win32::GetConsoleCP();
ok($inputcp > 0 && $inputcp <= 65001);

my $outputcp = Win32::GetConsoleOutputCP();
ok($outputcp > 0 && $outputcp <= 65001);

my $oemcp = Win32::GetOEMCP();
ok($oemcp > 0 && $oemcp <= 65001);

ok(Win32::SetConsoleCP($ansicp));
ok(Win32::GetConsoleCP() == $ansicp);

ok(Win32::SetConsoleOutputCP($ansicp));
ok(Win32::GetConsoleOutputCP() == $ansicp);

# Reset things when we're done.
Win32::SetConsoleCP($inputcp);
Win32::SetConsoleOutputCP($outputcp);