ETest 0.1

[Phil Jackson]

Hi all,

Manual: http://www.shellarchive.co.uk/content/etest.html
Get it: git clone http://repo.or.cz/r/ETest.git etest

Another test framework. An example of use might be:
    
    (etest
     ("Etest tests"
      ("Simple"
       (ok 1)
       (null nil)
       (eq 1 1)
       (eql 1.1 1.1)
       (equal '(1 2) '(1 2))
       (error (/ 1 0))
       (noerror (+ 1 1))
       (like "Hello" "^\\(H\\).+\\(o\\)$"))

Which yields:

    (("Etest"
      ("Simple"
       (:result t :comments "got: '1'" :doc "(ok 1)")
       (:result t :comments "got: 't'" :doc "(null nil)")
       (:result t :comments "both: '1'" :doc "(eq 1 1)")
       (:result t :comments "both: '1.1'" :doc "(eql 1.1 1.1)")
       (:result t :comments "both: '(1 2)'" :doc "(equal (quote (1 2)) (q...)))
       (:result t :comments "got: '(arith-error)'" :doc "(error (/ 1 0))")
       (:result t :comments "got: '2'" :doc "(noerror (+ 1 1))")
       (:result t :comments "searching: 'Hello'\nmatch   1: 'H'\nmatch...))))

And, in another buffer, outputs:
    
    * Etest tests
    ** Simple
       ok ................ (ok 1)
                           # got: '1'
       ok ................ (null nil)
                           # got: 't'
       ok ................ (eq 1 1)
                           # both: '1'
       ok ................ (eql 1.1 1.1)
                           # both: '1.1'
       ok ................ (equal (quote (1 2)) (quote (1 2)))
                           # both: '(1 2)'
       ok ................ (error (/ 1 0))
                           # got: '(arith-error)'
       ok ................ (noerror (+ 1 1))
                           # got: '2'
       ok ................ (like "Hello" "^\\(H\\).+\\(o\\)$")
                           # searching: 'Hello'
                           # match   1: 'H'
                           # match   2: 'o'

With syntax highlighting, folding and... stuff.

Cheers,
Phil