function testresult = KMLquiver_test()
% KMLQUIVER_TEST  unit test for KMLquiver
%  
% See also : googleplot, quiver, KMLcurvedArrows_test

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

   %% case 1

    scale = 5e3;
    [lat,lon] = meshgrid(54:.1:57,2:.1:5);
    z = peaks(31);
    z = abs(z);
    
   [u,v] = gradient(z);

    KMLquiver(lat,lon,-scale.*v,scale.*u,'fileName',KML_testdir('KMLquiver_test_arrows.kml'));
    KMLpcolor(lat,lon,                 z,'fileName',KML_testdir('KMLquiver_test_streamfunction.kml'),'disp',0);
    
   %% case 2

   dt = 30; % a litle slow so it looks clocklike
   t  = 0:dt:360;

   KMLquiver( repmat(52,size(t)),...
              repmat( 4,size(t)),...
              sind(t).*10000,... % v
              cosd(t).*10000,... % u
            'fileName',KML_testdir('KMLquiver_test_unit_circle.kml'),...
             'kmlName','unit_circle',...
          'arrowStyle', 'blackTip',...
            'openInGE',0,...
              'timeIn',+ t,...
             'timeOut',+ t + dt);
    
testresult = true;
