File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff 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+
324354subtest " 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' , {
You can’t perform that action at this time.
0 commit comments