iqvoc 4.3.3 → 4.4.0

data/lib/engine_tasks/setup.rake

@@ -1,10 +0,0 @@
-namespace :iqvoc do
-  namespace :setup do
-    desc "Generate secret token initializer"
-    task :generate_secret_token do
-      require 'iqvoc'
-
-      Iqvoc.generate_secret_token
-    end
-  end
-end

data/lib/iqvoc/versioning.rb

@@ -1,151 +0,0 @@
-# encoding: UTF-8
-
-# Copyright 2011-2013 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.
-
-module Iqvoc
-  module Versioning
-
-    extend ActiveSupport::Concern
-
-    included do
-      # ********* Relations
-
-      belongs_to :published_version, :foreign_key => 'published_version_id', :class_name => name
-
-      belongs_to :locking_user, :foreign_key => 'locked_by', :class_name => 'User'
-    end
-
-    module ClassMethods
-      # ********* Scopes
-
-      def by_origin(origin)
-         where(:origin => origin)
-       end
-
-       def published
-         where(arel_table[:published_at].not_eq(nil))
-       end
-
-       def unpublished
-         where(:published_at => nil)
-       end
-
-       # The following method returns all objects which should be selectable by the editor
-       def editor_selectable
-         where(
-           arel_table[:published_at].not_eq(nil).or( # == published (is there a way to OR combine two scopes? `published OR where(...)`)
-             arel_table[:published_at].eq(nil).and(arel_table[:published_version_id].eq(nil)) # this are all unpublished with no published version
-           )
-         )
-       end
-
-       def in_edit_mode
-         where(arel_table[:locked_by].not_eq(nil))
-       end
-
-       def unpublished_or_follow_up
-         where(
-           arel_table[:published_at].eq(nil).or(
-             arel_table[:follow_up].not_eq(nil)
-           )
-         )
-       end
-
-       def unsynced
-         where(:rdf_updated_at => nil)
-       end
-
-       def include_to_deep_cloning(*association_names)
-         (@@include_to_deep_cloning ||= {})[self] ||= []
-         association_names.each do |association_name|
-           @@include_to_deep_cloning[self] << association_name
-         end
-       end
-
-       def includes_to_deep_cloning
-         (@@include_to_deep_cloning ||= {})[self] ||= []
-         (@@include_to_deep_cloning.keys & self.ancestors).map{|c| @@include_to_deep_cloning[c]}.flatten.compact
-       end
-    end
-
-    # ********* Instance methods
-
-    def branch(user)
-      new_version = self.dup(:include => self.class.includes_to_deep_cloning)
-      new_version.lock_by_user(user.id)
-      new_version.increment(:rev)
-      new_version.published_version_id = self.id
-      new_version.unpublish
-      new_version.send(:"#{Iqvoc.change_note_class_name.to_relation_name}").build(
-        :language => I18n.locale.to_s,
-        :annotations_attributes => [
-          { :namespace => "dct", :predicate => "creator", :value => user.name },
-          { :namespace => "dct", :predicate => "modified", :value => DateTime.now.to_s }
-        ])
-      new_version
-    end
-
-    def publish
-      write_attribute(:published_at, Time.now)
-      write_attribute(:to_review, nil)
-      write_attribute(:published_version_id, nil)
-    end
-
-    def unpublish
-      write_attribute(:published_at, nil)
-    end
-
-    def published?
-      read_attribute(:published_at).present?
-    end
-
-    # Editor selectable if published or no published version exists (before
-    # first publication)
-    def editor_selectable?
-      published? || read_attribute(:published_version_id).blank?
-    end
-
-    def lock_by_user(user_id)
-      write_attribute(:locked_by, user_id)
-    end
-
-    def locked?
-      locked_by?
-    end
-
-    def state
-      if published?
-        I18n.t("txt.common.state.published")
-      elsif !published? && in_review?
-        I18n.t("txt.common.state.in_review")
-      elsif !published? && !in_review?
-        I18n.t("txt.common.state.checked_out")
-      end
-    end
-
-    def unlock
-      write_attribute(:locked_by, nil)
-    end
-
-    def in_review?
-      read_attribute(:to_review).present?
-    end
-
-    def to_review
-      write_attribute(:to_review, true)
-    end
-
-  end
-end

data/lib/tasks/heroku.rake

@@ -1,14 +0,0 @@
-namespace :heroku do
-  task :config do
-    require 'securerandom'
-
-    HEROKU_CONFIG = %W(
-      HEROKU=true
-      RACK_ENV=heroku
-      RAILS_ENV=heroku
-      SECRET_TOKEN=#{SecureRandom.hex(64)}
-    )
-
-    system "heroku config:add #{HEROKU_CONFIG.join(' ')}"
-  end
-end

data/lib/tasks/setup.rake

@@ -1,7 +0,0 @@
-namespace :setup do
-  task :generate_secret_token do
-    require 'iqvoc'
-
-    Iqvoc.generate_secret_token
-  end
-end

data/lib/templates/erb/scaffold/_form.html.erb

@@ -1,13 +0,0 @@
-<%%= simple_form_for(@<%= singular_table_name %>) do |f| %>
-  <%%= f.error_notification %>
-
-  <div class="form-inputs">
-  <%- attributes.each do |attribute| -%>
-    <%%= f.<%= attribute.reference? ? :association : :input %> :<%= attribute.name %> %>
-  <%- end -%>
-  </div>
-
-  <div class="form-actions">
-    <%%= f.button :submit %>
-  </div>
-<%% end %>

data/test/capybara_helper.rb

@@ -1,31 +0,0 @@
-require 'capybara/dsl'
-require 'factory_girl'
-
-module ActionDispatch
-  class IntegrationTest
-    include Capybara::DSL
-
-    Capybara.javascript_driver = :webkit
-
-    def login(role = nil)
-      logout
-      user(role)
-      visit new_user_session_path(:lang => :de)
-      fill_in "E-Mail", :with => user.email
-      fill_in "Passwort", :with => user.password
-      click_button "Anmelden"
-    end
-
-    def logout
-      visit dashboard_path(:lang => :de)
-      click_link_or_button "Abmelden" if page.has_link?("Abmelden")
-      @user.try(:destroy)
-      @user = nil
-    end
-
-    def user(role = nil)
-      @user ||= FactoryGirl.create(:user, :role => (role || User.default_role))
-    end
-
-  end
-end

data/test/factories.rb

@@ -1,75 +0,0 @@
-# encoding: UTF-8
-
-# Copyright 2011-2013 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.
-
-FactoryGirl.define do
-  factory :concept, :class => Iqvoc::Concept.base_class do |c|
-    c.sequence(:origin) { |n| "_000000#{n}" }
-    c.published_at 3.days.ago
-    c.top_term true
-    c.pref_labelings { |pref_labelings| [pref_labelings.association(:pref_labeling)] }
-    c.narrower_relations { |narrower_relations| [narrower_relations.association(:narrower_relation)] }
-  end
-
-  factory :collection, :class => Iqvoc::Collection.base_class do |c|
-    c.sequence(:origin) { |n| "_100000#{n}" }
-    c.published_at 3.days.ago
-    c.labelings { |labelings| [labelings.association(:pref_labeling)] }
-  end
-
-  factory :stupid_broader_relation, :class => Iqvoc::Concept.broader_relation_class do |rel|
-  end
-
-  factory :narrower_relation, :class => Iqvoc::Concept.broader_relation_class.narrower_class do |rel|
-    rel.target {|target|
-      target.association(:concept, :top_term => false, :broader_relations => [], :narrower_relations => [], :pref_labelings => [
-          FactoryGirl.create(:pref_labeling, :target => FactoryGirl.create(:pref_label, :value => 'Some narrower relation'))
-        ])
-    }
-    rel.after(:create) { |new_relation| FactoryGirl.create(:stupid_broader_relation, :owner => new_relation.target, :target => new_relation.owner) }
-  end
-
-  factory :pref_labeling, :class => Iqvoc::Concept.pref_labeling_class do |lab|
-    lab.target { |target| target.association(:pref_label) }
-  end
-
-  factory :alt_labeling, :class => Iqvoc::Concept.further_labeling_classes.first.first do |lab|
-    lab.target { |target| target.association(:alt_label) }
-  end
-
-  sequence(:label_number) { |n| n + 1 }
-
-  factory :label, :class => Label::Base do |l|
-    l.language Iqvoc::Concept.pref_labeling_languages.first
-    l.published_at 2.days.ago
-    l.value "Tree #{FactoryGirl.generate(:label_number)}"
-  end
-
-  factory :pref_label, :parent => :label, :class => Iqvoc::Concept.pref_labeling_class.label_class do |l|
-  end
-
-  factory :alt_label, :parent => :label, :class => Labeling::SKOS::AltLabel.label_class do |l|
-  end
-
-  factory :user do |u|
-    u.forename 'Test'
-    u.surname 'User'
-    u.email 'testuser@iqvoc.local'
-    u.password 'omgomgomg'
-    u.password_confirmation 'omgomgomg'
-    u.role 'reader'
-    u.active true
-  end
-end

data/test/functional/hierarchy_test.rb

@@ -1,408 +0,0 @@
-# encoding: UTF-8
-
-# Copyright 2011-2013 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 HierarchyTest < ActionController::TestCase
-
-  setup do
-    @controller = HierarchyController.new
-
-    # create a concept hierarchy
-    concepts = YAML.load <<-EOS
-root:
-  foo:
-  bar:
-    alpha:
-    bravo:
-      uno:
-      dos:
-        lorem:
-        ipsum:
-    EOS
-    @rel_class = Iqvoc::Concept.broader_relation_class.narrower_class
-    @concepts = create_hierarchy(concepts, @rel_class, {})
-    @concepts["root"].update_attribute("top_term", true)
-  end
-
-  test "entire hierarchy" do
-    additional_concepts = YAML.load <<-EOS
-boot:
-  zoo:
-  car:
-    EOS
-    @concepts.merge! create_hierarchy(additional_concepts, @rel_class, {})
-    @concepts["boot"].update_attribute("top_term", true)
-
-    get :index, { :lang => "en", :format => "ttl" }
-    assert_response 200
-    %w(root foo bar alpha bravo uno dos boot zoo car).each do |id|
-      assert @response.body.include?(":#{id} a skos:Concept;"), "#{id} missing"
-    end
-    %w(lorem ipsum).each do |id|
-      assert (not @response.body.include?(":#{id} a skos:Concept;")),
-          "#{id} should not be present"
-    end
-
-    Iqvoc.config["performance.unbounded_hierarchy"] = true
-    get :index, { :lang => "en", :format => "ttl" }
-    assert_response 200
-
-    %w(root foo bar alpha bravo uno dos lorem ipsum boot zoo car).each do |id|
-      assert @response.body.include?(":#{id} a skos:Concept;"), "#{id} missing"
-    end
-  end
-
-  test "permission handling" do
-    get :show, :lang => "en", :format => "html", :root => "root"
-    entries = get_entries("ul.concept-hierarchy li")
-    assert_equal entries, ["Root"]
-    entries = get_entries("ul.concept-hierarchy li li")
-    assert_equal entries, ["Foo", "Bar"]
-    entries = get_entries("ul.concept-hierarchy li li li")
-    assert_equal entries, ["Alpha", "Bravo"]
-    entries = get_entries("ul.concept-hierarchy li li li li")
-    assert_equal entries, ["Uno", "Dos"]
-    entries = css_select("ul.concept-hierarchy li li li li li")
-    assert_equal entries.length, 0 # exceeded default depth
-
-    @concepts["bar"].update_attribute("published_at", nil)
-
-    get :show, :lang => "en", :format => "html", :root => "root"
-    entries = get_entries("ul.concept-hierarchy li")
-    assert_equal entries, ["Root"]
-    entries = get_entries("ul.concept-hierarchy li li")
-    assert_equal entries, ["Foo"]
-    entries = get_entries("ul.concept-hierarchy li li li")
-    assert_equal entries.length, 0
-  end
-
-  test "caching" do
-    params = { :lang => "en", :format => "ttl", :root => "root" }
-
-    # ETag generation & cache control
-
-    get :show, params
-    etag = @response.headers["ETag"]
-    assert_response 200
-    assert etag
-    assert @response.headers["Cache-Control"].include?("public")
-
-    get :show, params
-    assert_response 200
-    assert_equal etag, @response.headers["ETag"]
-
-    get :show, params.merge(:published => "0")
-    assert_response 200
-    assert @response.headers["Cache-Control"].include?("private")
-
-    # ETag keyed on params
-
-    get :show, params.merge(:depth => 4)
-    assert_response 200
-    assert_not_equal etag, @response.headers["ETag"]
-
-    get :show, params.merge(:published => 0)
-    assert_response 200
-    assert_not_equal etag, @response.headers["ETag"]
-
-    # ETag keyed on (any in-scope) concept modification
-
-    t0 = Time.now
-    t1 = Time.now + 30
-
-    dummy = create_concept("dummy", "Dummy", "en", false)
-    dummy.update_attribute("updated_at", t1)
-    get :show, params
-    assert_response 200
-    assert_equal etag, @response.headers["ETag"]
-
-    dummy.update_attribute("published_at", t0)
-    dummy.update_attribute("updated_at", t1)
-    get :show, params
-    assert_response 200
-    new_etag = @response.headers["ETag"]
-    assert_not_equal etag, new_etag
-
-    # conditional caching
-
-    @request.env["HTTP_IF_NONE_MATCH"] = new_etag
-    get :show, params
-    assert_response 304
-    assert_equal 0, @response.body.strip.length
-
-    @request.env["HTTP_IF_NONE_MATCH"] = "dummy"
-    get :show, params
-    assert_response 200
-  end
-
-  test "RDF representations" do
-    # Turtle
-
-    get :show, :lang => "en", :format => "ttl", :root => "root"
-    assert_response 200
-    assert_equal @response.content_type, "text/turtle"
-    assert @response.body =~ /:root[^\.]+skos:topConceptOf[^\.]+:scheme/m
-    assert @response.body =~ /:root[^\.]+skos:prefLabel[^\.]+"Root"@en/m
-    assert @response.body =~ /:root[^\.]+skos:narrower[^\.]+:bar/m
-    assert @response.body =~ /:root[^\.]+skos:narrower[^\.]+:foo/m
-    assert @response.body.include?(<<-EOS)
-:foo a skos:Concept;
-     skos:prefLabel "Foo"@en.
-    EOS
-    assert @response.body =~ /:bar[^\.]+skos:prefLabel[^\.]+"Bar"@en/m
-    assert @response.body =~ /:bar[^\.]+skos:narrower[^\.]+:alpha/m
-    assert @response.body =~ /:bar[^\.]+skos:narrower[^\.]+:bravo/m
-    assert @response.body.include?(<<-EOS)
-:alpha a skos:Concept;
-       skos:prefLabel "Alpha"@en.
-    EOS
-    assert @response.body =~ /:bravo[^\.]+skos:prefLabel[^\.]+"Bravo"@en/m
-    assert @response.body =~ /:bravo[^\.]+skos:narrower[^\.]+:uno/m
-    assert @response.body =~ /:bravo[^\.]+skos:narrower[^\.]+:dos/m
-    assert @response.body.include?(<<-EOS)
-:uno a skos:Concept;
-     skos:prefLabel "Uno"@en.
-    EOS
-    assert @response.body.include?(<<-EOS)
-:dos a skos:Concept;
-     skos:prefLabel "Dos"@en.
-    EOS
-
-    get :show, :lang => "en", :format => "ttl", :root => "lorem", :dir => "up"
-    assert_response 200
-    assert_equal @response.content_type, "text/turtle"
-    assert @response.body.include?(<<-EOS)
-:lorem a skos:Concept;
-       skos:prefLabel "Lorem"@en;
-       skos:broader :dos.
-    EOS
-    assert @response.body.include?(<<-EOS)
-:lorem a skos:Concept;
-       skos:prefLabel "Lorem"@en;
-       skos:broader :dos.
-    EOS
-    assert @response.body.include?(<<-EOS)
-:dos a skos:Concept;
-     skos:prefLabel "Dos"@en;
-     skos:broader :bravo.
-    EOS
-    assert @response.body.include?(<<-EOS)
-:bravo a skos:Concept;
-       skos:prefLabel "Bravo"@en;
-       skos:broader :bar.
-    EOS
-    assert @response.body.include?(<<-EOS)
-:bar a skos:Concept;
-     skos:prefLabel "Bar"@en.
-    EOS
-
-    # RDF/XML
-
-    get :show, :lang => "en", :format => "rdf", :root => "root"
-    assert_response 200
-    assert_equal @response.content_type, "application/rdf+xml"
-  end
-
-  test "root parameter handling" do
-    assert_raises ActionController::UrlGenerationError do
-      get :show, :format => "html"
-    end
-
-    get :show, :lang => "en", :format => "html", :root => "N/A"
-    assert_response 404
-    assert_equal flash[:error], "no concept matching root parameter"
-    entries = css_select("ul.concept-hierarchy li")
-    assert_equal entries.length, 0
-
-    get :show, :lang => "en", :format => "html", :root => "root"
-    assert_response 200
-    assert_equal flash[:error], nil
-    entries = get_entries("ul.concept-hierarchy li")
-    assert_equal entries.length, 1
-    assert_equal entries[0], "Root"
-
-    get :show, :lang => "en", :format => "html", :root => "root"
-    entries = get_entries("ul.concept-hierarchy li")
-    assert_equal entries, ["Root"]
-    entries = get_entries("ul.concept-hierarchy li li")
-    assert_equal entries, ["Foo", "Bar"]
-    entries = get_entries("ul.concept-hierarchy li li li")
-    assert_equal entries, ["Alpha", "Bravo"]
-    entries = get_entries("ul.concept-hierarchy li li li li")
-    assert_equal entries, ["Uno", "Dos"]
-    entries = css_select("ul.concept-hierarchy li li li li li")
-    assert_equal entries.length, 0 # exceeded default depth
-
-    get :show, :lang => "en", :format => "html", :root => "bravo"
-    entries = get_entries("ul.concept-hierarchy li")
-    assert_equal entries, ["Bravo"]
-    entries = get_entries("ul.concept-hierarchy li li")
-    assert_equal entries, ["Uno", "Dos"]
-    entries = get_entries("ul.concept-hierarchy li li li")
-    assert_equal entries, ["Lorem", "Ipsum"]
-    entries = css_select("ul.concept-hierarchy li li li li")
-    assert_equal entries.length, 0
-
-    get :show, :lang => "en", :format => "html", :root => "lorem"
-    entries = get_entries("ul.concept-hierarchy li")
-    assert_equal entries, ["Lorem"]
-    entries = css_select("ul.concept-hierarchy li li")
-    assert_equal entries.length, 0
-  end
-
-  test "depth handling" do
-    selector = "ul.concept-hierarchy li li li li li"
-
-    get :show, :lang => "en", :format => "html", :root => "root"
-    entries = css_select(selector)
-    assert_equal entries.length, 0 # default depth is 3
-
-    get :show, :lang => "en", :format => "html", :root => "root", :depth => 4
-    entries = css_select(selector)
-    assert_equal entries.length, 2
-
-    get :show, :lang => "en", :format => "html", :root => "root", :depth => 1
-    entries = get_entries("ul.concept-hierarchy li")
-    assert_equal entries, ["Root"]
-    entries = get_entries("ul.concept-hierarchy li li")
-    assert_equal entries, ["Foo", "Bar"]
-    entries = css_select("ul.concept-hierarchy li li li")
-    assert_equal entries.length, 0
-
-    get :show, :lang => "en", :format => "html", :root => "root", :depth => 5
-    assert_response 403
-    assert_equal flash[:error], "excessive depth"
-
-    get :show, :lang => "en", :format => "html", :root => "root", :depth => "invalid"
-    assert_response 400
-    assert_equal flash[:error], "invalid depth parameter"
-  end
-
-  test "direction handling" do
-    get :show, :lang => "en", :format => "html", :root => "root"
-    entries = get_entries("ul.concept-hierarchy li")
-    assert_equal entries, ["Root"]
-    entries = get_entries("ul.concept-hierarchy li li li li")
-    assert_equal entries, ["Uno", "Dos"]
-
-    get :show, :lang => "en", :format => "html", :root => "root", :dir => "up"
-    entries = get_entries("ul.concept-hierarchy li")
-    assert_equal entries, ["Root"]
-    entries = css_select("ul.concept-hierarchy li li")
-    assert_equal entries.length, 0
-
-    get :show, :lang => "en", :format => "html", :root => "lorem"
-    entries = get_entries("ul.concept-hierarchy li")
-    assert_equal entries, ["Lorem"]
-    entries = css_select("ul.concept-hierarchy li li")
-    assert_equal entries.length, 0
-
-    get :show, :lang => "en", :format => "html", :root => "lorem", :dir => "up"
-    entries = get_entries("ul.concept-hierarchy li")
-    assert_equal entries, ["Lorem"]
-    entries = get_entries("ul.concept-hierarchy li li li li")
-    assert_equal entries, ["Bar"]
-    entries = css_select("ul.concept-hierarchy li li li li li")
-    assert_equal entries.length, 0
-
-    get :show, :lang => "en", :format => "html", :root => "lorem", :dir => "up", :depth => 4
-    page.all("ul.concept-hierarchy li").
-        map { |node| node.native.children.first.text }
-    entries = get_entries("ul.concept-hierarchy li li li li li")
-    assert_equal entries, ["Root"]
-  end
-
-  test "siblings handling" do
-    get :show, :lang => "en", :format => "html", :root => "foo"
-    entries = get_all_entries("ul.concept-hierarchy li")
-    assert_equal entries, ["Foo"]
-
-    get :show, :lang => "en", :format => "html", :root => "foo", :siblings => "true"
-    entries = get_all_entries("ul.concept-hierarchy li")
-    assert_equal entries, ["Foo", "Bar"]
-
-    get :show, :lang => "en", :format => "html", :root => "lorem"
-    entries = get_all_entries("ul.concept-hierarchy li")
-    assert_equal entries, ["Lorem"]
-
-    get :show, :lang => "en", :format => "html", :root => "lorem", :dir => "up",
-        :siblings => "true"
-    entries = get_all_entries("ul.concept-hierarchy li")
-    assert_equal entries.length, 8
-    ["Lorem", "Ipsum", "Uno", "Dos", "Alpha", "Bravo", "Bar", "Foo"].each do |name|
-      assert entries.include?(name), "missing entry: #{name}"
-    end
-
-    get :show, :lang => "en", :format => "html", :root => "lorem", :dir => "up",
-        :siblings => "1", :depth => 4
-    entries = get_all_entries("ul.concept-hierarchy li")
-    assert_equal entries.length, 9
-    ["Lorem", "Ipsum", "Uno", "Dos", "Alpha", "Bravo", "Bar", "Foo", "Root"].each do |name|
-      assert entries.include?(name), "missing entry: #{name}"
-    end
-  end
-
-  test "avoid duplication" do # in response to a bug report
-    get :show, :lang => "en", :format => "ttl", :root => "uno", :dir => "up"
-    assert_response 200
-    assert_equal @response.content_type, "text/turtle"
-    assert @response.body.include?(<<-EOS)
-:bravo a skos:Concept;
-       skos:prefLabel "Bravo"@en;
-       skos:broader :bar.
-    EOS
-    assert (not @response.body.include?(':bravo skos:prefLabel "Bravo"@en.'))
-  end
-
-  def get_all_entries(selector)
-    return page.all(selector).map { |node| node.native.children.first.text }
-  end
-
-  def get_entries(selector)
-    return css_select(selector).map { |node| node.children.first.content }
-  end
-
-  def page # XXX: should not be necessary!?
-    return Capybara::Node::Simple.new(@response.body)
-  end
-
-  def create_hierarchy(hash, rel_class, memo=nil, parent=nil)
-    hash.each do |origin, children|
-      concept = create_concept(origin, origin.capitalize, "en")
-      memo[origin] = concept if memo
-      link_concepts(parent, rel_class, concept) if parent
-      create_hierarchy(children, rel_class, memo, concept) unless children.blank?
-    end
-    return memo
-  end
-
-  def link_concepts(source, rel_class, target)
-      rel_name = rel_class.name.to_relation_name
-      source.send(rel_name).create_with_reverse_relation(target)
-  end
-
-  def create_concept(origin, pref_label, label_lang, published=true)
-    concept = Iqvoc::Concept.base_class.create(:origin => origin,
-        :published_at => (published ? Time.now : nil))
-    label = Iqvoc::Label.base_class.create(:value => pref_label,
-        :language => label_lang)
-    labeling = Iqvoc::Concept.pref_labeling_class.create(:owner => concept,
-        :target => label)
-    return concept
-  end
-
-end