_acs-tcl__apm_version_names_compare (private)

 _acs-tcl__apm_version_names_compare

Defined in packages/acs-tcl/tcl/test/acs-tcl-apm-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 versions [list  {1.2d3 3.5b -1}  {3.5b 1.2d3 1}  {3.5b 3.5b 0}  {5.0.0d5 5.0.0b1 -1}  {5.0.0a5 5.0.0b1 -1}  {5.0.0d5 5.0.0a1 -1}  ]
    aa_log "-1: First version is earlier"
    aa_log "0: Both versions are equal"
    aa_log "1: Second version is earlier"
    foreach version $versions {
        set version_name1 [lindex $version 0]
        set version_name2 [lindex $version 1]
        set result        [lindex $version 2]
        aa_equals "Comparing $version_name1 and $version_name2" [apm_version_names_compare $version_name1 $version_name2] "$result"
    }
}} {
          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_version_names_compare (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo"
          }
          incr body_count
        }

XQL Not present:

Generic, PostgreSQL, Oracle