Mercurial > hg > nginx-tests
comparison mail_error_log.t @ 1600:b61e820caa83
Tests: using Sys::Hostname to get hostname in a portable way.
The hostname utility is not defined by POSIX and not available
by default on some modern Linux distro's (Arch, Fedora).
Reported by Geert Hendrickx.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Mon, 12 Oct 2020 18:13:07 +0100 |
parents | e4974af3fb12 |
children | 74986ebee2fd |
comparison
equal
deleted
inserted
replaced
1599:4e0644119341 | 1600:b61e820caa83 |
---|---|
11 use strict; | 11 use strict; |
12 | 12 |
13 use Test::More; | 13 use Test::More; |
14 | 14 |
15 use IO::Select; | 15 use IO::Select; |
16 use Sys::Hostname; | |
16 | 17 |
17 BEGIN { use FindBin; chdir($FindBin::Bin); } | 18 BEGIN { use FindBin; chdir($FindBin::Bin); } |
18 | 19 |
19 use lib 'lib'; | 20 use lib 'lib'; |
20 use Test::Nginx; | 21 use Test::Nginx; |
231 | 232 |
232 ok(defined($sec), "$desc has seconds"); | 233 ok(defined($sec), "$desc has seconds"); |
233 ok($sec < 60, "$desc valid seconds"); | 234 ok($sec < 60, "$desc valid seconds"); |
234 | 235 |
235 ok(defined($host), "$desc has host"); | 236 ok(defined($host), "$desc has host"); |
236 chomp(my $hostname = lc `hostname`); | 237 is($host, lc(hostname()), "$desc valid host"); |
237 is($host , $hostname, "$desc valid host"); | |
238 | 238 |
239 ok(defined($tag), "$desc has tag"); | 239 ok(defined($tag), "$desc has tag"); |
240 like($tag, qr'\w+', "$desc valid tag"); | 240 like($tag, qr'\w+', "$desc valid tag"); |
241 | 241 |
242 ok(length($msg) > 0, "$desc valid CONTENT"); | 242 ok(length($msg) > 0, "$desc valid CONTENT"); |