function testresult = KMLcylinder_test()
% KMLcylinder_test  unit test for KMLcylinder
%
% See also: KMLcylinder, KMLcolumn_test

MTestCategory.Unit;
disp(['... running test:',mfilename])

   KMLcylinder({51.9859}    ,{4.3815} ,{[0 1 2 4 8 16 32]}              ,{[1 2 3 4 5 6]}           ,1e3,'fileName',[KML_testdir,filesep,'KMLcylinder_test1.kml'])
   % lower segment floats
   KMLcylinder({51 51 52 52},{4 5 4 5},{[1 2 3],[3 4 5],[5 6 7],[7 8 9]},{[8 7],[6 5],[4 3],[2 1]},10e3,'fileName',[KML_testdir,filesep,'KMLcylinder_test2.kml'])

testresult = 1;