function easter_gregorian_ds_test ( )

%*****************************************************************************80
%
%% EASTER_GREGORIAN_DS_TEST() tests EASTER_GREGORIAN_DS.
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    17 June 2012
%
%  Author:
%
%    John Burkardt
%
  n_test = 10;
  d_test = [   30,   12,    4,   23,   15,   31,   20,   11,   27,   16 ];
  m_test = [    3,    4,    4,    4,    4,    3,    4,    4,    3,    4 ];
  y_test = [ 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 ];

  fprintf ( 1, '\n' );
  fprintf ( 1, 'EASTER_GREGORIAN_DS_TEST\n' );
  fprintf ( 1, '  For the Gregorian calendar,\n' );
  fprintf ( 1, '  for a given year, compute the day and month of Easter.\n' );
  fprintf ( 1, '  EASTER_GREGORIAN_DS uses Duffett-Smith''s algorithm.\n' );

  for i = 1 : n_test

    y = y_test(i);
    m = m_test(i);
    d = d_test(i);

    fprintf ( 1, '\n' );
    s = ymd_to_s_gregorian ( y, m, d );
    fprintf ( 1, '  CORRECT:  %s\n', s );

    [ m, d ] = easter_gregorian_ds ( y );
    s = ymd_to_s_gregorian ( y, m, d );
    fprintf ( 1, '  COMPUTED: %s\n', s );

  end

  return
end
