From e28cba02dd21bee1828c1a5e1eda410fa388e657 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Sat, 25 Jun 2011 15:21:02 -0700 Subject: [PATCH] tests: ensure un-named variables are assigned in the correct order -- passing all tests --- testing/examples/babel.org | 1 + testing/lisp/test-ob-lob.el | 4 +++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/testing/examples/babel.org b/testing/examples/babel.org index 7c5ab3ad7..052a44c32 100644 --- a/testing/examples/babel.org +++ b/testing/examples/babel.org @@ -155,6 +155,7 @@ #+call: echo("testing") :results vector This is an inline call call_echo(input="testing") embedded in prose. This is an inline call call_echo(input="testing")[:results vector] embedded in prose. +#+call: lob-minus(8, 4) * parsing header arguments :PROPERTIES: diff --git a/testing/lisp/test-ob-lob.el b/testing/lisp/test-ob-lob.el index 19d0c4a4d..f0e514749 100644 --- a/testing/lisp/test-ob-lob.el +++ b/testing/lisp/test-ob-lob.el @@ -54,7 +54,9 @@ (org-babel-lob-get-info)))) (forward-line 1) (beginning-of-line) (forward-char 27) (should (string= "testing" (caar (org-babel-lob-execute - (org-babel-lob-get-info))))))) + (org-babel-lob-get-info))))) + (forward-line 1) (beginning-of-line) + (should (= 4 (org-babel-lob-execute (org-babel-lob-get-info)))))) (provide 'test-ob-lob)