Cross Reference: /illumos-gate/usr/src/cmd/logadm/tester

	tester revision 636deb6630259136adfafabed91fd84dfcaae63c
#!/usr/bin/perl -w
#
# CDDL HEADER START
#
# The contents of this file are subject to the terms of the
# Common Development and Distribution License, Version 1.0 only
# (the "License").  You may not use this file except in compliance
# with the License.
#
# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
# or http://www.opensolaris.org/os/licensing.
# See the License for the specific language governing permissions
# and limitations under the License.
#
# When distributing Covered Code, include this CDDL HEADER in each
# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
# If applicable, add the following below this CDDL HEADER, with the
# fields enclosed by brackets "[]" replaced with your own identifying
# information: Portions Copyright [yyyy] [name of copyright owner]
#
# CDDL HEADER END
#
#
# Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
# Use is subject to license terms.
#
#ident  "%Z%%M% %I% %E% SMI"
#
#
# tester - run logadm tests
#
# requires a <bindir> argument to say where the various logadm
# binaries live (conftest, globtest, kwtest, luttest, optstest, and
# logadm itself).
#
# to run all the tests:
#   tester [-f] <bindir>
#
# to run just a few tests, given their names:
#   tester [-f] <bindir> globtest1 luttest1
#
# to setup a test and stop so you can run it by hand:
#   tester [-f] -s globtest1 <bindir>
#
#   tester will tell you what tmp directory it created for
#   the test.  to run it, cd there and run:
#       sh runtest
#   to check the results, run:
#       sh checktest
#
# -f means "fast" -- without it, watchmalloc(3MALLOC) is setup for
# each test and they run a zillion times slower and produce core
# dumps when malloc/free problems are detected.
#
$watchmalloc=1;     # default is to use watchmalloc
${ENV} = "/bin";
umask 002;

# list of tests we run by default
@tests = (
    "conftest1",
    "conftest2",
    "globtest1",
    "globtest2",
    "kwtest1",
    "kwtest2",
    "luttest1",
    "optstest1",
    "optstest2",
    "logadmV1",
    "logadmV2",
    "logadmr",
    "logadmw",
    "logadm1",
    "logadm1c",
    "logadm2",
    "logadm3",
    "logadm4",
    "logadm5",
    "logadm6",
    "logadm7",
    "logadm8",
    "logadm9",
    "logadm9d",
    "logadm10",
    "logadm11",
    "logadm12",
    "logadm13",
    "logadm14",
    "logadm15",
    "logadm16",
    "logadm17",
    "logadm18",
    "logadm19",
);

use Getopt::Std;
use File::Find;

$usage_summary = '[-s test-name] [-d dir] bindir [test-name...]';
$usage_getopts = 'fd:s:';
%usage = (
    d=>'use dir for tests rather than creating one in /tmp',
    s=>'setup only, do not run test');

# spew usage message, plus any given message, and exit
sub usage {
    my $msg = shift;

    if ($msg) {
        chomp $msg;
        warn "$0: $msg\n" if $msg;
    }
    warn "Usage: $0 $usage_summary\n";
    foreach (sort keys %usage) {
        warn "       -$_ $usage{$_}\n";
    }
    exit 1;
}

#
# basic argument processing
#
$myname = $0;
$myname =~ s/.*\///;    # just show last component in error mesages
getopts($usage_getopts) or usage;
$bindir = shift or usage;
usage("$bindir does not exist") unless -d $bindir;
usage("cannot list more than one test with -s option") if $opt_s && @ARGV;
@tests = @ARGV if @ARGV;
print "Fast mode\n" if $opt_f;
$watchmalloc = 0 if $opt_f;

$mydir=`pwd`;
chomp $mydir;

$dir = $opt_d;
$dir = "/tmp/logadmtest$$" unless $dir = $opt_d;

if (!-d $dir) {
    mkdir $dir, 0777 or die "$myname: mkdir $dir: $!\n";
    $needrmdir = 1;
}

chdir $dir or die "$myname: $dir: $!\n";

# common commands in runtest by tests
if ($watchmalloc) {
    $envsetup =
        "HOME=$dir export HOME; " .
        "LD_PRELOAD=watchmalloc.so.1 export LD_PRELOAD; " .
        "MALLOC_DEBUG=RW export MALLOC_DEBUG";
} else {
    $envsetup = "HOME=$dir export HOME; ";
}

$| = 1;     # a.k.a. setbuf(stdout, NULL)

if ($opt_s) {
    #
    # just setup the test, explain how to use it, and exit
    #
    $testname = $opt_s;
    eval "&$opt_s";
    die "$myname: ERROR: $@" if $@;
    print "$myname: $testname setup complete, to run, cd to:\n";
    print "    $dir\n";
    print "and run the command:\n";
    print "    sh runtest\n";
    print "to check the results, run the command:\n";
    print "    sh checktest\n";
    exit 0;
} else {
    #
    # run all the tests
    #
    foreach (@tests) {
        $testname = $_;
        print "Running $testname...";
        eval "&$_";
        if ($@) {
            print " SETUP FAILURE\n";
            print STDERR "$myname: ERROR: $@";
            exit 1;
        }
        eval "runner('runtest')";
        if ($@) {
            print " RUNTEST FAILURE\n";
            print STDERR "$myname: ERROR: $@";
            print STDERR "results captured in directory $dir\n";
            print STDERR "  or use: $myname -s $testname $bindir\n";
            print STDERR "  to do a fresh setup of this test.\n";
            exit 1;
        }
        eval "runner('checktest')";
        if ($@) {
            print " CHECKTEST FAILURE\n";
            print STDERR "$myname: ERROR: $@";
            print STDERR "results captured in directory $dir\n";
            print STDERR "  or use: $myname -s $testname $bindir\n";
            print STDERR "  to do a fresh setup of this test.\n";
            exit 1;
        }
        print "pass\n";
        # sanity...
        die "unexpected dir $dir" unless $dir =~ m,/.+/,;
        system("/bin/rm -rf $dir/*");
    }
}

# if we were the ones who created $dir, remove it
if ($needrmdir) {
    chdir $mydir;
    rmdir $dir || die "$myname: rmdir $dir: $!\n";
}

exit 0;

#
# run a shell script and check for failure
#
# the shell scripts generated by this program always "exec" the binary
# under test so checking here are for exit code, signals, and core dump
# is actually checking the program under test and not /bin/sh
#
sub runner {
    my $cmd = shift;
    my $fullcmd = "/bin/sh $cmd";
    my $rc = 0xffff & system("$fullcmd");

    if ($rc == 0) {
        return;     # cmd completed normally
    } elsif ($rc == 0xff00) {
        die "command \"$cmd\" failed: $!\n";
    } elsif (($rc & 0xff) == 0) {
        $rc >>= 8;
        die "command \"$cmd\" exit $rc\n";
    } else {
        my $coremsg;
        $coremsg = " (core dumped)" if ($rc & 0x80);
        $rc &= ~0x80;
        die "command \"$cmd\" signal $rc$coremsg\n" ;
    }
}

#
# set_file(filename [, contents]) -- create a file, optionally with contents
#
sub set_file {
    my $file = shift;
    my $contents = shift;

    open SF, ">$file" or die "create \"$file\": $!\n";
    print SF $contents if defined($contents);
    close SF;
}

#############
#############
#############    THE TESTS START AFTER HERE...
#############
#############

# common setup step -- create a testfile.conf
sub set_testconffile {
    my $fname = shift;
    $fname = 'testfile.conf' unless defined($fname);

    set_file($fname, <<'EOF');
#
# logadm.conf
#
# Default settings for system log file management.
# The -w option to logadm(1M) is the preferred way to write to this file,
# but if you do edit it by hand, use "logadm -V" to check it for errors.
#
# The format of lines in this file is:
#       <logname> <options>
# For each logname listed here, the default options to logadm
# are given.  Options given on the logadm command line override
# the defaults contained in this file.
#
# logadm typically runs early every morning via an entry in
# root's crontab (see crontab(1)).
#
/var/adm/messages -C 4 -P 'Thu Nov  1 16:56:42 2001' -a 'kill -HUP `cat /var/run/syslog.pid`'
/var/cron/log -s 512k -t /var/cron/olog
/var/lp/logs/lpsched -C 2 -N -t '$file.$N'
#
# The entry below is used by turnacct(1M)
#
/var/adm/pacct -C 0 -a '/usr/lib/acct/accton pacct' -g adm -m 664 -o adm -p never
apache -C 24 -a '/usr/apache/bin/apachectl graceful' -p 1m -t '/var/apache/old-logs/$basename.%Y-%m' '/var/apache/logs/*{access,error}_log'
/var/log/syslog -C 8 -P 'Thu Nov  1 09:16:38 2001' -a 'kill -HUP `cat /var/run/syslog.pid`'
/var/apache/logs/access_log -P 'Thu Nov  1 08:27:56 2001'
/var/apache/logs/error_log -P 'Thu Nov  1 08:27:56 2001'
/var/apache/logs/suexec_log -P 'Thu Nov  1 08:27:56 2001'
/var/apache/logs/mod_jserv.log -P 'Thu Nov  1 08:27:56 2001'
/var/apache/logs/jserv.log -P 'Thu Nov  1 08:27:56 2001'
EOF
}


###########################################################################
#
#   conftest1 -- minimal basic test of the conf.c code
#
###########################################################################
sub conftest1 {
    set_testconffile;

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
/bin/sed '/^conffile <testfile.conf>:$/d' <std.out >sed.out
exec /bin/diff sed.out testfile.conf
EOF

    set_file('runtest', <<"EOF");
# test "conftest1"
$envsetup
exec $bindir/conftest testfile.conf >std.out 2>std.err
EOF
}

###########################################################################
#
#   conftest2 -- error path through conf.c
#
###########################################################################
sub conftest2 {
    set_file('testfile.conf', 'line fragment');

    set_file('std.err.expect', <<'EOF');
conftest: Warning: config file doesn't end with newline, last line ignored.
EOF

    set_file('checktest', <<'EOF');
exec /bin/diff std.err std.err.expect
EOF

    set_file('runtest', <<"EOF");
# test "conftest2"
$envsetup
$bindir/conftest testfile.conf >std.out 2>std.err || exit 0
exit 1
EOF
}

###########################################################################
#
#   globtest1 -- minimal basic test of the glob.c code
#
###########################################################################
sub globtest1 {
    set_file('fileBname12');
    sleep 2;    # ensure above name is odler than below name
    set_file('fileAname12');
    set_file('fileAname1');
    set_file('fileAname3');
    set_file('fileAname5');
    set_file('fileAname7');
    set_file('fileAname9');
    set_file('fileAname11');
    set_file('fileBname0');
    set_file('fileBname2');
    set_file('fileBname4');
    set_file('fileBname6');
    set_file('fileBname8');
    set_file('fileBname10');
    mkdir 'dir1', 0777 or die "mkdir dir1: $!\n";
    mkdir 'dir2', 0777 or die "mkdir dir2: $!\n";
    mkdir 'dir3', 0777 or die "mkdir dir3: $!\n";
    mkdir 'dir1/dirA', 0777 or die "mkdir dir1/dirA: $!\n";
    mkdir 'dir1/dirB', 0777 or die "mkdir dir1/dirB: $!\n";
    mkdir 'dir1/dirC', 0777 or die "mkdir dir1/dirC: $!\n";
    mkdir 'dir2/dirA', 0777 or die "mkdir dir2/dirA: $!\n";
    mkdir 'dir2/dirB', 0777 or die "mkdir dir2/dirB: $!\n";
    mkdir 'dir2/dirC', 0777 or die "mkdir dir2/dirC: $!\n";
    set_file('dir1/fileAname1');
    set_file('dir1/fileAname2');
    set_file('dir1/fileAname3');
    set_file('dir1/fileAname4');
    set_file('dir1/fileAname5');
    set_file('dir1/fileBname1');
    set_file('dir1/fileBname2');
    set_file('dir1/fileBname3');
    set_file('dir1/fileBname4');
    set_file('dir1/fileBname5');
    # supply some varying sizes to produce different total size values
    set_file('dir1/dirA/fileAname4', '4444');
    sleep 2;    # ensure above file is oldest in dirA
    set_file('dir1/dirA/fileAname1', '1');
    set_file('dir1/dirA/fileAname2', '22');
    set_file('dir1/dirA/fileAname3', '333');
    set_file('dir1/dirA/fileAname5', '55555');
    set_file('dir1/dirA/fileBname1', '1');
    set_file('dir1/dirA/fileBname2', '22');
    set_file('dir1/dirA/fileBname3', '333');
    set_file('dir1/dirA/fileBname4', '4444');
    set_file('dir1/dirA/fileBname5', '55555');
    set_file('dir1/dirB/fileAname1', '1');
    set_file('dir1/dirB/fileAname2', '22');
    set_file('dir1/dirB/fileAname3', '333');
    set_file('dir1/dirB/fileAname4', '4444');
    set_file('dir1/dirB/fileAname5', '55555');
    set_file('dir1/dirB/fileBname1', '1');
    set_file('dir1/dirB/fileBname2', '22');
    set_file('dir1/dirB/fileBname3', '333');
    set_file('dir1/dirB/fileBname4', '4444');
    set_file('dir1/dirB/fileBname5', '55555');
    set_file('dir1/dirC/fileAname10', '12345678901');
    set_file('dir1/dirC/fileAname20', '123456789022');
    set_file('dir1/dirC/fileAname30', '1234567890333');
    set_file('dir1/dirC/fileAname40', '12345678904444');
    set_file('dir1/dirC/fileAname50', '123456789055555');
    set_file('dir1/dirC/fileBname10', '12345678901');
    set_file('dir1/dirC/fileBname20', '123456789022');
    set_file('dir1/dirC/fileBname30', '1234567890333');
    set_file('dir1/dirC/fileBname40', '12345678904444');
    set_file('dir1/dirC/fileBname50', '123456789055555');

    set_file('std.out.expect', <<'EOF');
<file{A,B,C}name*>:
    <./fileAname12>
    <./fileAname1>
    <./fileAname3>
    <./fileAname5>
    <./fileAname7>
    <./fileAname9>
    <./fileAname11>
    <./fileBname12>
    <./fileBname0>
    <./fileBname2>
    <./fileBname4>
    <./fileBname6>
    <./fileBname8>
    <./fileBname10>
total size: 0
    oldest <./fileBname12>
    oldest <./fileBname8>
    oldest <./fileBname6>
    oldest <./fileBname4>
    oldest <./fileBname2>
    oldest <./fileBname10>
    oldest <./fileBname0>
    oldest <./fileAname9>
    oldest <./fileAname7>
    oldest <./fileAname5>
    oldest <./fileAname3>
    oldest <./fileAname12>
    oldest <./fileAname11>
    oldest <./fileAname1>
<file{A,B,C}name>:
    <fileAname>
    <fileBname>
    <fileCname>
total size: 0
    oldest <fileCname>
    oldest <fileBname>
    oldest <fileAname>
<dir1/dirA/file*>:
    <./dir1/dirA/fileAname4>
    <./dir1/dirA/fileAname1>
    <./dir1/dirA/fileAname2>
    <./dir1/dirA/fileAname3>
    <./dir1/dirA/fileAname5>
    <./dir1/dirA/fileBname1>
    <./dir1/dirA/fileBname2>
    <./dir1/dirA/fileBname3>
    <./dir1/dirA/fileBname4>
    <./dir1/dirA/fileBname5>
total size: 30
    oldest <./dir1/dirA/fileAname4>
    oldest <./dir1/dirA/fileBname5>
    oldest <./dir1/dirA/fileBname4>
    oldest <./dir1/dirA/fileBname3>
    oldest <./dir1/dirA/fileBname2>
    oldest <./dir1/dirA/fileBname1>
    oldest <./dir1/dirA/fileAname5>
    oldest <./dir1/dirA/fileAname3>
    oldest <./dir1/dirA/fileAname2>
    oldest <./dir1/dirA/fileAname1>
<dir[13]/[e-z]*>:
    <./dir1/fileAname1>
    <./dir1/fileAname2>
    <./dir1/fileAname3>
    <./dir1/fileAname4>
    <./dir1/fileAname5>
    <./dir1/fileBname1>
    <./dir1/fileBname2>
    <./dir1/fileBname3>
    <./dir1/fileBname4>
    <./dir1/fileBname5>
total size: 0
    oldest <./dir1/fileBname5>
    oldest <./dir1/fileBname4>
    oldest <./dir1/fileBname3>
    oldest <./dir1/fileBname2>
    oldest <./dir1/fileBname1>
    oldest <./dir1/fileAname5>
    oldest <./dir1/fileAname4>
    oldest <./dir1/fileAname3>
    oldest <./dir1/fileAname2>
    oldest <./dir1/fileAname1>
<dir?/dir[AC]/fileBname[2-9]>:
    <./dir1/dirA/fileBname2>
    <./dir1/dirA/fileBname3>
    <./dir1/dirA/fileBname4>
    <./dir1/dirA/fileBname5>
total size: 14
    oldest <./dir1/dirA/fileBname5>
    oldest <./dir1/dirA/fileBname4>
    oldest <./dir1/dirA/fileBname3>
    oldest <./dir1/dirA/fileBname2>
<file[A-Z]n.*e([0-9]+)$0>:
    <./fileBname12>
    <./fileAname12>
    <./fileAname1>
    <./fileAname3>
    <./fileAname5>
    <./fileAname7>
    <./fileAname9>
    <./fileAname11>
    <./fileBname0>
    <./fileBname2>
    <./fileBname4>
    <./fileBname6>
    <./fileBname8>
    <./fileBname10>
total size: 0
    oldest <./fileBname12>
    oldest <./fileAname12>
    oldest <./fileAname11>
    oldest <./fileBname10>
    oldest <./fileAname9>
    oldest <./fileBname8>
    oldest <./fileAname7>
    oldest <./fileBname6>
    oldest <./fileAname5>
    oldest <./fileBname4>
    oldest <./fileAname3>
    oldest <./fileBname2>
    oldest <./fileAname1>
    oldest <./fileBname0>
EOF

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
exec /bin/diff std.out std.out.expect
EOF

    $testglobs='\'file{A,B,C}name*\' \'file{A,B,C}name\' \'dir1/dirA/file*\' \'dir[13]/[e-z]*\' \'dir?/dir[AC]/fileBname[2-9]\' -r \'file[A-Z]n.*e([0-9]+)$0\'';

    set_file('runtest', <<"EOF");
# test "globtest1"
$envsetup
exec $bindir/globtest $testglobs >std.out 2>std.err
EOF
}

###########################################################################
#
#   globtest2 -- error path through glob.c
#
###########################################################################
sub globtest2 {
    set_file('std.err.expect', <<'EOF');
globtest: Error: Missing }
EOF

    set_file('checktest', <<'EOF');
exec /bin/diff std.err std.err.expect
EOF

    set_file('runtest', <<"EOF");
# test "globtest2"
$envsetup
$bindir/globtest 'hello{there' >std.out 2>std.err || exit 0
exit 1
EOF
}

###########################################################################
#
#   kwtest1 -- minimal basic test of the kw.c code
#
###########################################################################
sub kwtest1 {
    $domainname = `/bin/domainname`; chomp $domainname;
    $isa = `/bin/uname -p`; chomp $isa;
    $platform = `/bin/uname -i`; chomp $platform;
    $nodename = `/bin/uname -n`; chomp $nodename;
    $machine = `/bin/uname -m`; chomp $machine;
    $release = `/bin/uname -r`; chomp $release;
$secondblob=<<'EOF';
expand<$file.$n> n -1 hasn 1 result </var/log/syslog\.([0-9]+)$0>
expand<$file.$n> n 0 hasn 1 result </var/log/syslog.0>
expand<$file.$n> n 1 hasn 1 result </var/log/syslog.1>
expand<moose%d.$n> n -1 hasn 1 result <moose[0-9]+\.([0-9]+)$0>
expand<moose%d.$n> n 0 hasn 1 result <moose%d.0>
expand<moose%d.$n> n 1 hasn 1 result <moose%d.1>
expand</var/logs-%Y/moose-$isa$#porklips%d.$n> n -1 hasn 1 result </var/logs-[0-9]+/moose-ISAporklips[0-9]+\.([0-9]+)$0>
expand</var/logs-%Y/moose-$isa$#porklips%d.$n> n 0 hasn 1 result </var/logs-%Y/moose-ISAporklips%d.0>
expand</var/logs-%Y/moose-$isa$#porklips%d.$n> n 1 hasn 1 result </var/logs-%Y/moose-ISAporklips%d.1>
EOF
    $percentd = `/bin/env TZ=UTC /bin/date +%d`; chomp $percentd;
    $percentY = `/bin/env TZ=UTC /bin/date +%Y`; chomp $percentY;
    $secondblob =~ s/%d/$percentd/mg;
    $secondblob =~ s/%Y/$percentY/mg;
    $secondblob =~ s/ISA/$isa/mg;
    $utcenv = "TZ=UTC export TZ";
    chomp $secondblob;
    set_file('sed.out.expect', <<"EOF");
            basename syslog
             dirname /var/log
              domain $domainname
                file /var/log/syslog
                home $dir
                 isa $isa
             logname $ENV{LOGNAME}
             machine $machine
               nfile
            nodename $nodename
            platform $platform
             release $release
                user $ENV{USER}
$secondblob
EOF

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
/bin/sed -e '/^ *secs [0-9][0-9]*$/d'\
    -e "s/%d/`/bin/env TZ=UTC /bin/date +%d`/g"\
    -e "s/%Y/`/bin/env TZ=UTC /bin/date +%Y`/g"\
    <std.out >sed.out
exec /bin/diff sed.out sed.out.expect
EOF

    $kwtest='kwtest /var/log/syslog \'$file.$n\' \'moose%d.$n\' \'/var/logs-%Y/moose-$isa$#porklips%d.$n\'';
    set_file('runtest', <<"EOF");
# test "kwtest1"
$envsetup
$utcenv
exec $bindir/$kwtest >std.out 2>std.err
EOF
}

###########################################################################
#
#   kwtest2 -- NULL environment variables test of the kw.c code
#
###########################################################################
sub kwtest2 {
    $domainname = `/bin/domainname`; chomp $domainname;
    $isa = `/bin/uname -p`; chomp $isa;
    $platform = `/bin/uname -i`; chomp $platform;
    $nodename = `/bin/uname -n`; chomp $nodename;
    $machine = `/bin/uname -m`; chomp $machine;
    $release = `/bin/uname -r`; chomp $release;
$secondblob=<<'EOF';
expand<$file.$n> n -1 hasn 1 result </var/log/syslog\.([0-9]+)$0>
expand<$file.$n> n 0 hasn 1 result </var/log/syslog.0>
expand<$file.$n> n 1 hasn 1 result </var/log/syslog.1>
expand<moose%d.$n> n -1 hasn 1 result <moose[0-9]+\.([0-9]+)$0>
expand<moose%d.$n> n 0 hasn 1 result <moose%d.0>
expand<moose%d.$n> n 1 hasn 1 result <moose%d.1>
expand</var/logs-%Y/moose-$isa$#porklips%d.$n> n -1 hasn 1 result </var/logs-[0-9]+/moose-ISAporklips[0-9]+\.([0-9]+)$0>
expand</var/logs-%Y/moose-$isa$#porklips%d.$n> n 0 hasn 1 result </var/logs-%Y/moose-ISAporklips%d.0>
expand</var/logs-%Y/moose-$isa$#porklips%d.$n> n 1 hasn 1 result </var/logs-%Y/moose-ISAporklips%d.1>
EOF
    $percentd = `/bin/env TZ=UTC /bin/date +%d`; chomp $percentd;
    $percentY = `/bin/env TZ=UTC /bin/date +%Y`; chomp $percentY;
    $secondblob =~ s/%d/$percentd/mg;
    $secondblob =~ s/%Y/$percentY/mg;
    $secondblob =~ s/ISA/$isa/mg;
    chomp $secondblob;
    set_file('sed.out.expect', <<"EOF");
            basename syslog
             dirname /var/log
              domain $domainname
                file /var/log/syslog
                home
                 isa $isa
             logname
             machine $machine
               nfile
            nodename $nodename
            platform $platform
             release $release
                user
$secondblob
EOF

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
/bin/sed -e '/^ *secs [0-9][0-9]*$/d'\
    -e "s/%d/`/bin/env TZ=UTC /bin/date +%d`/g"\
    -e "s/%Y/`/bin/env TZ=UTC /bin/date +%Y`/g"\
    <std.out >sed.out
exec /bin/diff sed.out sed.out.expect
EOF

    $kwtest='kwtest /var/log/syslog \'$file.$n\' \'moose%d.$n\' \'/var/logs-%Y/moose-$isa$#porklips%d.$n\'';
    set_file('runtest', <<"EOF");
# test "kwtest2"
$envsetup
LOGNAME=
export LOGNAME
HOME=
export HOME
USER=
export USER
exec $bindir/$kwtest >std.out 2>std.err
EOF
}

###########################################################################
#
#   luttest1 -- minimal basic test of the lut.c code
#
###########################################################################
sub luttest1 {
    set_file('std.out.expect', <<'EOF');
lut contains:
<fix> <NULL> (<NULL>)
<one> <two> (<two>)
<seven> <eight> (<eight>)
<six> <NULL> (<NULL>)
<three> <four> (<four>)
dup lut contains:
<fix> <NULL> (<NULL>)
<one> <two> (<two>)
<seven> <eight> (<eight>)
<six> <NULL> (<NULL>)
<three> <four> (<four>)
EOF

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
exec /bin/diff std.out std.out.expect
EOF

    set_file('runtest', <<"EOF");
# test "luttest1"
$envsetup
exec $bindir/luttest one=two three=four fix six seven=eight >std.out 2>std.err
EOF
}

###########################################################################
#
#   optstest1 -- minimal basic test of the opts.c code
#
###########################################################################
sub optstest1 {
    $options="-a -b moose -c 1h -d 'Fri Nov  2 13:19:55 2001' -e 1k -f 2 one two three";
    set_file('std.out.expect', <<"EOF");
options: $options
EOF

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
exec /bin/diff std.out std.out.expect
EOF

    set_file('runtest', <<"EOF");
# test "optstest1"
$envsetup
exec $bindir/optstest $options >std.out 2>std.err
EOF
}

###########################################################################
#
#   optstest2 -- error path through opts.c code
#
###########################################################################
sub optstest2 {
    $options="-a -b -c 1h -d 'Fri Nov  2 13:19:55 2001' -e 1k -f 2 one two three";
    set_file('std.err.expect', <<'EOF');
optstest: Error: Option 'b' requires an argument
optstest: Error: opts parsing failed
EOF

    set_file('checktest', <<'EOF');
[ -s std.out ] && exit 1
exec /bin/diff std.err std.err.expect
EOF

    set_file('runtest', <<"EOF");
# test "optstest2"
$envsetup
$bindir/optstest $options >std.out 2>std.err || exit 0
exit 1
EOF
}

###########################################################################
#
#   logadmV1 -- test of "logadm -V"
#
###########################################################################
sub logadmV1 {
    set_testconffile;

    set_file('std.out.expect', <<'EOF');
/var/adm/messages -C 4 -P 'Thu Nov  1 16:56:42 2001' -a 'kill -HUP `cat /var/run/syslog.pid`'
/var/cron/log -s 512k -t /var/cron/olog
/var/lp/logs/lpsched -C 2 -N -t '$file.$N'
/var/adm/pacct -C 0 -a '/usr/lib/acct/accton pacct' -g adm -m 664 -o adm -p never
apache -C 24 -a '/usr/apache/bin/apachectl graceful' -p 1m -t '/var/apache/old-logs/$basename.%Y-%m' '/var/apache/logs/*{access,error}_log'
/var/log/syslog -C 8 -P 'Thu Nov  1 09:16:38 2001' -a 'kill -HUP `cat /var/run/syslog.pid`'
/var/apache/logs/access_log -P 'Thu Nov  1 08:27:56 2001'
/var/apache/logs/error_log -P 'Thu Nov  1 08:27:56 2001'
/var/apache/logs/suexec_log -P 'Thu Nov  1 08:27:56 2001'
/var/apache/logs/mod_jserv.log -P 'Thu Nov  1 08:27:56 2001'
/var/apache/logs/jserv.log -P 'Thu Nov  1 08:27:56 2001'
EOF

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
exec /bin/diff std.out std.out.expect
EOF

    set_file('runtest', <<"EOF");
# test "logadmV1"
$envsetup
exec $bindir/logadm -f testfile.conf -V >std.out 2>std.err
EOF
}

###########################################################################
#
#   logadmV2 -- test of "logadm -V <entry>"
#
###########################################################################
sub logadmV2 {
    set_testconffile;

    set_file('std.out.expect', <<'EOF');
/var/cron/log -s 512k -t /var/cron/olog
/var/adm/pacct -C 0 -a '/usr/lib/acct/accton pacct' -g adm -m 664 -o adm -p never
EOF

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
exec /bin/diff std.out std.out.expect
EOF

    set_file('runtest', <<"EOF");
# test "logadmV2"
$envsetup
exec $bindir/logadm -f testfile.conf -V /var/cron/log /var/adm/pacct >std.out 2>std.err
EOF
}

###########################################################################
#
#   logadmr -- test of "logadm -r <entry>"
#
###########################################################################
sub logadmr {
    set_testconffile;
    set_testconffile('testfile.conf.orig');

    set_file('diff.out.expect', <<'EOF');
17a18
> /var/cron/log -s 512k -t /var/cron/olog
21a23
> /var/adm/pacct -C 0 -a '/usr/lib/acct/accton pacct' -g adm -m 664 -o adm -p never
EOF

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
/bin/diff testfile.conf testfile.conf.orig > diff.out
exec /bin/diff diff.out diff.out.expect
EOF

    set_file('runtest', <<"EOF");
# test "logadmr"
$envsetup
exec $bindir/logadm -f testfile.conf -r /var/cron/log /var/adm/pacct >std.out 2>std.err
EOF
}

###########################################################################
#
#   logadmw -- test of "logadm -w <entry>"
#
###########################################################################
sub logadmw {
    set_testconffile;
    set_testconffile('testfile.conf.orig');

    set_file('diff.out.expect', <<'EOF');
31d30
< moose -C 20 -a moose_after_cmd -g pig -m 664 -o cow -p never /moose/file
EOF

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
/bin/diff testfile.conf testfile.conf.orig > diff.out
exec /bin/diff diff.out diff.out.expect
EOF

    set_file('runtest', <<"EOF");
# test "logadmw"
$envsetup
exec $bindir/logadm -f testfile.conf -w moose -C 20 -a moose_after_cmd -g pig -m 664 -o cow -p never /moose/file >std.out 2>std.err
EOF
}

###########################################################################
#
#   logadm1 -- minimal basic test of logadm rotation
#
###########################################################################
sub logadm1 {
    set_file('logfile', 'initially logfile');
    set_file('logfile.0', 'initially logfile.0');
    my ($stdev, $stino, $stmode, $stnlink, $stuid, $stgid, $strdev,
        $stsize, $statime, $stmtime, $stctime, $stblksize, $stblocks) =
        lstat 'logfile' or die "lstat logfile: $!\n";

    set_file('checktest', <<"EOF");
[ -s std.err ] && exit 1
[ -s std.out ] && exit 1
[ -s logfile ] && exit 1
[ -f logfile.0 ] || exit 1
[ "xinitially logfile" = "x`/bin/cat logfile.0`" ] || exit 1
[ "`/bin/ls -i logfile.0 | /bin/awk '{ print \$1; }'`" = "$stino" ] || exit 1
[ -f logfile.1 ] || exit 1
[ "xinitially logfile.0" = "x`/bin/cat logfile.1`" ] || exit 1
exit 0
EOF

    set_file('runtest', <<"EOF");
# test "logadm1"
$envsetup
exec $bindir/logadm -f /dev/null -p now logfile >std.out 2>std.err
EOF
}

###########################################################################
#
#   logadm1c -- same as logadm1 but with -c option
#
###########################################################################
sub logadm1c {
    set_file('logfile', 'initially logfile');
    set_file('logfile.0', 'initially logfile.0');
    my ($stdev, $stino, $stmode, $stnlink, $stuid, $stgid, $strdev,
        $stsize, $statime, $stmtime, $stctime, $stblksize, $stblocks) =
        lstat 'logfile' or die "lstat logfile: $!\n";

    set_file('checktest', <<"EOF");
[ -s std.err ] && exit 1
[ -s std.out ] && exit 1
[ -s logfile ] && exit 1
[ -f logfile.0 ] || exit 1
[ "xinitially logfile" = "x`/bin/cat logfile.0`" ] || exit 1
[ "`/bin/ls -i logfile.0 | /bin/awk '{ print \$1; }'`" = "$stino" ] && exit 1
[ -f logfile.1 ] || exit 1
[ "xinitially logfile.0" = "x`/bin/cat logfile.1`" ] || exit 1
exit 0
EOF

    set_file('runtest', <<"EOF");
# test "logadm1c"
$envsetup
exec $bindir/logadm -f /dev/null -p now -c logfile >std.out 2>std.err
EOF
}

###########################################################################
#
#   logadm2 -- minimal basic test of logadm expiration
#
###########################################################################
sub logadm2 {
    set_file('logfile', 'initially logfile');
    set_file('logfile.0', 'initially logfile.0');
    set_file('logfile.1', 'initially logfile.1');

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
[ -s std.out ] && exit 1
[ -s logfile ] && exit 1
[ -f logfile.0 ] || exit 1
[ "xinitially logfile" = "x`/bin/cat logfile.0`" ] || exit 1
[ -f logfile.1 ] || exit 1
[ "xinitially logfile.0" = "x`/bin/cat logfile.1`" ] || exit 1
[ -f logfile.2 ] && exit 1
exit 0
EOF

    set_file('runtest', <<"EOF");
# test "logadm2"
$envsetup
exec $bindir/logadm -f /dev/null -p now logfile -C2 >std.out 2>std.err
EOF
}

###########################################################################
#
#   logadm3 -- minimal basic test of logadm pre/post-commands
#
###########################################################################
sub logadm3 {
    set_file('logfile', 'initially logfile');
    set_file('logfile.0', 'initially logfile.0');
    set_file('logfile.1', 'initially logfile.1');

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
[ -s std.out ] && exit 1
[ -s logfile ] && exit 1
[ -f logfile.0 ] || exit 1
[ "xinitially logfile" = "x`/bin/cat logfile.0`" ] || exit 1
[ -f logfile.1 ] || exit 1
[ "xinitially logfile.0" = "x`/bin/cat logfile.1`" ] || exit 1
[ -f logfile.2 ] && exit 1
[ -f pre.out ] || exit 1
[ "xpre-command-stuff" = "x`/bin/cat pre.out`" ] || exit 1
[ -f post.out ] || exit 1
[ "xpost-command-stuff" = "x`/bin/cat post.out`" ] || exit 1
exit 0
EOF

    set_file('runtest', <<"EOF");
# test "logadm3"
$envsetup
exec $bindir/logadm -f /dev/null -p now logfile -C2 -b 'echo pre-command-stuff > pre.out' -a 'echo post-command-stuff > post.out' >std.out 2>std.err
EOF
}

###########################################################################
#
#   logadm4 -- test of -t template
#
###########################################################################
sub logadm4 {
    set_file('logfile', 'initially logfile');

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
[ -s std.out ] && exit 1
[ -s logfile ] && exit 1
TZ=UTC export TZ
d=`/bin/date +%d`
[ -f logfile.$d ] || exit 1
[ "xinitially logfile" = "x`/bin/cat logfile.$d`" ] || exit 1
exit 0
EOF

    set_file('runtest', <<"EOF");
# test "logadm4"
$envsetup
exec $bindir/logadm -f /dev/null -p now logfile -t '\$file.\%d' >std.out 2>std.err
EOF
}

###########################################################################
#
#   logadm5 -- test of -R cmd and -E cmd
#
###########################################################################
sub logadm5 {
    set_file('logfile', 'initially logfile');
    set_file('logfile.0', 'initially logfile.0');

    set_file('cmd.out.expect', <<'EOF');
just rotated: initially logfile
just expired: initially logfile.0
EOF

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
[ -s std.out ] && exit 1
[ -s logfile ] && exit 1
[ -f logfile.0 ] || exit 1
[ "xinitially logfile" = "x`/bin/cat logfile.0`" ] || exit 1
[ -f logfile.1 ] || exit 1
[ "xinitially logfile.0" = "x`/bin/cat logfile.1`" ] || exit 1
exec /bin/diff cmd.out cmd.out.expect
EOF

    set_file('runtest', <<"EOF");
# test "logadm5"
$envsetup
exec $bindir/logadm -f /dev/null -p now logfile -C1 -R 'echo just rotated: `/bin/cat \$file` >>cmd.out' -E 'echo just expired: `/bin/cat \$file` >>cmd.out' >std.out 2>std.err
EOF
}

###########################################################################
#
#   logadm6 -- test of -m, -o, -g
#
###########################################################################
sub logadm6 {
        set_file('logfile', 'initially logfile');

        set_file('std.err.expect', <<'EOF');
logadm: Warning: command failed: /bin/chown _nonexistentuser_:_nonexistentgroup_ logfile
chown: unknown group id _nonexistentgroup_
EOF

        set_file('checktest', <<'EOF');
[ -s std.err ] || exit 1
[ -s std.out ] && exit 1
[ -s logfile ] && exit 1
[ -f logfile.0 ] || exit 1
[ "xinitially logfile" = "x`/bin/cat logfile.0`" ] || exit 1
[ "`/bin/ls -l logfile | /bin/awk '{ print $1; }'`" = "-r----x--x" ] || exit 1
exec /bin/diff std.err std.err.expect
EOF

        set_file('runtest', <<"EOF");
# test "logadm6"
$envsetup
exec $bindir/logadm -f /dev/null -p now logfile -m 411 -o _nonexistentuser_ -g _nonexistentgroup_ >std.out 2>std.err
EOF
}

###########################################################################
#
#       logadm7 -- test running through a conffile
#
###########################################################################
sub logadm7 {
    mkdir 'dir1', 0777 or die "mkdir dir1: $!\n";
    set_file('dir1/syslog', 'initially dir1/syslog');
    set_file('dir1/syslog.0', 'initially dir1/syslog.0');
    set_file('dir1/syslog.1', 'initially dir1/syslog.1');
    set_file('dir1/syslog.2', 'initially dir1/syslog.2');
    set_file('dir1/syslog.3', 'initially dir1/syslog.3');
    set_file('dir1/syslog.4', 'initially dir1/syslog.4');
    set_file('dir1/syslog.5', 'initially dir1/syslog.5');
    set_file('dir1/syslog.6', 'initially dir1/syslog.6');
    set_file('dir1/syslog.7', 'initially dir1/syslog.7');
    mkdir 'dir2', 0777 or die "mkdir dir2: $!\n";
    set_file('dir2/messages', 'initially dir2/messages');
    set_file('dir2/messages.0', 'initially dir2/messages.0');
    set_file('dir2/messages.1', 'initially dir2/messages.1');
    set_file('dir2/messages.2', 'initially dir2/messages.2');
    set_file('dir2/messages.3', 'initially dir2/messages.3');

    set_file('logadm.conf', <<'EOF');
#
# logadm.conf
#
#   this comment # has at least another #-sign in it #...
#
# Default settings for system log file management.
# The -w option to logadm(1M) is the preferred way to write to this file,
# but if you do edit it by hand, use "logadm -V" to check it for errors.
# but if you do edit it by hand, use "logadm -V" to check it for errors.
#
# The format of lines in this file is:
#       <logname> <options>
# For each logname listed here, the default options to logadm
# are given.  Options given on the logadm command line override
# the defaults contained in this file.
#
# logadm typically runs early every morning via an entry in
# root's crontab (see crontab(1)).
#
dir1/syslog -C 8 -a 'echo kill -HUP `cat /etc/syslog.pid` >> cmd.out'
dir2/messages -C 4 -a 'echo kill -HUP `cat /etc/syslog.pid` >> cmd.out'
#
# The entry below is used by turnacct(1M)
#
/var/adm/pacct -C 0 -a '/usr/lib/acct/accton pacct' -g adm -m 664 -o adm -p never
EOF

    system("/bin/cp logadm.conf logadm.conf.orig");

    $pid=`cat /etc/syslog.pid`;
    chomp $pid;
    set_file('cmd.out.expect', <<"EOF");
kill -HUP $pid
second kill -HUP $pid
EOF

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
[ -s std.out ] && exit 1
[ -s std.err2 ] && exit 1
[ -s std.out2 ] && exit 1
[ -s std.err3 ] && exit 1
[ -s std.out3 ] && exit 1
[ -s std.err4 ] && exit 1
[ -s std.out4 ] && exit 1
[ -f dir1/syslog ] || exit 1
[ "xsomething" = "x`/bin/cat dir1/syslog`" ] || exit 1
[ -f dir1/syslog.0 ] || exit 1
[ "xinitially dir1/syslog" = "x`/bin/cat dir1/syslog.0`" ] || exit 1
[ -f dir1/syslog.1 ] || exit 1
[ "xinitially dir1/syslog.0" = "x`/bin/cat dir1/syslog.1`" ] || exit 1
[ -f dir1/syslog.2 ] || exit 1
[ "xinitially dir1/syslog.1" = "x`/bin/cat dir1/syslog.2`" ] || exit 1
[ -f dir1/syslog.3 ] || exit 1
[ "xinitially dir1/syslog.2" = "x`/bin/cat dir1/syslog.3`" ] || exit 1
[ -f dir1/syslog.4 ] || exit 1
[ "xinitially dir1/syslog.3" = "x`/bin/cat dir1/syslog.4`" ] || exit 1
[ -f dir1/syslog.5 ] || exit 1
[ "xinitially dir1/syslog.4" = "x`/bin/cat dir1/syslog.5`" ] || exit 1
[ -f dir1/syslog.6 ] || exit 1
[ "xinitially dir1/syslog.5" = "x`/bin/cat dir1/syslog.6`" ] || exit 1
[ -f dir1/syslog.7 ] || exit 1
[ "xinitially dir1/syslog.6" = "x`/bin/cat dir1/syslog.7`" ] || exit 1
[ -f dir1/syslog.8 ] && exit 1

[ -s dir2/messages ] && exit 1
[ -f dir2/messages.0 ] || exit 1
[ "xsomething" = "x`/bin/cat dir2/messages.0`" ] || exit 1
[ -f dir2/messages.1 ] || exit 1
[ "xinitially dir2/messages" = "x`/bin/cat dir2/messages.1`" ] || exit 1
[ -f dir2/messages.2 ] || exit 1
[ "xinitially dir2/messages.0" = "x`/bin/cat dir2/messages.2`" ] || exit 1
[ -f dir2/messages.3 ] || exit 1
[ "xinitially dir2/messages.1" = "x`/bin/cat dir2/messages.3`" ] || exit 1
[ -f dir2/messages.4 ] && exit 1
/bin/sed "s/-P '[^']*' *//" < logadm.conf > sed.out
exec /bin/diff sed.out logadm.conf.orig
EOF

        # first logadm call will rotate both syslog and messages
        # second one won't because size is zero
        # third one won't because of -P timestamps stored in conffile
        # fourth one will do messages because of -p now on command line
        set_file('runtest', <<"EOF");
# test "logadm7"
$envsetup
$bindir/logadm -f logadm.conf >std.out 2>std.err || exit 1
$bindir/logadm -f logadm.conf dir1/syslog dir2/messages >std.out2 2>std.err2 || exit 1
echo something > dir1/syslog
echo something > dir2/messages
$bindir/logadm -f logadm.conf >std.out3 2>std.err3 || exit 1
exec $bindir/logadm -f logadm.conf dir2/messages -p now -a 'echo second kill -HUP `cat /etc/syslog.pid` >> cmd.out' >std.out4 2>std.err4
EOF
}

###########################################################################
#
#       logadm8 -- test of -z
#
###########################################################################
sub logadm8 {
    mkdir 'dir1', 0777 or die "mkdir dir1: $!\n";
    set_file('dir1/syslog', 'initially dir1/syslog');
    set_file('dir1/syslog.0', 'initially dir1/syslog.0');
    set_file('dir1/syslog.1', 'initially dir1/syslog.1');
    set_file('dir1/syslog.2', 'initially dir1/syslog.2');
    system("/bin/gzip dir1/syslog.2");
    die "gzip dir1/syslog.2 didn't work\n" unless -f 'dir1/syslog.2.gz';
    set_file('dir1/syslog.3', 'initially dir1/syslog.3');
    system("/bin/gzip dir1/syslog.3");
    die "gzip dir1/syslog.3 didn't work\n" unless -f 'dir1/syslog.3.gz';
    set_file('dir1/syslog.4', 'initially dir1/syslog.4');
    system("/bin/gzip dir1/syslog.4");
    die "gzip dir1/syslog.4 didn't work\n" unless -f 'dir1/syslog.4.gz';
    set_file('dir1/syslog.5', 'initially dir1/syslog.5');
    system("/bin/gzip dir1/syslog.5");
    die "gzip dir1/syslog.5 didn't work\n" unless -f 'dir1/syslog.5.gz';
    set_file('dir1/syslog.6', 'initially dir1/syslog.6');
    system("/bin/gzip dir1/syslog.6");
    die "gzip dir1/syslog.6 didn't work\n" unless -f 'dir1/syslog.6.gz';
    set_file('dir1/syslog.7', 'initially dir1/syslog.7');
    system("/bin/gzip dir1/syslog.7");
    die "gzip dir1/syslog.7 didn't work\n" unless -f 'dir1/syslog.7.gz';

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
[ -s std.out ] && exit 1
[ -f dir1/syslog ] || exit 1
[ -s dir1/syslog ] && exit 1
[ -f dir1/syslog.0 ] || exit 1
[ "xinitially dir1/syslog" = "x`/bin/cat dir1/syslog.0`" ] || exit 1
[ -f dir1/syslog.1 ] || exit 1
[ "xinitially dir1/syslog.0" = "x`/bin/cat dir1/syslog.1`" ] || exit 1
[ -f dir1/syslog.2.gz ] || exit 1
[ "xinitially dir1/syslog.1" = "x`/bin/gzcat dir1/syslog.2.gz`" ] || exit 1
[ -f dir1/syslog.3.gz ] || exit 1
[ "xinitially dir1/syslog.2" = "x`/bin/gzcat dir1/syslog.3.gz`" ] || exit 1
[ -f dir1/syslog.4.gz ] || exit 1
[ "xinitially dir1/syslog.3" = "x`/bin/gzcat dir1/syslog.4.gz`" ] || exit 1
[ -f dir1/syslog.5.gz ] || exit 1
[ "xinitially dir1/syslog.4" = "x`/bin/gzcat dir1/syslog.5.gz`" ] || exit 1
[ -f dir1/syslog.6.gz ] || exit 1
[ "xinitially dir1/syslog.5" = "x`/bin/gzcat dir1/syslog.6.gz`" ] || exit 1
[ -f dir1/syslog.7.gz ] || exit 1
[ "xinitially dir1/syslog.6" = "x`/bin/gzcat dir1/syslog.7.gz`" ] || exit 1
[ -f dir1/syslog.8 ] && exit 1
[ -f dir1/syslog.8.gz ] && exit 1
exit 0
EOF

        set_file('runtest', <<"EOF");
# test "logadm8"
$envsetup
exec $bindir/logadm -f /dev/null dir1/syslog -z 2 -C 8 >std.out 2>std.err
EOF
}

###########################################################################
#
#       logadm9 -- test of age check
#
###########################################################################
sub logadm9 {
    mkdir 'dir1', 0777 or die "mkdir dir1: $!\n";
    set_file('dir1/syslog', 'initially dir1/syslog');
    set_file('dir1/syslog.0', 'initially dir1/syslog.0');
    set_file('dir1/syslog.1', 'initially dir1/syslog.1');
    set_file('dir1/syslog.2', 'initially dir1/syslog.2');
    set_file('dir1/syslog.3', 'initially dir1/syslog.3');
    set_file('dir1/syslog.4', 'initially dir1/syslog.4');
    set_file('dir1/syslog.5', 'initially dir1/syslog.5');
    set_file('dir1/syslog.6', 'initially dir1/syslog.6');
    set_file('dir1/syslog.7', 'initially dir1/syslog.7');
    mkdir 'dir2', 0777 or die "mkdir dir2: $!\n";
    set_file('dir2/messages', 'initially dir2/messages');
    set_file('dir2/messages.0', 'initially dir2/messages.0');
    set_file('dir2/messages.1', 'initially dir2/messages.1');
    set_file('dir2/messages.2', 'initially dir2/messages.2');
    set_file('dir2/messages.3', 'initially dir2/messages.3');

    $now = time;
    $nowstr = gmtime($now);
    # a week minus 30 seconds ago...
    # technically not a full week, but the heuristic used by logadm
    # should think this is "close enough" to a full week
    $closetoweeksecs = $now - (60 * 60 * 24 * 7 - 30);
    $closetoweek = gmtime($closetoweeksecs);
    # a week minus six hours ago...
    $lessthanweeksecs = $now - (60 * 60 * 24 * 7 - 60 * 60 * 6);
    $lessthanweek = gmtime($lessthanweeksecs);

    set_file('logadm.conf', <<"EOF");
# now: $nowstr is $now
# $closetoweek is $closetoweeksecs
dir1/syslog -C 8 -P '$closetoweek'
# $lessthanweek is $lessthanweeksecs
dir2/messages -C 4 -P '$lessthanweek'
EOF

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
[ -s std.out ] && exit 1
[ -f dir1/syslog ] || exit 1
[ -s dir1/syslog ] && exit 1
[ -f dir1/syslog.0 ] || exit 1
[ "xinitially dir1/syslog" = "x`/bin/cat dir1/syslog.0`" ] || exit 1
[ -f dir1/syslog.1 ] || exit 1
[ "xinitially dir1/syslog.0" = "x`/bin/cat dir1/syslog.1`" ] || exit 1
[ -f dir1/syslog.2 ] || exit 1
[ "xinitially dir1/syslog.1" = "x`/bin/cat dir1/syslog.2`" ] || exit 1
[ -f dir1/syslog.3 ] || exit 1
[ "xinitially dir1/syslog.2" = "x`/bin/cat dir1/syslog.3`" ] || exit 1
[ -f dir1/syslog.4 ] || exit 1
[ "xinitially dir1/syslog.3" = "x`/bin/cat dir1/syslog.4`" ] || exit 1
[ -f dir1/syslog.5 ] || exit 1
[ "xinitially dir1/syslog.4" = "x`/bin/cat dir1/syslog.5`" ] || exit 1
[ -f dir1/syslog.6 ] || exit 1
[ "xinitially dir1/syslog.5" = "x`/bin/cat dir1/syslog.6`" ] || exit 1
[ -f dir1/syslog.7 ] || exit 1
[ "xinitially dir1/syslog.6" = "x`/bin/cat dir1/syslog.7`" ] || exit 1
[ -f dir1/syslog.8 ] && exit 1

[ -f dir2/messages ] || exit 1
[ "xinitially dir2/messages" = "x`/bin/cat dir2/messages`" ] || exit 1
[ -f dir2/messages.0 ] || exit 1
[ "xinitially dir2/messages.0" = "x`/bin/cat dir2/messages.0`" ] || exit 1
[ -f dir2/messages.1 ] || exit 1
[ "xinitially dir2/messages.1" = "x`/bin/cat dir2/messages.1`" ] || exit 1
[ -f dir2/messages.2 ] || exit 1
[ "xinitially dir2/messages.2" = "x`/bin/cat dir2/messages.2`" ] || exit 1
[ -f dir2/messages.3 ] || exit 1
[ "xinitially dir2/messages.3" = "x`/bin/cat dir2/messages.3`" ] || exit 1
[ -f dir2/messages.4 ] && exit 1
exit 0
EOF

        set_file('runtest', <<"EOF");
# test "logadm9"
$envsetup
exec $bindir/logadm -f logadm.conf >std.out 2>std.err
EOF
}

###########################################################################
#
#       logadm9d -- test of age check like logadm9, but age is a couple days
#
###########################################################################
sub logadm9d {
    mkdir 'dir1', 0777 or die "mkdir dir1: $!\n";
    set_file('dir1/syslog', 'initially dir1/syslog');
    set_file('dir1/syslog.0', 'initially dir1/syslog.0');
    set_file('dir1/syslog.1', 'initially dir1/syslog.1');
    set_file('dir1/syslog.2', 'initially dir1/syslog.2');
    set_file('dir1/syslog.3', 'initially dir1/syslog.3');
    set_file('dir1/syslog.4', 'initially dir1/syslog.4');
    set_file('dir1/syslog.5', 'initially dir1/syslog.5');
    set_file('dir1/syslog.6', 'initially dir1/syslog.6');
    set_file('dir1/syslog.7', 'initially dir1/syslog.7');
    mkdir 'dir2', 0777 or die "mkdir dir2: $!\n";
    set_file('dir2/messages', 'initially dir2/messages');
    set_file('dir2/messages.0', 'initially dir2/messages.0');
    set_file('dir2/messages.1', 'initially dir2/messages.1');
    set_file('dir2/messages.2', 'initially dir2/messages.2');
    set_file('dir2/messages.3', 'initially dir2/messages.3');

    $now = time;
    $nowstr = gmtime($now);
    # a day minus 30 seconds ago...
    $closetodaysecs = $now - (60 * 60 * 24 - 30);
    $closetoday = gmtime($closetodaysecs);
    # a day minus six hours ago...
    $lessthandaysecs = $now - (60 * 60 * 24 - 60 * 60 * 6);
    $lessthanday = gmtime($lessthandaysecs);

    set_file('logadm.conf', <<"EOF");
# now: $nowstr is $now
# $closetoday is $closetodaysecs
dir1/syslog -p 1d -C 8 -P '$closetoday'
# $lessthanday is $lessthandaysecs
dir2/messages -p 1d -C 4 -P '$lessthanday'
EOF

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
[ -s std.out ] && exit 1
[ -f dir1/syslog ] || exit 1
[ -s dir1/syslog ] && exit 1
[ -f dir1/syslog.0 ] || exit 1
[ "xinitially dir1/syslog" = "x`/bin/cat dir1/syslog.0`" ] || exit 1
[ -f dir1/syslog.1 ] || exit 1
[ "xinitially dir1/syslog.0" = "x`/bin/cat dir1/syslog.1`" ] || exit 1
[ -f dir1/syslog.2 ] || exit 1
[ "xinitially dir1/syslog.1" = "x`/bin/cat dir1/syslog.2`" ] || exit 1
[ -f dir1/syslog.3 ] || exit 1
[ "xinitially dir1/syslog.2" = "x`/bin/cat dir1/syslog.3`" ] || exit 1
[ -f dir1/syslog.4 ] || exit 1
[ "xinitially dir1/syslog.3" = "x`/bin/cat dir1/syslog.4`" ] || exit 1
[ -f dir1/syslog.5 ] || exit 1
[ "xinitially dir1/syslog.4" = "x`/bin/cat dir1/syslog.5`" ] || exit 1
[ -f dir1/syslog.6 ] || exit 1
[ "xinitially dir1/syslog.5" = "x`/bin/cat dir1/syslog.6`" ] || exit 1
[ -f dir1/syslog.7 ] || exit 1
[ "xinitially dir1/syslog.6" = "x`/bin/cat dir1/syslog.7`" ] || exit 1
[ -f dir1/syslog.8 ] && exit 1

[ -f dir2/messages ] || exit 1
[ "xinitially dir2/messages" = "x`/bin/cat dir2/messages`" ] || exit 1
[ -f dir2/messages.0 ] || exit 1
[ "xinitially dir2/messages.0" = "x`/bin/cat dir2/messages.0`" ] || exit 1
[ -f dir2/messages.1 ] || exit 1
[ "xinitially dir2/messages.1" = "x`/bin/cat dir2/messages.1`" ] || exit 1
[ -f dir2/messages.2 ] || exit 1
[ "xinitially dir2/messages.2" = "x`/bin/cat dir2/messages.2`" ] || exit 1
[ -f dir2/messages.3 ] || exit 1
[ "xinitially dir2/messages.3" = "x`/bin/cat dir2/messages.3`" ] || exit 1
[ -f dir2/messages.4 ] && exit 1
exit 0
EOF

        set_file('runtest', <<"EOF");
# test "logadm9d"
$envsetup
exec $bindir/logadm -f logadm.conf >std.out 2>std.err
EOF
}

###########################################################################
#
#       logadm10 -- test of size-based rotation check
#
###########################################################################
sub logadm10 {
    mkdir 'dir1', 0777 or die "mkdir dir1: $!\n";
    set_file('dir1/syslog', 'initially dir1/syslogXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX');
    set_file('dir1/syslog.0', 'initially dir1/syslog.0');
    set_file('dir1/syslog.1', 'initially dir1/syslog.1');
    set_file('dir1/syslog.2', 'initially dir1/syslog.2');
    set_file('dir1/syslog.3', 'initially dir1/syslog.3');
    set_file('dir1/syslog.4', 'initially dir1/syslog.4');
    set_file('dir1/syslog.5', 'initially dir1/syslog.5');
    set_file('dir1/syslog.6', 'initially dir1/syslog.6');
    set_file('dir1/syslog.7', 'initially dir1/syslog.7');
    mkdir 'dir2', 0777 or die "mkdir dir2: $!\n";
    set_file('dir2/messages', 'initially dir2/messages');
    set_file('dir2/messages.0', 'initially dir2/messages.0');
    set_file('dir2/messages.1', 'initially dir2/messages.1');
    set_file('dir2/messages.2', 'initially dir2/messages.2');
    set_file('dir2/messages.3', 'initially dir2/messages.3');

    set_file('logadm.conf', <<"EOF");
dir1/syslog -C 8 -s 30b
dir2/messages -C 4 -s 30b
EOF

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
[ -s std.out ] && exit 1
[ -f dir1/syslog ] || exit 1
[ -s dir1/syslog ] && exit 1
[ -f dir1/syslog.0 ] || exit 1
[ "xinitially dir1/syslogXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" = "x`/bin/cat dir1/syslog.0`" ] || exit 1
[ -f dir1/syslog.1 ] || exit 1
[ "xinitially dir1/syslog.0" = "x`/bin/cat dir1/syslog.1`" ] || exit 1
[ -f dir1/syslog.2 ] || exit 1
[ "xinitially dir1/syslog.1" = "x`/bin/cat dir1/syslog.2`" ] || exit 1
[ -f dir1/syslog.3 ] || exit 1
[ "xinitially dir1/syslog.2" = "x`/bin/cat dir1/syslog.3`" ] || exit 1
[ -f dir1/syslog.4 ] || exit 1
[ "xinitially dir1/syslog.3" = "x`/bin/cat dir1/syslog.4`" ] || exit 1
[ -f dir1/syslog.5 ] || exit 1
[ "xinitially dir1/syslog.4" = "x`/bin/cat dir1/syslog.5`" ] || exit 1
[ -f dir1/syslog.6 ] || exit 1
[ "xinitially dir1/syslog.5" = "x`/bin/cat dir1/syslog.6`" ] || exit 1
[ -f dir1/syslog.7 ] || exit 1
[ "xinitially dir1/syslog.6" = "x`/bin/cat dir1/syslog.7`" ] || exit 1
[ -f dir1/syslog.8 ] && exit 1

[ -f dir2/messages ] || exit 1
[ "xinitially dir2/messages" = "x`/bin/cat dir2/messages`" ] || exit 1
[ -f dir2/messages.0 ] || exit 1
[ "xinitially dir2/messages.0" = "x`/bin/cat dir2/messages.0`" ] || exit 1
[ -f dir2/messages.1 ] || exit 1
[ "xinitially dir2/messages.1" = "x`/bin/cat dir2/messages.1`" ] || exit 1
[ -f dir2/messages.2 ] || exit 1
[ "xinitially dir2/messages.2" = "x`/bin/cat dir2/messages.2`" ] || exit 1
[ -f dir2/messages.3 ] || exit 1
[ "xinitially dir2/messages.3" = "x`/bin/cat dir2/messages.3`" ] || exit 1
[ -f dir2/messages.4 ] && exit 1
exit 0
EOF

        set_file('runtest', <<"EOF");
# test "logadm10"
$envsetup
exec $bindir/logadm -f logadm.conf >std.out 2>std.err
EOF
}

###########################################################################
#
#       logadm11 -- test of size-based expiration check
#
###########################################################################
sub logadm11 {
    mkdir 'dir1', 0777 or die "mkdir dir1: $!\n";
    set_file('dir1/syslog', 'initially dir1/syslog');
    set_file('dir1/syslog.0', 'initially dir1/syslog.0');
    set_file('dir1/syslog.1', 'initially dir1/syslog.1');
    set_file('dir1/syslog.2', 'initially dir1/syslog.2');
    set_file('dir1/syslog.3', 'initially dir1/syslog.3');
    set_file('dir1/syslog.4', 'initially dir1/syslog.4');
    set_file('dir1/syslog.5', 'initially dir1/syslog.5');
    set_file('dir1/syslog.6', 'initially dir1/syslog.6');
    set_file('dir1/syslog.7', 'initially dir1/syslog.7');
    mkdir 'dir2', 0777 or die "mkdir dir2: $!\n";
    set_file('dir2/messages', 'initially dir2/messages');
    set_file('dir2/messages.0', 'initially dir2/messages.0');
    set_file('dir2/messages.1', 'initially dir2/messages.1');
    set_file('dir2/messages.2', 'initially dir2/messages.2');
    set_file('dir2/messages.3', 'initially dir2/messages.3');

    set_file('logadm.conf', <<"EOF");
dir1/syslog -C 8 -s 30b -S 75b
dir2/messages -C 4 -s 30b -S 75b
EOF

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
[ -s std.out ] && exit 1
[ -f dir1/syslog ] || exit 1
[ "xinitially dir1/syslog" = "x`/bin/cat dir1/syslog`" ] || exit 1
[ -f dir1/syslog.0 ] || exit 1
[ "xinitially dir1/syslog.0" = "x`/bin/cat dir1/syslog.0`" ] || exit 1
[ -f dir1/syslog.1 ] || exit 1
[ "xinitially dir1/syslog.1" = "x`/bin/cat dir1/syslog.1`" ] || exit 1
[ -f dir1/syslog.2 ] || exit 1
[ "xinitially dir1/syslog.2" = "x`/bin/cat dir1/syslog.2`" ] || exit 1
[ -f dir1/syslog.3 ] && exit 1
[ -f dir1/syslog.4 ] && exit 1
[ -f dir1/syslog.5 ] && exit 1
[ -f dir1/syslog.6 ] && exit 1
[ -f dir1/syslog.7 ] && exit 1
[ -f dir1/syslog.8 ] && exit 1

[ -f dir2/messages ] || exit 1
[ "xinitially dir2/messages" = "x`/bin/cat dir2/messages`" ] || exit 1
[ -f dir2/messages.0 ] || exit 1
[ "xinitially dir2/messages.0" = "x`/bin/cat dir2/messages.0`" ] || exit 1
[ -f dir2/messages.1 ] || exit 1
[ "xinitially dir2/messages.1" = "x`/bin/cat dir2/messages.1`" ] || exit 1
[ -f dir2/messages.2 ] || exit 1
[ "xinitially dir2/messages.2" = "x`/bin/cat dir2/messages.2`" ] || exit 1
[ -f dir2/messages.3 ] && exit 1
[ -f dir2/messages.4 ] && exit 1
exit 0
EOF

        set_file('runtest', <<"EOF");
# test "logadm11"
$envsetup
exec $bindir/logadm -f logadm.conf >std.out 2>std.err
EOF
}

###########################################################################
#
#   logadm12 -- ENOENT error path
#
###########################################################################
sub logadm12 {
    set_file('std.err.expect', <<'EOF');
logadm: Warning: logfile: No such file or directory
EOF

    set_file('checktest', <<"EOF");
[ -s std.out ] && exit 1
exec /bin/diff std.err std.err.expect
EOF

    set_file('runtest', <<"EOF");
# test "logadm12"
$envsetup
exec $bindir/logadm -f /dev/null logfile >std.out 2>std.err
EOF
}

###########################################################################
#
#   logadm13 -- ENOENT error path with -N flag
#
###########################################################################
sub logadm13 {
    set_file('checktest', <<"EOF");
[ -s std.out ] && exit 1
[ -s std.err ] && exit 1
exit 0
EOF

    set_file('runtest', <<"EOF");
# test "logadm13"
$envsetup
exec $bindir/logadm -N -f /dev/null logfile >std.out 2>std.err
EOF
}

###########################################################################
#
#       logadm14 -- test of -n and -v flags
#
###########################################################################
sub logadm14 {
    mkdir 'dir1', 0777 or die "mkdir dir1: $!\n";
    set_file('dir1/syslog', 'initially dir1/syslog');
    set_file('dir1/syslog.0', 'initially dir1/syslog.0');
    set_file('dir1/syslog.1', 'initially dir1/syslog.1');
    set_file('dir1/syslog.2', 'initially dir1/syslog.2');
    set_file('dir1/syslog.3', 'initially dir1/syslog.3');
    set_file('dir1/syslog.4', 'initially dir1/syslog.4');
    set_file('dir1/syslog.5', 'initially dir1/syslog.5');
    set_file('dir1/syslog.6', 'initially dir1/syslog.6');
    set_file('dir1/syslog.7', 'initially dir1/syslog.7');
    mkdir 'dir2', 0777 or die "mkdir dir2: $!\n";
    set_file('dir2/messages', 'initially dir2/messages');
    set_file('dir2/messages.0', 'initially dir2/messages.0');
    set_file('dir2/messages.1', 'initially dir2/messages.1');
    set_file('dir2/messages.2', 'initially dir2/messages.2');
    set_file('dir2/messages.3', 'initially dir2/messages.3');

    set_file('logadm.conf', <<'EOF');
#
# logadm.conf
#
# Default settings for system log file management.
# The -w option to logadm(1M) is the preferred way to write to this file,
# but if you do edit it by hand, use "logadm -V" to check it for errors.
# but if you do edit it by hand, use "logadm -V" to check it for errors.
#
# The format of lines in this file is:
#       <logname> <options>
# For each logname listed here, the default options to logadm
# are given.  Options given on the logadm command line override
# the defaults contained in this file.
#
# logadm typically runs early every morning via an entry in
# root's crontab (see crontab(1)).
#
dir1/syslog -C 8 -a 'echo kill -HUP `cat /etc/syslog.pid` >> cmd.out'
dir2/messages -C 4 -a 'echo kill -HUP `cat /etc/syslog.pid` >> cmd.out'
#
# The entry below is used by turnacct(1M)
#
/var/adm/pacct -C 0 -a '/usr/lib/acct/accton pacct' -g adm -m 664 -o adm -p never
EOF

    $gid = $);
    $gid =~ s/ .*//;
    set_file('grep.out.expect', <<'EOF'.<<"EOF".<<'EOF'.<<"EOF".<<'EOF');
# loading logadm.conf
# processing logname: dir1/syslog
#     using default rotate rules: -s1b -p1w
#     using default template: $file.$n
mkdir -p dir1 # verify directory exists
mv -f dir1/syslog.7 dir1/syslog.8 # rotate log file
mkdir -p dir1 # verify directory exists
mv -f dir1/syslog.6 dir1/syslog.7 # rotate log file
mkdir -p dir1 # verify directory exists
mv -f dir1/syslog.5 dir1/syslog.6 # rotate log file
mkdir -p dir1 # verify directory exists
mv -f dir1/syslog.4 dir1/syslog.5 # rotate log file
mkdir -p dir1 # verify directory exists
mv -f dir1/syslog.3 dir1/syslog.4 # rotate log file
mkdir -p dir1 # verify directory exists
mv -f dir1/syslog.2 dir1/syslog.3 # rotate log file
mkdir -p dir1 # verify directory exists
mv -f dir1/syslog.1 dir1/syslog.2 # rotate log file
mkdir -p dir1 # verify directory exists
mv -f dir1/syslog.0 dir1/syslog.1 # rotate log file
mkdir -p dir1 # verify directory exists
mv -f dir1/syslog dir1/syslog.0 # rotate log file
touch dir1/syslog
EOF
chown $>:$gid dir1/syslog
EOF
chmod 664 dir1/syslog
# processing logname: dir2/messages
#     using default rotate rules: -s1b -p1w
#     using default template: $file.$n
mkdir -p dir2 # verify directory exists
mv -f dir2/messages.3 dir2/messages.4 # rotate log file
mkdir -p dir2 # verify directory exists
mv -f dir2/messages.2 dir2/messages.3 # rotate log file
mkdir -p dir2 # verify directory exists
mv -f dir2/messages.1 dir2/messages.2 # rotate log file
mkdir -p dir2 # verify directory exists
mv -f dir2/messages.0 dir2/messages.1 # rotate log file
mkdir -p dir2 # verify directory exists
mv -f dir2/messages dir2/messages.0 # rotate log file
touch dir2/messages
EOF
chown $>:$gid dir2/messages
EOF
chmod 664 dir2/messages
# processing logname: /var/adm/pacct
#     using default template: $file.$n
sh -c echo kill -HUP `cat /etc/syslog.pid` >> cmd.out # -a cmd
# logadm.conf unchanged
EOF

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
[ -f std.out ] || exit 1
[ -f dir1/syslog ] || exit 1
[ "xinitially dir1/syslog" = "x`/bin/cat dir1/syslog`" ] || exit 1
[ -f dir1/syslog.0 ] || exit 1
[ "xinitially dir1/syslog.0" = "x`/bin/cat dir1/syslog.0`" ] || exit 1
[ -f dir1/syslog.1 ] || exit 1
[ "xinitially dir1/syslog.1" = "x`/bin/cat dir1/syslog.1`" ] || exit 1
[ -f dir1/syslog.2 ] || exit 1
[ "xinitially dir1/syslog.2" = "x`/bin/cat dir1/syslog.2`" ] || exit 1
[ -f dir1/syslog.3 ] || exit 1
[ "xinitially dir1/syslog.3" = "x`/bin/cat dir1/syslog.3`" ] || exit 1
[ -f dir1/syslog.4 ] || exit 1
[ "xinitially dir1/syslog.4" = "x`/bin/cat dir1/syslog.4`" ] || exit 1
[ -f dir1/syslog.5 ] || exit 1
[ "xinitially dir1/syslog.5" = "x`/bin/cat dir1/syslog.5`" ] || exit 1
[ -f dir1/syslog.6 ] || exit 1
[ "xinitially dir1/syslog.6" = "x`/bin/cat dir1/syslog.6`" ] || exit 1
[ -f dir1/syslog.7 ] || exit 1
[ "xinitially dir1/syslog.7" = "x`/bin/cat dir1/syslog.7`" ] || exit 1
[ -f dir1/syslog.8 ] && exit 1

[ -f dir2/messages ] || exit 1
[ "xinitially dir2/messages" = "x`/bin/cat dir2/messages`" ] || exit 1
[ -f dir2/messages.0 ] || exit 1
[ "xinitially dir2/messages.0" = "x`/bin/cat dir2/messages.0`" ] || exit 1
[ -f dir2/messages.1 ] || exit 1
[ "xinitially dir2/messages.1" = "x`/bin/cat dir2/messages.1`" ] || exit 1
[ -f dir2/messages.2 ] || exit 1
[ "xinitially dir2/messages.2" = "x`/bin/cat dir2/messages.2`" ] || exit 1
[ -f dir2/messages.3 ] || exit 1
[ "xinitially dir2/messages.3" = "x`/bin/cat dir2/messages.3`" ] || exit 1
[ -f dir2/messages.4 ] && exit 1
/bin/grep -v 'recording rotation date' std.out > grep.out
exec /bin/diff grep.out grep.out.expect
EOF

        set_file('runtest', <<"EOF");
# test "logadm14"
$envsetup
exec $bindir/logadm -nv -f logadm.conf >std.out 2>std.err
EOF
}

###########################################################################
#
#   logadm15 -- test of -T
#
###########################################################################
sub logadm15 {
    set_file('logfile', '');
    set_file('logfile.0', 'initially logfile.0');
    set_file('logfile.1', 'initially logfile.1');
    set_file('logfile.2', 'initially logfile.2');
    set_file('logfile.3', 'initially logfile.3');
    set_file('logfile.4', 'initially logfile.4');
    set_file('logfile.5', 'initially logfile.5');
    set_file('logfile.6', 'initially logfile.6');
    set_file('logfile.7', 'initially logfile.7');
    set_file('logfile.8', 'initially logfile.8');
    set_file('logfile.9', 'initially logfile.9');

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
[ -s std.out ] && exit 1
[ -f logfile ] || exit 1
[ "x" = "x`/bin/cat logfile`" ] || exit 1
[ -f logfile.0 ] || exit 1
[ "xinitially logfile.0" = "x`/bin/cat logfile.0`" ] || exit 1
[ -f logfile.1 ] || exit 1
[ "xinitially logfile.1" = "x`/bin/cat logfile.1`" ] || exit 1
[ -f logfile.2 ] || exit 1
[ "xinitially logfile.2" = "x`/bin/cat logfile.2`" ] || exit 1
[ -f logfile.3 ] && exit 1
[ -f logfile.4 ] || exit 1
[ "xinitially logfile.4" = "x`/bin/cat logfile.4`" ] || exit 1
[ -f logfile.5 ] && exit 1
[ -f logfile.6 ] || exit 1
[ "xinitially logfile.6" = "x`/bin/cat logfile.6`" ] || exit 1
[ -f logfile.7 ] && exit 1
[ -f logfile.8 ] || exit 1
[ "xinitially logfile.8" = "x`/bin/cat logfile.8`" ] || exit 1
[ -f logfile.9 ] && exit 1
[ -f logfile.10 ] && exit 1
exit 0
EOF

    set_file('runtest', <<"EOF");
# test "logadm15"
$envsetup
exec $bindir/logadm -f /dev/null logfile -C1 -T '*.[13579]'>std.out 2>std.err
EOF
}

###########################################################################
#
#   logadm16 -- test of -h
#
###########################################################################
sub logadm16 {
    set_file('std.err.expect', <<'EOF');
Usage: logadm [options]
       (processes all entries in /etc/logadm.conf or conffile given by -f)
   or: logadm [options] logname...
       (processes the given lognames)

General options:
        -e mailaddr     mail errors to given address
        -f conffile     use conffile instead of /etc/logadm.conf
        -h              display help
        -N              not an error if log file nonexistent
        -n              show actions, don't perform them
        -r              remove logname entry from conffile
        -V              ensure conffile entries exist, correct
        -v              print info about actions happening
        -w entryname    write entry to config file

Options which control when a logfile is rotated:
(default is: -s1b -p1w if no -s or -p)
        -p period       only rotate if period passed since last rotate
        -P timestamp    used to store rotation date in conffile
        -s size         only rotate if given size or greater

Options which control how a logfile is rotated:
(default is: -t '$file.$n', owner/group/mode taken from log file)
        -a cmd          execute cmd after taking actions
        -b cmd          execute cmd before taking actions
        -c              copy & truncate logfile, don't rename
        -g group        new empty log file group
        -l              rotate log file with local time rather than UTC
        -m mode         new empty log file mode
        -M cmd          execute cmd to rotate the log file
        -o owner        new empty log file owner
        -R cmd          run cmd on file after rotate
        -t template     template for naming old logs
        -z count        gzip old logs except most recent count

Options which control the expiration of old logfiles:
(default is: -C10 if no -A, -C, or -S)
        -A age          expire logs older than age
        -C count        expire old logs until count remain
        -E cmd          run cmd on file to expire
        -S size         expire until space used is below size
        -T pattern      pattern for finding old logs
EOF

    set_file('checktest', <<'EOF');
[ -s std.out ] && exit 1
exec /bin/diff std.err std.err.expect
EOF

    set_file('runtest', <<"EOF");
# test "logadm16"
$envsetup
exec $bindir/logadm -h >std.out 2>std.err
EOF
}

###########################################################################
#
#       logadm17 -- test that mkdir -p happens as necessary
#
###########################################################################
sub logadm17 {
    set_file('logfile', 'initially logfile');

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
[ -s std.out ] && exit 1
[ -f dir1/dir2/logfile ] || exit 1
[ -f logfile ] || exit 1
[ "xinitially logfile" = "x`/bin/cat dir1/dir2/logfile`" ] || exit 1
exit 0
EOF

        set_file('runtest', <<"EOF");
# test "logadm17"
$envsetup
exec $bindir/logadm -f /dev/null -t 'dir1/dir2/\$basename' logfile -p now >std.out 2>std.err
EOF
}

###########################################################################
#
#       logadm18 -- test of -M option
#
###########################################################################
sub logadm18 {
    mkdir 'dir1', 0777 or die "mkdir dir1: $!\n";
    set_file('dir1/syslog', 'initially dir1/syslog');
    set_file('dir1/syslog.0', 'initially dir1/syslog.0');
    set_file('dir1/syslog.1', 'initially dir1/syslog.1');
    set_file('dir1/syslog.2', 'initially dir1/syslog.2');
    set_file('dir1/syslog.3', 'initially dir1/syslog.3');
    set_file('dir1/syslog.4', 'initially dir1/syslog.4');
    set_file('dir1/syslog.5', 'initially dir1/syslog.5');
    set_file('dir1/syslog.6', 'initially dir1/syslog.6');
    set_file('dir1/syslog.7', 'initially dir1/syslog.7');

    set_file('logadm.conf', <<"EOF");
dir1/syslog -C 8 -s 1b -M '/bin/tr [a-z] [A-Z] < \$file > \$nfile; /bin/rm -f \$file'
EOF

    set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
[ -s std.out ] && exit 1
[ -f dir1/syslog ] || exit 1
[ -s dir1/syslog ] && exit 1
[ -f dir1/syslog.0 ] || exit 1
[ "xINITIALLY DIR1/SYSLOG" = "x`/bin/cat dir1/syslog.0`" ] || exit 1
[ -f dir1/syslog.1 ] || exit 1
[ "xinitially dir1/syslog.0" = "x`/bin/cat dir1/syslog.1`" ] || exit 1
[ -f dir1/syslog.2 ] || exit 1
[ "xinitially dir1/syslog.1" = "x`/bin/cat dir1/syslog.2`" ] || exit 1
[ -f dir1/syslog.3 ] || exit 1
[ "xinitially dir1/syslog.2" = "x`/bin/cat dir1/syslog.3`" ] || exit 1
[ -f dir1/syslog.4 ] || exit 1
[ "xinitially dir1/syslog.3" = "x`/bin/cat dir1/syslog.4`" ] || exit 1
[ -f dir1/syslog.5 ] || exit 1
[ "xinitially dir1/syslog.4" = "x`/bin/cat dir1/syslog.5`" ] || exit 1
[ -f dir1/syslog.6 ] || exit 1
[ "xinitially dir1/syslog.5" = "x`/bin/cat dir1/syslog.6`" ] || exit 1
[ -f dir1/syslog.7 ] || exit 1
[ "xinitially dir1/syslog.6" = "x`/bin/cat dir1/syslog.7`" ] || exit 1
[ -f dir1/syslog.8 ] && exit 1

exit 0
EOF

        set_file('runtest', <<"EOF");
# test "logadm18"
$envsetup
exec $bindir/logadm -f logadm.conf >std.out 2>std.err
EOF
}

#############################################################################
#
#         logadm19 -- test of  -l
#
#############################################################################
sub logadm19 {
        set_file('logfile', 'initially logfile');

        set_file('checktest', <<'EOF');
[ -s std.err ] && exit 1
[ -s std.out ] && exit 1
[ -s logfile ] && exit 1
TZ= export TZ
d=`/bin/date +\%d\%H\%M`
[ -f logfile.$d ] || exit 1
[ "xinitially logfile" = "x`/bin/cat logfile.$d`" ] || exit 1
exit 0
EOF

        set_file('runtest', <<"EOF");
# test "logadm4"
$envsetup
exec $bindir/logadm -f /dev/null -l -p now logfile -t '\$file.\%d\%H\%M' >std.out 2>std.err
EOF
}