From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

DOMERO / glog-1.0.5-1 / t / 00-glog.t 

            

              
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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134

              
use strict;
use warnings;
use Test::More;
use POSIX qw(strftime);
use glog;
use Time::HiRes qw(gettimeofday usleep);
use File::Temp qw(tempfile);
subtest 'Direct logging functions' => sub {
    my $captured;
    local *STDERR;
    open my $fh, '>', \$captured or die "Cannot open scalar ref: $!";
    *STDERR = $fh;
    LogLevel(5); # Enable all levels
    LogErr("Error test"); usleep(1000);
    LogWarn("Warn test"); usleep(1000);
    LogInfo("Info test"); usleep(1000);
    LogDebug("Debug test");
    my ($sec, $usec) = gettimeofday;
    my $timestamp = strftime("%Y-%m-%d %H:%M:%S", localtime($sec)) . '\.\d+';
    like($captured, qr/\[$timestamp\] ERROR Error test\n/, "Captured ERROR log");
    like($captured, qr/\[$timestamp\] WARN Warn test\n/, "Captured WARN log");
    like($captured, qr/\[$timestamp\] INFO Info test\n/, "Captured INFO log");
    like($captured, qr/\[$timestamp\] DEBUG Debug test\n/, "Captured DEBUG log");
    # Verify order
    my @lines = split /\n/, $captured;
    ok(@lines >= 4, "Captured at least 4 log lines");
    like($lines[0], qr/\[$timestamp\] ERROR Error test/, "ERROR log first");
    like($lines[1], qr/\[$timestamp\] WARN Warn test/, "WARN log second");
    like($lines[2], qr/\[$timestamp\] INFO Info test/, "INFO log third");
    like($lines[3], qr/\[$timestamp\] DEBUG Debug test/, "DEBUG log fourth");
};
subtest 'Formatted logging' => sub {
    my $captured;
    local *STDERR;
    open my $fh, '>', \$captured or die "Cannot open scalar ref: $!";
    *STDERR = $fh;
    LogLevel(3);
    LogF(3, "Formatted %s %d", "test", 42); usleep(1000);
    my ($sec, $usec) = gettimeofday;
    my $timestamp = strftime("%Y-%m-%d %H:%M:%S", localtime($sec)) . '\.\d+';
    like($captured, qr/\[$timestamp\] INFO Formatted test 42\n/, "Captured formatted log");
    LogF(3, "Static message");
    like($captured, qr/\[$timestamp\] INFO Static message\n/, "Captured static formatted log");
    LogF(3, "%s %d", "test"); # Too few args, should not crash
    like($captured, qr/\[$timestamp\] INFO test 0\n/, "Handled invalid format args");
};
subtest 'File logging' => sub {
    my ($fh, $tempfile) = tempfile();
    close $fh; # File::Temp creates the file
    LogFile($tempfile);
    LogInfo("File log test");
    LogFile(undef); # Close file
    open my $logfh, '<', $tempfile or die "Cannot open $tempfile: $!";
    my $file_content = do { local $/; <$logfh> };
    close $logfh;
    unlink $tempfile or warn "Could not unlink $tempfile: $!";
    my ($sec, $usec) = gettimeofday;
    my $timestamp = strftime("%Y-%m-%d %H:%M:%S", localtime($sec)) . '\.\d+';
    like($file_content, qr/\[$timestamp\] INFO File log test\n/, "Captured file log");
};
subtest 'LogDie' => sub {
    my $captured;
    local *STDERR;
    open my $fh, '>', \$captured or die "Cannot open scalar ref: $!";
    *STDERR = $fh;
    eval { LogDie("Die test"); };
    like($@, qr//, "LogDie throws exception");
    my ($sec, $usec) = gettimeofday;
    my $timestamp = strftime("%Y-%m-%d %H:%M:%S", localtime($sec)) . '\.\d+';
    like($captured, qr/\[$timestamp\] ERROR Die test\n/, "LogDie logs ERROR");
    eval { LogDie(); };
    like($@, qr//, "LogDie with empty message");
};
subtest 'LogLevel control' => sub {
    my $captured;
    local *STDERR;
    open my $fh, '>', \$captured or die "Cannot open scalar ref: $!";
    *STDERR = $fh;
    LogLevel(2); # Only ERROR and WARN
    LogErr("Should log"); usleep(1000);
    LogWarn("Should log"); usleep(1000);
    LogInfo("Should not log");
    LogDebug("Should not log");
    my ($sec, $usec) = gettimeofday;
    my $timestamp = strftime("%Y-%m-%d %H:%M:%S", localtime($sec)) . '\.\d+';
    like($captured, qr/\[$timestamp\] ERROR Should log\n/, "Logged ERROR at level 2");
    like($captured, qr/\[$timestamp\] WARN Should log\n/, "Logged WARN at level 2");
    unlike($captured, qr/INFO Should not log/, "Did not log INFO at level 2");
    unlike($captured, qr/DEBUG Should not log/, "Did not log DEBUG at level 2");
    is(LogLevel(), 2, "LogLevel returns correct value");
};
subtest 'Error handling' => sub {
    eval { LogLevel(-1); };
    like($@, qr//s, "Invalid log level");
    Log(1, undef); # Should not crash
    Log(undef, "test"); # Should not crash
    pass("Undefined inputs handled safely");
    eval { LogFile("/invalid/path/$$/log"); };
    like($@, qr//, "Invalid log file path");
    my $captured;
    local *STDERR;
    open my $fh, '>', \$captured or die "Cannot open scalar ref: $!";
    *STDERR = $fh;
    LogLevel(3);
    Log(3, "");
    my ($sec, $usec) = gettimeofday;
    my $timestamp = strftime("%Y-%m-%d %H:%M:%S", localtime($sec)) . '\.\d+';
    like($captured, qr//, "Empty message logged");
};
done_testing();