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

class MAIN

create make 

feature 
  make is
    local
       errors : BOOLEAN
       
      do
         
       print_title("Testing property map")
       errors := test_property_map
       print_info("test_property_map", errors)

       print_title("Testing adjacency list")
       errors := test_adjacency_list
       print_info("test_adjacency_list", errors)

       print_title("Testing BFS")       
       errors := test_bfs
       print_info("test_bfs", errors)

       print_title("Testing mutable queue")      
       errors := test_linklist_mut_queue
       print_info("test_linklist_mut_queue", errors)

       print_title("Testing Dijkstra")           
       errors := test_dijkstra
       print_info("test_dijkstra", errors)
       
       print_title("Testing Prim")            
       errors := test_prim
       print_info("test_prim", errors)

       print_title("Testing Bellman-Ford")             
       errors := test_bellman_ford
       print_info("test_bellman_ford", errors)

       print_title("Testing Johnson")            
       errors := test_johnson
       print_info("test_johnson", errors)
       
    end

feature {NONE}

   print_title (s: STRING;)
      is
      do
         io.put_string("-------------------------------------------------%N")
         io.put_string(s + "%N")
         io.put_string("-------------------------------------------------%N")       
      end
   
   print_info (s: STRING; flag: BOOLEAN)
      is
      do
         io.put_string(s)
         if (flag) then
            io.put_string(" succeeded!")
         else
            io.put_string(" contained errors!")
         end
         io.put_string("%N-------------------------------------------------%N%N")                  
      end      
   
   test_property_map : BOOLEAN is
      local
         x: TEST_PROPERTY_MAP
      do
         create x
         Result := x.test
      end
   
   test_adjacency_list : BOOLEAN is
      local
         x: TEST_ADJACENCY_LIST
      do
         create x
         Result := x.test
      end
   
   test_bfs : BOOLEAN is
      local
         x: TEST_BFS
      do
         create x
         Result := x.test
      end

   test_linklist_mut_queue : BOOLEAN is
      local
         x: TEST_LINKLIST_MUT_QUEUE
      do
         create x
         Result := x.test
      end

   test_dijkstra : BOOLEAN is
      local
         x: TEST_DIJKSTRA
      do
         create x
         Result := x.test
      end


   test_prim : BOOLEAN is
      local
         x: TEST_PRIM
      do
         create x
         Result := x.test
      end

   test_bellman_ford : BOOLEAN is
      local
         x: TEST_BELLMAN_FORD
      do
         create x
         Result := x.test
      end

   test_johnson : BOOLEAN is
      local
         x: TEST_JOHNSON
      do
         create x
         Result := x.test
      end

   

    
end -- MAIN