function finitefern_test ( )

%*****************************************************************************80
%
%% finitefern_test tests finitefern.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    05 January 2020
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'finitefern_test\n' );
  fprintf ( 1, '  finitefern draws the fractal fern.\n' );

  if ( is_octave ( ) )
    fprintf ( 1, '\n' );
    fprintf ( 1, '  Skip this test.  Octave does not handle it well.\n' );
    return
  end

  F = finitefern ( 100000, 200, 200 );
  spy ( F );
  filename = 'finitefern_test.png';
  print ( '-dpng', filename );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Graphics saved as "%s"\n', filename );

  return
end
