tests/bugs/fclasses/bug309

   1 puts "TODO OCC24296 Linux: OCC309: Error 2"
   2 puts "TODO OCC24296 MacOS: OCC309: Error 2"
   3
   4 puts "================"
   5 puts "OCC309"
   6 puts "================"
   7 puts ""
   8
   9 pload QAcommands
  10
  11 set result [OCC309]
  12
  13 set ll [llength ${result}]
  14 if { ${ll} != 2 } {
  15     puts "result = ${result}"
  16     puts "length = ${ll}"
  17     puts "OCC309: Error 0"
  18 } else {
  19     set result1 [lindex ${result} 0]
  20     set result2 [lindex ${result} 1]
  21     set CurrentDirectory [pwd]
  22     set UpTrek "[file join [file dirname [file dirname ${CurrentDirectory}]] [file tail ${CurrentDirectory}]]"
  23     if { [checkplatform -windows] } {
  24       set res1 [ string range $result1 3 [expr [string length $result1] -2 ] ]
  25       set res2 [ string range $result2 3 [expr [string length $result2] -2 ] ]
  26       set CurrentDirectory [ string range $CurrentDirectory 2 [expr [string length $CurrentDirectory] -1 ]]
  27       set UpTrek [ string range $UpTrek 2 [expr [string length $UpTrek] -1 ]]
  28     } else {
  29       set res1 [ string range $result1 1 [expr [string length $result1] -3 ] ]
  30       set res2 [ string range $result2 1 [expr [string length $result2] -3 ] ]
  31     }
  32     if {[string compare ${res1} "${CurrentDirectory}"] == 0} {
  33       puts "OCC309: OK 1"
  34     } else {
  35       puts "result1 = ${result1}"
  36       puts "res1 = ${res1}"
  37       puts "CurrentDirectory = ${CurrentDirectory}"
  38       puts "OCC309: Error 1"
  39     }
  40     if {[string compare ${res2} "${UpTrek}"] == 0} {
  41       puts "OCC309: OK 2"
  42     } else {
  43       puts "result2 = ${result2}"
  44       puts "res2 = ${res2}"
  45       puts "UpTrek = ${UpTrek}"
  46       puts "OCC309: Error 2"
  47     }
  48 }
  49