Mercurial > hg > nginx-tests

comparison syslog.t @ 1600:b61e820caa83

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 9e142c0e34b2
children
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;
319 320
320 ok(defined($sec), "$desc has seconds"); 321 ok(defined($sec), "$desc has seconds");
321 ok($sec < 60, "$desc valid seconds"); 322 ok($sec < 60, "$desc valid seconds");
322 323
323 ok(defined($host), "$desc has host"); 324 ok(defined($host), "$desc has host");
324 chomp(my $hostname = lc `hostname`); 325 is($host, lc(hostname()), "$desc valid host");
325 is($host , $hostname, "$desc valid host");
326 326
327 ok(defined($tag), "$desc has tag"); 327 ok(defined($tag), "$desc has tag");
328 like($tag, qr'\w+', "$desc valid tag"); 328 like($tag, qr'\w+', "$desc valid tag");
329 329
330 ok(length($msg) > 0, "$desc valid CONTENT"); 330 ok(length($msg) > 0, "$desc valid CONTENT");