From 6161bb2c09289f0e28b5b3511e1e9ad1b95bd884 Mon Sep 17 00:00:00 2001
From: Eric Schulte <schulte.eric@gmail.com>
Date: Sat, 27 Apr 2013 08:59:19 -0600
Subject: [PATCH] Testing support for explicit colnames

* testing/lisp/test-ob.el (test-ob/specific-colnames): This test now
  passes.
---
 testing/lisp/test-ob.el | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/testing/lisp/test-ob.el b/testing/lisp/test-ob.el
index d51e1832a..6a8403ef9 100644
--- a/testing/lisp/test-ob.el
+++ b/testing/lisp/test-ob.el
@@ -1119,14 +1119,15 @@ Paragraph"
 echo \"$data\"
 #+end_src
 
-#+results:
+#+RESULTS:
 | Rev | Author |
 |-----+--------|
 |   1 | bar    |
 |   2 | baz    |
 
 "
-	  (org-test-with-temp-text "#+name: input-table
+	  (org-test-with-temp-text
+	      "#+name: input-table
 | id | var1 |
 |----+------|
 |  1 | bar  |
@@ -1136,8 +1137,12 @@ echo \"$data\"
 echo \"$data\"
 #+end_src
 "
-				   (org-babel-execute-src-block)
-				   (buffer-string)))))
+	    ;; we should find a code block
+	    (should (re-search-forward org-babel-src-block-regexp nil t))
+	    (goto-char (match-beginning 0))
+	    ;; now that we've located the code block, it may be evaluated
+	    (org-babel-execute-src-block)
+	    (buffer-string)))))
 
 (provide 'test-ob)
 
-- 
2.11.4.GIT