diff --git a/t/mldistwatch-misc.t b/t/mldistwatch-misc.t index 379e317b8..8b0ae6acb 100644 --- a/t/mldistwatch-misc.t +++ b/t/mldistwatch-misc.t @@ -582,11 +582,7 @@ subtest "do not index dists without trial versions" => sub { my $result = $pause->test_reindex; - $pause->file_not_updated_ok( - $result->tmpdir - ->file(qw(cpan modules 02packages.details.txt.gz)), - "there were no things to update", - ); + $result->assert_index_not_updated; $result->logged_event_like( qr{\Qdist is a developer release}, @@ -604,11 +600,7 @@ subtest "updates to existing packages " => sub { my $result = $pause->test_reindex; - $pause->file_updated_ok( - $result->tmpdir - ->file(qw(cpan modules 02packages.details.txt.gz)), - "index updated", - ); + $result->assert_index_updated; $result->package_list_ok([ { package => 'Eye::Meeter', version => '1.234' }, @@ -620,11 +612,7 @@ subtest "updates to existing packages " => sub { my $result = $pause->test_reindex; - $pause->file_updated_ok( - $result->tmpdir - ->file(qw(cpan modules 02packages.details.txt.gz)), - "index updated", - ); + $result->assert_index_updated; $result->package_list_ok([ { package => 'Eye::Meeter', version => '1.235' }, diff --git a/t/mldistwatch-perl.t b/t/mldistwatch-perl.t index a0a4be420..ef0a0f064 100644 --- a/t/mldistwatch-perl.t +++ b/t/mldistwatch-perl.t @@ -75,11 +75,7 @@ subtest "reject perl by unauthorized user" => sub { my $result = $pause->test_reindex; - $pause->file_not_updated_ok( - $result->tmpdir - ->file(qw(cpan modules 02packages.details.txt.gz)), - "there were no things to update", - ); + $result->assert_index_not_updated; $result->logged_event_like( qr{\Qperl dist O/OP/OPRIME/perl-5.56.55.tar.gz from untrusted user OPRIME}, @@ -172,11 +168,7 @@ subtest "indexing a new perl, but file is not a proper tar.gz" => sub { my $result = $pause->test_reindex; - $pause->file_not_updated_ok( - $result->tmpdir - ->file(qw(cpan modules 02packages.details.txt.gz)), - "there were no things to update", - ); + $result->assert_index_not_updated; $result->logged_event_like( qr{\Qcould not untar O/OP/OPRIME/perl-5.56.55.tar.gz},