Index: openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl,v
diff -u -r1.2 -r1.2.6.1
--- openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl 15 Feb 2004 11:18:07 -0000 1.2
+++ openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl 2 Feb 2006 15:28:07 -0000 1.2.6.1
@@ -1,18 +1,19 @@
ad_library {
Automated tests.
-
+
@author Simon Carstensen
@creation-date 14 November 2003
@cvs-id $Id$
+
}
aa_register_case \
-cats {api db smoke} \
fs_new_root_folder {
- Test the fs::new_root_folder proc.
-} {
+ Test the fs::new_root_folder proc.
+ } {
- aa_run_with_teardown \
+ aa_run_with_teardown \
-rollback \
-test_code {
@@ -21,11 +22,424 @@
-package_id [ad_conn package_id] \
-pretty_name "Foobar" \
-description "Foobar"]
-
+
set success_p [db_string success_p {
select 1 from fs_root_folders where folder_id = :folder_id
} -default "0"]
-
+
aa_equals "folder was created succesfully" $success_p 1
}
+ }
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_create_folder {
+
+ Test Load File.
+
+ @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)
+
+ file_storage::twt::go_to_dotlrn_my_files_page_url
+
+ # Create a new folder
+ set folder_name [ad_generate_random_string]
+ set folder_description [ad_generate_random_string]
+ set response [file_storage::twt::create_new_folder $folder_name $folder_description]
+
+ aa_display_result -response $response -explanation {for creating a new folder}
+
+ twt::user::logout
+ }
}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_delete_folder {
+
+ Test Delete a Folder.
+
+ @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)
+
+ file_storage::twt::go_to_dotlrn_my_files_page_url
+
+ # Create a new folder
+ set folder_name [ad_generate_random_string]
+ set folder_description [ad_generate_random_string]
+ file_storage::twt::create_new_folder $folder_name $folder_description
+
+ # Delete a folder
+ set response [file_storage::twt::delete_folder]
+
+ aa_display_result -response $response -explanation {for deleting a folder}
+
+ twt::user::logout
+ }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_edit_folder {
+
+ Test Edit a Folder.
+
+ @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)
+
+ file_storage::twt::go_to_dotlrn_my_files_page_url
+
+ # Create a new folder
+ set folder_name [ad_generate_random_string]
+ set folder_description [ad_generate_random_string]
+ file_storage::twt::create_new_folder $folder_name $folder_description
+
+ # Edit a folder
+ set new_folder_name [ad_generate_random_string]
+ set response [file_storage::twt::edit_folder $new_folder_name]
+
+ aa_display_result -response $response -explanation {for editing a folder}
+
+ twt::user::logout
+ }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_add_file_to_folder {
+
+ Test Upload a File in a Folder.
+
+ @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)
+
+ file_storage::twt::go_to_dotlrn_my_files_page_url
+
+ # Create a new folder
+ set folder_name [ad_generate_random_string]
+ set folder_description [ad_generate_random_string]
+ file_storage::twt::create_new_folder $folder_name $folder_description
+
+ # Add a file to folder
+ set uploaded_file_name [file_storage::twt::create_file [ad_generate_random_string]]
+ set uploaded_file_description [ad_generate_random_string]
+ set response [file_storage::twt::add_file_to_folder $folder_name $uploaded_file_name $uploaded_file_description]
+
+ aa_display_result -response $response -explanation {for uploadding a file in a folder}
+
+ file_storage:::twt::delete_file $uploaded_file_name
+ twt::user::logout
+ }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_create_url_in_folder {
+
+ Test Create a URL in a Folder.
+
+ @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)
+
+ file_storage::twt::go_to_dotlrn_my_files_page_url
+
+ # Create an URL in a folder
+ set url_title [ad_generate_random_string]
+ set url "e-lane.org"
+ set url_description [ad_generate_random_string]
+ set response [file_storage::twt::create_url_in_folder $url_title $url $url_description]
+
+ aa_display_result -response $response -explanation {for creating an URL in a folder}
+
+ twt::user::logout
+ }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_create_url {
+
+ Test Create a URL.
+
+ @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)
+
+ file_storage::twt::go_to_dotlrn_my_files_page_url
+
+ # Create an URL
+ set url_title [ad_generate_random_string]
+ set url "e-lane.org"
+ set url_description [ad_generate_random_string]
+ set response [file_storage::twt::create_url $url_title $url $url_description]
+
+ aa_display_result -response $response -explanation {for creating a URL}
+
+ twt::user::logout
+ }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_edit_url {
+
+ Test Edit an URL.
+
+ @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)
+
+ file_storage::twt::go_to_dotlrn_my_files_page_url
+
+ # Create an URL
+ set url_title [ad_generate_random_string]
+ set url "e-lane.org"
+ set url_description [ad_generate_random_string]
+ file_storage::twt::create_url $url_title $url $url_description
+
+ # Edit an URL
+ set new_url_title [ad_generate_random_string]
+ set new_url "dotlrn.org"
+ set new_url_description [ad_generate_random_string]
+ set response [file_storage::twt::edit_url $new_url_title $new_url $new_url_description]
+
+ aa_display_result -response $response -explanation {for editing an URL}
+
+ twt::user::logout
+ }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_delete_url {
+
+ Test Delete an URL.
+
+ @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)
+
+ file_storage::twt::go_to_dotlrn_my_files_page_url
+
+ # Create an URL
+ set url_title [ad_generate_random_string]
+ set url "e-lane.org"
+ set url_description [ad_generate_random_string]
+ file_storage::twt::create_url $url_title $url $url_description
+
+ # Delete an URL
+ set response [file_storage::twt::delete_url $url_title]
+
+ aa_display_result -response $response -explanation {for deleting an URL}
+
+ twt::user::logout
+ }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_upload_file {
+
+ Test Upload a File.
+
+ @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)
+
+ file_storage::twt::go_to_dotlrn_my_files_page_url
+
+ # Upload a File
+ set uploaded_file_name [file_storage::twt::create_file [ad_generate_random_string]]
+ set uploaded_file_description [ad_generate_random_string]
+ set response [file_storage::twt::upload_file $uploaded_file_name $uploaded_file_description]
+
+ aa_display_result -response $response -explanation {for uploadding a file}
+
+ file_storage:::twt::delete_file $uploaded_file_name
+ twt::user::logout
+ }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_delete_file {
+
+ Test Delete a File.
+
+ @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)
+
+ file_storage::twt::go_to_dotlrn_my_files_page_url
+
+ # Upload a file
+ set uploaded_file_name [file_storage::twt::create_file [ad_generate_random_string]]
+ set uploaded_file_description [ad_generate_random_string]
+ file_storage::twt::upload_file $uploaded_file_name $uploaded_file_description
+
+ # Delete a file
+ set response [file_storage::twt::delete_uploaded_file $uploaded_file_name]
+ aa_display_result -response $response -explanation {for deleting a file}
+
+ file_storage:::twt::delete_file $uploaded_file_name
+ twt::user::logout
+ }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_rename_file {
+
+ Test Rename a File.
+
+ @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)
+
+ file_storage::twt::go_to_dotlrn_my_files_page_url
+
+ # Upload a file
+ set uploaded_file_name [file_storage::twt::create_file [ad_generate_random_string]]
+ set uploaded_file_description [ad_generate_random_string]
+ file_storage::twt::upload_file $uploaded_file_name $uploaded_file_description
+
+ # Rename a file
+ set new_file_name [ad_generate_random_string]
+ set response [file_storage::twt::rename_file $new_file_name]
+ aa_display_result -response $response -explanation {for renaming a file}
+
+ file_storage:::twt::delete_file $uploaded_file_name
+ twt::user::logout
+ }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_copy_file {
+
+ Test Copy a File in another folder.
+
+ @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)
+
+ file_storage::twt::go_to_dotlrn_my_files_page_url
+
+ # Create a new folder
+ set folder_name [ad_generate_random_string]
+ set folder_description [ad_generate_random_string]
+ set response [file_storage::twt::create_new_folder $folder_name $folder_description]
+
+ # The file storage dotlrn page
+ ::twt::do_request "/dotlrn/control-panel"
+ tclwebtest::link follow {My Files}
+
+ # Upload a file
+ set uploaded_file_name [file_storage::twt::create_file [ad_generate_random_string]]
+ set uploaded_file_description [ad_generate_random_string]
+ file_storage::twt::upload_file $uploaded_file_name $uploaded_file_description
+
+ # Copy a file in another folder
+ set response [file_storage::twt::copy_file $folder_name $uploaded_file_name]
+ aa_display_result -response $response -explanation {for copying a file in another folder}
+
+ file_storage:::twt::delete_file $uploaded_file_name
+ twt::user::logout
+ }
+}
+
+aa_register_case -cats {web smoke} -libraries tclwebtest tclwebtest_move_file {
+
+ Test Move a File in another folder.
+
+ @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)
+
+ file_storage::twt::go_to_dotlrn_my_files_page_url
+
+ # Create a new folder
+ set folder_name [ad_generate_random_string]
+ set folder_description [ad_generate_random_string]
+ set response [file_storage::twt::create_new_folder $folder_name $folder_description]
+
+ # The file storage dotlrn page
+ ::twt::do_request "/dotlrn/control-panel"
+ tclwebtest::link follow {My Files}
+
+ # Upload a file
+ set uploaded_file_name [file_storage::twt::create_file [ad_generate_random_string]]
+ set uploaded_file_description [ad_generate_random_string]
+ file_storage::twt::upload_file $uploaded_file_name $uploaded_file_description
+
+ # Move a file in another folder
+ set response [file_storage::twt::move_file $folder_name $uploaded_file_name]
+ aa_display_result -response $response -explanation {for moving a file in another folder}
+
+ file_storage:::twt::delete_file $uploaded_file_name
+ twt::user::logout
+ }
+}
+
+
+
+
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl'.
Fisheye: No comparison available. Pass `N' to diff?