_acs-tcl__get_insecure_location (private)

 _acs-tcl__get_insecure_location

Defined in packages/acs-tcl/tcl/test/location-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 {
        aa_section "security::get_insecure_location"

        set current_location [util_current_location]
        aa_log "current location '$current_location'"

        set cld [ns_parseurl $current_location]
        aa_log "current location parts '$cld'"
        if {[dict exists $cld port] && [dict get $cld port] ne ""} {
            if {[dict get $cld proto] eq "http"} {
                aa_log "run tests with port based on HTTP"
                set insecure [security::get_insecure_location]
                aa_true "insecure location has same proto as current location" {$insecure eq $current_location}

                set secure [security::get_secure_location]
                set sld [ns_parseurl $secure]
                aa_true "secure location starts is HTTPS" {[dict get $sld proto] eq "https"}
            } else {
                aa_log "run tests with port based on HTTPS"
                set secure [security::get_secure_location]
                aa_true "secure location has same proto as current location" {$secure eq $current_location}

                set insecure [security::get_insecure_location]
                set ild [ns_parseurl $insecure]
                aa_true "insecure location starts is HTTP" {[dict get $ild proto] eq "http"}
            }
        } else {
            aa_log "skip tests with port"
        }

    }
}} {
          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" "get_insecure_location (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo"
          }
          incr body_count
        }

XQL Not present:

Generic, PostgreSQL, Oracle