tests/bugs/fclasses/bug23852

   1 puts "============"
   2 puts "OCC23852"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # OSD_Path interprets unc paths incorrectly
   7 #######################################################################
   8
   9 pload DCAF
  10
  11 set BugNumber OCC23852
  12
  13 set OS_platform $tcl_platform(platform)
  14 puts "OS = ${OS_platform}"
  15
  16 if { [string compare ${OS_platform} "windows"] == 0 } {
  17
  18    # Windows, #1
  19    set OSD_Path "\\\\Server\\Shared\\Folder\\File.Extension"
  20    puts "OSD_Path = ${OSD_Path}"
  21
  22    set Log [OSDPath ${OSD_Path}]
  23    #
  24    if { [regexp "Trek +: +\\|\\|Server\\|Shared\\|Folder" ${Log}] != 1 } {
  25       puts "${BugNumber}, Trek, #1: Error"
  26    }
  27    #
  28    if { [regexp "Name +: +File" ${Log}] != 1 } {
  29       puts "${BugNumber}, Name, #1: Error"
  30    }
  31    #
  32    if { [regexp "Extension +: +.Extension" ${Log}] != 1 } {
  33       puts "${BugNumber}, Extension, #1: Error"
  34    }
  35
  36    # Windows, #2
  37    set OSD_Path "//Server/Shared/Folder/File.Extension"
  38    puts "OSD_Path = ${OSD_Path}"
  39
  40    set Log [OSDPath ${OSD_Path}]
  41    #
  42    if { [regexp "Trek +: +||Server|Shared|Folder" ${Log}] != 1 } {
  43       puts "${BugNumber}, Trek, #2: Error"
  44    }
  45    #
  46    if { [regexp "Name +: +File" ${Log}] != 1 } {
  47       puts "${BugNumber}, Name, #2: Error"
  48    }
  49    #
  50    if { [regexp "Extension +: +.Extension" ${Log}] != 1 } {
  51       puts "${BugNumber}, Extension, #2: Error"
  52    }
  53
  54 }
  55
  56 if { [string compare ${OS_platform} "unix"] == 0 } {
  57    # Linux
  58    set OSD_Path "//Server/Shared/Folder/File.Extension"
  59    puts "OSD_Path = ${OSD_Path}"
  60
  61    set Log [OSDPath ${OSD_Path}]
  62    #
  63    if { [regexp "Trek +: +||Server|Shared|Folder" ${Log}] != 1 } {
  64       puts "${BugNumber}, Trek: Error"
  65    }
  66    #
  67    if { [regexp "Name +: +File" ${Log}] != 1 } {
  68       puts "${BugNumber}, Name: Error"
  69    }
  70    #
  71    if { [regexp "Extension +: +.Extension" ${Log}] != 1 } {
  72       puts "${BugNumber}, Extension: Error"
  73    }
  74 }