#
# File::       test_AbstractProcessor.rb
# Author::     wkm
# Copyright::  2009
# License::    GPL
#
# Unit tests for the AbstractProcessor
#

$:.unshift File.join(File.dirname(__FILE__),'..','lib')

require 'test/unit'
require 'sitefuel/SiteFuelLogger'
require 'sitefuel/processors/AbstractProcessor'

require 'sitefuel/extensions/SymbolComparison'

include SiteFuel
include SiteFuel::Processor

class TestAProcessor < AbstractProcessor
  def filter_a; end
  def filter_b; end
  def filter_c; end
  def filter_long_name; end

  def self.file_patterns
    [".testA", ".test-a", ".test.a", "_test_a"]
  end

  def self.default_filterset
    :normal
  end

  def self.filterset_normal
    [:a, :b]
  end

  def self.filterset_heavy
    [:a, :b, :c]
  end

  def self.filterset_light
    [:a]
  end
end

class TestBProcessor < AbstractProcessor
  def self.file_patterns
    [/tpb.*fitz/, ".tpb"]
  end
end

class TestAbstractProcessor < Test::Unit::TestCase

  def test_filters
    assert_equal [:a, :b, :c, :long_name], TestAProcessor.filters

    ta = TestAProcessor.new
    assert_nil ta.run_filter(:a)
    assert_nil ta.run_filter(:b)
    assert_nil ta.run_filter(:long_name)

    assert_raise UnknownFilter do
      ta.run_filter(:foo)
    end

    assert_equal [], TestBProcessor.filters
  end

  def test_file_patterns_01
    assert TestAProcessor.processes_file?(".testA")
    assert TestAProcessor.processes_file?(".test-a")
    assert TestAProcessor.processes_file?(".test.a")
    assert TestAProcessor.processes_file?("_test_a")

    assert TestAProcessor.processes_file?("foo.testA")
    assert TestAProcessor.processes_file?("foo.testa")
    assert TestAProcessor.processes_file?("foo.test-a")
    assert TestAProcessor.processes_file?("foo.test.a")
    assert TestAProcessor.processes_file?("foo_test_a")

    assert_equal false, TestAProcessor.processes_file?("footestA")
    assert_equal false, TestAProcessor.processes_file?(":")
    assert_equal false, TestAProcessor.processes_file?("testA")
    assert_equal false, TestAProcessor.processes_file?("XtestA")
    assert_equal false, TestAProcessor.processes_file?("XtestXA")
  end

  def test_file_patterns_02
    # file extension tests
    assert TestBProcessor.processes_file?("test.tpb")
    assert TestBProcessor.processes_file?("foo.tpb")

    # regexp file name test
    assert TestBProcessor.processes_file?("tpb.foofoofitz")
    assert_equal false, TestBProcessor.processes_file?("TPB.foofoofitz")
  end

  def test_processor_names
    assert_equal "TestA", TestAProcessor.processor_name
    assert_equal "TestB", TestBProcessor.processor_name
  end

  def test_processor_logging
    log = SiteFuelLogger.instance
    proc = TestAProcessor.new

    log.level = Logger::UNKNOWN

    # test fatal messages
    fatal = log.fatal_count
    proc.fatal 'Fatal error: fatal errors don\'t cause program halt.'
    assert_equal fatal+1, log.fatal_count

    # test error messages
    error = log.error_count
    proc.error 'Error: brain malfunction: cannot find Creativity.'
    assert_equal error+1, log.error_count

    # test warning messages
    warn = log.warn_count
    proc.warn 'Warning: impending doom...!'
    assert_equal warn+1, log.warn_count

    # test info messages
    info = log.info_count
    proc.info 'It\'s 77oC outside.'
    assert_equal info+1, log.info_count

    # test debugging messages
    debug = log.debug_count
    proc.debug 'testing the value of "i" :P'
    assert_equal debug+1, log.debug_count
  end

  # filter set testing
  def test_filtersets
    assert_equal [:heavy, :light, :normal, :ignore].sort, TestAProcessor.filtersets.sort
    assert_equal :normal, TestAProcessor.default_filterset

    assert_equal [:a,:b], TestAProcessor.filters_in_filterset(:normal)
    assert_equal [:a,:b,:c], TestAProcessor.filters_in_filterset(:heavy)
    assert_equal [:a], TestAProcessor.filters_in_filterset(:light)
  end

  # execution list testing
  def test_execution_list
    a = TestAProcessor.new

    # with normal filters
    assert_equal [:b], a.add_filter(:b)
    assert_equal [:b, :a], a.add_filter(:a)
    assert_equal [:b, :a], a.execution_list

    assert_equal [:b, :a, :c], a.add_filter(:c)
    assert_equal [:b, :a, :c], a.execution_list

    assert_equal [:a, :c], a.drop_filter(:b)
    assert_equal [:c], a.drop_filter(:a)
    assert_equal [], a.drop_filter(:c)

    assert_equal [:c], a.add_filter(:c)
    assert_equal [:c, :b], a.add_filter(:b)

    assert_equal [], a.clear_filters
    assert_equal [], a.execution_list


    # test filter sets
    assert_equal [:a,:b], a.add_filterset(:normal)
    assert_equal [], a.clear_filters
    assert_equal [], a.execution_list

    assert_equal [:a,:b,:c], a.add_filterset(:heavy)
    assert_equal [], a.clear_filters
    assert_equal [], a.execution_list

    # test filters *and* filter sets
    assert_equal [:c], a.add_filter(:c)
    assert_equal [:c, :a], a.add_filterset(:light)
    assert_equal [], a.clear_filters
    assert_equal [], a.execution_list

    assert_equal [:a,:b], a.add_filterset(:normal)
    assert_equal [:a,:b,:c], a.add_filter(:c)
    assert_equal [], a.clear_filters
    assert_equal [], a.execution_list
  end

  # configuration testing
  def test_config_filters
    a = TestAProcessor.new

    a.configure({:filters => :a})
    assert_equal [:a], a.execution_list

    # test that filters are cleared before being set
    a.configure({:filters => :b})
    assert_equal [:b], a.execution_list

    # test that filters aren't changed if they're not set
#    a.configure({})
#    assert_equal [:b], a.execution_list

    a.configure({:filters => [:a]})
    assert_equal [:a], a.execution_list

    a.configure({:filters => [:a, :b]})
    assert_equal [:a,:b], a.execution_list

    a.configure({:filtersets => [:light]})
    assert_equal [:a], a.execution_list

    a.configure({:filtersets => :normal})
    assert_equal [:a,:b], a.execution_list

    # note: since we're doing #each_pair on a hash, order is not guaranteed,
    # hence the #sort
    a.configure({:filters => [:c], :filtersets => :light})
    assert_equal [:c,:a].sort, a.execution_list.sort

    a.configure({:filtersets => :ignore})
    assert_equal [], a.execution_list
  end

  def test_config_resource_name
    a = TestAProcessor.new
    a.configure :resource_name => 'foo.file'
    assert_equal 'foo.file', a.resource_name
  end

  # test attempts to add unknown filters/filtersets
  def test_config_filters_negative

  end
end