[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
ETest 0.1
From: |
Phil Jackson |
Subject: |
ETest 0.1 |
Date: |
Sun, 03 Aug 2008 21:08:34 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.0.60 (gnu/linux) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- ETest 0.1,
Phil Jackson <=