0023852: OSD_Path interprets unc paths incorrectly
[occt.git] / 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 }