| 
					
				 | 
			
			
				@@ -20,6 +20,22 @@ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 ;;; Code: 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+(ert-deftest test-org-babel/indented-cached-org-bracket-link () 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  "When the result of a source block is a cached indented link it 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+should still return the link." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  (should 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+   (let ((default-directory temporary-file-directory)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+     (org-test-with-temp-text 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      " 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+* Test 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  #+<point>BEGIN_SRC emacs-lisp :file test.txt :cache yes 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    (message \"test\") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  #+END_SRC" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      ;; Execute twice as the first time creates the cache. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      (org-babel-execute-src-block) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      (string= (concat default-directory "test.txt") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	       (org-babel-execute-src-block)))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (ert-deftest test-org-babel/multi-line-header-regexp () 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (should(equal "^[ \t]*#\\+headers?:[ \t]*\\([^\n]*\\)$" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		org-babel-multi-line-header-regexp)) 
			 |