ladder 0.3.2 → 0.4.0

data/spec/shared/file.rb

@@ -1,10 +1,12 @@
 require 'mimemagic'
 
 shared_examples 'a File' do
-  describe 'LADDER_BASE_URI' do
+  describe '#configure_model' do
     it 'should automatically have a base URI' do
-      expect(subject.rdf_subject.parent).to eq RDF::URI('http://example.org/datastreams/')
+      expect([RDF::URI('http://example.org/datastreams/')]).to include subject.rdf_subject.parent
     end
+
+    # TODO: it should be registered in Ladder::Config
   end
 
   describe '#initialize' do

data/spec/shared/graph.jsonld

@@ -1,7 +1,8 @@
 {
     "@context": {
         "dc": "http://purl.org/dc/terms/",
-        "skos": "http://www.w3.org/2004/02/skos/core#"
+        "skos": "http://www.w3.org/2004/02/skos/core#",
+        "xsd": "http://www.w3.org/2001/XMLSchema#"
     },
     "@id": "_:b1",
     "@type": "dc:BibliographicResource",
@@ -13,10 +14,48 @@
             "@id": "_:b1"
         }
     },
+    "dc:created": {
+        "@type": "xsd:dateTime",
+        "@value": "2015-03-06T16:00:00Z"
+    },
+    "dc:date": {
+        "@type": "xsd:date",
+        "@value": "1946-01-01"
+    },
+    "dc:identifier": {
+        "@type": "xsd:integer",
+        "@value": "16589991"
+    },
+	"dc:isReferencedBy": [
+		{
+			"@value":"something",
+			"@language":"en"
+		},
+		{
+			"@value":"another",
+			"@language":"en"
+		}
+	],
+    "dc:issued": {
+        "@type": "xsd:date",
+        "@value": "1951-01-01"
+    },
+    "dc:source": {
+        "@type": "xsd:token",
+        "@value": "something"
+    },
+    "dc:spatial": {
+        "@type": "xsd:double",
+        "@value": "1.2345E1"
+    },
+    "dc:valid": {
+        "@type": "xsd:boolean",
+        "@value": "true"
+    },
     "dc:hasPart": {
         "@id": "_:b3",
         "@type": "dc:PhysicalResource",
-        "dc:relation": {
+        "dc:isPartOf": {
             "@id": "_:b1"
         }
     },
@@ -24,8 +63,14 @@
         "@id": "_:b4",
         "@type": "skos:Concept"
     },
-    "dc:title": {
-        "@value": "Comet in Moominland",
-        "@language": "en"
-    }
+    "dc:title": [
+		{
+	        "@value": "Comet in Moominland",
+	        "@language": "en"
+	    },
+		{
+	        "@value": "Kometen kommer",
+	        "@language": "sv"
+	    }
+	]
 }

data/spec/shared/resource.rb

@@ -1,165 +1,30 @@
 shared_context 'with data' do
   before do
-    subject.alt = 'Mumintrollet pa kometjakt' # non-localized literal
-    subject.title = 'Comet in Moominland'     # localized literal
-  end
-end
-
-shared_examples 'a Dynamic Resource' do
-  describe '#property' do
-    context 'with undefined property' do
-      before do
-        subject.property :description, predicate: RDF::DC.description
-        subject.description = "Second in Tove Jansson's series of Moomin books"
-      end
-
-      it 'should create a context' do
-        expect(subject._context).to eq(description: RDF::DC.description.to_uri.to_s)
-      end
-
-      it 'should build an accessor' do
-        expect(subject.description).to eq "Second in Tove Jansson's series of Moomin books"
-      end
-    end
-
-    context 'with conflicting property' do
-      before do
-        subject.property :title, predicate: RDF::DC11.title
-        subject.dc11_title = 'Kometjakten'
-      end
-
-      it 'should create a context' do
-        expect(subject._context).to eq(dc11_title: RDF::DC11.title.to_uri.to_s)
-      end
-
-      it 'should build an accessor' do
-        expect(subject.dc11_title).to eq 'Kometjakten'
-      end
-    end
-  end
-
-  describe '#update_resource' do
-    before do
-      # undefined property
-      subject.property :description, predicate: RDF::DC.description
-      subject.description = "Second in Tove Jansson's series of Moomin books"
-
-      # conflicting property
-      subject.property :title, predicate: RDF::DC11.title
-      subject.dc11_title = 'Kometjakten'
-
-      # defined field
-      subject << RDF::Statement(nil, RDF::DC.title, 'Kometen kommer')
-
-      # conflicting property
-      subject << RDF::Statement(nil, RDF::DC.alternative, 'Kometjakten')
-
-      # URI value
-      subject << RDF::Statement(nil, RDF::DC.identifier, RDF::URI('http://some.uri'))
-
-      # RDF type
-      subject << RDF::Statement(nil, RDF.type, RDF::DC.PhysicalResource)
-
-      subject.update_resource
-    end
-
-    it 'should have updated values' do
-      expect(subject.resource.statements.count).to eq 7
-      expect(subject.resource.query(predicate: RDF::DC.description, object: "Second in Tove Jansson's series of Moomin books").count).to eq 1
-      expect(subject.resource.query(predicate: RDF::DC11.title, object: 'Kometjakten').count).to eq 1
-      expect(subject.resource.query(predicate: RDF::DC.title, object: RDF::Literal.new('Kometen kommer', language: :en)).count).to eq 1
-      expect(subject.resource.query(predicate: RDF::DC.alternative, object: 'Kometjakten').count).to eq 1
-      expect(subject.resource.query(predicate: RDF::DC.identifier, object: RDF::URI('http://some.uri')).count).to eq 1
-    end
-
-    it 'should contain both class and dynamic types' do
-      expect(subject.type.count).to eq 2
-      expect(subject.type).to include RDF::DC.BibliographicResource
-      expect(subject.type).to include RDF::DC.PhysicalResource
-    end
-  end
-
-  describe '#<<' do
-    context 'with defined field' do
-      before do
-        subject << RDF::Statement(nil, RDF::DC.title, 'Kometen kommer')
-      end
-
-      it 'should not create a context' do
-        expect(subject._context).to be nil
-      end
-
-      it 'should update existing values' do
-        expect(subject.title).to eq 'Kometen kommer'
-      end
-    end
-
-    context 'with undefined field' do
-      before do
-        subject << RDF::Statement(nil, RDF::DC.description, "Second in Tove Jansson's series of Moomin books")
-      end
-
-      it 'should create a context' do
-        expect(subject._context).to eq(description: RDF::DC.description.to_uri.to_s)
-      end
-
-      it 'should build an accessor' do
-        expect(subject.description).to eq "Second in Tove Jansson's series of Moomin books"
-      end
-    end
-
-    context 'with conflicting property' do
-      before do
-        subject << RDF::Statement(nil, RDF::DC11.title, 'Kometjakten')
-      end
-
-      it 'should create a context' do
-        expect(subject._context).to eq(dc11_title: RDF::DC11.title.to_uri.to_s)
-      end
-
-      it 'should build an accessor' do
-        expect(subject.dc11_title).to eq 'Kometjakten'
-      end
-    end
-
-    context 'with a URI value' do
-      before do
-        subject << RDF::Statement(nil, RDF::DC.identifier, RDF::URI('http://some.uri'))
-      end
-
-      it 'should store the URI as a string' do
-        expect(subject.identifier).to eq 'http://some.uri'
-      end
-
-      it 'should cast a URI into the resource' do
-        subject.update_resource
-        query = subject.resource.query(subject: subject.rdf_subject, predicate: RDF::DC.identifier)
-        expect(query.first_object).to be_a_kind_of RDF::URI
-      end
-    end
-  end
-
-  describe '#resource_class' do
-    before do
-      subject.property :description, predicate: RDF::DC.description
-    end
-
-    it 'should have modified properties on the instance' do
-      expect(subject.resource.class.properties.keys).to include 'description'
-    end
-
-    it 'should not modify the global class properties' do
-      expect(subject.class.resource_class.properties.keys).to_not include 'description'
-      expect(subject.class.resource_class.properties).to eq subject.class.new.class.resource_class.properties
-    end
+    subject.title_translations = { 'en' => 'Comet in Moominland', # localized String
+                                   'sv' => 'Kometen kommer' }
+    subject.alt        = 'Mumintrollet pa kometjakt'  # non-localized String
+    subject.references = 'http://foo.com'             # URI
+    subject.referenced = %w(something another)        # Array
+    subject.is_valid   = true                         # Boolean -> xsd:boolean
+    subject.date       = Date.new(1946)               # Date -> xsd:date
+    subject.issued     = DateTime.new(1951)           # DateTime -> xsd:date
+    subject.spatial    = 12.345                       # Float -> xsd:double
+    # subject.conformsTo = { 'key' => 'value' }         # Hash
+    subject.identifier = 16_589_991                   # Integer -> xsd:integer
+    # subject.license    = 1..10                        # Range
+    subject.source     = :something                   # Symbol -> xsd:token
+    subject.created    = Time.new.beginning_of_hour   # Time
   end
 end
 
 shared_examples 'a Resource' do
-  describe 'LADDER_BASE_URI' do
+  describe '#configure_model' do
     it 'should automatically have a base URI' do
-      expect(subject.resource.rdf_subject.parent).to eq RDF::URI('http://example.org/things/')
+      expect([RDF::URI('http://example.org/things/'),
+              RDF::URI('http://example.org/subthings/')]).to include subject.rdf_subject.parent
     end
+
+    # TODO: it should be registered in Ladder::Config
   end
 
   describe '#property' do
@@ -184,11 +49,11 @@ shared_examples 'a Resource' do
 
     context 'with localized literal' do
       it 'should return localized value' do
-        expect(subject.title).to eq 'Comet in Moominland'
+        expect(['Comet in Moominland', 'Kometen kommer']).to include(subject.title).or eq(subject.title)
       end
 
       it 'should return all locales' do
-        expect(subject.attributes['title']).to eq('en' => 'Comet in Moominland')
+        expect('en' => 'Comet in Moominland', 'sv' => 'Kometen kommer').to include(subject.attributes['title']).or eq(subject.attributes['title'])
       end
 
       it 'should have a valid predicate' do
@@ -209,7 +74,7 @@ shared_examples 'a Resource' do
 
     it 'should have a non-localized literal object' do
       subject.resource.query(subject: subject.rdf_subject, predicate: RDF::DC.title).each_statement do |s|
-        expect(s.object.to_s).to eq 'Comet in Moominland'
+        expect(['Comet in Moominland', 'Kometen kommer']).to include s.object.to_s
       end
     end
 
@@ -227,11 +92,11 @@ shared_examples 'a Resource' do
   describe '#<<' do
     context 'with defined field' do
       before do
-        subject << RDF::Statement(nil, RDF::DC.title, 'Kometen kommer')
+        subject << RDF::Statement(nil, RDF::DC.title, RDF::Literal.new('Kometen kommer', language: :sv))
       end
 
       it 'should update existing values' do
-        expect(subject.title).to eq 'Kometen kommer'
+        expect(subject.title_translations).to eq('sv' => 'Kometen kommer')
       end
     end
 
@@ -259,16 +124,16 @@ shared_examples 'a Resource' do
 
     context 'with a URI value' do
       before do
-        subject << RDF::Statement(nil, RDF::DC.identifier, RDF::URI('http://some.uri'))
+        subject << RDF::Statement(nil, RDF::DC.references, RDF::URI('http://some.uri'))
       end
 
       it 'should store the URI as a string' do
-        expect(subject.identifier).to eq 'http://some.uri'
+        expect(subject.references).to eq 'http://some.uri'
       end
 
       it 'should cast a URI into the resource' do
         subject.update_resource
-        query = subject.resource.query(subject: subject.rdf_subject, predicate: RDF::DC.identifier)
+        query = subject.resource.query(subject: subject.rdf_subject, predicate: RDF::DC.references)
         expect(query.first_object).to be_a_kind_of RDF::URI
       end
     end
@@ -276,11 +141,18 @@ shared_examples 'a Resource' do
 
   describe '#rdf_label' do
     it 'should return the default label' do
-      expect(subject.rdf_label.to_a).to eq ['Comet in Moominland']
+      expect(['Comet in Moominland', 'Kometen kommer']).to include subject.rdf_label.first
     end
   end
 
   context 'a serializable' do
+    describe '#as_turtle' do
+      it 'should output a valid turtle representation of itself' do
+        graph = RDF::Graph.new << RDF::Turtle::Reader.new(subject.as_turtle)
+        expect(subject.update_resource.to_hash).to eq graph.to_hash
+      end
+    end
+
     describe '#as_jsonld' do
       it 'should output a valid jsonld representation of itself' do
         graph = RDF::Graph.new << JSON::LD::API.toRdf(subject.as_jsonld)
@@ -290,7 +162,7 @@ shared_examples 'a Resource' do
 
     describe '#as_qname' do
       it 'should output a valid qname representation of itself' do
-        # TODO
+        # TODO: check rdfs:label
       end
     end
   end
@@ -307,16 +179,9 @@ shared_examples 'a Resource' do
     end
 
     it 'should populate the same properties' do
-      # TODO: clean this up
-      def remove_ids(x)
-        if x.is_a?(Hash)
-          x.reduce({}) do |m, (k, v)|
-            m[k] = remove_ids(v) unless k == '@id'
-            m
-          end
-        else
-          x
-        end
+      def remove_ids(hash)
+        hash.delete '@id'
+        hash.each_value { |value| remove_ids(value) if value.is_a? Hash }
       end
 
       expect(remove_ids(new_subject.as_framed_jsonld)).to eq remove_ids(subject.as_framed_jsonld)
@@ -421,7 +286,7 @@ shared_examples 'a Resource with relations' do
     end
 
     it 'should have a valid inverse predicate' do
-      expect(part.class.properties['thing'].predicate).to eq RDF::DC.relation
+      expect(part.class.properties['thing'].predicate).to eq RDF::DC.isPartOf
     end
   end
 
@@ -433,7 +298,7 @@ shared_examples 'a Resource with relations' do
 
     it 'should have a literal object' do
       query = subject.resource.query(subject: subject.rdf_subject, predicate: RDF::DC.title)
-      expect(query.first_object.to_s).to eq 'Comet in Moominland'
+      expect(['Comet in Moominland', 'Kometen kommer']).to include query.first_object.to_s
     end
 
     it 'should have an embedded object' do
@@ -443,7 +308,7 @@ shared_examples 'a Resource with relations' do
     end
 
     it 'should have an embedded object relation' do
-      query = subject.resource.query(subject: part.rdf_subject, predicate: RDF::DC.relation)
+      query = subject.resource.query(subject: part.rdf_subject, predicate: RDF::DC.isPartOf)
       expect(query.count).to eq 1
       expect(query.first_object).to eq subject.rdf_subject
     end
@@ -475,7 +340,7 @@ shared_examples 'a Resource with relations' do
       expect(concept.resource.query(object: subject.rdf_subject)).to be_empty
 
       # embedded-one
-      query = part.resource.query(subject: part.rdf_subject, predicate: RDF::DC.relation)
+      query = part.resource.query(subject: part.rdf_subject, predicate: RDF::DC.isPartOf)
       expect(query.count).to eq 1
       expect(query.first_object).to eq subject.rdf_subject
     end
@@ -494,7 +359,7 @@ shared_examples 'a Resource with relations' do
     end
 
     it 'should have embedded object relations' do
-      query = subject.resource.query(subject: part.rdf_subject, predicate: RDF::DC.relation)
+      query = subject.resource.query(subject: part.rdf_subject, predicate: RDF::DC.isPartOf)
       expect(query.count).to eq 1
       expect(query.first_object).to eq subject.rdf_subject
     end
@@ -509,7 +374,7 @@ shared_examples 'a Resource with relations' do
       expect(concept.resource.query(object: subject.rdf_subject)).to be_empty
 
       # embedded-one
-      query = part.resource.query(subject: part.rdf_subject, predicate: RDF::DC.relation)
+      query = part.resource.query(subject: part.rdf_subject, predicate: RDF::DC.isPartOf)
       expect(query.count).to eq 1
       expect(query.first_object).to eq subject.rdf_subject
     end

data/spec/shared/resource/dynamic.rb

@@ -0,0 +1,149 @@
+shared_examples 'a Dynamic Resource' do
+  describe '#property' do
+    context 'with undefined property' do
+      before do
+        subject.property :description, predicate: RDF::DC.description
+        subject.description = "Second in Tove Jansson's series of Moomin books"
+      end
+
+      it 'should create a context' do
+        expect(subject._context).to eq(description: RDF::DC.description.to_uri.to_s)
+      end
+
+      it 'should build an accessor' do
+        expect(subject.description).to eq "Second in Tove Jansson's series of Moomin books"
+      end
+    end
+
+    context 'with conflicting property' do
+      before do
+        subject.property :title, predicate: RDF::DC11.title
+        subject.dc11_title = 'Kometjakten'
+      end
+
+      it 'should create a context' do
+        expect(subject._context).to eq(dc11_title: RDF::DC11.title.to_uri.to_s)
+      end
+
+      it 'should build an accessor' do
+        expect(subject.dc11_title).to eq 'Kometjakten'
+      end
+    end
+  end
+
+  describe '#update_resource' do
+    before do
+      # undefined property
+      subject.property :description, predicate: RDF::DC.description
+      subject.description = "Second in Tove Jansson's series of Moomin books"
+
+      # conflicting property
+      subject.property :title, predicate: RDF::DC11.title
+      subject.dc11_title = 'Kometjakten'
+
+      # defined field
+      subject << RDF::Statement(nil, RDF::DC.title, RDF::Literal.new('Kometen kommer', language: :sv))
+
+      # conflicting property
+      subject << RDF::Statement(nil, RDF::DC.alternative, 'Kometjakten')
+
+      # URI value
+      subject << RDF::Statement(nil, RDF::DC.references, RDF::URI('http://some.uri'))
+
+      # RDF type
+      subject << RDF::Statement(nil, RDF.type, RDF::DC.PhysicalResource)
+
+      subject.update_resource
+    end
+
+    it 'should have updated values' do
+      # expect(subject.resource.statements.count).to eq 7
+      expect(subject.resource.query(predicate: RDF::DC.description, object: "Second in Tove Jansson's series of Moomin books").count).to eq 1
+      expect(subject.resource.query(predicate: RDF::DC11.title, object: 'Kometjakten').count).to eq 1
+      expect(subject.resource.query(predicate: RDF::DC.title, object: RDF::Literal.new('Kometen kommer', language: :sv)).count).to eq 1
+      expect(subject.resource.query(predicate: RDF::DC.alternative, object: 'Kometjakten').count).to eq 1
+      expect(subject.resource.query(predicate: RDF::DC.references, object: RDF::URI('http://some.uri')).count).to eq 1
+    end
+
+    it 'should contain both class and dynamic types' do
+      expect(subject.type.count).to eq 2
+      expect(subject.type).to include RDF::DC.BibliographicResource
+      expect(subject.type).to include RDF::DC.PhysicalResource
+    end
+  end
+
+  describe '#<<' do
+    context 'with defined field' do
+      before do
+        subject << RDF::Statement(nil, RDF::DC.title, RDF::Literal.new('Kometen kommer', language: :sv))
+      end
+
+      it 'should not create a context' do
+        expect(subject._context).to be nil
+      end
+
+      it 'should update existing values' do
+        expect(subject.title).to eq 'Kometen kommer'
+      end
+    end
+
+    context 'with undefined field' do
+      before do
+        subject << RDF::Statement(nil, RDF::DC.description, "Second in Tove Jansson's series of Moomin books")
+      end
+
+      it 'should create a context' do
+        expect(subject._context).to eq(description: RDF::DC.description.to_uri.to_s)
+      end
+
+      it 'should build an accessor' do
+        expect(subject.description).to eq "Second in Tove Jansson's series of Moomin books"
+      end
+    end
+
+    context 'with conflicting property' do
+      before do
+        subject << RDF::Statement(nil, RDF::DC11.title, 'Kometjakten')
+      end
+
+      it 'should create a context' do
+        expect(subject._context).to eq(dc11_title: RDF::DC11.title.to_uri.to_s)
+      end
+
+      it 'should build an accessor' do
+        expect(subject.dc11_title).to eq 'Kometjakten'
+      end
+    end
+
+    context 'with a URI value' do
+      before do
+        subject << RDF::Statement(nil, RDF::DC.references, RDF::URI('http://some.uri'))
+      end
+
+      it 'should store the URI as a string' do
+        expect(subject.references).to eq 'http://some.uri'
+      end
+
+      it 'should cast a URI into the resource' do
+        subject.update_resource
+        query = subject.resource.query(subject: subject.rdf_subject, predicate: RDF::DC.references)
+        expect(query.first_object).to be_a_kind_of RDF::URI
+      end
+    end
+  end
+
+  describe '#resource_class' do
+    before do
+      subject.property :description, predicate: RDF::DC.description
+    end
+
+    it 'should have modified properties on the instance' do
+      expect(subject.resource.class.properties.keys).to include 'description'
+    end
+
+    it 'should not modify the global class properties' do
+      expect(subject.class.resource_class.properties.keys).to_not include 'description'
+      expect(subject.class.resource_class.properties).to eq subject.class.new.class.resource_class.properties
+    end
+  end
+end