From: Jason Etheridge <jason@EquinoxOLI.org>
Date: Fri, 10 Jun 2022 20:02:40 +0000 (-0400)
Subject: lp1979357 use temp file library
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=34fa737ff1ce25eb65d163f71efb7db55388ccbe;p=working%2FEvergreen.git

lp1979357 use temp file library

for 34-lp1787968-cover-uploader.t
---

diff --git a/Open-ILS/src/perlmods/live_t/34-lp1787968-cover-uploader.t b/Open-ILS/src/perlmods/live_t/34-lp1787968-cover-uploader.t
index 7e445fc022..65f39ab259 100644
--- a/Open-ILS/src/perlmods/live_t/34-lp1787968-cover-uploader.t
+++ b/Open-ILS/src/perlmods/live_t/34-lp1787968-cover-uploader.t
@@ -7,11 +7,13 @@ use OpenILS::Utils::CStoreEditor qw/:funcs/;
 use OpenILS::Utils::Fieldmapper;
 use LWP::UserAgent;
 use File::Fetch;
+use File::Temp qw/tempdir/;
 use HTTP::Request::Common qw(POST);
 use FindBin;
 
 diag("test image uploader");
 
+my $tempdir = tempdir( CLEANUP => 1 );
 my $U = 'OpenILS::Application::AppUtils';
 my $script = OpenILS::Utils::TestUtils->new();
 $script->bootstrap;
@@ -65,7 +67,7 @@ ok( $response->content() eq '1', 'Received expected response for an image upload
 
 my $url = 'http://localhost/opac/extras/ac/jacket/small/r/1';
 my $ff = File::Fetch->new(uri => $url);
-my $file = $ff->fetch( to => '/tmp' ) or die $ff->error;
+my $file = $ff->fetch( to => $tempdir ) or die $ff->error;
 diag("Downloaded $url as $file");
 
 my $filetype = `file $file`;