From f88ebe79eebcd86d1cabef0498d28f3196b0b5f5 Mon Sep 17 00:00:00 2001
From: Shlomi Fish <shlomif@shlomifish.org>
Date: Sat, 11 Dec 2021 12:07:42 +0200
Subject: [PATCH] refactor; rm old cruft

---
 fortune-mod/tests/t/lib/FortTestInst.pm | 6 ++----
 fortune-mod/tests/t/test-fortune-m.t    | 2 --
 2 files changed, 2 insertions(+), 6 deletions(-)

diff --git a/fortune-mod/tests/t/lib/FortTestInst.pm b/fortune-mod/tests/t/lib/FortTestInst.pm
index a607900..3a56b6d 100644
--- a/fortune-mod/tests/t/lib/FortTestInst.pm
+++ b/fortune-mod/tests/t/lib/FortTestInst.pm
@@ -3,11 +3,10 @@ package FortTestInst;
 use strict;
 use warnings;
 
-use Path::Tiny qw/ path tempdir tempfile cwd /;
-use File::Path qw/mkpath rmtree/;
+use Path::Tiny qw/ cwd /;
+use File::Path qw/ mkpath rmtree /;
 
 my $IS_WIN = ( $^O eq "MSWin32" );
-my $SEP    = $IS_WIN ? "\\"    : '/';
 my $MAKE   = $IS_WIN ? 'gmake' : 'make';
 
 sub do_system
@@ -54,7 +53,6 @@ sub install
             ]
         }
     );
-    do_system( { cmd => [$MAKE] } );
     do_system( { cmd => [ $MAKE, 'install', ] } );
     chdir($cwd);
 
diff --git a/fortune-mod/tests/t/test-fortune-m.t b/fortune-mod/tests/t/test-fortune-m.t
index af5dbe0..d06f6ff 100644
--- a/fortune-mod/tests/t/test-fortune-m.t
+++ b/fortune-mod/tests/t/test-fortune-m.t
@@ -11,7 +11,6 @@ use Test::More tests => 3;
 
 {
     my $inst_dir = FortTestInst::install("fortune-m");
-    my $IS_WIN   = ( $^O eq "MSWin32" );
     my @cmd      = ( $inst_dir->child( 'games', 'fortune' ), '-m', 'giants' );
 
     print "Running [@cmd]\n";
@@ -25,7 +24,6 @@ use Test::More tests => 3;
 
 {
     my $inst_dir = FortTestInst::install("fortune-m");
-    my $IS_WIN   = ( $^O eq "MSWin32" );
     my @cmd = ( $inst_dir->child( 'games', 'fortune' ), '-m', '"wet paint"' );
 
     print "Running [@cmd]\n";
-- 
2.49.0