XXX: tests for "our $VERSION = v8.67.53"

Right now, this fails weirdly. See #365.
andk · Apr 28, 2024 · 6a16213 · 6a16213
1 parent a87299b
commit 6a16213
Showing 1 changed file with 30 additions and 0 deletions.
diff --git a/t/mldistwatch-misc.t b/t/mldistwatch-misc.t
@@ -321,6 +321,36 @@ subtest "check various forms of version" => sub {
   );
 };
 
+subtest "unquoted vstring version" => sub {
+  my $pause = PAUSE::TestPAUSE->init_new;
+  $pause->upload_author_fake(RJBS => {
+    name      => 'Quod-Version',
+    version   => '8.67.53',
+    packages  => [
+      'Quod::Version'   => {
+        version => 'v8.67.53',
+        layout  => { version => 'our-literal' }
+      },
+    ]
+  });
+
+  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",
+  );
+
+  diag($_->{email}->as_string) for $result->deliveries;
+
+  $result->email_ok(
+    [
+      { subject => 'PAUSE indexer report Quod-Version-8.67.53.tar.gz' },
+    ],
+  );
+};
+
 subtest "version assigned to a blob as a ref" => sub {
   my $pause = PAUSE::TestPAUSE->init_new;
   $pause->upload_author_fake(LUNATIC => 'Globby-Version-1.234.tar.gz', {