File: esxml-tests.el

package info (click to toggle)
esxml 0.3.8-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 196 kB
  • sloc: lisp: 2,122; makefile: 2
file content (9 lines) | stat: -rw-r--r-- 376 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
 
(require 'esxml)
(require 'ert)

(ert-deftest esxml-raw-string ()
  (should (equal (esxml-to-xml "foo") "foo"))
  (should (equal (esxml-to-xml "<br>") "&lt;br&gt;"))
  (should (equal (esxml-to-xml '(raw-string "<br>")) "<br>"))
  (should (equal (esxml-to-xml '(p nil "<br>")) "<p>&lt;br&gt;</p>"))
  (should (equal (esxml-to-xml '(p nil (raw-string "<br>"))) "<p><br></p>")))