[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [babel] Trying to add ERT test cases
From: |
Sebastien Vauban |
Subject: |
[O] [babel] Trying to add ERT test cases |
Date: |
Mon, 19 Sep 2011 13:20:06 +0200 |
User-agent: |
Gnus/5.110018 (No Gnus v0.18) Emacs/23.3 (windows-nt) |
Hi,
I'd like to really contrib more on test cases, in particular every time I'd
see something problematic. My goal (SOMEDAY/MAYBE) would be to (be able to)
report any problem with an attached ERT test case...
Last experience: for some unknown reason (maybe a Lisp nesting exceeded,
though), it (rarely) happens that the speed commands don't work anymore. I'd
like to test (ultimately all speed commans) against such a behavior.
Hence:
* Speed command (this must be at level-1 headline)
:PROPERTIES:
:ID: 4ee368b8-cf7c-4269-98c0-b28dcf94ff2b
:END:
Some text.
* Test
#+begin_src emacs-lisp
(ert-deftest ob-tangle/speed-command-r ()
"Test that speed command `r' does demote the headline."
(org-test-at-id "4ee368b8-cf7c-4269-98c0-b28dcf94ff2b"
(goto-char (point-at-bol))
(insert "r") ;; I don't want a self-insert of r, but the effect of typing it
(goto-char (point-at-bol))
(should (looking-at "\\*\\* Speed command"))
(delete-char 1)))
#+end_src
Problems:
- I want to simulate the user pressing `r', but `insert' does insert a literal
`r', instead of executing what's associated to it.
Of course, I don't want to replace the key press on `r' but a call to
`org-shiftright', that's the whole point of the test.
So, how can I insert a `r' character to be contextually interpreted?
- when `should' is failing, the `delete-char' does not take place. This is
still mysterious to me, at this point in time.
Any hints for me to go further?
Best regards,
Seb
--
Sebastien Vauban