diff --git a/tests/integration/test-webpaste-providers.el b/tests/integration/test-webpaste-providers.el index 1b0e499..78b3059 100644 --- a/tests/integration/test-webpaste-providers.el +++ b/tests/integration/test-webpaste-providers.el @@ -30,6 +30,25 @@ :to-equal (make-spy-context :current-buffer (current-buffer) :args '("https://ptpb.pw/gLC6") + :return-value nil)))) + + + (it + "can paste with ix.io" + + (let ((provider (cadr (assoc "ix.io" 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) + + (expect (spy-calls-most-recent 'webpaste-return-url) + :to-equal + (make-spy-context :current-buffer (current-buffer) + :args '("http://ix.io/whJ") :return-value nil)))))