function ccfi_1_exactness_test ( )

%*****************************************************************************80
%
%% ccfi_1_exactness_test() tests CCFI_1 rules for the Laguerre integral.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    16 May 2014
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'CCFI_1_EXACTNESS_TEST\n' );
  fprintf ( 1, '  Test CCFI_1 rules on the Laguerre integrals.\n' );
  fprintf ( 1, '  Density function rho(x) = 1.\n' );
  fprintf ( 1, '  Region: 0 <= x < +oo.\n' );
  fprintf ( 1, '  Exactness: NONE.\n' );

  ell = 1.0;

  for n = 1 : 5

    [ x, w ] = ccfi_1 ( n, ell );
    w(1:n) = w(1:n) .* exp ( -x(1:n) );
    p_max = n;
    laguerre_exactness_test ( n, x, w, p_max );

  end

  return
end
