Add tests for autoloading

Add tests to check if key autoloaded functions can be called without
triggering errors in a fresh Emacs session.

test/autoload-test.el

@@ -0,0 +1,65 @@
+(load "test/helpers/setup.el")
+(require 'buttercup)
+(describe
+    "autoloaded entry point"
+
+  (it "org-gtd-engage"
+    (expect
+     (ogt--recursive-eldev-test "autoload-tests/org-gtd-engage-test.el")
+     :to-equal 0))
+
+  (it "org-gtd-show-all-next"
+    (expect
+     (ogt--recursive-eldev-test
+      "autoload-tests/org-gtd-show-all-next-test.el")
+     :to-equal 0))
+
+  (it "org-gtd-archive-completed-items"
+    (expect
+     (ogt--recursive-eldev-test
+      "autoload-tests/org-gtd-archive-completed-items-test.el")
+     :to-equal 0))
+
+  (it "org-gtd-capture"
+    (expect
+     (ogt--recursive-eldev-test
+      "autoload-tests/org-gtd-capture-test.el")
+     :to-equal 0))
+
+  (it "org-gtd-inbox-path"
+    (expect
+     (ogt--recursive-eldev-test
+      "autoload-tests/org-gtd-inbox-path-test.el")
+     :to-equal 0))
+
+  (it "org-gtd-clarify-mode"
+    (expect
+     (ogt--recursive-eldev-test
+      "autoload-tests/org-gtd-clarify-mode-test.el")
+     :to-equal 0))
+
+  (it "org-gtd-review-area-of-focus"
+    (expect
+     (ogt--recursive-eldev-test
+      "autoload-tests/org-gtd-review-area-of-focus-test.el")
+     :to-equal 0))
+
+  (it "org-gtd-review-stuck-projects"
+    (expect
+     (ogt--recursive-eldev-test
+      "autoload-tests/org-gtd-review-stuck-projects-test.el")
+     :to-equal 0))
+
+  (it "org-gtd-process-inbox"
+    (expect
+     (ogt--recursive-eldev-test
+      "autoload-tests/org-gtd-process-inbox-test.el")
+     :to-equal 0))
+
+  (it "org-gtd-mode"
+    (expect
+     (ogt--recursive-eldev-test
+      "autoload-tests/org-gtd-mode-test.el")
+     :to-equal 0))
+
+  )

test/autoload-tests/org-gtd-archive-completed-items-test.el

@@ -0,0 +1,5 @@
+(require 'buttercup)
+(setq org-gtd-update-ack "3.0.0")
+(require 'org-gtd-autoloads)
+
+(org-gtd-archive-completed-items)

test/autoload-tests/org-gtd-capture-test.el

@@ -0,0 +1,8 @@
+(require 'buttercup)
+(setq org-gtd-update-ack "3.0.0")
+(require 'org-gtd-autoloads)
+
+(require 'with-simulated-input)
+(with-simulated-input "i"
+  (org-gtd-capture))
+

test/autoload-tests/org-gtd-clarify-mode-test.el

@@ -0,0 +1,5 @@
+(require 'buttercup)
+(setq org-gtd-update-ack "3.0.0")
+(require 'org-gtd-autoloads)
+
+(org-gtd-clarify-mode)

test/autoload-tests/org-gtd-engage-test.el

@@ -0,0 +1,5 @@
+(require 'buttercup)
+(setq org-gtd-update-ack "3.0.0")
+(require 'org-gtd-autoloads)
+
+(org-gtd-engage)

test/autoload-tests/org-gtd-inbox-path-test.el

@@ -0,0 +1,5 @@
+(require 'buttercup)
+(setq org-gtd-update-ack "3.0.0")
+(require 'org-gtd-autoloads)
+
+(org-gtd-inbox-path)

test/autoload-tests/org-gtd-mode-test.el

@@ -0,0 +1,5 @@
+(require 'buttercup)
+(setq org-gtd-update-ack "3.0.0")
+(require 'org-gtd-autoloads)
+
+(org-gtd-mode)

test/autoload-tests/org-gtd-process-inbox-test.el

@@ -0,0 +1,5 @@
+(require 'buttercup)
+(setq org-gtd-update-ack "3.0.0")
+(require 'org-gtd-autoloads)
+
+(org-gtd-process-inbox)

test/autoload-tests/org-gtd-review-area-of-focus-test.el

@@ -0,0 +1,6 @@
+(require 'buttercup)
+(setq org-gtd-update-ack "3.0.0")
+(require 'org-gtd-autoloads)
+
+(org-gtd-review-area-of-focus
+ (car org-gtd-areas-of-focus))

test/autoload-tests/org-gtd-review-stuck-projects-test.el

@@ -0,0 +1,5 @@
+(require 'buttercup)
+(setq org-gtd-update-ack "3.0.0")
+(require 'org-gtd-autoloads)
+
+(org-gtd-review-stuck-projects)

test/autoload-tests/org-gtd-show-all-next-test.el

@@ -0,0 +1,5 @@
+(require 'buttercup)
+(setq org-gtd-update-ack "3.0.0")
+(require 'org-gtd-autoloads)
+
+(org-gtd-show-all-next)

test/helpers/setup.el

@@ -46,3 +46,17 @@
     (with-current-buffer buffer
       (revert-buffer t t)))
   (kill-buffer buffer))
+
+(defun ogt--recursive-eldev-test (file)
+  (unless (file-readable-p (file-name-concat "test" file))
+    (error "Cannot find or read file %s" file))
+  (with-temp-buffer
+    (prog1 (call-process
+            eldev-shell-command
+            nil
+            t
+            nil
+            "test"
+            "-f"
+            file)
+      (princ (buffer-substring 1 (point-max))))))