(*
 * adj_list_test.sml - adjacency list graph test code
 *   Ronald Garcia
 *   $Id: adj_list_test.sml,v 1.2 2003/05/02 20:03:36 jewillco Exp $
 *)

(* Copyright 2003, Trustees of Indiana University
 * Please see the license in the file ../LICENSE
 *)

use "adj_list.sml";

(* Some test code *)
let
    val x = ALGraph.create(5);
in
    (ALGraph.add_edge(x,0,4);
     ALGraph.add_edge(x,1,3);
     ALGraph.edges(x))
end;