tests/bugs/caf/bug24822

   1 puts "=========="
   2 puts "OCC24822"
   3 puts "=========="
   4 puts ""
   5 ###################################################
   6 # Solve selection fails after copying
   7 ###################################################
   8
   9 restore [locate_data_file bug24822_face.brep] f
  10 explode f w
  11
  12 NewDocument D XmlOcaf
  13 ImportShape D 0:1 f
  14 SelectShape D 0:2 f_1 f
  15 SolveSelection D 0:2
  16
  17 CopyLabel D 0:2 0:3
  18
  19 if [catch { SolveSelection D 0:3 } ] {
  20   puts "Error: Solve selection fails after copying"
  21 } else {
  22   puts "OK: Solve selection is good after copying"
  23 }