t/03legacy_uri.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More;
   5 use FindBin qw/$Bin/;
   6
   7 BEGIN {
   8     $ENV{GITALIST_CONFIG} = $Bin;
   9     use_ok 'Catalyst::Test', 'Gitalist'
  10 }
  11
  12 ok( request('/')->is_success, 'Request should succeed' );
  13
  14 # URI tests for repo1
  15 local *test = curry_test_uri('repo1');
  16
  17 test('/', 'a=summary');
  18 test('/', 'a=heads');
  19 test('/', 'a=tags');
  20
  21 test('/', 'a=blob;f=dir1/file2;h=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
  22 test('/', 'a=blob;f=dir1/file2;h=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=HEAD');
  23 test('/', 'a=blob;f=dir1/file2;h=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=master');
  24 test('/', 'a=blob;f=dir1/file2;h=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=refs/heads/master');
  25 test('/', 'a=blob;f=dir1/file2;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
  26 test('/', 'a=blob;f=file1;h=257cc5642cb1a054f08cc83f2d943e56fd3ebe99');
  27 test('/', 'a=blob;f=file1;h=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=257cc5642cb1a054f08cc83f2d943e56fd3ebe99');
  28 test('/', 'a=blob;f=file1;h=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
  29 test('/', 'a=blob;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
  30 test('/', 'a=blob;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hb=3f7567c7bdf7e7ebf410926493b92d398333116e');
  31 test('/', 'a=blob;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hb=5716ca5987cbf97d6bb54920bea6adde242d87e6');
  32 test('/', 'a=blob;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hb=HEAD');
  33 test('/', 'a=blob;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hb=master');
  34 test('/', 'a=blob;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hb=refs/heads/master');
  35 test('/', 'a=blob;f=file1;hb=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
  36 test('/', 'a=blob;f=file1;hb=3f7567c7bdf7e7ebf410926493b92d398333116e');
  37
  38
  39 test('/', 'a=blob_plain;f=dir1/file2;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
  40 test('/', 'a=blob_plain;f=dir1/file2;hb=HEAD');
  41 test('/', 'a=blob_plain;f=dir1/file2;hb=master');
  42 test('/', 'a=blob_plain;f=dir1/file2;hb=refs/heads/master');
  43 test('/', 'a=blob_plain;f=file1;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
  44 test('/', 'a=blob_plain;f=file1;hb=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
  45 test('/', 'a=blob_plain;f=file1;hb=3f7567c7bdf7e7ebf410926493b92d398333116e');
  46 test('/', 'a=blob_plain;f=file1;hb=HEAD');
  47 test('/', 'a=blob_plain;f=file1;hb=master');
  48 test('/', 'a=blob_plain;f=file1;hb=refs/heads/master');
  49
  50 test('/', 'a=blobdiff;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hp=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818;hpb=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
  51 test('/', 'a=blobdiff;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hp=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=3f7567c7bdf7e7ebf410926493b92d398333116e;hpb=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
  52 test('/', 'a=blobdiff;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hp=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=HEAD;hpb=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
  53 test('/', 'a=blobdiff;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hp=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=master;hpb=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
  54 test('/', 'a=blobdiff;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hp=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=refs/heads/master;hpb=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
  55
  56 test('/', 'a=blobdiff_plain;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hp=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818;hpb=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
  57 test('/', 'a=blobdiff_plain;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hp=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=3f7567c7bdf7e7ebf410926493b92d398333116e;hpb=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
  58 test('/', 'a=blobdiff_plain;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hp=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=HEAD;hpb=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
  59 test('/', 'a=blobdiff_plain;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hp=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=master;hpb=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
  60
  61 test('/', 'a=commit');
  62 test('/', 'a=commit;h=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
  63 test('/', 'a=commit;h=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
  64 test('/', 'a=commit;h=3f7567c7bdf7e7ebf410926493b92d398333116e');
  65 test('/', 'a=commit;h=HEAD');
  66 test('/', 'a=commit;h=master');
  67 test('/', 'a=commit;h=refs/heads/master');
  68 test('/', 'a=commit;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
  69 test('/', 'a=commit;hb=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
  70 test('/', 'a=commit;hb=3f7567c7bdf7e7ebf410926493b92d398333116e');
  71
  72 test('/', 'a=commitdiff');
  73 test('/', 'a=commitdiff;h=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
  74 test('/', 'a=commitdiff;h=36c6c6708b8360d7023e8a1649c45bcf9b3bd818;hp=3f7567c7bdf7e7ebf410926493b92d398333116e');
  75 test('/', 'a=commitdiff;h=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
  76 test('/', 'a=commitdiff;h=3f7567c7bdf7e7ebf410926493b92d398333116e');
  77 test('/', 'a=commitdiff;h=3f7567c7bdf7e7ebf410926493b92d398333116e;hp=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
  78 test('/', 'a=commitdiff;h=HEAD');
  79 test('/', 'a=commitdiff;h=HEAD;hp=3f7567c7bdf7e7ebf410926493b92d398333116e');
  80 test('/', 'a=commitdiff;h=master');
  81 test('/', 'a=commitdiff;h=master;hp=3f7567c7bdf7e7ebf410926493b92d398333116e');
  82 test('/', 'a=commitdiff;h=refs/heads/master');
  83 test('/', 'a=commitdiff;h=refs/heads/master;hp=3f7567c7bdf7e7ebf410926493b92d398333116e');
  84
  85 test('/', 'a=commitdiff_plain');
  86 test('/', 'a=commitdiff_plain;h=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
  87 test('/', 'a=commitdiff_plain;h=36c6c6708b8360d7023e8a1649c45bcf9b3bd818;hp=3f7567c7bdf7e7ebf410926493b92d398333116e');
  88 test('/', 'a=commitdiff_plain;h=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
  89 test('/', 'a=commitdiff_plain;h=3f7567c7bdf7e7ebf410926493b92d398333116e');
  90 test('/', 'a=commitdiff_plain;h=3f7567c7bdf7e7ebf410926493b92d398333116e;hp=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
  91 test('/', 'a=commitdiff_plain;h=HEAD');
  92 test('/', 'a=commitdiff_plain;h=HEAD;hp=3f7567c7bdf7e7ebf410926493b92d398333116e');
  93 test('/', 'a=commitdiff_plain;h=master');
  94 test('/', 'a=commitdiff_plain;h=master;hp=3f7567c7bdf7e7ebf410926493b92d398333116e');
  95 test('/', 'a=commitdiff_plain;h=refs/heads/master');
  96 test('/', 'a=commitdiff_plain;h=refs/heads/master;hp=3f7567c7bdf7e7ebf410926493b92d398333116e');
  97
  98
  99 test('/', 'a=history;f=dir1/file2;h=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
 100 test('/', 'a=history;f=dir1/file2;h=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=HEAD');
 101 test('/', 'a=history;f=dir1/file2;h=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=master');
 102 test('/', 'a=history;f=dir1/file2;h=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=refs/heads/master');
 103 test('/', 'a=history;f=dir1;h=729a7c3f6ba5453b42d16a43692205f67fb23bc1;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
 104 test('/', 'a=history;f=dir1;h=729a7c3f6ba5453b42d16a43692205f67fb23bc1;hb=HEAD');
 105 test('/', 'a=history;f=dir1;h=729a7c3f6ba5453b42d16a43692205f67fb23bc1;hb=master');
 106 test('/', 'a=history;f=dir1;h=729a7c3f6ba5453b42d16a43692205f67fb23bc1;hb=refs/heads/master');
 107 test('/', 'a=history;f=dir1;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
 108 test('/', 'a=history;f=dir1;hb=HEAD');
 109 test('/', 'a=history;f=dir1;hb=master');
 110 test('/', 'a=history;f=dir1;hb=refs/heads/master');
 111 test('/', 'a=history;f=file1;h=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
 112 test('/', 'a=history;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
 113 test('/', 'a=history;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hb=3f7567c7bdf7e7ebf410926493b92d398333116e');
 114 test('/', 'a=history;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hb=HEAD');
 115 test('/', 'a=history;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hb=master');
 116 test('/', 'a=history;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hb=refs/heads/master');
 117 test('/', 'a=history;f=file1;hb=3f7567c7bdf7e7ebf410926493b92d398333116e');
 118 test('/', 'a=history;h=refs/heads/master');
 119
 120 test('/', 'a=log');
 121 test('/', 'a=log;h=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
 122 test('/', 'a=log;h=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
 123 test('/', 'a=log;h=3f7567c7bdf7e7ebf410926493b92d398333116e');
 124 test('/', 'a=log;h=HEAD');
 125 test('/', 'a=log;h=master');
 126 test('/', 'a=log;h=refs/heads/master');
 127
 128 test('/', 'a=patch');
 129 test('/', 'a=patch;h=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
 130 test('/', 'a=patch;h=36c6c6708b8360d7023e8a1649c45bcf9b3bd818;hp=3f7567c7bdf7e7ebf410926493b92d398333116e');
 131 test('/', 'a=patch;h=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
 132 test('/', 'a=patch;h=3f7567c7bdf7e7ebf410926493b92d398333116e');
 133 test('/', 'a=patch;h=3f7567c7bdf7e7ebf410926493b92d398333116e;hp=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
 134 test('/', 'a=patch;h=HEAD');
 135 test('/', 'a=patch;h=HEAD;hp=3f7567c7bdf7e7ebf410926493b92d398333116e');
 136 test('/', 'a=patch;h=master');
 137 test('/', 'a=patch;h=master;hp=3f7567c7bdf7e7ebf410926493b92d398333116e');
 138 test('/', 'a=patch;h=refs/heads/master');
 139 test('/', 'a=patch;h=refs/heads/master;hp=3f7567c7bdf7e7ebf410926493b92d398333116e');
 140 test('/', 'a=patch;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
 141 test('/', 'a=patch;hb=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
 142 test('/', 'a=patch;hb=3f7567c7bdf7e7ebf410926493b92d398333116e');
 143
 144 test('/', 'a=patches');
 145 test('/', 'a=patches;h=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
 146 test('/', 'a=patches;h=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
 147 test('/', 'a=patches;h=3f7567c7bdf7e7ebf410926493b92d398333116e');
 148 test('/', 'a=patches;h=HEAD');
 149 test('/', 'a=patches;h=master');
 150 test('/', 'a=patches;h=refs/heads/master');
 151
 152 test('/', 'a=search_help');
 153
 154 test('/', 'a=shortlog');
 155 test('/', 'a=shortlog;h=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
 156 test('/', 'a=shortlog;h=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
 157 test('/', 'a=shortlog;h=3f7567c7bdf7e7ebf410926493b92d398333116e');
 158 test('/', 'a=shortlog;h=HEAD');
 159 test('/', 'a=shortlog;h=master');
 160 test('/', 'a=shortlog;h=refs/heads/master');
 161
 162 test('/', 'a=snapshot;h=145dc3ef5d307be84cb9b325d70bd08aeed0eceb;sf=tgz');
 163 test('/', 'a=snapshot;h=36c6c6708b8360d7023e8a1649c45bcf9b3bd818;sf=tgz');
 164 test('/', 'a=snapshot;h=3bc0634310b9c62222bb0e724c11ffdfb297b4ac;sf=tgz');
 165 test('/', 'a=snapshot;h=3f7567c7bdf7e7ebf410926493b92d398333116e;sf=tgz');
 166 test('/', 'a=snapshot;h=729a7c3f6ba5453b42d16a43692205f67fb23bc1;sf=tgz');
 167 test('/', 'a=snapshot;h=82b5fee28277349b6d46beff5fdf6a7152347ba0;sf=tgz');
 168 test('/', 'a=snapshot;h=9062594aebb5df0de7fb92413f17a9eced196c22;sf=tgz');
 169 test('/', 'a=snapshot;h=HEAD;sf=tgz');
 170 test('/', 'a=snapshot;h=master;sf=tgz');
 171 test('/', 'a=snapshot;h=refs/heads/master;sf=tgz');
 172
 173 test('/', 'a=tree');
 174 test('/', 'a=tree;f=dir1;h=729a7c3f6ba5453b42d16a43692205f67fb23bc1;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
 175 test('/', 'a=tree;f=dir1;h=729a7c3f6ba5453b42d16a43692205f67fb23bc1;hb=HEAD');
 176 test('/', 'a=tree;f=dir1;h=729a7c3f6ba5453b42d16a43692205f67fb23bc1;hb=master');
 177 test('/', 'a=tree;f=dir1;h=729a7c3f6ba5453b42d16a43692205f67fb23bc1;hb=refs/heads/master');
 178 test('/', 'a=tree;f=dir1;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
 179 test('/', 'a=tree;f=dir1;hb=HEAD');
 180 test('/', 'a=tree;f=dir1;hb=master');
 181 test('/', 'a=tree;f=dir1;hb=refs/heads/master');
 182 test('/', 'a=tree;h=145dc3ef5d307be84cb9b325d70bd08aeed0eceb;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
 183 test('/', 'a=tree;h=145dc3ef5d307be84cb9b325d70bd08aeed0eceb;hb=HEAD');
 184 test('/', 'a=tree;h=145dc3ef5d307be84cb9b325d70bd08aeed0eceb;hb=master');
 185 test('/', 'a=tree;h=145dc3ef5d307be84cb9b325d70bd08aeed0eceb;hb=refs/heads/master');
 186 test('/', 'a=tree;h=36c6c6708b8360d7023e8a1649c45bcf9b3bd818;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
 187 test('/', 'a=tree;h=3bc0634310b9c62222bb0e724c11ffdfb297b4ac;hb=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
 188 test('/', 'a=tree;h=3f7567c7bdf7e7ebf410926493b92d398333116e;hb=3f7567c7bdf7e7ebf410926493b92d398333116e');
 189 test('/', 'a=tree;h=82b5fee28277349b6d46beff5fdf6a7152347ba0;hb=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
 190 test('/', 'a=tree;h=9062594aebb5df0de7fb92413f17a9eced196c22;hb=3f7567c7bdf7e7ebf410926493b92d398333116e');
 191 test('/', 'a=tree;h=HEAD;hb=HEAD');
 192 test('/', 'a=tree;h=master;hb=master');
 193 test('/', 'a=tree;h=refs/heads/master;hb=master');
 194 test('/', 'a=tree;h=refs/heads/master;hb=refs/heads/master');
 195 test('/', 'a=tree;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
 196 test('/', 'a=tree;hb=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
 197 test('/', 'a=tree;hb=3f7567c7bdf7e7ebf410926493b92d398333116e');
 198 test('/', 'a=tree;hb=HEAD');
 199 test('/', 'a=tree;hb=master');
 200 test('/', 'a=tree;hb=refs/heads/master');
 201
 202
 203 test('/', 'a=atom');
 204 test('/', 'a=atom;f=dir1');
 205 test('/', 'a=atom;f=dir1/file2');
 206 test('/', 'a=atom;f=dir1/file2;opt=--no-merges');
 207 test('/', 'a=atom;f=dir1;h=refs/heads/master');
 208 test('/', 'a=atom;f=dir1;h=refs/heads/master;opt=--no-merges');
 209 test('/', 'a=atom;f=dir1;opt=--no-merges');
 210 test('/', 'a=atom;f=file1');
 211 test('/', 'a=atom;f=file1;h=refs/heads/master');
 212 test('/', 'a=atom;f=file1;h=refs/heads/master;opt=--no-merges');
 213 test('/', 'a=atom;f=file1;opt=--no-merges');
 214 test('/', 'a=atom;h=refs/heads/master');
 215 test('/', 'a=atom;h=refs/heads/master;opt=--no-merges');
 216 test('/', 'a=atom;opt=--no-merges');
 217
 218 test('/', 'a=rss');
 219 test('/', 'a=rss;f=dir1');
 220 test('/', 'a=rss;f=dir1/file2');
 221 test('/', 'a=rss;f=dir1/file2;opt=--no-merges');
 222 test('/', 'a=rss;f=dir1;h=refs/heads/master');
 223 test('/', 'a=rss;f=dir1;h=refs/heads/master;opt=--no-merges');
 224 test('/', 'a=rss;f=dir1;opt=--no-merges');
 225 test('/', 'a=rss;f=file1');
 226 test('/', 'a=rss;f=file1;h=refs/heads/master');
 227 test('/', 'a=rss;f=file1;h=refs/heads/master;opt=--no-merges');
 228 test('/', 'a=rss;f=file1;opt=--no-merges');
 229 test('/', 'a=rss;h=refs/heads/master');
 230 test('/', 'a=rss;h=refs/heads/master;opt=--no-merges');
 231 test('/', 'a=rss;opt=--no-merges');
 232
 233 test('/', 'a=project_index');
 234
 235 test('/', 'a=opml');
 236
 237 test('/', 'a=blame;f=dir1/file2;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
 238 test('/', 'a=blame;f=file1;h=257cc5642cb1a054f08cc83f2d943e56fd3ebe99;hb=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
 239 test('/', 'a=blame;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
 240 test('/', 'a=blame;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hb=3f7567c7bdf7e7ebf410926493b92d398333116e');
 241 test('/', 'a=blame;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hb=HEAD');
 242 test('/', 'a=blame;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hb=master');
 243 test('/', 'a=blame;f=file1;h=5716ca5987cbf97d6bb54920bea6adde242d87e6;hb=refs/heads/master');
 244 test('/', 'a=blame;f=file1;hb=3bc0634310b9c62222bb0e724c11ffdfb297b4ac');
 245 test('/', 'a=blame;f=file1;hb=3f7567c7bdf7e7ebf410926493b92d398333116e');
 246
 247 done_testing;
 248
 249 sub test_uri {
 250     my ($p, $uri, $qs) = @_;
 251     $qs ||= '';
 252     my $request = "$uri?p=repo1;$qs";
 253     my $response = request($request);
 254     ok($response->is_success, "ok $request");
 255 }
 256
 257 sub curry_test_uri {
 258     my $p = shift;
 259     sub {
 260         my ($uri, $qs) = @_;
 261         test_uri($p, $uri, $qs);
 262     };
 263 };