Mercurial > hg > nginx-tests
comparison stream_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 | f3ba4c74de31 |
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; |
239 | 240 |
240 ok(defined($sec), "$desc has seconds"); | 241 ok(defined($sec), "$desc has seconds"); |
241 ok($sec < 60, "$desc valid seconds"); | 242 ok($sec < 60, "$desc valid seconds"); |
242 | 243 |
243 ok(defined($host), "$desc has host"); | 244 ok(defined($host), "$desc has host"); |
244 chomp(my $hostname = lc `hostname`); | 245 is($host, lc(hostname()), "$desc valid host"); |
245 is($host , $hostname, "$desc valid host"); | |
246 | 246 |
247 ok(defined($tag), "$desc has tag"); | 247 ok(defined($tag), "$desc has tag"); |
248 like($tag, qr'\w+', "$desc valid tag"); | 248 like($tag, qr'\w+', "$desc valid tag"); |
249 | 249 |
250 ok(length($msg) > 0, "$desc valid CONTENT"); | 250 ok(length($msg) > 0, "$desc valid CONTENT"); |