_acs-tcl__apm_workspace_directories (private)
_acs-tcl__apm_workspace_directories
Defined in packages/acs-tcl/tcl/test/apm-file-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_section "Create the directories" set workspace_dir [apm_workspace_dir] set workspace_install_dir [apm_workspace_install_dir] aa_true "'$workspace_dir' was created" [file isdirectory $workspace_dir] aa_true "'$workspace_install_dir' was created" [file isdirectory $workspace_install_dir] aa_section "Create the directories (they already exist and contain something)" aa_log "Create a file in '$workspace_install_dir/test.txt'" set wfd [open $workspace_install_dir/test.txt w] puts $wfd ABCD close $wfd apm_workspace_dir aa_true "'$workspace_dir' was created" [file isdirectory $workspace_dir] aa_true "'$workspace_install_dir' was created" [file isdirectory $workspace_install_dir] aa_true "'$workspace_install_dir/test.txt' still exists" [file exists $workspace_install_dir/test.txt] aa_section "Create the directories (a file is in the way)" aa_log "A file instead of '$workspace_dir'" file delete -force -- $workspace_dir $workspace_install_dir set wfd [open $workspace_dir w] puts $wfd ABCD close $wfd apm_workspace_dir apm_workspace_install_dir aa_true "'$workspace_dir' was created" [file isdirectory $workspace_dir] aa_true "'$workspace_install_dir' was created" [file isdirectory $workspace_install_dir] aa_log "A file instead of '$workspace_install_dir'" file delete -force -- $workspace_dir $workspace_install_dir file mkdir $workspace_dir set wfd [open $workspace_install_dir w] puts $wfd ABCD close $wfd apm_workspace_dir apm_workspace_install_dir aa_true "'$workspace_dir' was created" [file isdirectory $workspace_dir] aa_true "'$workspace_install_dir' was created" [file isdirectory $workspace_install_dir] }} { 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" "apm_workspace_directories (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle