Skip to content

Commit 0517ef1

Browse files
committed
XXX: tests for "our $VERSION = v8.67.53"
Right now, this fails weirdly. See #365.
1 parent dcd157a commit 0517ef1

File tree

1 file changed

+30
-0
lines changed

1 file changed

+30
-0
lines changed

t/mldistwatch-misc.t

Lines changed: 30 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -321,6 +321,36 @@ subtest "check various forms of version" => sub {
321321
);
322322
};
323323

324+
subtest "unquoted vstring version" => sub {
325+
my $pause = PAUSE::TestPAUSE->init_new;
326+
$pause->upload_author_fake(RJBS => {
327+
name => 'Quod-Version',
328+
version => '8.67.53',
329+
packages => [
330+
'Quod::Version' => {
331+
version => 'v8.67.53',
332+
layout => { version => 'our-literal' }
333+
},
334+
]
335+
});
336+
337+
my $result = $pause->test_reindex;
338+
339+
$pause->file_not_updated_ok(
340+
$result->tmpdir
341+
->file(qw(cpan modules 02packages.details.txt.gz)),
342+
"there were no things to update",
343+
);
344+
345+
diag($_->{email}->as_string) for $result->deliveries;
346+
347+
$result->email_ok(
348+
[
349+
{ subject => 'PAUSE indexer report Quod-Version-8.67.53.tar.gz' },
350+
],
351+
);
352+
};
353+
324354
subtest "version assigned to a blob as a ref" => sub {
325355
my $pause = PAUSE::TestPAUSE->init_new;
326356
$pause->upload_author_fake(LUNATIC => 'Globby-Version-1.234.tar.gz', {

0 commit comments

Comments
 (0)