_file-storage__fs_archive_api (private)

 _file-storage__fs_archive_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 {{
        set orig_package_key [ad_conn package_key]
        set orig_package_id [ad_conn package_id]

        try {
            set wfd [ad_opentmpfile in_file .in]
            set out_file [file rootname $in_file].out

            puts $wfd abcd
            close $wfd
            set in_file_hash [ns_md file $in_file]

            #
            # We simulate a file-storage connection context
            #
            ad_conn -set package_key "file-storage"
            ad_conn -set package_id [db_string get_fs_is {
                select max(package_id) from apm_packages
                where package_key = 'file-storage'
            }]

            exec -ignorestderr {*}[fs::get_archive_command  -in_file $in_file  -out_file $out_file]

            aa_equals "Input file was untouched"  [ns_md file $in_file] $in_file_hash

            aa_true "Archive '$out_file' was generated"  [file exists $out_file]
        } finally {
            ad_conn -set package_key $orig_package_key
            ad_conn -set package_id $orig_package_id
            file delete -- $in_file $out_file
        }
    }} {
          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_archive_api (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo"
          }
          incr body_count
        }

XQL Not present:

Generic, PostgreSQL, Oracle