From d74f9f928084167275d1faf57a038d08d2db3586 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 9 Dec 2008 16:33:35 +0000 Subject: correctly clean temp directories --- t/00prepare.t | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/t/00prepare.t b/t/00prepare.t index 25b5c37..c9bb5fd 100644 --- a/t/00prepare.t +++ b/t/00prepare.t @@ -5,12 +5,13 @@ use warnings; use Test::More tests => 1; use Cwd; +@tmpdirs = qw(BUILD SOURCES RPMS RPMS/noarch tmp); + chdir 't' if -d 't'; -for (qw(BUILD SOURCES RPMS RPMS/noarch tmp)) { - mkdir $_; -} +mkdir $_ foreach @tmpdirs; + # locally build a test rpm system(rpmbuild => '--define', '_topdir ' . Cwd::cwd(), '--define', '_tmppath ' . Cwd::cwd() . '/tmp/', '-bb', 'test-rpm.spec'); ok( -f 'RPMS/noarch/test-rpm-1.0-1mdk.noarch.rpm', 'rpm created' ); -END { system('rm -rf BUILD tmp') }; +END { system('rm', '-rf', @tmpdirs) }; -- cgit v1.2.1