function graph_adj_edge_select_test ( )

%*****************************************************************************80
%
%% graph_adj_edge_select_test() tests graph_adj_edge_select().
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    01 March 2023
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'graph_adj_edge_select_test():\n' );
  fprintf ( 1, '  graph_adj_edge_select() selects an edge from\n' );
  fprintf ( 1, '  a graph defined by an adjacency matrix.\n' );

  A = graph_adj_example_bush ( );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  Adjacency matrix for bush example' );
  disp ( A );

  [ ni, nj ] = graph_adj_edge_select ( A );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  An edge of this graph extends from\n' );
  fprintf ( 1, '  node %d to node %d\n', ni, nj );

  return
end
