! regression/common/setup_testvolume
CECHO ${$root.vol[current].meta.physicalsize.x=$root.vol[current].meta.physicalsize.y=$root.vol[current].meta.physicalsize.z=1.0}
! regression/common/checkreply - start
FIND_CLOSEST 50 50 15 50 50 50 9
! regression/common/checkreply "FIND_CLOSEST" "303 O.K. Closest voxel is at 50 50 19"
FIND_COG 50 50 15 1
! regression/common/checkreply "FIND_COG" "303 O.K. COG is at 49.50 49.50 14.50"
MEASURE_CURVELEN 10 10 10 89 89 19 1 9
! regression/common/checkreply "MEASURE_CURVELEN 1" "303 O.K. Length is 142.36."
MEASURE_CURVELEN 10 10 10 89 89 19 10 1
! regression/common/checkreply "MEASURE_CURVELEN 1" "303 O.K. Length is 116.56."
MEASURE_CURVELEN 10 10 15 89 89 15 1 9
! regression/common/checkreply "MEASURE_CURVELEN 1" "303 O.K. Length is 112.15."
MEASURE_CURVELEN 10 10 15 89 89 15 10 1
! regression/common/checkreply "MEASURE_CURVELEN 1" "303 O.K. Length is 111.87."
! regression/common/checkreply - stop

DECLARE int $fd
CECHO ${$fd=$root.func.file.open("/tmp/regression.dat","wct")}
FIND_NEIGHBOURS 50 50 69 5 13 6 ${$fd}
MARKCC 13 5
CECHO ${$root.func.file.close($fd)}
! regression/common/checkfile "FIND_NEIGHBOURS" /tmp/regression.dat "abf255756aa1905dbb33ab90790868b5" delete

CECHO ${$fd=$root.func.file.open("/tmp/regression.dat","wct")}
FIND_DG_NEIGHBOURS 1,2 ${$fd}
CECHO ${$root.func.file.close($fd)}
! regression/common/checkfile "FIND_DG_NEIGHBOURS 1,2" /tmp/regression.dat "43b4897a04fb15fd253f739fd730110c" delete

CECHO ${$fd=$root.func.file.open("/tmp/regression.dat","wct")}
FIND_DG_NEIGHBOURS 2,3 ${$fd}
CECHO ${$root.func.file.close($fd)}
! regression/common/checkfile "FIND_DG_NEIGHBOURS 2,3" /tmp/regression.dat "538feb9867b3a69195a4e11c8c1ccd08" delete

CECHO ${$fd=$root.func.file.open("/tmp/regression.dat","wct")}
FIND_DG_ADJPATCHES 2 10 ^2 1 2 ${$fd}
CECHO ${$root.func.file.close($fd)}
! regression/common/checkfile "FIND_DG_ADJPATCHES" /tmp/regression.dat "7e45549e4267b8714535218cbeaacb3a" delete
QUIT
