function r8poly_is_zero_test ( )

%*****************************************************************************80
%
%% r8poly_is_zero_test() tests r8poly_is_zero().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    07 October 2019
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'r8poly_is_zero_test\n' );
  fprintf ( 1, '  r8poly_is_zero is true if a polynomial is equivalent\n' );
  fprintf ( 1, '  to the zero polynomial.\n' );

  pd = -1;
  pc = [];
  r8poly_print ( pc, '  The R8POLY:' );
  value = r8poly_is_zero ( pd, pc );
  fprintf ( 1, '  r8poly_is_zero = %s\n', mat2str ( value ) );

  pd = 0;
  pc = [ 0.0 ];
  r8poly_print ( pc, '  The R8POLY:' );
  value = r8poly_is_zero ( pd, pc );
  fprintf ( 1, '  r8poly_is_zero = %s\n', mat2str ( value ) );

  pd = 1;
  pc = [ 0.0, 2.0 ];
  r8poly_print ( pc, '  The R8POLY:' );
  value = r8poly_is_zero ( pd, pc );
  fprintf ( 1, '  r8poly_is_zero = %s\n', mat2str ( value ) );

  pd = 2;
  pc = [ 1.0, 2.0, 3.0 ];
  r8poly_print ( pc, '  The R8POLY:' );
  value = r8poly_is_zero ( pd, pc );
  fprintf ( 1, '  r8poly_is_zero = %s\n', mat2str ( value ) );

  pd = 3;
  pc = [ 0.0, 0.0, 0.0, 0.0 ];
  r8poly_print ( pc, '  The R8POLY:' );
  value = r8poly_is_zero ( pd, pc );
  fprintf ( 1, '  r8poly_is_zero = %s\n', mat2str ( value ) );

  return
end
