forked from os-autoinst/openQA
-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Merge pull request os-autoinst#5909 from perlpunk/split-grutest
Move some tests out of 14-grutasks.t
- Loading branch information
Showing
4 changed files
with
167 additions
and
122 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,155 @@ | ||
| #!/usr/bin/env perl | ||
| # Copyright 2016-2021 SUSE LLC | ||
| # SPDX-License-Identifier: GPL-2.0-or-later | ||
|
|
||
| use Test::Most; | ||
| use Mojo::Base -signatures; | ||
|
|
||
| use FindBin; | ||
| use lib "$FindBin::Bin/lib", "$FindBin::Bin/../external/os-autoinst-common/lib"; | ||
| use OpenQA::Task::Git::Clone; | ||
| require OpenQA::Test::Database; | ||
| use OpenQA::Test::Utils qw(run_gru_job perform_minion_jobs); | ||
| use OpenQA::Test::TimeLimit '20'; | ||
| use Test::MockModule; | ||
| use Test::Mojo; | ||
| use Test::Warnings qw(:report_warnings); | ||
| use Mojo::Util qw(dumper scope_guard); | ||
| use Mojo::File qw(path tempdir); | ||
| use Time::Seconds; | ||
|
|
||
| # Avoid tampering with git checkout | ||
| my $workdir = tempdir("$FindBin::Script-XXXX", TMPDIR => 1); | ||
| my $guard = scope_guard sub { chdir $FindBin::Bin }; | ||
| chdir $workdir; | ||
| path('t/data/openqa/db')->make_path; | ||
|
|
||
| my $schema = OpenQA::Test::Database->new->create(); | ||
| my $t = Test::Mojo->new('OpenQA::WebAPI'); | ||
|
|
||
| # launch an additional app to serve some file for testing blocking downloads | ||
| my $mojo_port = Mojo::IOLoop::Server->generate_port; | ||
| my $webapi = OpenQA::Test::Utils::create_webapi($mojo_port, sub { }); | ||
|
|
||
| # prevent writing to a log file to enable use of combined_like in the following tests | ||
| $t->app->log(Mojo::Log->new(level => 'debug')); | ||
|
|
||
| subtest 'git clone' => sub { | ||
| my $openqa_git = Test::MockModule->new('OpenQA::Git'); | ||
| my @mocked_git_calls; | ||
| my $clone_dirs = { | ||
| '/etc/' => 'http://localhost/foo.git', | ||
| '/root/' => 'http://localhost/foo.git#foobranch', | ||
| '/this_directory_does_not_exist/' => 'http://localhost/bar.git', | ||
| }; | ||
| $openqa_git->redefine( | ||
| run_cmd_with_log_return_error => sub ($cmd) { | ||
| push @mocked_git_calls, "@$cmd"; | ||
| my $stdout = ''; | ||
| splice @$cmd, 0, 2 if $cmd->[0] eq 'env'; | ||
| my $path = ''; | ||
| (undef, $path) = splice @$cmd, 1, 2 if $cmd->[1] eq '-C'; | ||
| my $action = $cmd->[1]; | ||
| $stdout = 'ref: refs/heads/master HEAD' if $action eq 'ls-remote'; | ||
| $stdout = $clone_dirs->{$path} =~ s/#.*//r if $cmd->[2] eq 'get-url'; | ||
| $stdout = 'master' if $action eq 'branch'; | ||
| $stdout = 'ref: something' if $action eq 'ls-remote' && "@$cmd" =~ m/nodefault/; | ||
| my $return_code = 0; | ||
| $return_code = 1 if ($path eq '/opt/' and $action eq 'diff-index'); # /opt/ simulates dirty checkout | ||
| $return_code = 2 | ||
| if ($path eq '/lib/' and $action eq 'diff-index') | ||
| ; # /lib/ simulates error when checking checkout dirty status | ||
| return { | ||
| status => $return_code == 0, | ||
| return_code => $return_code, | ||
| stderr => '', | ||
| stdout => $stdout, | ||
| }; | ||
| }); | ||
| my $res = run_gru_job($t->app, 'git_clone', $clone_dirs, {priority => 10}); | ||
| is $res->{result}, 'Job successfully executed', 'minion job result indicates success'; | ||
| #<<< no perltidy | ||
| my $expected_calls = [ | ||
| # /etc/ | ||
| ['get-url' => 'git -C /etc/ remote get-url origin'], | ||
| ['check dirty' => 'git -C /etc/ diff-index HEAD --exit-code'], | ||
| ['default remote' => 'env GIT_SSH_COMMAND="ssh -oBatchMode=yes" git ls-remote --symref http://localhost/foo.git HEAD'], | ||
| ['current branch' => 'git -C /etc/ branch --show-current'], | ||
| ['fetch default' => 'env GIT_SSH_COMMAND="ssh -oBatchMode=yes" git -C /etc/ fetch origin master'], | ||
| ['reset' => 'git -C /etc/ reset --hard origin/master'], | ||
|
|
||
| # /root | ||
| ['get-url' => 'git -C /root/ remote get-url origin'], | ||
| ['check dirty' => 'git -C /root/ diff-index HEAD --exit-code'], | ||
| ['current branch' => 'git -C /root/ branch --show-current'], | ||
| ['fetch branch' => 'env GIT_SSH_COMMAND="ssh -oBatchMode=yes" git -C /root/ fetch origin foobranch'], | ||
|
|
||
| # /this_directory_does_not_exist/ | ||
| ['clone' => 'env GIT_SSH_COMMAND="ssh -oBatchMode=yes" git clone http://localhost/bar.git /this_directory_does_not_exist/'], | ||
| ]; | ||
| #>>> no perltidy | ||
| for my $i (0 .. $#$expected_calls) { | ||
| my $test = $expected_calls->[$i]; | ||
| is $mocked_git_calls[$i], $test->[1], "$i: " . $test->[0]; | ||
| } | ||
|
|
||
| subtest 'no default remote branch' => sub { | ||
| $ENV{OPENQA_GIT_CLONE_RETRIES} = 0; | ||
| $clone_dirs = {'/tmp/' => 'http://localhost/nodefault.git'}; | ||
| my $res = run_gru_job($t->app, 'git_clone', $clone_dirs, {priority => 10}); | ||
| is $res->{state}, 'failed', 'minion job failed'; | ||
| like $res->{result}, qr/Error detecting remote default.*ref: something/, 'error message'; | ||
| }; | ||
|
|
||
| subtest 'git clone retried on failure' => sub { | ||
| $ENV{OPENQA_GIT_CLONE_RETRIES} = 1; | ||
| my $openqa_clone = Test::MockModule->new('OpenQA::Task::Git::Clone'); | ||
| $openqa_clone->redefine(_git_clone => sub (@) { die "fake error\n" }); | ||
| $res = run_gru_job($t->app, 'git_clone', $clone_dirs, {priority => 10}); | ||
| is $res->{retries}, 1, 'job retries incremented'; | ||
| is $res->{state}, 'inactive', 'job set back to inactive'; | ||
| }; | ||
| subtest 'git clone fails when all retry attempts exhausted' => sub { | ||
| $ENV{OPENQA_GIT_CLONE_RETRIES} = 0; | ||
| my $openqa_clone = Test::MockModule->new('OpenQA::Task::Git::Clone'); | ||
| $openqa_clone->redefine(_git_clone => sub (@) { die "fake error\n" }); | ||
| $res = run_gru_job($t->app, 'git_clone', $clone_dirs, {priority => 10}); | ||
| is $res->{retries}, 0, 'job retries not incremented'; | ||
| is $res->{state}, 'failed', 'job considered failed'; | ||
| }; | ||
|
|
||
| subtest 'dirty git checkout' => sub { | ||
| # /opt/ is mocked to be always reported as dirty | ||
| $clone_dirs = {'/opt/' => 'http://localhost/foo.git'}; | ||
| my $res = run_gru_job($t->app, 'git_clone', $clone_dirs, {priority => 10}); | ||
| is $res->{state}, 'failed', 'minion job failed'; | ||
| like $res->{result}, qr/NOT updating dirty git checkout/, 'error message'; | ||
| }; | ||
|
|
||
| subtest 'error testing dirty git checkout' => sub { | ||
| # /lib/ is mocked to be always reported as dirty | ||
| $clone_dirs = {'/lib/' => 'http://localhost/foo.git'}; | ||
| my $res = run_gru_job($t->app, 'git_clone', $clone_dirs, {priority => 10}); | ||
| is $res->{state}, 'failed', 'minion job failed'; | ||
| like $res->{result}, qr/Internal Git error: Unexpected exit code 2/, 'error message'; | ||
| }; | ||
|
|
||
| subtest 'minion guard' => sub { | ||
| my $guard = $t->app->minion->guard('limit_needle_task', ONE_HOUR); | ||
| my $start = time; | ||
| $res = run_gru_job($t->app, 'git_clone', $clone_dirs, {priority => 10}); | ||
| is $res->{state}, 'inactive', 'job is inactive'; | ||
| ok(($res->{delayed} - $start) > 5, 'job delayed as expected'); | ||
| }; | ||
| }; | ||
|
|
||
| done_testing(); | ||
|
|
||
| # clear gru task queue at end of execution so no 'dangling' tasks | ||
| # break subsequent tests; can happen if a subtest creates a task but | ||
| # does not execute it, or we crash partway through a subtest... | ||
| END { | ||
| $webapi and $webapi->signal('TERM'); | ||
| $webapi and $webapi->finish; | ||
| $t && $t->app->minion->reset; | ||
| } |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters