First test of creation of paste providers

Currently not testing failovers, but it tests failures without failovers.
master
Elis Axelsson 9 years ago
parent 1a1144f563
commit 4dd2e1b570
No known key found for this signature in database
GPG Key ID: D57EFA625C9A925F
  1. 18
      test/webpaste-test.el

@ -7,6 +7,24 @@
(ert-deftest webpaste-test/provider ()
"Test creation of providers."
(let ((success-lambda t)
(provider (webpaste-provider
:uri "http://invalid-domain-name/"
:post-field "data"
:no-failover t
:sync t
:success (cl-function (lambda (&allow-other-keys)
(setq success-lambda nil))))))
(funcall provider "dummy-text")
(should (equal t success-lambda))))
(ert-deftest webpaste-test/paste-region-and-buffer ()
"Test pasting of regions and buffers."

Loading…
Cancel
Save