(*
 * prim_test.sml - Test out the prim implementation
 *  Ronald Garcia
 *  $Id: prim_test.sml,v 1.2 2003/05/02 20:03:40 jewillco Exp $
 *)

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

use "prim.sml";
use "graph235.sml";



structure PMST = 
MakePrim(struct 
         structure VertexListGraph = ALGraph
         structure IncidenceGraph = ALGraph
         structure PredecessorMap = NumberMap
         structure DistanceMap = NumberMap
         structure WeightMap = EdgeMap
         structure VertexIndexMap = IndexMap
         structure Compare = NCompare
         end);


PMST.prim_minimum_spanning_tree g
                            (hd (ALGraph.vertices(g)))
                            pmap
                            dmap
                            wmap
                            (IndexMap.create())
	                    (NCompare.create())
                            999999 
                            0;