From 0c814bc31208d994359e786c28338b46ce31c01e Mon Sep 17 00:00:00 2001 From: Elis Axelsson Date: Sun, 4 Jun 2017 11:40:45 +0200 Subject: [PATCH] Added integration test for sprunge.us --- tests/integration/test-webpaste-providers.el | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/tests/integration/test-webpaste-providers.el b/tests/integration/test-webpaste-providers.el index 78b3059..d6cf00a 100644 --- a/tests/integration/test-webpaste-providers.el +++ b/tests/integration/test-webpaste-providers.el @@ -49,7 +49,20 @@ :to-equal (make-spy-context :current-buffer (current-buffer) :args '("http://ix.io/whJ") - :return-value nil))))) + :return-value nil)))) + + + (it + "can paste with sprunge.us" + + (let ((provider (cadr (assoc "sprunge.us" webpaste-providers-alist)))) + (funcall + provider + ";; This is a build artifact made from an integration test for https://github.com/etu/webpaste.el" + :sync t) + + (expect (spy-calls-count 'webpaste-return-url) :to-equal 1) + (expect (spy-calls-count 'webpaste-paste-text) :to-equal 0)))) ;;; test-webpaste-providers.el ends here