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