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 @@ -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