//Tests dijsktra.h with two heap implementations:

 //the default binary heap of bin_heap.h, and the 

 //Fibonacci heap of fib_heap.h.

 //The input is a graph in standard dimacs format from the standard input (like

 //in /hugo_loc/testfiles/dimacs). It runs dijkstra.h on this graph with

 //both heaps, checking two postconditions: 

 //- if the edges e=uv of the shortest path tree reported by dijkstra.h have

 //dist(v)-dist(u)=length(e)

 // - if all edges e=uv with u reachable from the root have

 //dist(v)-dist(u)>=length(e)

 #include <iostream>

 #include <math.h>

 #include <smart_graph.h>

 #include <dimacs.h>

 #include <dijkstra.h>

 #include <time_measure.h>

 #include <bin_heap.h>

 #include <fib_heap.h>

 #include <for_each_macros.h>

 using namespace hugo;

 int main(int, char **) {

   typedef SmartGraph Graph;

   typedef Graph::Edge Edge;

   typedef Graph::Node Node;

   typedef Graph::EdgeIt EdgeIt;

   typedef Graph::NodeIt NodeIt;

   typedef Graph::EdgeMap<int> LengthMap;

   Graph G;

   Node s, t;

   LengthMap cap(G);

   readDimacsMaxFlow(std::cin, G, s, t, cap);

   Timer ts;

   std::cout <<

     "\n  Testing dijkstra.h with binary heap implementation bin_heap.h,"

 	    <<std::endl;

   std::cout<<"  on a graph with " << 

     G.nodeNum() << " nodes and " << G.edgeNum() << " edges..."

 	   << std::endl<<std::endl;

   Dijkstra<Graph, LengthMap> 

     dijkstra_test(G, cap);

   ts.reset();

   dijkstra_test.run(s);

   std::cout << "elapsed time: " << ts << std::endl;

   int error1=0;

   int error2=0;

   FOR_EACH_LOC ( EdgeIt, e, G) {

     Node u=G.tail(e);

     Node v=G.head(e);

     if ( dijkstra_test.dist(v) - dijkstra_test.dist(u) > cap[e] )

       if ( dijkstra_test.reached(u) ) {

 	std::cout<<"Error! dist(head)-dist(tail)- edge_length= " 

 		 <<dijkstra_test.dist(v) - dijkstra_test.dist(u) 

 	  - cap[e]<<std::endl;

 	++error1;

       }

   }

   FOR_EACH_LOC ( NodeIt, v, G) {

     if ( dijkstra_test.reached(v) ) {

       Edge e=dijkstra_test.pred(v);

       Node u=G.tail(e);

       if ( dijkstra_test.dist(v) - dijkstra_test.dist(u) != cap[e] ) {

 	std::cout<<"Error in a shortest path tree edge! Difference: " 

 		 <<std::abs(dijkstra_test.dist(v) - dijkstra_test.dist(u) 

 			    - cap[e])<<std::endl;

 	++error2;

       }

     }

   }

   std::cout << error1 << " non-tree and " << error2 

 	    << " shortest path tree edge is erroneous."<<std::endl;

   std::cout <<

     "\n  Testing dijkstra.h with Fibonacci heap implementation fib_heap.h,"

 	    <<std::endl;

   std::cout<<"  on a graph with " << 

     G.nodeNum() << " nodes and " << G.edgeNum() << " edges..."

 	   << std::endl<<std::endl;

   Dijkstra<Graph, LengthMap, FibHeap> 

     dijkstra_test2(G, cap);

   ts.reset();

   dijkstra_test2.run(s);

   std::cout << "elapsed time: " << ts << std::endl;

   error1=0;

   error2=0;

   FOR_EACH_LOC ( EdgeIt, e, G) {

     Node u=G.tail(e);

     Node v=G.head(e);

     if ( dijkstra_test2.dist(v) - dijkstra_test2.dist(u) > cap[e] )

       if ( dijkstra_test2.reached(u) ) {

 	std::cout<<"Error! dist(head)-dist(tail)- edge_length= " 

 		 <<dijkstra_test2.dist(v) - dijkstra_test2.dist(u) 

 	  - cap[e]<<std::endl;

 	++error1;

       }

   }

   FOR_EACH_LOC ( NodeIt, v, G) {

     if ( dijkstra_test2.reached(v) ) {

       Edge e=dijkstra_test2.pred(v);

       Node u=G.tail(e);

       if ( dijkstra_test2.dist(v) - dijkstra_test2.dist(u) != cap[e] ) {

 	std::cout<<"Error in a shortest path tree edge! Difference: " 

 		 <<std::abs(dijkstra_test2.dist(v) - dijkstra_test2.dist(u) 

 			    - cap[e])<<std::endl;

 	++error2;

       }

     }

   }

   std::cout << error1 << " non-tree and " << error2 

 	    << " shortest path tree edge is erroneous."<<std::endl;

   return 0;

 }