Add Cask and basic tests

.ackrc

@@ -0,0 +1 @@
+--ignore-dir=.cask/

.gitignore

@@ -1,2 +1,3 @@
 *.elc
 *.html
+.cask

Cask

@@ -0,0 +1,14 @@
+(source gnu)
+(source melpa)
+
+(package-file "promise.el")
+
+(depends-on "eieio")
+(depends-on "cl-lib")
+
+(development
+ (depends-on "f")
+ (depends-on "ert")
+ (depends-on "ert-async")
+ (depends-on "ert-runner")
+ (depends-on "ert-expectations"))

README.md

@@ -116,3 +116,11 @@ An example using `url-retrieve 'as a more complicated example.
       (promise-catch (lambda (reason)
                        (message "promise-catch: %s" reason))))))
 ```
+
+Tests
+-----
+
+```
+$ cask install
+$ cask exec ert-runner
+```

test/emacs-promise-test.el

@@ -0,0 +1,47 @@
+;;; -*- lexical-binding: t -*-
+
+(ert-deftest-async
+ test/promise/errors-in-resolver-are-rejections (done)
+ (promise-done
+  (promise-chain
+      (promise-new (lambda (resolve reject)
+                     (error "wut")))
+    (then (lambda (result)
+            (funcall done "Error did not cause promise rejection")))
+    (promise-catch (lambda (exception)
+                     (should (equal (error-message-string exception) "wut"))
+                     (funcall done)))
+    (promise-catch 'done))))
+
+(ert-deftest-async
+ test/promise/errors-in-then-are-rejections (done)
+ (promise-done
+  (promise-chain
+      (promise-new (lambda (resolve reject)
+                     (funcall resolve "yeah")))
+    (then (lambda (result)
+            (error "wut")))
+    (then (lambda (result)
+            (funcall done "Error did not cause promise rejection")))
+    (promise-catch (lambda (exception)
+                     (should (equal (error-message-string exception) "wut"))
+                     (funcall done)))
+    (promise-catch 'done))))
+
+(ert-deftest-async
+ test/promise/resolver-called-synchronously (done)
+ (let ((chain-constructor-has-finished nil)
+       (resolver-was-called nil))
+   (promise-done
+    (promise-chain
+        (promise-new (lambda (resolve reject)
+                       (should (equal chain-constructor-has-finished nil))
+                       (setq resolver-was-called t)
+                       (funcall resolve 'foo)))
+      (then (lambda (result)
+              (should (equal result 'foo))
+              (funcall done)))
+      (promise-catch (lambda (exception)
+                       (funcall done exception))))
+    (setq chain-constructor-has-finished t)
+    (should (equal resolver-was-called t)))))

test/test-helper.el

@@ -0,0 +1,14 @@
+;;; -*- lexical-binding: t -*-
+
+(require 'f)
+(require 'ert-async)
+
+(defvar root-test-path
+  (f-dirname (f-this-file)))
+
+(defvar root-code-path
+  (f-parent root-test-path))
+
+(add-to-list 'load-path root-code-path)
+
+(require 'promise)