tests/bugs/xde/bug31466

   1 puts "================================================================================="
   2 puts "  0031466: Data Exchange - Cannot import layers from STeP file (7.4.0 regression)"
   3 puts "================================================================================="
   4 puts ""
   5
   6 pload DCAF
   7
   8 XNewDoc D
   9 box b 1 1 1
  10 explode b f
  11 XAddShape D b
  12 XAddSubShape D b_1 0:1:1:1
  13 XAddLayer D myLayer
  14 XSetLayer D 0:1:1:1:1 myLayer
  15
  16 # check layer
  17 set layer [XGetLayers D b_1]
  18 if {$layer != "\"myLayer\" "} {
  19   puts "Error: wrong result layer searching."
  20 }
  21
  22 Close D