From e2fa49af4780b36e842d93e45adaadce9e929592 Mon Sep 17 00:00:00 2001 From: Andreas Guldstrand Date: Wed, 14 Feb 2018 07:06:06 +0100 Subject: t/09-multilib.t: Add sboremove test See #65 --- t/09-multilib.t | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 't/09-multilib.t') diff --git a/t/09-multilib.t b/t/09-multilib.t index 470b0a9..8dae403 100755 --- a/t/09-multilib.t +++ b/t/09-multilib.t @@ -7,12 +7,12 @@ use Test::More; use Capture::Tiny qw/ capture_merged /; use FindBin '$RealBin'; use lib $RealBin; -use Test::Sbotools qw/ make_slackbuilds_txt set_lo sboinstall sboclean restore_perf_dummy /; +use Test::Sbotools qw/ make_slackbuilds_txt set_lo sboinstall sboclean sboremove restore_perf_dummy /; use File::Temp 'tempdir'; $ENV{TEST_MULTILIB} //= 0; if ($ENV{TEST_INSTALL} and ($ENV{TEST_MULTILIB} == 2)) { - plan tests => 10; + plan tests => 11; } else { plan skip_all => 'Only run these tests if TEST_INSTALL=1 and TEST_MULTILIB=2'; } @@ -77,6 +77,10 @@ sboinstall qw/ -p multilibsbo /, { input => "n", expected => qr/Proceed with mul # 10: multilibsbo with command in readme sboinstall qw/ -p multilibsbowithcommandinreadme /, { input => "y\ny\nn\nn\nn", expected => qr/It looks like.*Shall I run.*Proceed.*It looks like.*Shall I run.*Proceed.*Are you sure/s }; +# 11: sboremove multilibsbo +sboinstall qw/ -p multilibsbo /, { input => "y\ny\ny", test => 0 }; +sboremove qw/ multilibsbo /, { input => "y\ny\ny", expected => qr/Remove multilibsbo\b.*Removing 1 package\(s\)/s, note => 1 }; + # Cleanup END { cleanup(); -- cgit v1.2.3