indexer tests: more conversion to assert_index_updated

andk · May 19, 2024 · a93f87e · a93f87e
1 parent 5c7f54a
commit a93f87e
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 25 deletions.
diff --git 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
@@ -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},