aboutsummaryrefslogtreecommitdiff
path: root/t/install.t
diff options
context:
space:
mode:
authorAndreas Guldstrand <andreas.guldstrand@gmail.com>2016-01-02 20:48:32 +0100
committerAndreas Guldstrand <andreas.guldstrand@gmail.com>2016-01-02 20:48:32 +0100
commita605927dc5ae1e3a697cef2829be4e63af526645 (patch)
tree98e39e8f569a2ed784a794884e2caaab265006e0 /t/install.t
parent17359488f2701f19d06529e98e93a18f52c3bf10 (diff)
downloadsbotools2-a605927dc5ae1e3a697cef2829be4e63af526645.tar.xz
Rename test files so they get run in a nicer order
Diffstat (limited to 't/install.t')
-rwxr-xr-xt/install.t103
1 files changed, 0 insertions, 103 deletions
diff --git a/t/install.t b/t/install.t
deleted file mode 100755
index db1c87a..0000000
--- a/t/install.t
+++ /dev/null
@@ -1,103 +0,0 @@
-#!/usr/bin/env perl
-
-use 5.16.0;
-use strict;
-use warnings FATAL => 'all';
-use Test::More;
-use Capture::Tiny qw/ capture_merged /;
-use FindBin '$RealBin';
-use lib $RealBin;
-use lib "$RealBin/../SBO-Lib/lib";
-use Test::Execute;
-
-if ($ENV{TEST_INSTALL}) {
- plan tests => 8;
-} else {
- plan skip_all => 'Only run these tests if TEST_INSTALL=1';
-}
-$ENV{TEST_ONLINE} //= 0;
-
-$path = "$RealBin/../";
-
-sub cleanup {
- capture_merged {
- system(qw!/sbin/removepkg nonexistentslackbuild!);
- system(qw!/sbin/removepkg nonexistentslackbuild4!);
- system(qw!/sbin/removepkg nonexistentslackbuild5!);
- unlink "$RealBin/LO/nonexistentslackbuild/perf.dummy";
- unlink "$RealBin/LO/nonexistentslackbuild4/perf.dummy";
- unlink "$RealBin/LO/nonexistentslackbuild5/perf.dummy";
- unlink "$RealBin/LO/failingslackbuild/perf.dummy";
- system(qw!rm -rf /tmp/SBo/nonexistentslackbuild-1.0!);
- system(qw!rm -rf /tmp/SBo/nonexistentslackbuild4-1.0!);
- system(qw!rm -rf /tmp/SBo/nonexistentslackbuild5-1.0!);
- system(qw!rm -rf /tmp/package-nonexistentslackbuild!);
- system(qw!rm -rf /tmp/package-nonexistentslackbuild4!);
- system(qw!rm -rf /tmp/package-nonexistentslackbuild5!);
- };
-}
-
-sub make_slackbuilds_txt {
- state $made = 0;
- my $fname = "/usr/sbo/repo/SLACKBUILDS.TXT";
- if ($_[0]) {
- if ($made) { return system(qw!rm -rf!, $fname); }
- } else {
- if (not -e $fname) { $made = 1; system('mkdir', '-p', '/usr/sbo/repo'); system('touch', $fname); }
- }
-}
-
-sub set_lo {
- state $set = 0;
- state $lo;
- if ($_[0]) {
- if ($set) { script (qw/ sboconfig -o /, $lo, { test => 0 }); }
- } else {
- ($lo) = script (qw/ sboconfig -l /, { expected => qr/LOCAL_OVERRIDES=(.*)/, test => 0 });
- $lo //= 'FALSE';
- note "Saving original value of LOCAL_OVERRIDES: $lo";
- $set = 1;
- script (qw/ sboconfig -o /, "$RealBin/LO", { test => 0 });
- }
-}
-
-cleanup();
-make_slackbuilds_txt();
-set_lo();
-
-
-# 1-2: sboinstall nonexistentslackbuild
-script (qw/ sboinstall nonexistentslackbuild /, { input => "y\ny", expected => qr/nonexistentslackbuild added to install queue.*Install queue: nonexistentslackbuild/s });
-ok (! -e "$RealBin/LO/nonexistentslackbuild/perf.dummy", "Source symlink removed");
-script (qw/ sboremove nonexistentslackbuild /, { input => "y\ny", test => 0 });
-
-# 3: sboinstall nonexistentslackbuild2
-script (qw/ sboinstall nonexistentslackbuild2 /, { exit => 1, expected => "Unable to locate nonexistentslackbuild3 in the SlackBuilds.org tree.\n" });
-
-# 4: sboinstall nonexistentslackbuild3
-script (qw/ sboinstall nonexistentslackbuild3 /, { exit => 1, expected => "Unable to locate nonexistentslackbuild3 in the SlackBuilds.org tree.\n" });
-
-# 5: sboinstall nonexistentslackbuild4
-script(qw/ sboinstall nonexistentslackbuild4 /, { input => "y\ny\ny",
- expected => qr/nonexistentslackbuild5 added to install queue.*nonexistentslackbuild4 added to install queue.*Install queue: nonexistentslackbuild5 nonexistentslackbuild4/s });
-script (qw/ sboremove nonexistentslackbuild5 /, { input => "y\ny", test => 0 });
-
-# 6: sboinstall nonexistentslackbuild5
-script (qw/ sboinstall nonexistentslackbuild5 /, { input => "y\ny", expected => qr/nonexistentslackbuild5 added to install queue.*Install queue: nonexistentslackbuild5/s });
-script (qw/ sboremove nonexistentslackbuild4 /, { input => "y\ny\ny", test => 0 });
-
-# 7: sboinstall nonexistentslackbuild4
-script (qw/ sboinstall nonexistentslackbuild4 /, { input => "y\ny\ny",
- expected => qr/nonexistentslackbuild5 added to install queue.*nonexistentslackbuild4 added to install queue.*Install queue: nonexistentslackbuild5 nonexistentslackbuild4/s });
-script (qw/ sboremove nonexistentslackbuild5 /, { input => "y\ny", test => 0 });
-
-# 8: sboinstall nonexistentslackbuild4
-script (qw/ sboinstall nonexistentslackbuild4 /, { input => "y\ny", expected => qr/nonexistentslackbuild5 added to install queue.*Install queue: nonexistentslackbuild5/s });
-script (qw/ sboremove nonexistentslackbuild4 nonexistentslackbuild5 /, { input => "y\ny\ny", test => 0 });
-
-# Cleanup
-END {
- set_lo('delete');
- make_slackbuilds_txt('delete');
- cleanup();
-}