function OK = profiles_test(varargin)
%PROFILES_TEST tets for profiles_test
%
%  profiles_test(<visual_user_check>)
%
%See also: profiles

try
   FIG = figure;
   [x,z,u]=peaks;
   pcolor(x,z,u);shading interp
   profiles(x,z,u,'plotstride',3)
   hold on
   profiles(x,z,u,'plotstride',5,'plotdim',2,'color','w')
   title(mktex(mfilename))
   if nargin > 0
   disp(['pres <CTRL>+<C> if the result of ',mfilename,'is not satisfactory.'])
   pausedisp
   end
   close(FIG)
   OK = 1;
catch
   OK = 0;
end