iqvoc 4.0.9 → 4.1.0

data/db/schema.rb

@@ -11,7 +11,7 @@
 #
 # It's strongly recommended to check this file into your version control system.
 
-ActiveRecord::Schema.define(:version => 20130227145825) do
+ActiveRecord::Schema.define(:version => 20130315141952) do
 
   create_table "collection_members", :force => true do |t|
     t.integer "collection_id"
@@ -92,6 +92,14 @@ ActiveRecord::Schema.define(:version => 20130227145825) do
   add_index "matches", ["concept_id", "type"], :name => "ix_matches_fk_type"
   add_index "matches", ["type"], :name => "ix_matches_on_type"
 
+  create_table "notations", :force => true do |t|
+    t.integer "concept_id"
+    t.string  "value",      :limit => 4000
+    t.string  "data_type",  :limit => 4000
+  end
+
+  add_index "notations", ["concept_id"], :name => "index_notations_on_concept_id"
+
   create_table "note_annotations", :force => true do |t|
     t.integer  "note_id"
     t.string   "predicate",  :limit => 50

data/iqvoc.gemspec

@@ -20,7 +20,6 @@ Gem::Specification.new do |s|
   s.add_dependency 'iq_rdf', '~> 0.1.2'
   s.add_dependency 'json'
   s.add_dependency 'rails_autolink'
-  s.add_dependency 'fastercsv'
   s.add_dependency 'simple_form'
   s.add_dependency 'sass-rails', '~> 3.2.5'
   s.add_dependency 'iq_triplestorage'

data/lib/generators/app/template.rb

@@ -11,6 +11,9 @@ gem 'iqvoc'
   gsub_file file, app_const_base, namespaced_app_name
 end
 
+gsub_file "config/application.rb", /filter_parameters .*:password\b/,
+    '\0, :password_confirmation'
+
 gsub_file "config/routes.rb", "#{app_const_base}::Application", "Rails.application"
 
 %w(development test production).each do |env|

data/lib/iqvoc/ability.rb

@@ -31,7 +31,7 @@ module Iqvoc
           can :merge, [::Concept::Base, ::Label::Base], :published_at => nil
         end
 
-        if user.owns_role?(:administrator) # Admins ...
+        if user.owns_role?(:administrator)
           can [:update, :destroy, :unlock], [::Concept::Base, ::Label::Base], :published_at => nil # Mustn't be locked by myself
 
           can :manage, User
@@ -39,6 +39,8 @@ module Iqvoc
 
           can :full_export, ::Concept::Base
           can :import, ::Concept::Base
+
+          can :update, Iqvoc::Concept.root_class.instance
         end
       else # no user
         can :create, UserSession

data/lib/iqvoc/configuration/concept.rb

@@ -13,6 +13,7 @@ module Iqvoc
             :pref_labeling_class_name,
             :match_class_names,
             :note_class_names,
+            :notation_class_names,
             :additional_association_class_names,
             :view_sections,
             :include_module_names
@@ -42,9 +43,13 @@ module Iqvoc
           'Match::SKOS::NarrowMatch',
         ]
 
+        self.notation_class_names         = [
+          'Notation::Base'
+        ]
+
         self.additional_association_class_names = {}
 
-        self.view_sections = ["main", "labels", "relations", "notes", "matches"]
+        self.view_sections = ["main", "labels", "relations", "notes", "notations", "matches"]
 
         self.include_module_names = []
       end
@@ -122,6 +127,10 @@ module Iqvoc
           match_class_names.map(&:constantize)
         end
 
+        def notation_classes
+          notation_class_names.map(&:constantize)
+        end
+
         def additional_association_classes
           additional_association_class_names.keys.each_with_object({}) do |class_name, hash|
             hash[class_name.constantize] = additional_association_class_names[class_name]

data/lib/iqvoc/configuration/core.rb

@@ -24,6 +24,10 @@ module Iqvoc
             :content => proc { link_to "Dashboard", dashboard_path },
             :controller => "dashboard",
             :authorized? => proc { can? :use, :dashboard }
+          }, {
+            :content => proc { link_to "Scheme", scheme_path },
+            :controller => "concepts/scheme",
+            :authorized? => proc { can? :read, Iqvoc::Concept.root_class.instance }
           }, {
             :content => proc { link_to ::Concept::Base.model_name.human(:count => 2),
                 hierarchical_concepts_path },

data/lib/iqvoc/rdfapi.rb

@@ -21,6 +21,7 @@ module Iqvoc
                                   Iqvoc::Concept.note_classes +
                                   Iqvoc::Concept.relation_classes +
                                   Iqvoc::Concept.match_classes +
+                                  Iqvoc::Concept.notation_classes +
                                   [Iqvoc::Collection.member_class]
 
     OBJECT_DICTIONARY = FIRST_LEVEL_OBJECT_CLASSES.inject({}) do |hash, klass|

data/lib/iqvoc/skos_importer.rb

@@ -8,6 +8,8 @@ module Iqvoc
         Iqvoc::Concept.note_classes +
         Iqvoc::Concept.relation_classes +
         Iqvoc::Concept.match_classes +
+        Iqvoc::Concept.notation_classes +
+        [Iqvoc::Concept.root_class] +
         [Iqvoc::Collection.member_class]
 
     def initialize(file, default_namespace_url, logger = Rails.logger)
@@ -30,6 +32,11 @@ module Iqvoc
       end
 
       @seen_first_level_objects = {} # Concept cache (don't load any concept twice from db)
+
+      # Assign the default concept scheme singleton instance as a seen first level object upfront
+      # in order to handle a missing scheme definition in ntriple data
+      @seen_first_level_objects[Iqvoc::Concept.root_class.instance.origin] = Iqvoc::Concept.root_class.instance
+
       @new_subjects = [] # Concepts to be published later
 
       # Triples the importer doesn't understand immediately. Example:
@@ -37,7 +44,7 @@ module Iqvoc
       #     :a skos:prefLabel "foo". # => What is :a? Remember this and try again later
       #     ....
       #     :a rdf:type skos:Concept # => Now I know :a, good I remebered it's prefLabel...
-      @unknown_second_level_tripes = []
+      @unknown_second_level_triples = []
 
       # Hash of arrays of arrays: { "_:n123" => [["pred1", "obj1"], ["pred2", "obj2"]] }
       @blank_nodes = {}
@@ -75,7 +82,7 @@ module Iqvoc
       end
 
       @logger.debug("Computing 'forward' defined triples...")
-      @unknown_second_level_tripes.each do |s, p, o|
+      @unknown_second_level_triples.each do |s, p, o|
         import_second_level_objects(second_level_types, true, s, p, o)
       end
 
@@ -145,7 +152,7 @@ module Iqvoc
         if final
           @logger.warn "Iqvoc::SkosImporter: Couldn't find Subject with origin '#{subject_origin}. Skipping entry '#{subject} #{predicate} #{object}.'"
         else
-          @unknown_second_level_tripes << initial_triple
+          @unknown_second_level_triples << initial_triple
         end
         return false
       end
@@ -156,9 +163,9 @@ module Iqvoc
         object = load_first_level_object(object_origin)
         unless object
           if final
-            @logger.warn "Iqvoc::SkosImporter: Couldn't find Object with origin '#{object_origin}. Skipping entry ':#{subject_origin} #{predicate} #{object}.'"
+            @logger.warn "Iqvoc::SkosImporter: Couldn't find Object with origin '#{object_origin}'. Skipping entry ':#{subject_origin} #{predicate} #{object}.'"
           else
-            @unknown_second_level_tripes << initial_triple
+            @unknown_second_level_triples << initial_triple
           end
           return false
         end
@@ -174,7 +181,7 @@ module Iqvoc
         if final
           object = @blank_nodes[object]
         else
-          @unknown_second_level_tripes << initial_triple
+          @unknown_second_level_triples << initial_triple
           return false
         end
       end
@@ -205,7 +212,7 @@ module Iqvoc
 
       triple.each do |e| # Do some fun with the uris and literals
         @prefixes.keys.each do |uri_prefix| # Use prefixes instead of full uris
-          e.gsub! /<#{uri_prefix}([^>]*)>/ do |matches|
+          e.gsub! /^<#{uri_prefix}([^>]*)>/ do |matches|
             @prefixes[uri_prefix] + $1.gsub(".", "_")
           end
         end

data/lib/iqvoc/version.rb

@@ -15,5 +15,5 @@
 # limitations under the License.
 
 module Iqvoc
-  VERSION = "4.0.9"
+  VERSION = "4.1.0"
 end

data/test/functional/hierarchy_test.rb

@@ -0,0 +1,355 @@
+# encoding: UTF-8
+
+# Copyright 2011 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 "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 "unsupported content type" do
+    get :show, :lang => "en", :format => "N/A", :root => "root"
+    assert_response 406
+  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.include?(<<-EOS)
+:root a skos:Concept;
+      skos:topConceptOf :scheme;
+      skos:prefLabel "Root"@en;
+      skos:narrower :foo;
+      skos:narrower :bar.
+    EOS
+    assert @response.body.include?(<<-EOS)
+:foo a skos:Concept;
+     skos:prefLabel "Foo"@en.
+    EOS
+    assert @response.body.include?(<<-EOS)
+:bar a skos:Concept;
+     skos:prefLabel "Bar"@en;
+     skos:narrower :alpha;
+     skos:narrower :bravo.
+    EOS
+    assert @response.body.include?(<<-EOS)
+:alpha a skos:Concept;
+       skos:prefLabel "Alpha"@en.
+    EOS
+    assert @response.body.include?(<<-EOS)
+:bravo a skos:Concept;
+       skos:prefLabel "Bravo"@en;
+       skos:narrower :uno;
+       skos:narrower :dos.
+    EOS
+    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::RoutingError) 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 => "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 => true, :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
+
+  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

data/test/integration/client_edit_concept_test.rb

@@ -44,7 +44,7 @@ class ClientEditConceptsTest < ActionDispatch::IntegrationTest
     assert page.has_css?("#edit_concept")
 
     section = page.find("#note_skos_definitions_data")
-    assert page.has_css?(".note_relation", :count => Iqvoc::Concept.note_class_names.length)
+    assert page.has_css?(".note_relation", :count => Iqvoc::Concept.note_class_names.length + Iqvoc::Concept.notation_class_names.length)
     assert page.has_css?("#note_skos_definitions_data", :count => 1)
     assert section.has_css?("li", :count => 1)
 

data/test/integration/concept_scheme_test.rb

@@ -14,25 +14,58 @@
 # See the License for the specific language governing permissions and
 # limitations under the License.
 
-require 'integration_test_helper'
+require File.join(File.expand_path(File.dirname(__FILE__)), '../integration_test_helper')
 
 class ConceptSchemeTest < ActionDispatch::IntegrationTest
 
-  setup do
+  test "list top concepts in rdf scheme" do
     @concept = FactoryGirl.create(:concept, :broader_relations => [])
-  end
 
-  test "list top concepts in rdf scheme" do
     visit "/scheme.ttl"
 
     assert page.has_content? ":scheme a skos:ConceptScheme"
     assert page.has_content? "skos:hasTopConcept :#{@concept.origin}"
   end
 
-  test "top terms rdf" do
+  test "top concepts rdf" do
+    @concept = FactoryGirl.create(:concept, :broader_relations => [])
+
     visit "/#{@concept.origin}.ttl"
 
     assert page.has_content? "skos:topConceptOf :scheme"
   end
 
+  test "non-top-concept in scheme" do
+    non_top_concept = FactoryGirl.create(:concept, :broader_relations => [], :top_term => false)
+
+    visit "/#{non_top_concept.origin}.ttl"
+
+    assert page.has_content?("skos:inScheme :scheme")
+    assert !page.has_content?("skos:topConceptOf :scheme")
+  end
+
+  test "declare top concepts" do
+    visit hierarchical_concepts_path(:lang => :en, :format => :html)
+
+    assert !page.has_link?("Tree 2", :href => "http://www.example.com/en/concepts/foo_1.html")
+    assert !page.has_link?("Tree 2", :href => "http://www.example.com/en/concepts/foo_2.html")
+
+    concept1 = FactoryGirl.create(:concept, :origin => "foo_1", :top_term => false)
+    concept2 = FactoryGirl.create(:concept, :origin => "foo_2", :top_term => false)
+
+    login "administrator"
+    visit edit_scheme_path(:lang => :en, :format => :html)
+
+    fill_in "concept_inline_top_concept_origins",
+      :with => [concept1.origin, concept2.origin].join(",")
+    click_button "Save"
+
+    assert page.has_content? "Concept scheme has been saved."
+
+    visit hierarchical_concepts_path(:lang => :en, :format => :html)
+
+    assert page.has_link? "Tree 2", :href => "http://www.example.com/en/concepts/foo_1.html"
+    assert page.has_link? "Tree 2", :href => "http://www.example.com/en/concepts/foo_2.html"
+  end
+
 end

data/test/unit/concept_scheme_test.rb

@@ -0,0 +1,35 @@
+# encoding: UTF-8
+
+# Copyright 2011 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 ConceptSchemeTest < ActiveSupport::TestCase
+  test "singleton concept scheme" do
+    assert_equal 0, Concept::SKOS::Scheme.count
+
+    assert_difference 'Concept::SKOS::Scheme.count' do
+      Concept::SKOS::Scheme.instance
+    end
+
+    assert_no_difference 'Concept::SKOS::Scheme.count' do
+      Concept::SKOS::Scheme.instance
+    end
+
+    assert_raise TypeError do
+      Concept::SKOS::Scheme.create
+    end
+  end
+end