_oacs-dav__oacs_dav_put (private)
_oacs-dav__oacs_dav_put
Defined in packages/oacs-dav/tcl/test/oacs-dav-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 { array set sn [site_node::get -url "/"] set package_id $sn(package_id) set name "__test_file.html" oacs_dav::conn -set item_name $name set uri "/${name}" set item_id "" oacs_dav::conn -set method "PUT" oacs_dav::conn -set item_id $item_id oacs_dav::conn -set uri $uri oacs_dav::conn -set urlv $name oacs_dav::conn -set tmpfile "[acs_root_dir]/packages/oacs-dav/tcl/test/$name" # we probably want to create a bunch of files in the filesystem # and test mime type and other attributes to make sure the # content gets in the database set tmpfile [oacs_dav::conn tmpfile] set tmpfilesize [file size $tmpfile] set fd [open $tmpfile r] set orig_content [read $fd] close $fd set folder_id [db_exec_plsql create_test_folder ""] aa_log "Folder Created $folder_id package_id $package_id" oacs_dav::conn -set folder_id $folder_id db_exec_plsql register_content_type "" oacs_dav::register_folder $folder_id $sn(node_id) set response [oacs_dav::impl::content_revision::put] ## Rewrite the file, as put operation would destroy it set fd [open $tmpfile w] puts -nonewline $fd $orig_content close $fd ## aa_log "Response was $response" set new_item_id [db_string item_exists "" -default ""] aa_log "Item_id=$new_item_id" aa_true "Content Item Created" {$new_item_id ne ""} set revision_id [db_string revision_exists "" -default ""] aa_true "Content Revision Created" {$revision_id ne ""} set cr_filename [content::revision::get_cr_file_path -revision_id $revision_id] aa_true "Content Attribute Set" {$tmpfilesize == [file size $cr_filename]} } }} { 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" "oacs_dav_put (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Oracle Generic XQL file: <fullquery name="_oacs-dav__oacs_dav_put.item_exists"> <querytext> select item_id from cr_items where name=:name and parent_id=:folder_id </querytext> </fullquery> <fullquery name="_oacs-dav__oacs_dav_put.revision_exists"> <querytext> select revision_id from cr_revisions where item_id=:new_item_id </querytext> </fullquery> <fullquery name="_oacs-dav__oacs_dav_put.item_exists"> <querytext> select item_id from cr_items where name=:name and parent_id=:folder_id </querytext> </fullquery>packages/oacs-dav/tcl/test/oacs-dav-procs.xql
PostgreSQL XQL file: <fullquery name="_oacs-dav__oacs_dav_put.create_test_folder"> <querytext> select content_folder__new ( '__test_folder', '__test_folder', NULL, NULL ) </querytext> </fullquery> <fullquery name="_oacs-dav__oacs_dav_put.register_content_type"> <querytext> select content_folder__register_content_type(:folder_id,'content_revision','t') </querytext> </fullquery>packages/oacs-dav/tcl/test/oacs-dav-procs-postgresql.xql