require 'test_helper'
require 'tag_hierarchy_builder'

class TagHierarchyBuilderTest < ActiveSupport::TestCase
  fixtures :tags, :tags_hierarchy, :tags_synonyms, :tags_transitive_hierarchy

  def hierarchy_blank?(options = {})
    except = [ options[:except] ].flatten.compact
    Tag.find(:all).all? { |tag| !except.include?(tag.name) || (tag.parents.empty? && tag.children.empty? && tag.synonyms.empty?) }.inspect
  end

  def test_dump_hierarchy
    hierarchy = TagHierarchyBuilder.dump_hierarchy
    hierarchy_fixture = [
      ['Nature', 'Animals', 'Domestic Animals', 'Cat', 'Kitten'],
      ['Nature', 'Animals', 'Horse'],
      ['People', 'Children'],
      ['People', 'Me'],
      ['People', 'Nude'],
    ]

    assert_equal hierarchy, hierarchy_fixture
  end

  def test_dump_synonyms
    synonyms = TagHierarchyBuilder.dump_synonyms
    synonyms_fixture = [
      ['Cat', 'Kitty', 'Pussy'],
      ['Horse', 'Racehorse'],
      ['Question', 'Problem']
    ]

    assert_equivalent synonyms, synonyms_fixture
  end

  def test_dump_orphans
    orphans = TagHierarchyBuilder.dump_orphans
    orphans_fixture = ['Bad', 'Crazy animal', 'Very good']

    assert_equivalent orphans, orphans_fixture
  end

  def test_rebuild_hierarchy_with_empty_specification
    TagHierarchyBuilder.rebuild_hierarchy([''])
    assert hierarchy_blank?
  end

  def test_rebuild_hierarchy_with_only_comments_in_specification
    TagHierarchyBuilder.rebuild_hierarchy(['#Comment one', '    # Comment two'])
    assert hierarchy_blank?
  end

  def test_rebuild_hierarchy_with_synonyms
    TagHierarchyBuilder.rebuild_hierarchy(['   Cat   =   Racehorse   =   Problem  '])

    assert_equal Tag.find_with_like_by_name("Cat").synonyms.map(&:name).sort,
                 ['Racehorse', 'Problem'].sort

    assert hierarchy_blank?(:except => 'Cat')
  end

  def test_rebuild_hierarchy_with_synonyms_and_parents
    TagHierarchyBuilder.rebuild_hierarchy(['Cat = Racehorse = Problem', '   Apple  /  Cocoa /   Kitty  ', 'Apple / Kitty'])

    assert_equal Tag.find_with_like_by_name("Cat").synonyms.map(&:name).sort,
                 ['Racehorse', 'Problem'].sort

    assert_equal Tag.find_with_like_by_name("Cocoa").parents.map(&:name).sort,
                ['Apple'].sort
    assert_equal Tag.find_with_like_by_name("Kitty").parents.map(&:name).sort,
                ['Apple', 'Cocoa'].sort
    assert hierarchy_blank?(:except => ['Cat', 'Kitty', 'Apple', 'Cocoa'])
  end


  def test_rebuild_hierarchy_with_invalid_lines
    assert_raise(TagHierarchyBuilder::WrongSpecificationSyntax) { TagHierarchyBuilder.rebuild_hierarchy(['/ HEY / YO '])}
    assert_raise(TagHierarchyBuilder::WrongSpecificationSyntax) { TagHierarchyBuilder.rebuild_hierarchy(['HEY / YO/'])}

    assert_raise(TagHierarchyBuilder::WrongSpecificationSyntax) { TagHierarchyBuilder.rebuild_hierarchy([' / HEY / YO '])}
    assert_raise(TagHierarchyBuilder::WrongSpecificationSyntax) { TagHierarchyBuilder.rebuild_hierarchy(['HEY / YO/ '])}

    assert_raise(TagHierarchyBuilder::WrongSpecificationSyntax) { TagHierarchyBuilder.rebuild_hierarchy(['= HEY = YO '])}
    assert_raise(TagHierarchyBuilder::WrongSpecificationSyntax) { TagHierarchyBuilder.rebuild_hierarchy(['HEY = YO='])}

    assert_raise(TagHierarchyBuilder::WrongSpecificationSyntax) { TagHierarchyBuilder.rebuild_hierarchy([' = HEY = YO '])}
    assert_raise(TagHierarchyBuilder::WrongSpecificationSyntax) { TagHierarchyBuilder.rebuild_hierarchy(['HEY = YO= '])}
  end

  def test_rebuild_hierarchy_with_cycles
    assert_raise(Tag::HierarchyCycle) { TagHierarchyBuilder.rebuild_hierarchy(['Apple/Cocoa/Banana/Apple', 'Apple/Delta'])}
    assert_raise(Tag::HierarchyCycle) { TagHierarchyBuilder.rebuild_hierarchy(['Apple/Apple'])}

    assert_raise(Tag::HierarchyCycle) { TagHierarchyBuilder.rebuild_hierarchy(['Apple/Cocoa/Banana/Apple'])}
    assert_raise(Tag::HierarchyCycle) { TagHierarchyBuilder.rebuild_hierarchy(['Apple/Cocoa/Banana/Apple/Cocoa'])}
  end

  def test_transitive_hierarchy_rebuilding_does_not_breaks_fixture
    tags = Tag.find(:all)
    old_hierarchy = tags.inject({}) { |memo, tag| memo[tag] = tag.transitive_children.find(:all).sort_by(&:name); memo }

    TagHierarchyBuilder.rebuild_transitive_closure

    tags = Tag.find(:all)
    new_hierarchy = tags.inject({}) { |memo, tag| memo[tag] = tag.transitive_children.find(:all).sort_by(&:name); memo }

    assert_equal old_hierarchy, new_hierarchy
  end
end