aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2015-08-08 19:39:11 -0400
committerKyle Meyer <kyle@kyleam.com>2015-08-08 19:39:11 -0400
commita991bdf74dc90588121d54665ff405f9eb6f9da7 (patch)
treeba020a325eafdf5fccb20fa18376f77fa4048a08
parenta27c6dc38d80df80593d3d4d97169ee24c293a58 (diff)
downloadorg-link-edit-a991bdf74dc90588121d54665ff405f9eb6f9da7.tar.gz
Clean up some spacing in tests
-rw-r--r--test-org-link-edit.el22
1 files changed, 11 insertions, 11 deletions
diff --git a/test-org-link-edit.el b/test-org-link-edit.el
index c238ec8..e00288c 100644
--- a/test-org-link-edit.el
+++ b/test-org-link-edit.el
@@ -119,16 +119,16 @@ website is"
"\[\[http://orgmode.org/\]\[website\]\]"
(org-test-with-temp-text
"\[\[http://orgmode.org/\]\]website"
- (org-link-edit-forward-slurp 1)
- (buffer-string))))
+ (org-link-edit-forward-slurp 1)
+ (buffer-string))))
;; Slurp blob that isn't separated from link by whitespace.
(should
(string=
"\[\[http://orgmode.org/\]\[-website\]\]"
(org-test-with-temp-text
"\[\[http://orgmode.org/\]\]-website"
- (org-link-edit-forward-slurp 1)
- (buffer-string))))
+ (org-link-edit-forward-slurp 1)
+ (buffer-string))))
;; Slurp beyond the number of present blobs.
(should-error
(org-test-with-temp-text
@@ -209,17 +209,17 @@ website is"
(string=
"Here \[\[http://orgmode.org/\]\[is\]\] Org's website"
(org-test-with-temp-text
- "Here is<point>\[\[http://orgmode.org/\]\] Org's website"
- (org-link-edit-backward-slurp 1)
- (buffer-string))))
+ "Here is<point>\[\[http://orgmode.org/\]\] Org's website"
+ (org-link-edit-backward-slurp 1)
+ (buffer-string))))
;; Slurp blob that isn't separated from link by whitespace.
(should
(string=
"Here \[\[http://orgmode.org/\]\[is-\]\] Org's website"
(org-test-with-temp-text
- "Here is-<point>\[\[http://orgmode.org/\]\] Org's website"
- (org-link-edit-backward-slurp 1)
- (buffer-string))))
+ "Here is-<point>\[\[http://orgmode.org/\]\] Org's website"
+ (org-link-edit-backward-slurp 1)
+ (buffer-string))))
;; Slurp beyond the number of present blobs.
(should-error
(org-test-with-temp-text
@@ -461,7 +461,7 @@ website"
(should-not desc))
;; Bracket link
(cl-multiple-value-bind (beg end link desc)
- (org-test-with-temp-text "\[\[http://orgmode.org/\]\[org\]\]"
+ (org-test-with-temp-text "\[\[http://orgmode.org/\]\[org\]\]"
(org-link-edit--get-link-data))
(should (string= link "http://orgmode.org/"))
(should (string= desc "org"))))