| 
					
				 | 
			
			
				@@ -40,26 +40,26 @@ Current buffer is a copy of the original buffer." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (ert-deftest test-ob-exp/org-babel-exp-src-blocks/w-no-headers () 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Testing export without any headlines in the Org mode file." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  (require 'ox-html) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  (let ((html-file (concat (file-name-sans-extension org-test-no-heading-file) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			   ".html"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    (when (file-exists-p html-file) (delete-file html-file)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  (require 'ox-ascii) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  (let ((text-file (concat (file-name-sans-extension org-test-no-heading-file) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			   ".txt"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    (when (file-exists-p text-file) (delete-file text-file)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (org-test-in-example-file org-test-no-heading-file 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       ;; Export the file to HTML. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-      (org-export-to-file 'html html-file)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    ;; should create a .html file 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    (should (file-exists-p html-file)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      (org-export-to-file 'ascii text-file)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    ;; should create a ".txt" file 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    (should (file-exists-p text-file)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     ;; should not create a file with "::" appended to its name 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (should-not (file-exists-p (concat org-test-no-heading-file "::"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    (when (file-exists-p html-file) (delete-file html-file)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    (when (file-exists-p text-file) (delete-file text-file)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (ert-deftest test-ob-exp/org-babel-exp-src-blocks/w-no-file () 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Testing export from buffers which are not visiting any file." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  (require 'ox-html) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  (let ((name (generate-new-buffer-name "*Org HTML Export*"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  (require 'ox-ascii) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  (let ((name (generate-new-buffer-name "*Org ASCII Export*"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (org-test-in-example-file nil 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-      (org-export-to-buffer 'html name nil nil nil t)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    ;; Should create a HTML buffer. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      (org-export-to-buffer 'ascii name nil nil nil t)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    ;; Should create a new buffer. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (should (buffer-live-p (get-buffer name))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     ;; Should contain the content of the buffer. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (with-current-buffer (get-buffer name) 
			 |