etest.etest

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