Index: openacs-4/packages/faq/tcl/test/faq-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/tcl/test/faq-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/faq/tcl/test/faq-procs.tcl	25 Jul 2005 15:58:31 -0000	1.1.2.1
@@ -0,0 +1,205 @@
+ad_library {
+    Automated tests.
+    @author Mounir Lallali
+    @creation-date 14 June 2005
+
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_new_faq {
+
+	A simple test case to faq package :  Test Create Faq.
+
+} {
+	aa_run_with_teardown -test_code {
+		# Create new Faq
+		set faq_name [ad_generate_random_string]
+		set response [faq::twt::new $faq_name] 
+		aa_display_result -response $response -explanation {for creating a New Faq}
+        }            	
+
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_delete_faq {
+
+	A simple test case to faq package :  Test Delete Faq.
+
+} {
+	aa_run_with_teardown -test_code {
+		# Create new Faq
+		set faq_name [ad_generate_random_string]
+	        faq::twt::new $faq_name
+		set response [faq::twt::delete $faq_name]
+		aa_display_result -response $response -explanation {for deleting a Faq}
+
+        }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_edit_one_faq {
+
+	A simple test case to faq package :  Test edit Faq - Fisrt Scenario. 
+
+
+} {
+	aa_run_with_teardown -test_code {
+		# Rename Faq by editing
+		set faq_name [ad_generate_random_string]
+		set new_faq_name [ad_generate_random_string]
+		faq::twt::new $faq_name 
+		set response [faq::twt::edit_one $faq_name $new_faq_name]
+		aa_display_result -response $response -explanation {for editing a Faq - First Scenario}
+        }          	
+}	
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_edit_two_faq {
+
+	A simple test case to faq package :  Test edit Faq - Second Scenario. 
+
+} {
+	aa_run_with_teardown -test_code {
+		# Rename  Faq by editing
+		set faq_name [ad_generate_random_string]
+		set new_faq_name [ad_generate_random_string]
+		faq::twt::new $faq_name
+		set response [faq::twt::edit_two $faq_name $new_faq_name]
+		aa_display_result -response $response -explanation {for editing a Faq - Second Scenario}
+        }            	
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_disable_faq {
+
+	A simple test case to faq package :  Test Disable Faq. 
+
+} {
+	aa_run_with_teardown -test_code {
+		#  Disable Faq 
+		set faq_name [ad_generate_random_string]
+		faq::twt::new $faq_name
+		set option "disable"		
+		set response [faq::twt::disable_enable $faq_name $option]
+		aa_display_result -response $response -explanation {for disabling a Faq}
+        }            	
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_enable_faq {
+
+	A simple test case to faq package :  Test Enable Faq. 
+
+} {
+	aa_run_with_teardown -test_code {
+		#  Disable Faq 
+		set faq_name [ad_generate_random_string]
+		faq::twt::new $faq_name
+		set option "disable"		
+		faq::twt::disable_enable $faq_name $option
+		set option "enable"
+	        set response [faq::twt::disable_enable $faq_name $option]
+		aa_display_result -response $response -explanation {for enabling a Faq}
+        }           	
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_new_Q_A_faq {
+
+	A simple test case to faq package :  Create a new Q&A. 
+
+} {
+	aa_run_with_teardown -test_code {  
+		set faq_name [ad_generate_random_string]
+		set question [ad_generate_random_string]
+		set answer [ad_generate_random_string]
+
+		faq::twt::new $faq_name
+	        set response [faq::twt::new_Q_A $faq_name $question $answer]
+	        aa_display_result -response $response -explanation {for creating a New Question in a Faq}
+        }           	
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_delete_Q_A_faq {
+
+	A simple test case to faq package :  Delete a Q&A. 
+
+} {
+	aa_run_with_teardown -test_code {  
+		set faq_name [ad_generate_random_string]
+		set question [ad_generate_random_string]
+		set answer [ad_generate_random_string]
+
+		faq::twt::new $faq_name  
+ 		faq::twt::new_Q_A $faq_name $question $answer
+	        set response [faq::twt::delete_Q_A $faq_name $answer] 
+	        aa_display_result -response $response -explanation {for deleting a Question in a Faq}
+        }            	
+
+
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_edit_Q_A_faq {
+
+	A simple test case to faq package :  Edit  a Q&A. 
+
+} {
+	aa_run_with_teardown -test_code {  
+		set faq_name [ad_generate_random_string]
+		set question [ad_generate_random_string]
+		set answer [ad_generate_random_string]
+		set new_question [ad_generate_random_string]
+		set new_answer [ad_generate_random_string]
+
+		faq::twt::new $faq_name 
+ 		faq::twt::new_Q_A $faq_name $question $answer		
+	        set response [faq::twt::edit_Q_A $faq_name $new_question $new_answer]
+	        aa_display_result -response $response -explanation {for editing a Question in a Faq}
+        }           	
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_insert_after_Q_A_faq {
+
+	A simple test case to faq package :  Insert After a Q&A. 
+
+} {
+	aa_run_with_teardown -test_code {  
+		set faq_name [ad_generate_random_string]
+		set question [ad_generate_random_string]
+		set answer [ad_generate_random_string]
+
+		faq::twt::new $faq_name
+ 		faq::twt::new_Q_A $faq_name $question $answer		
+	        set response [faq::twt::insert_after_Q_A $faq_name]   
+	        aa_display_result -response $response -explanation {for inserting a Question after a nother in a Faq}
+        }            	
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_preview_Q_A_faq {
+
+	A simple test case to faq package :  Preview a Q&A. 
+
+} {
+	aa_run_with_teardown -test_code {  
+		set faq_name [ad_generate_random_string]
+		set question [ad_generate_random_string]
+		set answer [ad_generate_random_string]
+		faq::twt::new $faq_name 
+ 		faq::twt::new_Q_A $faq_name $question $answer		
+	        set response [faq::twt::preview_Q_A $faq_name]
+	        aa_display_result -response $response -explanation {for previewing a Question in a Faq}
+	}           	
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_swap_with_next_Q_A_faq {
+
+	A simple test case to faq package : Swap With Next Q&A. 
+
+} {
+	aa_run_with_teardown -test_code {  
+		set faq_name [ad_generate_random_string]
+		set question_1 [ad_generate_random_string]
+		set answer_1 [ad_generate_random_string]
+		set question_2 [ad_generate_random_string]
+		set answer_2 [ad_generate_random_string]
+		
+		faq::twt::new $faq_name
+ 		faq::twt::new_Q_A $faq_name $question_1 $answer_1	
+		faq::twt::new_Q_A $faq_name $question_2 $answer_2	
+	        set response [faq::twt::swap_with_next_Q_A $faq_name]
+	        aa_display_result -response $response -explanation {for swaping a question with a next in a Faq}
+        }
+}