# encoding: UTF-8

# Copyright 2011-2015 innoQ Deutschland GmbH
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#     http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.

require File.join(File.expand_path(File.dirname(__FILE__)), '../test_helper')

class ConceptsMovementControllerTest < ActionController::TestCase
  require 'authlogic/test_case'

  setup do
    activate_authlogic

    @admin = User.create! do |u|
      u.forename = 'Test'
      u.surname = 'User'
      u.email = 'admin@iqvoc'
      u.password = 'omgomgomg'
      u.password_confirmation = 'omgomgomg'
      u.role = 'administrator'
      u.active = true
    end

    # Concept hierarchy for testing
    #
    # + Achievement Hobbies
    #   - Air Sport
    # + Sports
    #
    @air_sports = Concept::SKOS::Base.new.tap do |c|
      RDFAPI.devour c, 'skos:prefLabel', '"Air sports"@en'
      c.publish
      c.save
    end
    @achievement_hobbies = Concept::SKOS::Base.new(top_term: true).tap do |c|
      RDFAPI.devour c, 'skos:prefLabel', '"Achievement hobbies"@en'
      RDFAPI.devour c, 'skos:narrower', @air_sports
      c.publish
      c.save
    end
    @sports = Concept::SKOS::Base.new(top_term: true).tap do |c|
      RDFAPI.devour c, 'skos:prefLabel', '"Sports"@en'
      c.publish
      c.save
    end
  end

  def after_setup
    test_setup
  end

  test 'unauthorized node movement request' do
    patch :move, params: {
      lang: 'en',
      origin: @air_sports.origin,
      tree_action: 'move',
      moved_node_id: @air_sports.id,
      old_parent_node_id: @achievement_hobbies.id,
      new_parent_node_id: @sports.id
    }
    assert_response 401
  end

  test 'bad node movement request' do
    patch :move, params: { lang: 'en', origin: @air_sports.origin }
    assert_response 400
  end

  test 'concept movement request' do
    UserSession.create(@admin)

    # Move concept:
    #
    # + Achievement Hobbies
    # + Sports
    #   - Air Sport
    #
    patch :move, params: {
      lang: 'en',
      origin: @air_sports.origin,
      tree_action: 'move',
      moved_node_id: @air_sports.id,
      old_parent_node_id: @achievement_hobbies.id,
      new_parent_node_id: @sports.id
    }
    assert_response 200

    # reload concepts
    [@achievement_hobbies, @air_sports, @sports].each(&:reload)

    # assign new concepts versions
    @air_sports_version = Iqvoc::Concept.base_class.by_origin(@air_sports.origin).unpublished.last

    assert @achievement_hobbies.published?
    assert @sports.published?
    refute @air_sports_version.published?

    assert_equal 1, @achievement_hobbies.rev
    assert_equal 1, @sports.rev
    assert_equal 2, @air_sports_version.rev

    assert_equal @air_sports_version.published_version_id, @air_sports.id

    # test relations
    assert_equal 1, @achievement_hobbies.narrower_relations.size
    assert_equal 1, @achievement_hobbies.narrower_relations.published.size
    assert_equal 1, @air_sports_version.broader_relations.size
    assert_equal 1, @air_sports_version.broader_relations.published.size
    assert_equal @air_sports_version.broader_relations.first.target, @sports

    @air_sports_version.publish
    assert_equal 1, @achievement_hobbies.narrower_relations.size
    assert_equal 1, @achievement_hobbies.narrower_relations.published.size
    assert_equal 1, @air_sports_version.broader_relations.size
    assert_equal 1, @air_sports_version.broader_relations.published.size
  end

  test 'concept movement with unpublished participants' do
    UserSession.create(@admin)

    # create unpublished concepts
    @air_sports = Concept::SKOS::Base.new.tap do |c|
      RDFAPI.devour c, 'skos:prefLabel', '"Air sports"@en'
      c.save
    end
    @achievement_hobbies = Concept::SKOS::Base.new(top_term: true).tap do |c|
      RDFAPI.devour c, 'skos:prefLabel', '"Achievement hobbies"@en'
      RDFAPI.devour c, 'skos:narrower', @air_sports
      c.save
    end
    @sports = Concept::SKOS::Base.new(top_term: true).tap do |c|
      RDFAPI.devour c, 'skos:prefLabel', '"Sports"@en'
      c.save
    end

    patch :move, params: {
      lang: 'en',
      origin: @air_sports.origin,
      tree_action: 'move',
      moved_node_id: @air_sports.id,
      old_parent_node_id: @achievement_hobbies.id,
      new_parent_node_id: @sports.id
    }
    assert_response 200

    # reload concepts
    [@achievement_hobbies, @air_sports, @sports].each(&:reload)

    # assign new concepts versions
    @achievement_hobbies_version = Iqvoc::Concept.base_class.by_origin(@achievement_hobbies.origin).unpublished.last
    @sports_version = Iqvoc::Concept.base_class.by_origin(@sports.origin).unpublished.last
    @air_sports_version = Iqvoc::Concept.base_class.by_origin(@air_sports.origin).unpublished.last

    # all new concepts are unpublished
    refute @air_sports_version.published?
    refute @sports_version.published?
    refute @achievement_hobbies_version.published?

    assert_equal @air_sports_version.rev, 1
    assert_equal @sports_version.rev, 1
    assert_equal @achievement_hobbies_version.rev, 1

    # modified concept are the already existing concepts
    assert_equal @achievement_hobbies, @achievement_hobbies_version
    assert_equal @sports, @sports_version
    assert_equal @air_sports, @air_sports_version

    # test relations
    assert_equal 0, @achievement_hobbies_version.narrower_relations.size

    assert_equal 1, @sports_version.narrower_relations.size
    assert_equal @sports_version.narrower_relations.first.target, @air_sports_version

    assert_equal 1, @air_sports_version.broader_relations.size
    assert_equal @air_sports_version.broader_relations.first.target, @sports_version
  end

  test 'top term movement' do
    UserSession.create(@admin)

    # move achievement_hobbies (includung childs) to sports
    patch :move, params: {
      lang: 'en',
      origin: @achievement_hobbies.origin,
      tree_action: 'move',
      moved_node_id: @achievement_hobbies.id,
      # old_parent_node_id: '', a top_term has no parent concept
      new_parent_node_id: @sports.id
    }
    assert_response 200

    # reload concepts
    [@achievement_hobbies, @air_sports, @sports].each(&:reload)

    # assign new concepts versions
    @achievement_hobbies_version = Iqvoc::Concept.base_class.by_origin(@achievement_hobbies.origin).unpublished.last

    assert @sports.published?
    refute @achievement_hobbies_version.published?

    # is not a top_term anymore
    assert_equal @achievement_hobbies_version.top_term?, false

    # test relations
    assert_equal 1, @sports.narrower_relations.size
    assert_equal 0, @sports.narrower_relations.published.size
    assert_equal @sports.narrower_relations.first.target, @achievement_hobbies_version

    assert_equal 1, @achievement_hobbies_version.broader_relations.size
    assert_equal @achievement_hobbies_version.broader_relations.first.target, @sports

    assert_equal 1, @achievement_hobbies_version.narrower_relations.size
    assert_equal 1, @achievement_hobbies_version.narrower_relations.published.size
    assert_equal @achievement_hobbies_version.narrower_relations.first.target, @air_sports

    @achievement_hobbies_version.publish
  end

  test 'concept to top movement' do
    UserSession.create(@admin)

    # move air_sports to top concepts
    patch :move, params: {
      lang: 'en',
      origin: @air_sports.origin,
      tree_action: 'move',
      moved_node_id: @air_sports.id,
      old_parent_node_id: @sports.id
      # new_parent_node_id: '', a top_term has no parent concept
    }
    assert_response 200

    # reload concepts
    [@achievement_hobbies, @air_sports, @sports].each(&:reload)

    # assign new concepts versions
    @air_sports_version = Iqvoc::Concept.base_class.by_origin(@air_sports.origin).unpublished.last

    assert @achievement_hobbies.published?
    assert @sports.published?
    refute @air_sports_version.published?

    # is now a top_term
    assert @air_sports_version.top_term?

    @air_sports_version.publish
    # no relations after publish (only top terms)
    assert 0, @air_sports_version.relations.size
    assert 0, @achievement_hobbies.relations.size
    assert 0, @sports.relations.size
  end

  private

  def test_setup
    assert @achievement_hobbies.top_term?
    assert @sports.top_term?
    refute @air_sports.top_term?
    assert_equal 1, @achievement_hobbies.narrower_relations.size
    assert_equal @achievement_hobbies.id, @air_sports.broader_relations.first.target.id
    assert_equal 1, @air_sports.broader_relations.size
    assert_equal @air_sports.id, @achievement_hobbies.narrower_relations.first.target.id
    assert_equal 0, @sports.relations.size
  end

end