xref: /openbsd-src/gnu/usr.bin/perl/cpan/Win32/t/CodePage.t (revision 91f110e064cd7c194e59e019b83bb7496c1c84d4)
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