diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-10-11 10:43:36 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-10-11 10:50:26 +0200 |
| commit | b14087d92f6c5d2430f97902e84d7f24027044bc (patch) | |
| tree | 60ee874b499ceec9fb3eeaded8fc45084d6ad3ca /t/emi_non_mandatory.t | |
| parent | 5dad5637e0b624568adac81feaafcca418b9d502 (diff) | |
| download | iurt-b14087d92f6c5d2430f97902e84d7f24027044bc.tar iurt-b14087d92f6c5d2430f97902e84d7f24027044bc.tar.gz iurt-b14087d92f6c5d2430f97902e84d7f24027044bc.tar.bz2 iurt-b14087d92f6c5d2430f97902e84d7f24027044bc.tar.xz iurt-b14087d92f6c5d2430f97902e84d7f24027044bc.zip | |
perl_checker cleanups
Diffstat (limited to 't/emi_non_mandatory.t')
| -rw-r--r-- | t/emi_non_mandatory.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/emi_non_mandatory.t b/t/emi_non_mandatory.t index 44031f6..d8f547c 100644 --- a/t/emi_non_mandatory.t +++ b/t/emi_non_mandatory.t @@ -212,7 +212,7 @@ my %expectations = ( my %targets = find_prefixes_ready_to_upload($config, %pkg_tree); foreach my $prefix (sort keys %expectations) { - my $ready = $prefix ~~ @{$targets{'cauldron'}{'core/release'}{'to_upload'}}; + my $ready = $prefix ~~ @{$targets{cauldron}{'core/release'}{to_upload}}; ok($expectations{$prefix}{ready} == $ready); next unless $expectations{$prefix}{ready}; @@ -232,7 +232,7 @@ foreach my $prefix (sort keys %expectations) { ok($all_uploaded); ok($all_unlinked); my $srpms_unlinked = @{$pkg_tree{$prefix}{srpms}} ~~ sub { - "./todo/cauldron/core/release/${prefix}_".@_[0] ~~ @unlinked + "./todo/cauldron/core/release/${prefix}_" . @_[0] ~~ @unlinked; }; ok($expectations{$prefix}{srpm_unlinked} == $srpms_unlinked); } |