// -*- C++ -*-

#include <lemon/bits/graph_extender.h>

#include <lemon/concept/undir_graph.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 UndirGraphExtender<ListGraphBase> UndirListGraphBase;

  typedef IterableUndirGraphExtender<

    AlterableUndirGraphExtender<UndirListGraphBase> > IterableUndirListGraph;

  typedef MappableUndirGraphExtender<IterableUndirListGraph>

    MappableUndirListGraph;

  typedef ErasableUndirGraphExtender<

    ClearableUndirGraphExtender<

    ExtendableUndirGraphExtender<MappableUndirListGraph> > > Graph;

  checkConcept<BaseIterableUndirGraphConcept, Graph>();

  checkConcept<IterableUndirGraphConcept, Graph>();

  checkConcept<MappableUndirGraphConcept, Graph>();

  checkConcept<UndirGraph, Graph>();

  checkConcept<ErasableUndirGraph, Graph>();

  checkConcept<UndirGraph, UndirListGraph>();

  checkConcept<ErasableUndirGraph, UndirListGraph>();

  checkConcept<UndirGraph, UndirSmartGraph>();

  checkConcept<ExtendableUndirGraph, UndirSmartGraph>();

  checkConcept<UndirGraph, UndirFullGraph>();

  checkConcept<UndirGraph, UndirGraph>();

  checkConcept<UndirGraph, 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::UndirEdgeIt it(g); it != INVALID; ++it) {

    ++uee;

  }

  check(uee == e, "Wrong undir edge number.");

  check(countUndirEdges(g) == e, "Wrong undir edge number.");

}

template <typename Graph>

void print_items(Graph &g) {

  typedef typename Graph::NodeIt NodeIt;

  typedef typename Graph::UndirEdgeIt 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 << "UndirEdge" << 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::UndirEdge UEdge;

  typedef typename Graph::Edge Edge;

  typedef typename Graph::NodeIt NodeIt;

  typedef typename Graph::UndirEdgeIt 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<UndirListGraph>();

  check_graph<UndirSmartGraph>();

  {

    UndirFullGraph 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;

}