etest.etest

   1 (etest
   2  ("Execute"
   3   (like   (let ((etest-file "etest.etest"))
   4             (etest-execute-get-test-file))
   5           (concat default-directory etest-file)
   6           "etest-file being set returns a good path")
   7   (like (let ((etest-file nil)
   8               (etest-load-path (list default-directory)))
   9           (etest-execute-get-test-file))
  10         "/etest.etest$"
  11         "Load path being set returns correct value")))
  12
  13 (etest
  14  ("Etest"
  15   ("Simple"
  16    (ok 1)
  17    (null nil)
  18    (eq 1 1)
  19    (eql 1.1 1.1)
  20    (equal '(1 2) '(1 2))
  21    (error (/ 1 0))
  22    (noerror (+ 1 1))
  23    (like "Hello" "^\\(H\\).+\\(o\\)$"))
  24   ("Results"
  25    ("ok results"
  26   (eres (ok nil) (:result nil))
  27     (eres (ok t) (:result t))
  28     (eres (ok (+ 1 1)) (:result t))
  29     (eres (ok 0) (:result t)))
  30    ("eq results"
  31     (eres (eq 1 1) (:result t))
  32     (eres (eq 1 2) (:result nil)))
  33    ("equal results"
  34     (eres (equal '(1 2) '(1 2)) (:result t))
  35     (eres (equal '(1 2) '(3 4)) (:result nil)))
  36    ("error"
  37     (eres (error (/ 1 0)) (:result t))
  38     (eres (error (/ 0 1)) (:result nil)))
  39    ("noerror"
  40     (eres (noerror (+ 1 1)) (:result t))
  41     (eres (noerror (/ 1 0)) (:result nil)))
  42   ("Documentation"
  43    ("Defined by user"
  44     (eres (ok 1 "Foo") (:doc "Foo"))
  45     (eres (eq 1 1 "Another doc") (:doc "Another doc")))
  46    ("Auto generated"
  47     (eres (ok 1) (:doc "(ok 1)")
  48           "Correct ok docs generated.")
  49     (eres (eq 1 1) (:doc "(eq 1 1)")
  50           "Correct eq docs generated.")))
  51   ("Comments"
  52    (eres (error (/ 1 0)) (:comments "got: '(arith-error)'")
  53          "We get arith-error from a divide by 0")
  54    (eres (ok "Something") (:comments "got: '\"Something\"'"))
  55    (eres (eq 1 1) (:comments "both: '1'")
  56          "eq hit")
  57    (eres (eq 1 2) (:comments "one: '1'\ntwo: '2'")
  58          "eq miss")))))