Skip to content

Commit ab50def

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

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
@@ -324,6 +324,36 @@ subtest "check various forms of version" => sub {
324324
);
325325
};
326326

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

0 commit comments

Comments
 (0)