| 
					
				 | 
			
			
				@@ -88,7 +88,7 @@ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(body "echo this is a test\necho Currently in ' $PWD\n")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (should (string-match org-babel-src-block-regexp test-block)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (should (string-match org-babel-src-block-regexp (upcase test-block))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    (should(equal language (match-string 2 test-block))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    (should (equal language (match-string 2 test-block))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     ;;TODO Consider refactoring 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (should (equal flags (match-string 3 test-block))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (should (equal arguments (match-string 4 test-block))) 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -193,12 +193,6 @@ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (should(equal 'a (cadr (assoc 1 results)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (should(equal 'd (cadr (assoc 4 results))))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-(ert-deftest test-org-babel/sha1-hash () 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  (org-test-at-id "f68821bc-7f49-4389-85b5-914791ee3718" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    (org-babel-next-src-block 2) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    (should(string= "ede4619c95e0467fd23d40d81385445281a483ee" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		    (org-babel-sha1-hash))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				- 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (ert-deftest test-org-babel/parse-header-args () 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (org-test-at-id "7eb0dc6e-1c53-4275-88b3-b22f3113b9c3" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (org-babel-next-src-block) 
			 |