diff options
Diffstat (limited to 't/13-local-check.t')
| -rwxr-xr-x | t/13-local-check.t | 175 |
1 files changed, 0 insertions, 175 deletions
diff --git a/t/13-local-check.t b/t/13-local-check.t deleted file mode 100755 index cb241e1..0000000 --- a/t/13-local-check.t +++ /dev/null @@ -1,175 +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 Test::Sbotools qw/ make_slackbuilds_txt set_lo set_repo sboconfig sbosnap sbocheck sboinstall sbofind restore_perf_dummy /; - -if ($ENV{TEST_INSTALL} and $ENV{TRAVIS}) { - plan tests => 14; -} else { - plan skip_all => "Only run these tests if TEST_INSTALL=1 and we're running under Travis CI"; -} - -sub cleanup { - capture_merged { - system(qw!/sbin/removepkg nonexistentslackbuild!); - system(qw!/sbin/removepkg nonexistentslackbuild5!); - system(qw!/sbin/removepkg nonexistentslackbuild8!); - system(qw!/sbin/removepkg nonexistentslackbuildwithareallyverylongnameasyoucansee!); - system(qw!/sbin/removepkg s!); - system(qw!/sbin/removepkg nonexistentslackbuildwithareallyverylo!); - system(qw!/sbin/removepkg nonexistentslackbuildwithareallyverylon!); - system(qw!/sbin/removepkg nonexistentslackbuildwithareallyverylong!); - system(qw!/sbin/removepkg s2!); - system(qw!/sbin/removepkg weird-versionsbo!); - unlink "$RealBin/LO/nonexistentslackbuild/perf.dummy"; - unlink "$RealBin/LO/weird-versionsbo/perf.dummy"; - system(qw!rm -rf /tmp/SBo/nonexistentslackbuild-1.0!); - system(qw!rm -rf /tmp/SBo/nonexistentslackbuild5-1.0!); - system(qw!rm -rf /tmp/SBo/nonexistentslackbuild8-1.0!); - system(qw!rm -rf /tmp/SBo/nonexistentslackbuildwithareallyverylongnameasyoucansee-1.0!); - system(qw!rm -rf /tmp/SBo/s-1.0!); - system(qw!rm -rf /tmp/SBo/nonexistentslackbuildwithareallyverylo-1.0!); - system(qw!rm -rf /tmp/SBo/nonexistentslackbuildwithareallyverylon-1.0!); - system(qw!rm -rf /tmp/SBo/nonexistentslackbuildwithareallyverylon-1.0g!); - system(qw!rm -rf /tmp/SBo/s2-1.0!); - system(qw!rm -rf /tmp/SBo/weird-versionsbo-1.0!); - system(qw!rm -rf /tmp/package-nonexistentslackbuild!); - system(qw!rm -rf /tmp/package-nonexistentslackbuild5!); - system(qw!rm -rf /tmp/package-nonexistentslackbuild8!); - system(qw!rm -rf /tmp/package-nonexistentslackbuildwithareallyverylongnameasyoucansee!); - system(qw!rm -rf /tmp/package-s!); - system(qw!rm -rf /tmp/package-nonexistentslackbuildwithareallyverylo!); - system(qw!rm -rf /tmp/package-nonexistentslackbuildwithareallyverylon!); - system(qw!rm -rf /tmp/package-nonexistentslackbuildwithareallyverylong!); - system(qw!rm -rf /tmp/package-s2!); - system(qw!rm -rf /tmp/package-weird-versionsbo!); - system(qw!rm -rf!, "$RealBin/gitrepo"); - }; -} - -sub setup_gitrepo { - capture_merged { system(<<"END"); }; - cd "$RealBin"; rm -rf gitrepo; mkdir gitrepo; cd gitrepo; - git init; - - mkdir -p "test/nonexistentslackbuild" "test/nonexistentslackbuild5"; - cp "$RealBin/LO2/nonexistentslackbuild/nonexistentslackbuild.info" "test/nonexistentslackbuild" - cp "$RealBin/LO/nonexistentslackbuild5/nonexistentslackbuild5.info" "test/nonexistentslackbuild5" - git add "test"; git commit -m 'initial'; -END -} - -cleanup(); -make_slackbuilds_txt(); -set_lo("$RealBin/LO"); -setup_gitrepo(); -set_repo("file://$RealBin/gitrepo/"); -restore_perf_dummy(); - -# Disable GPG verification -sboconfig(qw/ --gpg-key FALSE /, { test => 0 } ); - -# 1-2: sbofind without having a repo yet -sbofind 'nonexistentslackbuild', { input => "n", expected => qr/It looks like you haven't run "sbosnap fetch" yet\.\nWould you like me to do this now\?.*Please run "sbosnap fetch"/ }; -sbofind 'nonexistentslackbuild', { input => "y", expected => qr/It looks like you haven't run "sbosnap fetch" yet\.\nWould you like me to do this now\?/ }; - -# 3: sbocheck without having installed nonexistentslackbuild should not show it -sbocheck { expected => sub { $_[0] !~ /nonexistentslackbuild/} }; - -# 4: sbocheck should list nonexistentslackbuild as being newer on SBo after we've installed it -sboinstall 'nonexistentslackbuild', { input => "y\ny", test => 0 }; -sboinstall 'nonexistentslackbuild5', { input => "y\ny", test => 0 }; -sbocheck { expected => sub { /nonexistentslackbuild/ and not /nonexistentslackbuild5/ } }; - -# 5-7: sbocheck should make lines match up as best it can -sboinstall 'nonexistentslackbuildwithareallyverylongnameasyoucansee', { input => "y\ny", test => 0 }; -sboinstall 's', { input => "y\ny", test => 0 }; -sbocheck { expected => sub { /Updating SlackBuilds tree/ and not /nonexistentslackbuildwithareallyverylongnameasyoucansee/ } }; - -capture_merged { system <<"GIT"; }; - cd "$RealBin/gitrepo" - - mkdir -p test/nonexistentslackbuildwithareallyverylongnameasyoucansee test/s - cp "$RealBin"/LO2/nonexistentslackbuildwithareallyverylongnameasyoucansee/* test/nonexistentslackbuildwithareallyverylongnameasyoucansee - cp "$RealBin"/LO2/s/* test/s - git add "test"; git commit -m 'updates'; -GIT - -sbocheck { expected => qr/\Qs 1.0 < override outdated (1.1 from SBo)/ }; - -capture_merged { system <<"GIT"; }; - cd "$RealBin/gitrepo" - - mkdir -p test/nonexistentslackbuildwithareallyverylo - cp "$RealBin"/LO2/nonexistentslackbuildwithareallyverylo/* test/nonexistentslackbuildwithareallyverylo - git add "test"; git commit -m '2nd update' -GIT - -sboinstall 'nonexistentslackbuildwithareallyverylo', { input => "y\ny", test => 0 }; -sbocheck { expected => qr/\Qs 1.0 < override outdated (1.1 from SBo)/ }; - -capture_merged { system <<"GIT"; }; - cd "$RealBin/gitrepo" - - mkdir -p test/nonexistentslackbuildwithareallyverylon - cp "$RealBin"/LO2/nonexistentslackbuildwithareallyverylon/* test/nonexistentslackbuildwithareallyverylon - git add "test"; git commit -m '3rd update' -GIT - -sboinstall 'nonexistentslackbuildwithareallyverylon', { input => "y\ny", test => 0 }; -sbocheck { expected => qr/\Qs 1.0 < override outdated (1.1 from SBo)/ }; - -capture_merged { system <<"GIT"; }; - cd "$RealBin/gitrepo" - - mkdir -p test/nonexistentslackbuildwithareallyverylong - cp "$RealBin"/LO2/nonexistentslackbuildwithareallyverylong/* test/nonexistentslackbuildwithareallyverylong - git add "test"; git commit -m '4th update' -GIT - -sboinstall 'nonexistentslackbuildwithareallyverylong', { input => "y\ny", test => 0 }; -sbocheck { expected => qr/\Qs 1.0 < override outdated (1.1 from SBo)/ }; - -# 10: check different version in repo and LO and installed -set_lo("$RealBin/LO3"); -sbocheck { expected => qr/\Qs 1.0 < needs updating (0.9 from overrides, 1.1 from SBo)/ }; - -# 11: check different version on SBo than what's installed -set_lo('FALSE'); -sbocheck { expected => qr/\Qs 1.0 < needs updating (1.1 from SBo)/ }; - -# 12: check s2 being the same version in SBo but newer in LO -capture_merged { system <<"GIT"; }; - cd "$RealBin/gitrepo" - - cp -a "$RealBin"/LO/s2 test/ - git add "test/s2"; git commit -m '5th update' -GIT -sbosnap 'update', { test => 0 }; -sboinstall 's2', { input => "y\ny", test => 0 }; -set_lo("$RealBin/LO2"); -sbocheck { expected => qr/\Qs2 1.0 < needs updating (1.1 from overrides)/ }; - -# 13: check weird-versionsbo isn't picked up erroneously -set_lo("$RealBin/LO"); -sboinstall 'weird-versionsbo', { input => "y\ny", test => 0 }; -sbocheck { expected => sub { not /weird-versionsbo/ } }; - -# 14: check sbo no longer available -cleanup(); -setup_gitrepo(); -sbosnap 'update', { test => 0 }; -sboinstall 'nonexistentslackbuild8', { input => "y\ny", test => 0 }; -set_lo("$RealBin/LO2"); -sbocheck { expected => qr/No updates available[.]/ }; - -# Cleanup -END { - cleanup(); -} |