function quad_is_convex_test ( )

%*****************************************************************************80
%
%% QUAD_IS_CONVEX_TEST tests QUAD_IS_CONVEX.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    01 August 2018
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'QUAD_IS_CONVEX_TEST\n' );
  fprintf ( 1, '  QUAD_IS_CONVEX is true if a quadrilateral is convex.\n' );

  seed = 123456789;

  for i = 1 : 5

    [ q, seed ] = quad_simple_random ( seed );
    r82vec_print ( 4, q, '  Quadrilateral q:' );
    value = quad_is_convex ( q );
    fprintf ( 1, '  quad_is_convex ( q ) = %g\n', value );

  end

  return
end
