From 8348f9cfbb3f959dca65978b85e6a8cf8afba910 Mon Sep 17 00:00:00 2001
From: Eric Schulte <schulte.eric@gmail.com>
Date: Tue, 28 Jun 2011 10:21:12 -0700
Subject: [PATCH] test: another order of arguments test

---
 testing/examples/babel.org  | 6 ++++++
 testing/lisp/test-ob-lob.el | 4 +++-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/testing/examples/babel.org b/testing/examples/babel.org
index 8f530862e..cc73abc7f 100644
--- a/testing/examples/babel.org
+++ b/testing/examples/babel.org
@@ -157,6 +157,12 @@ 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)
 call_echo("testing")
+call_concat(1,2,3)
+
+#+source: concat
+#+begin_src emacs-lisp :var a=0 :var b=0 :var c=0
+  (format "%S%S%S" a b c)
+#+end_src
 
 * exporting an lob call line
   :PROPERTIES:
diff --git a/testing/lisp/test-ob-lob.el b/testing/lisp/test-ob-lob.el
index 118ac3498..60f9399c4 100644
--- a/testing/lisp/test-ob-lob.el
+++ b/testing/lisp/test-ob-lob.el
@@ -59,7 +59,9 @@
     (should (= 4 (org-babel-lob-execute (org-babel-lob-get-info))))
     (forward-line 1)
     (should (string= "testing" (org-babel-lob-execute
-				(org-babel-lob-get-info))))))
+				(org-babel-lob-get-info))))
+    (forward-line 1)
+    (should (string= "123" (org-babel-lob-execute (org-babel-lob-get-info))))))
 
 (ert-deftest test-ob-lob/export-lob-lines ()
   "Test the export of a variety of library babel call lines."
-- 
2.11.4.GIT