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