Index: openacs-4/packages/faq-portlet/tcl/test/faq-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq-portlet/tcl/test/faq-portlet-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/faq-portlet/tcl/test/faq-portlet-procs.tcl	18 Sep 2018 13:38:48 -0000	1.5
+++ openacs-4/packages/faq-portlet/tcl/test/faq-portlet-procs.tcl	18 Sep 2018 13:42:36 -0000	1.6
@@ -10,178 +10,178 @@
     Testing the creation a Faq from the portlet.
 
 } {
-	aa_run_with_teardown -test_code {
-		
-	    tclwebtest::cookies clear 
-	    # Login user
-	    array set user_info [twt::user::create -admin] 
-	    twt::user::login $user_info(email) $user_info(password) 
+    aa_run_with_teardown -test_code {
 
-	    # Create new Faq
-	    set faq_name [ad_generate_random_string]
-	    set response [faq_portlet::twt::new $faq_name] 
-	    aa_display_result -response $response -explanation {Webtest for creating a New Faq from the portlet}
-	    
-	    twt::user::logout 
-       }
-}	
+        tclwebtest::cookies clear
+        # Login user
+        array set user_info [twt::user::create -admin]
+        twt::user::login $user_info(email) $user_info(password)
 
+        # Create new Faq
+        set faq_name [ad_generate_random_string]
+        set response [faq_portlet::twt::new $faq_name]
+        aa_display_result -response $response -explanation {Webtest for creating a New Faq from the portlet}
+
+        twt::user::logout
+    }
+}
+
 aa_register_case -cats {web smoke} -libraries tclwebtest  tclwebtest_delete_faq_portlet {
 
     Testing the process of creating and deleting a Faq from the portlet.
 
 } {
-	aa_run_with_teardown -test_code {
-	
-            tclwebtest::cookies clear  
-            # Login user 
-            array set user_info [twt::user::create -admin]  
-            twt::user::login $user_info(email) $user_info(password)  
+    aa_run_with_teardown -test_code {
 
-	    # Create a new Faq
-	    set faq_name [ad_generate_random_string]
-	    faq_portlet::twt::new $faq_name
-            
-	    # Delete the faq 
-	    set response [faq_portlet::twt::delete $faq_name]
-	    aa_display_result -response $response -explanation {Webtest for deleting a Faq}
-		
-	    twt::user::logout
-        } 
+        tclwebtest::cookies clear
+        # Login user
+        array set user_info [twt::user::create -admin]
+        twt::user::login $user_info(email) $user_info(password)
+
+        # Create a new Faq
+        set faq_name [ad_generate_random_string]
+        faq_portlet::twt::new $faq_name
+
+        # Delete the faq
+        set response [faq_portlet::twt::delete $faq_name]
+        aa_display_result -response $response -explanation {Webtest for deleting a Faq}
+
+        twt::user::logout
+    }
 }
 
 aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_disable_faq_portlet {
 
-    Testing the process of creating and disabling a Faq. 
+    Testing the process of creating and disabling a Faq.
 
 } {
-	aa_run_with_teardown -test_code {
-		
-            tclwebtest::cookies clear  
-            # Login user 
-            array set user_info [twt::user::create -admin]  
-            twt::user::login $user_info(email) $user_info(password)  
+    aa_run_with_teardown -test_code {
 
-	    # Create new faq 
-	    set faq_name [ad_generate_random_string]
-	    faq_portlet::twt::new $faq_name
-            
-	    # Disable the Faq
-	    set option "disable"		
-	    set response [faq_portlet::twt::disable_enable $faq_name $option]
-	    aa_display_result -response $response -explanation {Webtest for disabling a Faq}
-	    
-	    twt::user::logout
-	}
+        tclwebtest::cookies clear
+        # Login user
+        array set user_info [twt::user::create -admin]
+        twt::user::login $user_info(email) $user_info(password)
+
+        # Create new faq
+        set faq_name [ad_generate_random_string]
+        faq_portlet::twt::new $faq_name
+
+        # Disable the Faq
+        set option "disable"
+        set response [faq_portlet::twt::disable_enable $faq_name $option]
+        aa_display_result -response $response -explanation {Webtest for disabling a Faq}
+
+        twt::user::logout
+    }
 }
 
 aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_enable_faq_portlet {
 
-    Testing the process of creating, disabling and enabling Faq. 
+    Testing the process of creating, disabling and enabling Faq.
 
 } {
-	aa_run_with_teardown -test_code {
+    aa_run_with_teardown -test_code {
 
-            tclwebtest::cookies clear
-            # Login user
-            array set user_info [twt::user::create -admin]
-            twt::user::login $user_info(email) $user_info(password)
+        tclwebtest::cookies clear
+        # Login user
+        array set user_info [twt::user::create -admin]
+        twt::user::login $user_info(email) $user_info(password)
 
-	    # Create the Faq 
-	    set faq_name [ad_generate_random_string]
-	    faq_portlet::twt::new $faq_name
-            
-	    # Disable the faq
-	    set option "disable"		
-	    faq_portlet::twt::disable_enable $faq_name $option
-                
-	    # Enable the faq
-	    set option "enable"
-	    set response [faq_portlet::twt::disable_enable $faq_name $option]
-            aa_display_result -response $response -explanation {Webtest for enabling a Faq}	    
-            
-	    twt::user::logout	
-	}
+        # Create the Faq
+        set faq_name [ad_generate_random_string]
+        faq_portlet::twt::new $faq_name
+
+        # Disable the faq
+        set option "disable"
+        faq_portlet::twt::disable_enable $faq_name $option
+
+        # Enable the faq
+        set option "enable"
+        set response [faq_portlet::twt::disable_enable $faq_name $option]
+        aa_display_result -response $response -explanation {Webtest for enabling a Faq}
+
+        twt::user::logout
+    }
 }
 
 aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_edit_faq_portlet {
 
-    Testing the process of creating and editing a Faq. 
+    Testing the process of creating and editing a Faq.
 
 } {
-	aa_run_with_teardown -test_code {
-	
-            tclwebtest::cookies clear  
-            # Login user 
-            array set user_info [twt::user::create -admin]  
-            twt::user::login $user_info(email) $user_info(password)  
+    aa_run_with_teardown -test_code {
 
-	    # Creat a new faq
-	    set faq_name [ad_generate_random_string]
-	    faq_portlet::twt::new $faq_name 
-            
-	    # Edit the faq
-	    set new_faq_name [ad_generate_random_string] 
-	    set response [faq_portlet::twt::edit_faq $faq_name $new_faq_name]
-	    aa_display_result -response $response -explanation {Webtest for editing a Faq}
-        
-            twt::user::logout	
-	} 
+        tclwebtest::cookies clear
+        # Login user
+        array set user_info [twt::user::create -admin]
+        twt::user::login $user_info(email) $user_info(password)
+
+        # Creat a new faq
+        set faq_name [ad_generate_random_string]
+        faq_portlet::twt::new $faq_name
+
+        # Edit the faq
+        set new_faq_name [ad_generate_random_string]
+        set response [faq_portlet::twt::edit_faq $faq_name $new_faq_name]
+        aa_display_result -response $response -explanation {Webtest for editing a Faq}
+
+        twt::user::logout
+    }
 }
 
 aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_new_Q_A_faq_portlet {
 
-    Testing the process of create a Faq and create a new Q&A. 
+    Testing the process of create a Faq and create a new Q&A.
 
 } {
-	aa_run_with_teardown -test_code {  
+    aa_run_with_teardown -test_code {
 
-            tclwebtest::cookies clear   
-            # Login user  
-            array set user_info [twt::user::create -admin]   
-            twt::user::login $user_info(email) $user_info(password) 
-		
-	    # Creat a new faq
-	    set faq_name [ad_generate_random_string]
-	    faq_portlet::twt::new $faq_name
-	    
-	    # Create a new Question_Answer 
-	    set question [ad_generate_random_string]
-	    set answer [ad_generate_random_string]
-	    set response [faq_portlet::twt::new_Q_A $faq_name $question $answer]
-	    aa_display_result -response $response -explanation {Webtest for creating a New Question in a dotLRN Faq}
-            
-	    twt::user::logout        
-	}
+        tclwebtest::cookies clear
+        # Login user
+        array set user_info [twt::user::create -admin]
+        twt::user::login $user_info(email) $user_info(password)
+
+        # Creat a new faq
+        set faq_name [ad_generate_random_string]
+        faq_portlet::twt::new $faq_name
+
+        # Create a new Question_Answer
+        set question [ad_generate_random_string]
+        set answer [ad_generate_random_string]
+        set response [faq_portlet::twt::new_Q_A $faq_name $question $answer]
+        aa_display_result -response $response -explanation {Webtest for creating a New Question in a dotLRN Faq}
+
+        twt::user::logout
+    }
 }
 
 aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_delete_Q_A_faq_portlet {
 
-    Testing the process of create a faq, create a Q&A and  then delete the Q&A.
+    Testing the process of create a faq, create a Q&A and then delete the Q&A.
 
 } {
-        aa_run_with_teardown -test_code {
-	    
-            tclwebtest::cookies clear    
-            # Login user   
-            array set user_info [twt::user::create -admin]    
-            twt::user::login $user_info(email) $user_info(password)  
-                 
-            # Creat a new faq 
-            set faq_name [ad_generate_random_string] 
-            faq_portlet::twt::new $faq_name 
-             
-            # Create a new Question_Answer  
-            set question [ad_generate_random_string] 
-            set answer [ad_generate_random_string] 
-	    faq_portlet::twt::new_Q_A $faq_name $question $answer
-	    
-	    # Delete the Question_Answer
-	    set response [faq_portlet::twt::delete_Q_A $faq_name $question]
-	    aa_display_result -response $response -explanation {Webtest for deleting a Question in a Faq}
-	    
-	    twt::user::logout        
-	}
+    aa_run_with_teardown -test_code {
+
+        tclwebtest::cookies clear
+        # Login user
+        array set user_info [twt::user::create -admin]
+        twt::user::login $user_info(email) $user_info(password)
+
+        # Creat a new faq
+        set faq_name [ad_generate_random_string]
+        faq_portlet::twt::new $faq_name
+
+        # Create a new Question_Answer
+        set question [ad_generate_random_string]
+        set answer [ad_generate_random_string]
+        faq_portlet::twt::new_Q_A $faq_name $question $answer
+
+        # Delete the Question_Answer
+        set response [faq_portlet::twt::delete_Q_A $faq_name $question]
+        aa_display_result -response $response -explanation {Webtest for deleting a Question in a Faq}
+
+        twt::user::logout
+    }
 }
 
 # Local variables: