diff options
| -rwxr-xr-x | t/21-pkg-dir.t | 24 |
1 files changed, 23 insertions, 1 deletions
diff --git a/t/21-pkg-dir.t b/t/21-pkg-dir.t index 1a1f36e..db44118 100755 --- a/t/21-pkg-dir.t +++ b/t/21-pkg-dir.t @@ -11,7 +11,7 @@ use Test::Sbotools qw/ set_pkg_dir make_slackbuilds_txt set_lo sboconfig sboinst use File::Temp 'tempdir'; if ($ENV{TEST_INSTALL}) { - plan tests => 7; + plan tests => 10; } else { plan skip_all => 'Only run these tests if TEST_INSTALL=1'; } @@ -56,6 +56,28 @@ sboinstall 'nonexistentslackbuild4', { input => "y\ny\ny", expected => sub { /\Q ok (-f "$pkgdir/nonexistentslackbuild4-1.1-noarch-1_SBo.tgz", 'nonexistentslackbuild4-1.1-noarch-1_SBo.tgz is in PKG_DIR'); ok (-f "$pkgdir/nonexistentslackbuild5-1.1-noarch-1_SBo.tgz", 'nonexistentslackbuild5-1.1-noarch-1_SBo.tgz is in PKG_DIR'); +capture_merged { + system(qw/ rm -rf /, $pkgdir); + system(qw! /sbin/removepkg nonexistentslackbuild !); +}; + +# 8-9: make sure PKG_DIR gets recreated +sboinstall 'nonexistentslackbuild', { input => "y\ny", expected => qr!\Qnonexistentslackbuild-1.1-noarch-1_SBo.tgz stored in $pkgdir! }; +ok (-f "$pkgdir/nonexistentslackbuild-1.1-noarch-1_SBo.tgz", 'nonexistentslackbuild-1.1-noarch-1_SBo.tgz is in PKG_DIR'); + +capture_merged { + system(qw/ rm -rf /, $pkgdir ); + system(qw! /sbin/removepkg nonexistentslackbuild !); + system('touch', $pkgdir); +}; + +# 10: creating PKG_DIR should fail properly +sboinstall 'nonexistentslackbuild', { input => "y\ny", expected => sub { /\QUnable to create $pkgdir/ and /\Qnonexistentslackbuild-1.1-noarch-1_SBo.tgz left in / } }; + +capture_merged { + system('rm', $pkgdir); +}; + # Cleanup END { cleanup(); |