Index: openacs-4/packages/evaluation-portlet/tcl/test/evaluation-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/tcl/test/evaluation-portlet-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/evaluation-portlet/tcl/test/evaluation-portlet-procs.tcl	2 Feb 2006 15:24:19 -0000	1.1.2.1
@@ -0,0 +1,870 @@
+ad_library {
+    Automated tests.
+
+    @author Mounir Lallali
+    @creation-date 25 September  2005
+
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_add_task {
+
+        Test Add a Task to GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+	    
+	    # Get the class material url
+	    set class_material_url [evaluation::twt::get_evaluation_url]
+	    
+	    # Add a new task to GradeBook 
+	    set task_name [ad_generate_random_string]
+	    set associated_file_name [evaluation::twt::create_file [ad_generate_random_string]]
+	    set task_description [ad_generate_random_string]
+	    set response [evaluation::twt::add_task $class_material_url $task_name $task_description $associated_file_name]
+	    aa_display_result -response $response -explanation {for additing a new Task to GradeBook}
+	    
+	    evaluation::twt::delete_file $associated_file_name 
+	    
+	    twt::user::logout
+	}
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_upload_task_solution {
+
+        Test Upload a Task Solution in GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+
+	    # Get the class material url
+            set class_material_url [evaluation::twt::get_evaluation_url]
+
+            # Add a new task to GradeBook
+            set task_name [ad_generate_random_string]
+            set task_description [ad_generate_random_string]
+	    set associated_file_name [evaluation::twt::create_file [ad_generate_random_string]]
+            evaluation::twt::add_task $class_material_url $task_name $task_description $associated_file_name
+	    
+	    # Upload a task solution to GradeBook
+	    set uploaded_file_name [evaluation::twt::create_file [ad_generate_random_string]]
+            set response [evaluation::twt::upload_task_solution $class_material_url $task_name $uploaded_file_name]
+            aa_display_result -response $response -explanation {for uploading task solution in GradeBook}
+	    
+	    evaluation::twt::delete_file $associated_file_name
+	    evaluation::twt::delete_file $uploaded_file_name
+
+            twt::user::logout
+	}
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_view_task_solution {
+
+        Test View a Task Solution in GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+
+	    # Get the class material url
+            set class_material_url [evaluation::twt::get_evaluation_url]
+
+            # Add a new task to GradeBook
+            set task_name [ad_generate_random_string]
+            set task_description [ad_generate_random_string]
+	    set associated_file_name [evaluation::twt::create_file [ad_generate_random_string]]
+	    evaluation::twt::add_task $class_material_url $task_name $task_description $associated_file_name
+
+            # Upload a task solution to GradeBook
+	    set uploaded_file_name [evaluation::twt::create_file [ad_generate_random_string]]
+            evaluation::twt::upload_task_solution $class_material_url $task_name $uploaded_file_name
+
+	    # View a task solution in GradeBook
+	    set response [evaluation::twt::view_task_solution $class_material_url $task_name $uploaded_file_name] 
+            aa_display_result -response $response -explanation {for viewing task solution in GradeBook}
+	                
+	    evaluation::twt::delete_file $associated_file_name
+            evaluation::twt::delete_file $uploaded_file_name
+
+	    twt::user::logout
+	}
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_edit_task_solution {
+
+        Test Edit a Task Solution in GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+
+            # Get the class material url
+            set class_material_url [evaluation::twt::get_evaluation_url]
+
+            # Add a new task to GradeBook
+            set task_name [ad_generate_random_string]
+            set task_description [ad_generate_random_string]
+            set associated_file_name [evaluation::twt::create_file [ad_generate_random_string]]
+            evaluation::twt::add_task $class_material_url $task_name $task_description $associated_file_name
+
+            # Upload a task solution to GradeBook
+            set uploaded_file_name [evaluation::twt::create_file [ad_generate_random_string]]
+            evaluation::twt::upload_task_solution $class_material_url $task_name $uploaded_file_name
+
+            # Edit a task solution in GradeBook
+            set new_uploaded_file_name [evaluation::twt::create_file [ad_generate_random_string]]
+            set response [evaluation::twt::edit_task_solution $class_material_url $task_name $new_uploaded_file_name]
+            aa_display_result -response $response -explanation {for editing task solution in GradeBook}
+
+            evaluation::twt::delete_file $associated_file_name
+            evaluation::twt::delete_file $uploaded_file_name
+	    evaluation::twt::delete_file $new_uploaded_file_name
+
+	    twt::user::logout
+        }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_view_task {
+
+        Test View a Task in GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+
+            # Get the class material url
+            set class_material_url [evaluation::twt::get_evaluation_url]
+
+	    # Add a new task to GradeBook
+            set task_name [ad_generate_random_string]
+            set associated_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            set task_description [ad_generate_random_string]
+            evaluation::twt::add_task $class_material_url $task_name $task_description $associated_file_name
+	   
+            # view a task in GradeBook
+            set response [evaluation::twt::view_task $class_material_url $task_name $task_description $associated_file_name]
+            aa_display_result -response $response -explanation {for viewing a Task in GradeBook}
+	    
+	    evaluation::twt::delete_file $associated_file_name
+	    
+	    twt::user::logout
+	}
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_edit_task {
+
+        Test Edit a Task in GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+
+            # Get the class material url
+            set class_material_url [evaluation::twt::get_evaluation_url]
+
+	    # Add a new task to GradeBook
+            set task_name [ad_generate_random_string]
+            set associated_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            set task_description [ad_generate_random_string]
+            evaluation::twt::add_task $class_material_url $task_name $task_description $associated_file_name 
+            
+	    # edit a task in GradeBook
+	    set new_task_name [ad_generate_random_string]
+            set new_associated_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            set new_task_description [ad_generate_random_string]
+            set response [evaluation::twt::edit_task $class_material_url $task_name $new_task_name $new_task_description $new_associated_file_name ]
+            aa_display_result -response $response -explanation {for editing a Task in GradeBook}
+	    
+	    evaluation::twt::delete_file $associated_file_name
+	    evaluation::twt::delete_file $new_associated_file_name
+	    
+	    twt::user::logout
+	}
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_delete_task {
+
+        Test delete a Task in GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+
+            # Get the class material url
+	    set class_material_url [evaluation::twt::get_evaluation_url]
+
+	    # Add a new task to GradeBook
+            set task_name [ad_generate_random_string]
+            set associated_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            set task_description [ad_generate_random_string]
+            evaluation::twt::add_task $class_material_url $task_name $task_description $associated_file_name
+	    
+	    # delete a task in GradeBook
+            set response [evaluation::twt::delete_task $class_material_url $task_name]
+	    aa_display_result -response $response -explanation {for deleting a Task in GradeBook}
+        
+	    evaluation::twt::delete_file $associated_file_name
+
+	    twt::user::logout
+	}
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_add_project {
+
+        Test Add a Project to GradeBook. 
+
+        @author Mounir Lallali
+} {
+        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)
+
+            # Get the class material url
+	    set class_material_url [evaluation::twt::get_evaluation_url]
+
+            # Add a new projet to GradeBook
+	    set project_name [ad_generate_random_string]
+            set associated_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+	    set project_description [ad_generate_random_string]
+	    
+	    set response [evaluation::twt::add_project $class_material_url $project_name $project_description $associated_file_name] 
+	    aa_display_result -response $response -explanation {for additing a new Project to GradeBook}
+
+	    evaluation::twt::delete_file $associated_file_name
+
+	    twt::user::logout
+	}
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_upload_project_solution {
+
+        Test Upload a Project Solution in GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+
+            # Get the class material url
+            set class_material_url [evaluation::twt::get_evaluation_url]
+
+            # Add a new project to GradeBook
+            set project_name [ad_generate_random_string]
+            set project_description [ad_generate_random_string]
+            set associated_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            evaluation::twt::add_project $class_material_url $project_name $project_description $associated_file_name
+
+            # Upload a project  solution to GradeBook
+            set uploaded_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            set response [evaluation::twt::upload_project_solution $class_material_url $project_name $uploaded_file_name]
+            aa_display_result -response $response -explanation {for uploading project solution in GradeBook}
+
+	    evaluation::twt::delete_file $associated_file_name
+            evaluation::twt::delete_file $uploaded_file_name
+
+            twt::user::logout
+        }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_view_project_solution {
+
+        Test View a Project Solution in GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+
+            # Get the class material url
+            set class_material_url [evaluation::twt::get_evaluation_url]
+
+            # Add a new project to GradeBook
+            set project_name [ad_generate_random_string]
+            set project_description [ad_generate_random_string]
+            set associated_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            evaluation::twt::add_project $class_material_url $project_name $project_description $associated_file_name
+
+            # Upload a project solution to GradeBook
+            set uploaded_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            evaluation::twt::upload_project_solution $class_material_url $project_name $uploaded_file_name
+
+            # View a project solution in GradeBook
+            set response [evaluation::twt::view_project_solution $class_material_url $project_name $uploaded_file_name]
+            aa_display_result -response $response -explanation {for viewing project solution in GradeBook}
+
+	    evaluation::twt::delete_file $associated_file_name
+            evaluation::twt::delete_file $uploaded_file_name
+
+            twt::user::logout
+        }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_edit_project_solution {
+
+        Test Edit a Project Solution in GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+
+            # Get the class material url
+            set class_material_url [evaluation::twt::get_evaluation_url]
+
+            # Add a new project to GradeBook
+            set project_name [ad_generate_random_string]
+            set project_description [ad_generate_random_string]
+            set associated_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            evaluation::twt::add_project $class_material_url $project_name $project_description $associated_file_name
+
+            # Upload a project solution to GradeBook
+            set uploaded_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            evaluation::twt::upload_project_solution $class_material_url $project_name $uploaded_file_name
+
+            # Edit a project solution in GradeBook
+            set new_uploaded_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            set response [evaluation::twt::edit_project_solution $class_material_url $project_name $new_uploaded_file_name]
+            aa_display_result -response $response -explanation {for editing project solution in GradeBook}
+
+	    evaluation::twt::delete_file $associated_file_name
+            evaluation::twt::delete_file $uploaded_file_name
+            evaluation::twt::delete_file $new_uploaded_file_name
+
+            twt::user::logout
+        }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_view_project {
+
+        Test View a Project in GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+
+            # Get the class material url
+            set class_material_url [evaluation::twt::get_evaluation_url]
+
+            # Add a new project to GradeBook
+            set project_name [ad_generate_random_string]
+            set associated_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            set project_description [ad_generate_random_string]
+            evaluation::twt::add_project $class_material_url $project_name $project_description $associated_file_name
+
+            # view a project in GradeBook
+            set response [evaluation::twt::view_project $class_material_url $project_name $project_description $associated_file_name]
+            aa_display_result -response $response -explanation {for viewing a Project in GradeBook}
+
+	    evaluation::twt::delete_file $associated_file_name
+
+            twt::user::logout
+        }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_edit_project {
+
+        Test Edit a Project in GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+
+            # Get the class material url
+            set class_material_url [evaluation::twt::get_evaluation_url]
+
+            # Add a new project to GradeBook
+            set project_name [ad_generate_random_string]
+            set associated_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            set project_description [ad_generate_random_string]
+            evaluation::twt::add_project $class_material_url $project_name $project_description $associated_file_name
+
+            # edit a peoject in GradeBook
+            set new_project_name [ad_generate_random_string]
+            set new_associated_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            set new_project_description [ad_generate_random_string]
+            set response [evaluation::twt::edit_project $class_material_url $project_name $new_project_name $new_project_description $new_associated_file_name ]
+            aa_display_result -response $response -explanation {for editing a Project in GradeBook}
+
+	    evaluation::twt::delete_file $associated_file_name
+	    evaluation::twt::delete_file $new_associated_file_name
+
+            twt::user::logout
+        }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_delete_project {
+
+        Test delete a Project in GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+
+            # Get the class material url
+            set class_material_url [evaluation::twt::get_evaluation_url]
+
+            # Add a new project to GradeBook
+            set project_name [ad_generate_random_string]
+            set associated_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            set project_description [ad_generate_random_string]
+            evaluation::twt::add_project $class_material_url $project_name $project_description $associated_file_name
+
+            # delete a project in GradeBook
+            set response [evaluation::twt::delete_project $class_material_url $project_name]
+            aa_display_result -response $response -explanation {for deleting a Project in GradeBook}
+
+	    evaluation::twt::delete_file $associated_file_name
+            
+            twt::user::logout
+        }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_add_exam {
+
+        Test Add an Exam to GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+
+            # Get the class material url
+            set class_material_url [evaluation::twt::get_evaluation_url]
+
+            # Add a new exam to GradeBook
+            set exam_name [ad_generate_random_string]
+            set associated_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            set exam_description [ad_generate_random_string]
+
+            set response [evaluation::twt::add_exam $class_material_url $exam_name $exam_description $associated_file_name]
+            aa_display_result -response $response -explanation {for additing a new Exam to GradeBook}
+
+	    evaluation::twt::delete_file $associated_file_name
+	    
+	    twt::user::logout
+        }
+    }
+
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_upload_exam_solution {
+
+        Test Upload an Exam Solution in GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+
+            # Get the class material url
+            set class_material_url [evaluation::twt::get_evaluation_url]
+
+            # Add a new exam to GradeBook
+            set exam_name [ad_generate_random_string]
+            set exam_description [ad_generate_random_string]
+            set associated_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            evaluation::twt::add_exam $class_material_url $exam_name $exam_description $associated_file_name
+
+            # Upload a exam solution to GradeBook
+            set uploaded_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            set response [evaluation::twt::upload_exam_solution $class_material_url $exam_name $uploaded_file_name]
+            aa_display_result -response $response -explanation {for uploading an exam solution in GradeBook}
+
+            evaluation::twt::delete_file $associated_file_name
+            evaluation::twt::delete_file $uploaded_file_name
+            
+	    twt::user::logout
+        }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_view_exam_solution {
+
+        Test View an Exam Solution in GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+
+            # Get the class material url
+            set class_material_url [evaluation::twt::get_evaluation_url]
+
+            # Add a new exam to GradeBook
+            set exam_name [ad_generate_random_string]
+            set exam_description [ad_generate_random_string]
+            set associated_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            evaluation::twt::add_exam $class_material_url $exam_name $exam_description $associated_file_name
+
+            # Upload a task solution to GradeBook
+            set uploaded_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            evaluation::twt::upload_exam_solution $class_material_url $exam_name $uploaded_file_name
+
+            # View a exam solution in GradeBook
+            set response [evaluation::twt::view_exam_solution $class_material_url $exam_name $uploaded_file_name]
+            aa_display_result -response $response -explanation {for viewing an exam solution in GradeBook}
+
+            evaluation::twt::delete_file $associated_file_name
+            evaluation::twt::delete_file $uploaded_file_name
+
+            twt::user::logout
+        }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_edit_exam_solution {
+
+        Test Edit an Exam Solution in GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+
+            # Get the class material url
+            set class_material_url [evaluation::twt::get_evaluation_url]
+
+            # Add a new exam to GradeBook
+            set exam_name [ad_generate_random_string]
+            set exam_description [ad_generate_random_string]
+            set associated_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            evaluation::twt::add_exam $class_material_url $exam_name $exam_description $associated_file_name
+
+            # Upload an exam solution to GradeBook
+            set uploaded_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            evaluation::twt::upload_exam_solution $class_material_url $exam_name $uploaded_file_name
+
+            # Edit an exam solution in GradeBook
+            set new_uploaded_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            set response [evaluation::twt::edit_exam_solution $class_material_url $exam_name $new_uploaded_file_name]
+            aa_display_result -response $response -explanation {for editing an exam solution in GradeBook}
+
+            evaluation::twt::delete_file $associated_file_name
+            evaluation::twt::delete_file $uploaded_file_name
+	    evaluation::twt::delete_file $new_uploaded_file_name
+
+            twt::user::logout
+        }
+}
+
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_view_exam {
+
+        Test View an Exam in GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+
+            # Get the class material url
+            set class_material_url [evaluation::twt::get_evaluation_url]
+
+            # Add a new exam to GradeBook
+            set exam_name [ad_generate_random_string]
+            set associated_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            set exam_description [ad_generate_random_string]
+            evaluation::twt::add_exam $class_material_url $exam_name $exam_description $associated_file_name
+
+            # view an examk in GradeBook
+            set response [evaluation::twt::view_exam $class_material_url $exam_name $exam_description $associated_file_name]
+            aa_display_result -response $response -explanation {for viewing an exam in GradeBook}
+
+	    evaluation::twt::delete_file $associated_file_name
+            
+            twt::user::logout
+	}
+}
+     
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_edit_exam {
+
+        Test Edit an Exam in GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+
+            # Get the class material url
+            set class_material_url [evaluation::twt::get_evaluation_url]
+
+            # Add an new exam to GradeBook
+            set exam_name [ad_generate_random_string]
+            set associated_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            set exam_description [ad_generate_random_string]
+            evaluation::twt::add_exam $class_material_url $exam_name $exam_description $associated_file_name
+
+            # edit an exam in GradeBook
+            set new_exam_name [ad_generate_random_string]
+            set new_associated_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            set new_exam_description [ad_generate_random_string]
+            set response [evaluation::twt::edit_exam $class_material_url $exam_name $new_exam_name $new_exam_description $new_associated_file_name ]
+            aa_display_result -response $response -explanation {for editing an Exam in GradeBook}
+
+	    evaluation::twt::delete_file $associated_file_name
+	    evaluation::twt::delete_file $new_associated_file_name
+            
+	    twt::user::logout
+        }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_delete_exam {
+
+        Test delete an Exam in GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+
+            # Get the class material url
+            set class_material_url [evaluation::twt::get_evaluation_url]
+
+            # Add a new exam to GradeBook
+            set exam_name [ad_generate_random_string]
+            set associated_file_name  [evaluation::twt::create_file [ad_generate_random_string]]
+            set exam_description [ad_generate_random_string]
+            evaluation::twt::add_exam $class_material_url $exam_name $exam_description $associated_file_name
+
+            # delete an exam in GradeBook
+            set response [evaluation::twt::delete_exam $class_material_url $exam_name]
+            aa_display_result -response $response -explanation {for deleting an Exam in GradeBook}
+
+	    evaluation::twt::delete_file $associated_file_name
+	    
+	    twt::user::logout
+        }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_request_notification_GradeBook {
+
+        Test Request Notification for GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+
+	    # Request a notification GradeBook
+            set class_material_url [evaluation::twt::get_evaluation_url]
+            set responses [evaluation::twt::request_notification_GradeBook $class_material_url]
+	    aa_display_result -response [lindex $responses 3] -explanation {for requesting a notification GradeBook}
+
+	    twt::user::logout
+	}
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_request_notification_Evaluation {
+
+        Test Request Notification for Evaluation.
+
+        @author Mounir Lallali
+} {
+        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)
+
+            set class_material_url [evaluation::twt::get_evaluation_url]
+	    set responses [evaluation::twt::request_notification_Evaluation $class_material_url]
+	    aa_display_result -response [lindex $responses 3] -explanation {for requesting a notification Evaluation}
+
+            twt::user::logout	    
+        }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_unsubscribe_GradeBook {
+
+        Test Unsubscribe of GradeBook.
+
+        @author Mounir Lallali
+} {
+        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)
+	    
+	    # Unsubscribe a notification GradeBook
+	    set class_material_url [evaluation::twt::get_evaluation_url]
+	    set list_ids [evaluation::twt::request_notification_GradeBook $class_material_url]
+	    
+	    set response [evaluation::twt::unsubscribe_GradeBook $class_material_url [lindex $list_ids 0] [lindex $list_ids 1] [lindex $list_ids 2]]
+            aa_display_result -response $response -explanation {unsubscribing a notification GradeBook}
+
+            twt::user::logout
+        }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_unsubscribe_Evaluation {
+
+        Test Unsubscribe of Evaluation.
+
+        @author Mounir Lallali
+} {
+        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)
+			
+	    # Unsubscribing a notification Evaluation
+	    set class_material_url [evaluation::twt::get_evaluation_url]
+	    set list_ids [evaluation::twt::request_notification_Evaluation $class_material_url]
+	    
+	    set response [evaluation::twt::unsubscribe_Evaluation $class_material_url [lindex $list_ids 0] [lindex $list_ids 1] [lindex $list_ids 2]]
+            aa_display_result -response $response -explanation {unsubscribing a notification Evaluation}
+
+            twt::user::logout
+        }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_add_assignement_type {
+
+        Test Add a new Assignement Type. 
+
+        @author Mounir Lallali
+} {
+        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)
+	    
+            set class_material_url [evaluation::twt::get_evaluation_url]
+	   
+	    # Add a new assignment type
+	    set assigment_type_name  [ad_generate_random_string]
+	    set response [evaluation::twt::add_assignement_type $class_material_url $assigment_type_name]  
+	    aa_display_result -response $response -explanation {additing a new assignment type}
+
+            twt::user::logout
+        }
+}
\ No newline at end of file