tests/bugs/moddata_3/bug30342_2

   1 puts "=========="
   2 puts "0030342: Modeling Data - Successively trimming surface in both directions lose the first trim"
   3 puts "=========="
   4 puts ""
   5
   6 torus t 1 0.5
   7
   8 trim t2 t 0 2 0 4 0 0
   9 set expected [dump t2]
  10
  11 trimu t1 t 0 2 0
  12 trimv t2 t1 0 4 0
  13
  14 set result [dump t2]
  15 if { [string compare $expected $result] != 0 } {
  16   puts "Error: invalid result"
  17 }