1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
use strict;
use warnings;
use Test::More 'no_plan';
use Parse::Win32Registry 0.60 qw(
REG_NONE
REG_SZ
REG_EXPAND_SZ
REG_BINARY
REG_DWORD
REG_DWORD_BIG_ENDIAN
REG_LINK
REG_MULTI_SZ
REG_RESOURCE_LIST
REG_FULL_RESOURCE_DESCRIPTOR
REG_RESOURCE_REQUIREMENTS_LIST
REG_QWORD
);
{
my @tests = (
['REG_NONE' => 0],
['REG_SZ' => 1],
['REG_EXPAND_SZ' => 2],
['REG_BINARY' => 3],
['REG_DWORD' => 4],
['REG_DWORD_BIG_ENDIAN' => 5],
['REG_LINK' => 6],
['REG_MULTI_SZ' => 7],
['REG_RESOURCE_LIST' => 8],
['REG_FULL_RESOURCE_DESCRIPTOR' => 9],
['REG_RESOURCE_REQUIREMENTS_LIST' => 10],
['REG_QWORD' => 11],
);
foreach my $test (@tests) {
my ($name, $constant) = @{ $test };
cmp_ok(eval $name, '==', $constant, $name);
}
}
|
