paused: fix tests by writing logs to devnull in test

andk · Apr 28, 2024 · dae7440 · dae7440
1 parent feb2e20
commit dae7440
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/bin/paused b/bin/paused
@@ -18,7 +18,7 @@ use PAUSE::Logger '$Logger' => { init => {
   facility  => 'daemon',
   to_file   => 1,
   log_path  => '/', # because log_file will be absolute
-  log_file  => $PAUSE::Config->{PAUSE_LOG},
+  log_file  => $ENV{PAUSE_PAUSED_LOG_FILE} // $PAUSE::Config->{PAUSE_LOG},
 } };
 
 use DBI ();

diff --git a/t/programs.t b/t/programs.t
@@ -7,8 +7,6 @@ use TestSetup;
 
 sub _f ($) {File::Spec->catfile(split /\//, shift);}
 
-my $Id = q$Id: bap.t 26 2003-02-16 19:01:03Z k $;
-
 my @s = qw(
            bin/paused
            cron/mldistwatch
@@ -26,6 +24,8 @@ my $tests_per_loop = 1;
 my $plan = scalar @s * $tests_per_loop;
 plan tests => $plan;
 
+$ENV{PAUSE_PAUSED_LOG_FILE} = "/dev/null";
+
 my $devnull = File::Spec->devnull;
 for my $s (1..@s) {
   my $script = _f($s[$s-1]);