|
|
|
@ -54,7 +54,7 @@ |
|
|
|
;; Test to return a link and check that the message logged is the expected one |
|
|
|
;; Test to return a link and check that the message logged is the expected one |
|
|
|
(should (equal |
|
|
|
(should (equal |
|
|
|
(webpaste-return-url "https://example.com/") |
|
|
|
(webpaste-return-url "https://example.com/") |
|
|
|
"Added https://example.com/ to kill ring.")) |
|
|
|
"Added \"https://example.com/\" to kill ring.")) |
|
|
|
|
|
|
|
|
|
|
|
;; Check so the kill ring contain the correct contents |
|
|
|
;; Check so the kill ring contain the correct contents |
|
|
|
(should (equal (car kill-ring) "https://example.com/"))) |
|
|
|
(should (equal (car kill-ring) "https://example.com/"))) |
|
|
|
|