FIX issues API

Signed-off-by: Nicolas Lamirault <[email protected]>

Author: nlamirault

ChangeLog.md

@@ -1,8 +1,15 @@
 # emacs-gitlab ChangeLog
 
-## Version 0.3 (IN PROGRESS)
+## Version 0.4 (05/29/2015)
 
-- ``#8``: Invalid URL for issue project 
+- Initial support for Users API (Thanks [marcinant][])
+- ``FIX`` unit tests on Issues API
+- Support Notes API (Thanks [marcinant][])
+- Support Milestone API (Thanks [marcinant][])
+
+## Version 0.3 (04/19/2015)
+
+- ``#8``: Invalid URL for issue project
 - Refactoring unit tests (use [ert-runner][] and [overseer][])
 - ``#7``: Fixed multiline descriptions breaking tabulated view (Thanks [marcinant][])
 - ``#4``: FIX Documentation (Thanks [marcinant][])

Makefile

@@ -58,7 +58,7 @@ elpa:
 .PHONY: build
 build : elpa $(OBJECTS)
 
-test: build
+test: clean build
 	@echo -e "$(OK_COLOR)[$(APP)] Unit tests$(NO_COLOR)"
 	@$(CASK) exec ert-runner
 

gitlab-issues.el

@@ -43,11 +43,14 @@ LABELS - Comma-separated list of label names"
 
 
 (defun gitlab--get-issue-uri (project-id issue-id)
+  "Retrieve URI to retrieve an issue.
+PROJECT-ID : The ID of a project
+ISSUE-ID : The ID of a project issue"
   (s-concat "projects/"
             (url-hexify-string
              (format "%s" project-id))
             "/issues/"
-            (number-to-string issue-id)))
+            issue-id))
 
 (defun gitlab-list-project-issues (project-id)
   "Get a list of project issues.
@@ -70,7 +73,7 @@ ISSUE-ID : The ID of a project issue"
                           (gitlab--get-issue-uri
                            (url-hexify-string
                             (format "%s" project-id))
-                           issue-id)
+                           (format "%s" issue-id))
                           nil
                           200))
 

gitlab-utils.el

@@ -1,6 +1,6 @@
 ;;; gitlab-utils.el --- some tools
 
-;; Copyright (C) 2014 Nicolas Lamirault <[email protected]>
+;; Copyright (C) 2014, 2015 Nicolas Lamirault <[email protected]>
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License

gitlab.el

@@ -2,12 +2,12 @@
 
 ;; Author: Nicolas Lamirault <[email protected]>
 ;; URL: https://github.com/nlamirault/emacs-gitlab
-;; Version: 0.3.0
+;; Version: 0.4.0
 ;; Keywords: gitlab
 
 ;; Package-Requires: ((s "1.9.0") (dash "2.9.0") (pkg-info "0.5.0") (request "0.1.0"))
 
-;; Copyright (C) 2014 Nicolas Lamirault <[email protected]>
+;; Copyright (C) 2014, 2015 Nicolas Lamirault <[email protected]>
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License

test/gitlab-issues-test.el

@@ -56,10 +56,11 @@
               issues)))))
 
 (ert-deftest test-get-single-issue ()
-  :tags '(issues)
+  :tags '(issues current)
   (with-test-sandbox
    (with-gitlab-session
-    (let ((issue (gitlab-get-issue gitlab-project-id "85657"))) ;gitlab-issue-id)))
+    (let ((issue (gitlab-get-issue gitlab-project-id gitlab-issue-id)))
+      (message "Issue : %s" issue)
       (should (s-equals? gitlab-issue-title
                          (assoc-default 'title issue)))))))