tests/bugs/moddata_2/bug231

   1 puts "========"
   2 puts "OCC231"
   3 puts "========"
   4 puts ""
   5
   6 #############################################
   7 ##Uncorrect work DRAW command "proj" in version dev
   8 ## and receive such result:
   9 ## in dev : ext_1 ext_2 ext_3
  10 ## in C40 : ext_1 ext_2 ext_3 ext_4
  11 #############################################
  12
  13 restore [locate_data_file OCC231.draw] result
  14
  15 set str [proj result 1751.38 614.152 -180.331]
  16 set err [llength $str]
  17
  18 if { $err < 4 } {
  19     puts "Faulty OCC231: Projection was made wrongly"
  20 } else {
  21     puts "OCC231 OK: Projection was made properly"
  22 }
  23
  24 checkview -display result -2d -path ${imagedir}/${test_image}.png
  25