Skip to content
This repository has been archived by the owner on May 18, 2020. It is now read-only.

Commit

Permalink
Clean up some spacing in tests
Browse files Browse the repository at this point in the history
  • Loading branch information
kyleam committed Aug 8, 2015
1 parent a27c6dc commit a991bdf
Showing 1 changed file with 11 additions and 11 deletions.
22 changes: 11 additions & 11 deletions test-org-link-edit.el
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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"))))
Expand Down

0 comments on commit a991bdf

Please sign in to comment.