add tests for version range and development versions in download_url

metacpan · Nov 17, 2016 · 96e0dbf · 96e0dbf
1 parent 8d6e042
commit 96e0dbf
Show file tree

Hide file tree

Showing 4 changed files with 26 additions and 1 deletion.
diff --git a/t/darkpan.t → t/01_darkpan.t b/t/darkpan.t → t/01_darkpan.t
diff --git a/t/lib/MetaCPAN/DarkPAN.pm b/t/lib/MetaCPAN/DarkPAN.pm
@@ -38,6 +38,12 @@ sub run {
             'CPAN-Test-Dummy-Perl5-VersionBump-0.02.tar.gz',
         ],
         TINITA => ['HTML-Template-Compiled-1.001.tar.gz'],
+        DOY    => [ 'Try-Tiny-0.21.tar.gz', 'Try-Tiny-0.22.tar.gz', ],
+        ETHER  => [
+            'Try-Tiny-0.23.tar.gz',       'Try-Tiny-0.24.tar.gz',
+            'Try-Tiny-0.25-TRIAL.tar.gz', 'Try-Tiny-0.26-TRIAL.tar.gz',
+            'Try-Tiny-0.27.tar.gz',
+        ],
     );
 
     foreach my $pauseid (%downloads) {

diff --git a/t/server/controller/author.t b/t/server/controller/author.t
@@ -85,7 +85,7 @@ test_psgi app, sub {
         'GET /author/DOY?join=release' );
 
     $json = decode_json_ok($res);
-    is( @{ $json->{release}->{hits}->{hits} }, 2, 'joined 2 releases' );
+    is( @{ $json->{release}->{hits}->{hits} }, 4, 'joined 4 releases' );
 
     ok(
         $res = $cb->(

diff --git a/t/server/controller/download_url.t b/t/server/controller/download_url.t
@@ -39,6 +39,25 @@ my @tests = (
         'latest',         '0.02'
     ],
     [ 'version >=', '/download_url/Moose?version=>=0.01', 'latest', '0.02' ],
+    [
+        'range >, <', '/download_url/Try::Tiny?version=>0.21,<0.27',
+        'cpan',       '0.24'
+    ],
+    [
+        'range >, <, !',
+        '/download_url/Try::Tiny?version=>0.21,<0.27,!=0.24',
+        'cpan', '0.23'
+    ],
+    [
+        'range >, <; dev',
+        '/download_url/Try::Tiny?version=>0.21,<0.27&dev=1',
+        'cpan', '0.26'
+    ],
+    [
+        'range >, <, !; dev',
+        '/download_url/Try::Tiny?version=>0.21,<0.27,!=0.26&dev=1',
+        'cpan', '0.25'
+    ],
 );
 
 for (@tests) {