// -*- C++ -*-

#include <lemon/bits/graph_extender.h>
#include <lemon/concept/ugraph.h>
#include <lemon/list_graph.h>
#include <lemon/smart_graph.h>
#include <lemon/full_graph.h>
#include <lemon/grid_graph.h>

#include <lemon/graph_utils.h>

#include "test_tools.h"


using namespace lemon;
using namespace lemon::concept;

void check_concepts() {
  typedef UGraphExtender<ListGraphBase> ListUGraphBase;

  typedef IterableUGraphExtender<
    AlterableUGraphExtender<ListUGraphBase> > IterableListUGraph;

  typedef MappableUGraphExtender<IterableListUGraph>
    MappableListUGraph;

  typedef ErasableUGraphExtender<
    ClearableUGraphExtender<
    ExtendableUGraphExtender<MappableListUGraph> > > Graph;

  checkConcept<BaseIterableUGraphConcept, Graph>();
  checkConcept<IterableUGraphConcept, Graph>();
  checkConcept<MappableUGraphConcept, Graph>();

  checkConcept<UGraph, Graph>();
  checkConcept<ErasableUGraph, Graph>();

  checkConcept<UGraph, ListUGraph>();
  checkConcept<ErasableUGraph, ListUGraph>();

  checkConcept<UGraph, SmartUGraph>();
  checkConcept<ExtendableUGraph, SmartUGraph>();

  checkConcept<UGraph, FullUGraph>();

  checkConcept<UGraph, UGraph>();

  checkConcept<UGraph, GridGraph>();
}

template <typename Graph>
void check_item_counts(Graph &g, int n, int e) {
  int nn = 0;
  for (typename Graph::NodeIt it(g); it != INVALID; ++it) {
    ++nn;
  }

  check(nn == n, "Wrong node number.");
  check(countNodes(g) == n, "Wrong node number.");

  int ee = 0;
  for (typename Graph::EdgeIt it(g); it != INVALID; ++it) {
    ++ee;
  }

  check(ee == 2*e, "Wrong edge number.");
  check(countEdges(g) == 2*e, "Wrong edge number.");

  int uee = 0;
  for (typename Graph::UEdgeIt it(g); it != INVALID; ++it) {
    ++uee;
  }

  check(uee == e, "Wrong uedge number.");
  check(countUEdges(g) == e, "Wrong uedge number.");
}

template <typename Graph>
void print_items(Graph &g) {

  typedef typename Graph::NodeIt NodeIt;
  typedef typename Graph::UEdgeIt UEdgeIt;
  typedef typename Graph::EdgeIt EdgeIt;

  std::cout << "Nodes" << std::endl;
  int i=0;
  for(NodeIt it(g); it!=INVALID; ++it, ++i) {
    std::cout << "  " << i << ": " << g.id(it) << std::endl;
  }

  std::cout << "UEdge" << std::endl;
  i=0;
  for(UEdgeIt it(g); it!=INVALID; ++it, ++i) {
    std::cout << "  " << i << ": " << g.id(it) 
	 << " (" << g.id(g.source(it)) << ", " << g.id(g.target(it)) 
	 << ")" << std::endl;
  }

  std::cout << "Edge" << std::endl;
  i=0;
  for(EdgeIt it(g); it!=INVALID; ++it, ++i) {
    std::cout << "  " << i << ": " << g.id(it)
	 << " (" << g.id(g.source(it)) << ", " << g.id(g.target(it)) 
	 << ")" << std::endl;
  }

}

template <typename Graph>
void check_graph() {

  typedef typename Graph::Node Node;
  typedef typename Graph::UEdge UEdge;
  typedef typename Graph::Edge Edge;
  typedef typename Graph::NodeIt NodeIt;
  typedef typename Graph::UEdgeIt UEdgeIt;
  typedef typename Graph::EdgeIt EdgeIt;

  Graph g;

  check_item_counts(g,0,0);

  Node
    n1 = g.addNode(),
    n2 = g.addNode(),
    n3 = g.addNode();

  UEdge
    e1 = g.addEdge(n1, n2),
    e2 = g.addEdge(n2, n3);

  // print_items(g);

  check_item_counts(g,3,2);
}

void checkGridGraph(const GridGraph& g, int w, int h) {
  check(g.width() == w, "Wrong width");
  check(g.height() == h, "Wrong height");

  for (int i = 0; i < w; ++i) {
    for (int j = 0; j < h; ++j) {
      check(g.col(g(i, j)) == i, "Wrong col");
      check(g.row(g(i, j)) == j, "Wrong row");
    }
  }
  
  for (int i = 0; i < w; ++i) {
    for (int j = 0; j < h - 1; ++j) {
      check(g.source(g.down(g(i, j))) == g(i, j), "Wrong down");
      check(g.target(g.down(g(i, j))) == g(i, j + 1), "Wrong down");
    }
    check(g.down(g(i, h - 1)) == INVALID, "Wrong down");
  }

  for (int i = 0; i < w; ++i) {
    for (int j = 1; j < h; ++j) {
      check(g.source(g.up(g(i, j))) == g(i, j), "Wrong up");
      check(g.target(g.up(g(i, j))) == g(i, j - 1), "Wrong up");
    }
    check(g.up(g(i, 0)) == INVALID, "Wrong up");
  }

  for (int j = 0; j < h; ++j) {
    for (int i = 0; i < w - 1; ++i) {
      check(g.source(g.right(g(i, j))) == g(i, j), "Wrong right");
      check(g.target(g.right(g(i, j))) == g(i + 1, j), "Wrong right");      
    }
    check(g.right(g(w - 1, j)) == INVALID, "Wrong right");    
  }

  for (int j = 0; j < h; ++j) {
    for (int i = 1; i < w; ++i) {
      check(g.source(g.left(g(i, j))) == g(i, j), "Wrong left");
      check(g.target(g.left(g(i, j))) == g(i - 1, j), "Wrong left");      
    }
    check(g.left(g(0, j)) == INVALID, "Wrong left");    
  }
}

int main() {
  check_concepts();

  check_graph<ListUGraph>();
  check_graph<SmartUGraph>();

  {
    FullUGraph g(5);
    check_item_counts(g, 5, 10);
  }

  {
    GridGraph g(5, 6);
    check_item_counts(g, 30, 49);
    checkGridGraph(g, 5, 6);
  }

  std::cout << __FILE__ ": All tests passed.\n";

  return 0;
}