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

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

   KMLcolumn({51.9859}    ,{4.3815} ,{[0 1 2 4 8 16 32]}              ,{[1 2 3 4 5 6]}          ,'R',1e3,'fileName',[KML_testdir,filesep,'KMLcolumn_test1.kml'],'lineColor',[0 0 0])
   
   % lower segment is extended to earth, with gray flickering
   KMLcolumn({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]},'R',10e3,'fileName',[KML_testdir,filesep,'KMLcolumn_test2.kml'],'lineColor',[0 0 0])

testresult = 1;