# encoding: UTF-8

# Copyright 2011-2014 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 ConceptMovementTest < ActionController::TestCase
  require 'authlogic/test_case'

  setup do
    @controller = ConceptsController.new

    activate_authlogic

    @admin = User.create! do |u|
      u.forename = 'Test'
      u.surname = 'User'
      u.email = 'testuser@iqvoc.local'
      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|
      Iqvoc::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|
      Iqvoc::RDFAPI.devour c, 'skos:prefLabel', '"Achievement hobbies"@en'
      Iqvoc::RDFAPI.devour c, 'skos:narrower', @air_sports
      c.publish
      c.save
    end
    @sports = Concept::SKOS::Base.new(top_term: true).tap do |c|
      Iqvoc::RDFAPI.devour c, 'skos:prefLabel', '"Sports"@en'
      c.publish
      c.save
    end

  end

  test 'unauthorized node movement request' do
    patch :move,
          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, lang: 'en', origin: @air_sports.origin
    assert_response 400
  end

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

    assert_equal 1, @achievement_hobbies.narrower_relations.size
    assert_equal 0, @sports.narrower_relations.size
    assert_equal @air_sports.id, @achievement_hobbies.narrower_relations.first.target.id

    # Move concept:
    #
    # + Achievement Hobbies
    # + Sports
    #   - Air Sport
    #
    patch :move,
          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

    # 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, 2
    assert_equal @sports_version.rev, 2
    assert_equal @achievement_hobbies_version.rev, 2

    assert_equal @air_sports_version.published_version_id, @air_sports.id

    # 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 'concept movement with unpublished participants' do
    UserSession.create(@admin)

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

    patch :move,
          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

    # 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)

    assert_equal @achievement_hobbies.top_term, true
    assert_equal @sports.top_term, true

    # move achievement_hobbies (includung childs) to sports
    patch :move,
          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

    # 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

    # all new concepts are unpublished
    refute @sports_version.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_version.narrower_relations.size
    assert_equal @sports_version.narrower_relations.first.target, @achievement_hobbies_version

    assert_equal 1, @sports_version.narrower_relations.size
    assert_equal @sports_version.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_version

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