package planr

import (
	"log"
	"os"
)

type Runner struct {
  adapters    []Adapter
}

func (r *Runner) RegisterAdapter(a Adapter) {
  r.adapters = append(r.adapters, a)
}

func (r Runner) adapterCfgs() []AdapterConfig {
  cgs := make([]AdapterConfig, len(r.adapters))
  
  for _, adapter := range r.adapters {
    cgs = append(cgs, adapter.Config())
  }

  return cgs
}

type TcTab map[string] []*TestCase

func (r Runner) buildTcLUT(tcs []TestCase) TcTab {
  m := make(TcTab, 0)

  for i := range tcs {
    tc := &tcs[i]
    nm := *tc.Config.Adapter
    m[nm] = append(m[nm], tc)
  }

  return m 
}

func (r Runner) checkConfig(tcs []TestCase) {
  for _, tc := range tcs {
    tc.Config.ensureSatisfied(tc.Path)
  }
}

func cdBuild(adapter Adapter) {
  dir := adapter.Config().Dir()

  if err := os.Chdir(dir); err != nil {
    log.Fatal(err)
  }
}

func (r Runner) build(tcs []TestCase) {
  r.checkConfig(tcs)

  tcTab := r.buildTcLUT(tcs)

  for _, adapter := range r.adapters {
    nm := adapter.Config().Name
    cdBuild(adapter)

    adapter.Build(tcTab[nm])
  }
}

func (r Runner) units(root string) []TestCase {
  return collectUnits(root, r.adapterCfgs())
}

func (r Runner) Build(root string) {
  units := r.units(root) 
  r.build(units)
}

func (r Runner) evaluate(tcs []TestCase) {
  tcTab := r.buildTcLUT(tcs)
  
  for _, adapter := range r.adapters {
    nm := adapter.Config().Name
    cdBuild(adapter)

    adapter.Evaluate(tcTab[nm])
  }
}

func (r Runner) Evaluate(root string) []TestCase {
  units := r.units(root)

  r.evaluate(units)

  return units
}