Migrate search and reflog to new model.

[catagits/Gitalist.git] / t / 01app.t

diff --git a/t/01app.t b/t/01app.t
index 8946b80..2c2d9e5 100644 (file)
--- a/t/01app.t
+++ b/t/01app.t
@@ -11,7 +11,7 @@ BEGIN {
 
 ok( request('/')->is_success, 'Request should succeed' );
 
-for my $p (qw/ bare.git repo1 nodescription /) {
+for my $p (qw/ repo1 nodescription /) {
     my $path = '/summary?p=' . $p;
     ok( request($path)->is_success, "$path should succeed");
 }
@@ -24,10 +24,11 @@ is request('/summary?p=DoesNotExist')->code, 404,
   test('/summary');
   test('/shortlog');
   test('/log');
+  test('/reflog');
   test('/commit');
   test('/commitdiff', 'h=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
   test('/tree', 'h=145dc3ef5d307be84cb9b325d70bd08aeed0eceb;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818');
-#  $test_repo1->('/', 'a=blob;f=file1');
+  test('/search', 'h=36c6c6708b8360d7023e8a1649c45bcf9b3bd818&f=&type=commit&text=added');
 }
 
 done_testing;
@@ -36,7 +37,6 @@ sub test_uri {
     my ($p, $uri, $qs) = @_;
     $qs ||= '';
     my $request = "$uri?p=repo1;$qs";
-    warn("request: $request");
     my $response = request($request);
     ok($response->is_success, "ok $p - $uri");
 }
@@ -44,7 +44,7 @@ sub test_uri {
 sub curry_test_uri {
     my $p = shift;
     sub {
-        my $uri = shift;
-        test_uri($p, $uri);
+        my ($uri, $qs) = @_;
+        test_uri($p, $uri, $qs);
     };
 };