_file-storage__fs_create_folder_using_api (private)
_file-storage__fs_create_folder_using_api
Defined in packages/file-storage/tcl/test/file-storage-procs.tcl
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: set _aa_export {} set body_count 1 foreach testcase_body {{ aa_run_with_teardown -rollback -test_code { # # Create a new admin user and login # set user_id [db_nextval acs_object_id_seq] set user_info [acs::test::user::create -user_id $user_id -admin] acs::test::confirm_email -user_id $user_id # # Instantiate file storage # set package_id [site_node::instantiate_and_mount -node_name "file-storage-foo-test" -package_key file-storage] # # Get root folder # set root_folder_id [fs::get_root_folder -package_id $package_id] aa_true "Root folder exists" [fs::folder_p -object_id $root_folder_id] # # Create folder # set folder_name foo set folder_id [fs::new_folder -name $folder_name -pretty_name $folder_name -parent_id $root_folder_id] aa_true "Created root folder" [fs::folder_p -object_id $folder_id] # # Get folder # aa_equals "Get folder" [fs::get_folder -name $folder_name -parent_id $root_folder_id] $folder_id # # Rename the folder # aa_equals "Folder name" [fs_get_folder_name $folder_id] $folder_name set folder_name bar fs::rename_folder -folder_id $folder_id -name $folder_name aa_equals "Folder name after renaming" [fs_get_folder_name $folder_id] $folder_name # # Delete root folder # fs::delete_folder -folder_id $folder_id aa_false "Deleted folder" [fs::folder_p -object_id $folder_id] } }} { aa_log "Running testcase body $body_count" set ::__aa_test_indent [info level] set catch_val [catch $testcase_body msg] if {$catch_val != 0 && $catch_val != 2} { aa_log_result "fail" "fs_create_folder_using_api (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle