|
|
|
|
@ -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))))) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|