Make all lib_test executables buildable.

Author: tmcgilchrist

dune-project

@@ -2,6 +2,7 @@
 (name github)
 
 (generate_opam_files true)
+(formatting disabled)
 
 (license MIT)
 (maintainers "Anil Madhavapeddy <anil@recoil.org>")
@@ -20,6 +21,7 @@
   (cohttp (>= 4.0.0))
   (cohttp-lwt-jsoo (>= 4.0.0))
   (lwt (>= 2.4.4))
+  (cohttp-lwt (>= 4.0.0))
   (github-data (= :version))
   (yojson (>= 1.6.0))
   stringext)

github.opam

@@ -31,6 +31,7 @@ depends: [
   "cohttp" {>= "4.0.0"}
   "cohttp-lwt-jsoo" {>= "4.0.0"}
   "lwt" {>= "2.4.4"}
+  "cohttp-lwt" {>= "4.0.0"}
   "github-data" {= version}
   "yojson" {>= "1.6.0"}
   "stringext"

lib_test/dune

@@ -1,33 +1,43 @@
 (executables
  (libraries cohttp-lwt-unix github_unix atdgen stringext cmdliner)
   (names 
+   checks
+   contributors
    current_user
    current_user_orgs
-   organizations
+   get_token
+   issues
+   labels
+   milestones
    organization_repos
-   checks
-    rwo
-    get_token
-    repo_info
-    repo_stats
-    contributors
-    releases
-    user_type))
+   organizations
+   pulls
+   releases
+   repo_info
+   repo_stats
+   rwo
+   tags
+   user_type))
 
 (rule (copy config.ml.in config.ml))
 
 (alias
  (name DEFAULT)
   (deps
+   checks.exe
+   contributors.exe
    current_user.exe
    current_user_orgs.exe
-   organizations.exe
+   get_token.exe
+   issues.exe
+   labels.exe
+   milestones.exe
    organization_repos.exe
-   checks.exe
-    rwo.exe
-    get_token.exe
-    repo_info.exe
-    repo_stats.exe
-    releases.exe
-    contributors.exe
-    user_type.exe))
+   organizations.exe
+   pulls.exe
+   releases.exe
+   repo_info.exe
+   repo_stats.exe
+   rwo.exe
+   tags.exe
+   user_type.exe))

lib_test/labels.ml

@@ -10,9 +10,10 @@ let t =
   let open Github_t in
   run (
     let labels = Label.for_repo ~token ~user ~repo () in
+    printf "labels for %s/%s\n\n" user repo;
     Stream.iter (fun label ->
       let name = label.label_name in
-      eprintf "label %s" name;
+      printf "%s\n" name;
       return ()
     ) labels
   )

lib_test/pulls.ml

@@ -1,6 +1,6 @@
 open Printf
 
-let token = None (* Some Config.access_token *)
+let token = Config.access_token
 
 let print_pulls pl = Github.(Monad.(
   Stream.iter (fun p ->
@@ -22,17 +22,17 @@ let t = Github.(Monad.(run (
   return (opam_repo_pulls ~state:`Closed ()) >>= print_pulls >>= fun () ->
   return (opam_repo_pulls ())
   >>= Stream.iter (fun hd ->
-    Pull.get ?token ~user ~repo ~num:hd.Github_t.pull_number ()
+    Pull.get ~token ~user ~repo ~num:hd.Github_t.pull_number ()
     >>~ fun p ->
     eprintf "Inside monad: pull %d: %s\n%!"
       p.Github_t.pull_number p.Github_t.pull_title;
-    return (Pull.commits ?token ~user ~repo ~num:hd.Github_t.pull_number ())
+    return (Pull.commits ~token ~user ~repo ~num:hd.Github_t.pull_number ())
     >>= Stream.iter (fun commit ->
       eprintf "    %s\n" commit.Github_t.commit_sha; return ()
     )
     >>= fun () ->
     eprintf "---------\n%!";
-    return (Pull.files ?token ~user ~repo ~num:hd.Github_t.pull_number ())
+    return (Pull.files ~token ~user ~repo ~num:hd.Github_t.pull_number ())
     >>= Stream.iter (fun file ->
       eprintf "    %s\n" file.Github_t.file_filename; return ()
     )