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 -r1.5.2.3 -r1.5.2.4 --- openacs-4/packages/evaluation-portlet/tcl/test/evaluation-portlet-procs.tcl 19 Aug 2020 16:42:09 -0000 1.5.2.3 +++ openacs-4/packages/evaluation-portlet/tcl/test/evaluation-portlet-procs.tcl 19 Aug 2020 16:53:03 -0000 1.5.2.4 @@ -8,865 +8,864 @@ aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_add_task { - Test Add a Task to GradeBook. + Test Add a Task to GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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} + # 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 + evaluation::twt::delete_file $associated_file_name - twt::user::logout - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_upload_task_solution { - Test Upload a Task Solution in GradeBook. + Test Upload a Task Solution in GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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 + # 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} + # 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 + evaluation::twt::delete_file $associated_file_name + evaluation::twt::delete_file $uploaded_file_name - twt::user::logout - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_view_task_solution { - Test View a Task Solution in GradeBook. + Test View a Task Solution in GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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 + # 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 + # 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} + # 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 + evaluation::twt::delete_file $associated_file_name + evaluation::twt::delete_file $uploaded_file_name - twt::user::logout - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_edit_task_solution { - Test Edit a Task Solution in GradeBook. + Test Edit a Task Solution in GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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 + # 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 + # 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} + # 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 + 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 - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_view_task { - Test View a Task in GradeBook. + Test View a Task in GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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 + # 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} + # 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 + evaluation::twt::delete_file $associated_file_name - twt::user::logout - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_edit_task { - Test Edit a Task in GradeBook. + Test Edit a Task in GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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 + # 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} + # 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 + evaluation::twt::delete_file $associated_file_name + evaluation::twt::delete_file $new_associated_file_name - twt::user::logout - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_delete_task { - Test delete a Task in GradeBook. + Test delete a Task in GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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 + # 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} + # 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 + evaluation::twt::delete_file $associated_file_name - twt::user::logout - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_add_project { - Test Add a Project to GradeBook. + Test Add a Project to GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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] + # 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} + 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 + evaluation::twt::delete_file $associated_file_name - twt::user::logout - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_upload_project_solution { - Test Upload a Project Solution in GradeBook. + Test Upload a Project Solution in GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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 + # 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} + # 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 + evaluation::twt::delete_file $associated_file_name + evaluation::twt::delete_file $uploaded_file_name - twt::user::logout - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_view_project_solution { - Test View a Project Solution in GradeBook. + Test View a Project Solution in GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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 + # 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 + # 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} + # 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 + evaluation::twt::delete_file $associated_file_name + evaluation::twt::delete_file $uploaded_file_name - twt::user::logout - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_edit_project_solution { - Test Edit a Project Solution in GradeBook. + Test Edit a Project Solution in GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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 + # 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 + # 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} + # 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 + 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 - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_view_project { - Test View a Project in GradeBook. + Test View a Project in GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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 + # 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} + # 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 + evaluation::twt::delete_file $associated_file_name - twt::user::logout - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_edit_project { - Test Edit a Project in GradeBook. + Test Edit a Project in GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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 + # 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} + # 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 + evaluation::twt::delete_file $associated_file_name + evaluation::twt::delete_file $new_associated_file_name - twt::user::logout - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_delete_project { - Test delete a Project in GradeBook. + Test delete a Project in GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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 + # 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} + # 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 + evaluation::twt::delete_file $associated_file_name - twt::user::logout - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_add_exam { - Test Add an Exam to GradeBook. + Test Add an Exam to GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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] + # 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} + 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 + evaluation::twt::delete_file $associated_file_name - twt::user::logout - } + twt::user::logout } +} aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_upload_exam_solution { - Test Upload an Exam Solution in GradeBook. + Test Upload an Exam Solution in GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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 + # 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} + # 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 + evaluation::twt::delete_file $associated_file_name + evaluation::twt::delete_file $uploaded_file_name - twt::user::logout - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_view_exam_solution { - Test View an Exam Solution in GradeBook. + Test View an Exam Solution in GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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 + # 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 + # 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} + # 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 + evaluation::twt::delete_file $associated_file_name + evaluation::twt::delete_file $uploaded_file_name - twt::user::logout - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_edit_exam_solution { - Test Edit an Exam Solution in GradeBook. + Test Edit an Exam Solution in GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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 + # 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 + # 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} + # 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 + 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 - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_view_exam { - Test View an Exam in GradeBook. + Test View an Exam in GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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 + # 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} + # 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 + evaluation::twt::delete_file $associated_file_name - twt::user::logout - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_edit_exam { - Test Edit an Exam in GradeBook. + Test Edit an Exam in GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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 + # 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 - # 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} + # 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 + evaluation::twt::delete_file $associated_file_name + evaluation::twt::delete_file $new_associated_file_name - twt::user::logout - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_delete_exam { - Test delete an Exam in GradeBook. + Test delete an Exam in GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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 + # 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} + # 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 + evaluation::twt::delete_file $associated_file_name - twt::user::logout - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_request_notification_GradeBook { - Test Request Notification for GradeBook. + Test Request Notification for GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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} + # 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 - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_request_notification_Evaluation { - Test Request Notification for Evaluation. + Test Request Notification for Evaluation. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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} + 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 - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_unsubscribe_GradeBook { - Test Unsubscribe of GradeBook. + Test Unsubscribe of GradeBook. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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] + # 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} + 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 - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_unsubscribe_Evaluation { - Test Unsubscribe of Evaluation. + Test Unsubscribe of Evaluation. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { + tclwebtest::cookies clear - tclwebtest::cookies clear + # Login user + array set user_info [twt::user::create -admin] + twt::user::login $user_info(email) $user_info(password) - # 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] - # 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} - 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 - } + twt::user::logout + } } aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_add_assignment_type { - Test Add a new Assignment Type. + Test Add a new Assignment Type. - @author Mounir Lallali + @author Mounir Lallali } { - aa_run_with_teardown -test_code { + aa_run_with_teardown -test_code { - tclwebtest::cookies clear + tclwebtest::cookies clear - # Login user - array set user_info [twt::user::create -admin] - twt::user::login $user_info(email) $user_info(password) + # 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 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_assignment_type $class_material_url $assigment_type_name] - aa_display_result -response $response -explanation {additing a new assignment type} + # Add a new assignment type + set assigment_type_name [ad_generate_random_string] + set response [evaluation::twt::add_assignment_type $class_material_url $assigment_type_name] + aa_display_result -response $response -explanation {additing a new assignment type} - twt::user::logout - } + twt::user::logout + } } aa_register_case -procs {