Sometimes project names have trailing spaces

org-gtd-agenda--prefix-format sometimes receives a project name with a trailing space.
Trim both sides to remove whitespace.
(perhaps that is something to look for and remove where it is extracted)

Also, remove spurious messages in testing code.

org-gtd-agenda.el

@@ -100,24 +100,25 @@ This assumes all GTD files are also agenda files."
 
 (defun org-gtd-agenda--prefix-format ()
   "Format prefix for items in agenda buffer."
+  (defun truncate (st)
+    (truncate-string-to-width (string-trim st) org-gtd-agenda-width-project-name nil ?\s  "…")
+    )
   (let* ((elt (org-element-at-point))
          (level (org-element-property :level elt))
          (category (org-entry-get (point) "CATEGORY" t))
          (parent-title (org-element-property
                         :raw-value
                         (org-element-property :parent elt)))
          (tally-cookie-regexp "\[[[:digit:]]+/[[:digit:]]+\][[:space:]]*"))
-    (truncate-string-to-width
+    (truncate
      ;; if level 3, use the parent
      ;; otherwise if it has category, use category
      ;; else "no project" so we avoid failing
      (cond
       ((eq level 3) (replace-regexp-in-string tally-cookie-regexp "" parent-title))
       (category     category)
       (t  "no project")
-      )
-     org-gtd-agenda-width-project-name nil ?\s  "…"
-     )))
+      ))))
 
 ;;;; Footer
 

test/agenda-width-project-name.el

@@ -17,7 +17,7 @@
   (it "can have a specific agenda width"
     (ogt-capture-and-process-project "My long project name which needs shortening") ;; see test/helpers/processing.el
     (org-gtd-engage)
-    (expect (message (ogt--buffer-string org-agenda-buffer))
+    (expect (ogt--buffer-string org-agenda-buffer)
             :to-match
             "My long project …")
     ))
@@ -35,7 +35,7 @@
   (it "can have a specific agenda width"
     (ogt-capture-and-process-project "P234567890")
     (org-gtd-engage)
-    (expect (message (ogt--buffer-string org-agenda-buffer))
+    (expect (ogt--buffer-string org-agenda-buffer)
             :to-match
             "P234…")
     ))
@@ -53,7 +53,7 @@
   (it "can have a specific agenda width"
     (ogt-capture-and-process-project "P234567890")
     (org-gtd-engage)
-    (expect (message (ogt--buffer-string org-agenda-buffer))
+    (expect (ogt--buffer-string org-agenda-buffer)
             :to-match
             "…")
     ))
@@ -71,7 +71,7 @@
   (it "can have a specific agenda width"
     (ogt-capture-and-process-project "P234567890")
     (org-gtd-engage)
-    (expect (message (ogt--buffer-string org-agenda-buffer))
+    (expect (ogt--buffer-string org-agenda-buffer)
             :to-match
             "P234567890")
     ))
@@ -89,7 +89,7 @@
   (it "can have a specific agenda width"
     (ogt-capture-and-process-project "P234567890")
     (org-gtd-engage)
-    (expect (message (ogt--buffer-string org-agenda-buffer))
+    (expect (ogt--buffer-string org-agenda-buffer)
             :to-match
             "P234567890  ")
     ))
@@ -107,7 +107,7 @@
   (it "can have a specific agenda width"
     (ogt-capture-and-process-project "P234567890")
     (org-gtd-engage)
-    (expect (message (ogt--buffer-string org-agenda-buffer))
+    (expect (ogt--buffer-string org-agenda-buffer)
             :to-match
             "P234567890                                        ")
     ))