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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
use strict;
use warnings;
use Test::More 'no_plan';
use Parse::Win32Registry 0.60;
sub find_file
{
my $filename = shift;
return -d 't' ? "t/$filename" : $filename;
}
{
my $filename = find_file('win95_key_tests.rf');
my $registry = Parse::Win32Registry->new($filename);
ok(defined($registry), 'registry defined');
isa_ok($registry, 'Parse::Win32Registry::Win95::File');
my $timestamp_as_string = '(undefined)';
my $desc = "95";
ok(fileno($registry->get_filehandle),
"$desc get_filehandle");
is($registry->get_filename, $filename,
"$desc get_filename");
cmp_ok($registry->get_length, '==', -s $filename,
"$desc get_length");
ok(!defined($registry->get_timestamp),
"$desc get_timestamp undefined (no timestamp)");
is($registry->get_timestamp_as_string, $timestamp_as_string,
"$desc get_timestamp_as_string");
ok(!defined($registry->get_embedded_filename),
"$desc get_embedded_filename undefined (no embedded filename)");
}
{
my $filename = find_file('winnt_key_tests.rf');
my $registry = Parse::Win32Registry->new($filename);
ok(defined($registry), 'registry defined');
isa_ok($registry, 'Parse::Win32Registry::WinNT::File');
my $timestamp = 1162637840;
my $timestamp_as_string = '2006-11-04T10:57:20Z';
my $embedded_filename = 'ttings\Administrator\ntuser.dat';
my $desc = "NT";
ok(fileno($registry->get_filehandle),
"$desc get_filehandle");
is($registry->get_filename, $filename,
"$desc get_filename");
cmp_ok($registry->get_length, '==', -s $filename,
"$desc get_length");
cmp_ok($registry->get_timestamp, '==', $timestamp,
"$desc get_timestamp");
is($registry->get_timestamp_as_string, $timestamp_as_string,
"$desc get_timestamp_as_string");
is($registry->get_embedded_filename, $embedded_filename,
"$desc get_embedded_filename");
}
|
