agraph 0.1.0.beta1

data/lib/code_smells.reek

@@ -0,0 +1,3 @@
+---
+LongMethod:
+  max_statements: 9

data/spec/fake_transport.yml

@@ -0,0 +1,287 @@
+-
+  :http_method: "post"
+  :url:         "http://session:5555/commit"
+  :response:
+    :code:      "204"
+    :body:      ""
+-
+  :http_method: "post"
+  :url:         "http://session:5555/rollback"
+  :response:
+    :code:      "204"
+    :body:      ""
+-
+  :http_method: "get"
+  :url:         "http://localhost:10035/version"
+  :response:
+    :code:      "200"
+    :body:      "4.0.1a"
+-
+  :http_method: "get"
+  :url:         "http://localhost:10035/version/date"
+  :response:
+    :code:      "200"
+    :body:      "March 10, 2010 10:23:52 GMT-0800"
+-
+  :http_method: "get"
+  :url:         "http://localhost:10035/version/revision"
+  :response:
+    :code:      "200"
+    :body:      "[unknown]"
+-
+  :http_method: "get"
+  :url:         "http://localhost:10035/catalogs"
+  :response:
+    :code:      "200"
+    :body:
+      -
+        "id":   "/"
+        "uri":  "http://localhost:10035"
+      -
+        "id":   "/test_catalog"
+        "uri":  "http://localhost:10035/test_catalog"
+-
+  :http_method: "put"
+  :url:         "http://localhost:10035/catalogs/test_catalog"
+  :response:
+    :code:      "400"
+    :body:      ""
+-
+  :http_method: "put"
+  :url:         "http://localhost:10035/catalogs/not_existing"
+  :response:
+    :code:      "201"
+    :body:      ""
+-
+  :http_method: "get"
+  :url:         "http://localhost:10035/federated"
+  :response:
+    :code:      "200"
+    :body:
+      -
+        "uri":      "http://localhost:10035/federated/test_federation"
+        "id":       "test_federation"
+        "title":    "test_federation"
+        "readable": true
+        "writable": false
+-
+  :http_method: "put"
+  :url:         "http://localhost:10035/federated/test_federation"
+  :parameters:
+    :repo:      [ "test_repository" ]
+    :url:       [ "http://username:password@server:10035/repositories/another" ]
+  :response:
+    :code:      "204"
+    :body:      ""
+-
+  :http_method: "delete"
+  :url:         "http://localhost:10035/federated/test_federation"
+  :response:
+    :code:      "204"
+    :body:      ""
+-
+  :http_method: "get"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories"
+  :response:
+    :code:      "200"
+    :body:
+      -
+        "uri":      "http://localhost:10035/repositories/test_repository"
+        "id":       "test_repository"
+        "title":    "test_repository"
+        "readable": true
+        "writable": true
+-
+  :http_method: "put"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories/test_repository"
+  :response:
+    :code:      "400"
+    :body:      ""
+-
+  :http_method: "delete"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories/test_repository"
+  :response:
+    :code:      "200"
+    :body:      ""
+-
+  :http_method: "put"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories/not_existing"
+  :response:
+    :code:      "204"
+    :body:      ""
+-
+  :http_method: "delete"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories/not_existing"
+  :response:
+    :code:      "400"
+    :body:      ""
+-
+  :http_method: "get"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories/test_repository/size"
+  :response:
+    :code:      "200"
+    :body:      "3"
+-
+  :http_method: "post"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories/test_repository/statements"
+  :response:
+    :code:      "204"
+    :body:      "1"
+-
+  :http_method: "get"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories/test_repository/statements"
+  :response:
+    :code:      "200"
+    :body:
+      - [ "\"test_subject\"", "\"test_predicate\"", "\"test_object\"", "\"test_context\"" ]
+      - [ "\"another_subject\"", "\"test_predicate\"", "\"another_object\"", "\"test_context\"" ]
+-
+  :http_method: "get"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories/test_repository/statements"
+  :parameters:
+    :subj:  "test_subject"
+  :response:
+    :code:      "200"
+    :body:
+      - [ "\"test_subject\"", "\"test_predicate\"", "\"test_object\"", "\"test_context\"" ]
+-
+  :http_method: "delete"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories/test_repository/statements"
+  :parameters:
+    :subj:      "test_subject"
+  :response:
+    :code:      "200"
+    :body:      ""
+-
+  :http_method: "get"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories/test_repository"
+  :parameters:
+    :query:   "SELECT ?subject WHERE { ?subject <http://xmlns.com/foaf/0.1/knows> ?object . }"
+    :queryLn: "sparql"
+  :response:
+    :code:      "200"
+    :body:
+      "names":  [ "subject" ]
+      "values":
+        - [ "\"another_subject\"" ]
+        - [ "\"test_subject\"" ]
+-
+  :http_method: "get"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories/test_repository"
+  :parameters:
+    :query:   "(select (?subject) (q- ?subject !<http://xmlns.com/foaf/0.1/knows> ?object))"
+    :queryLn: "prolog"
+  :response:
+    :code:      "200"
+    :body:
+      "names":  [ "subject" ]
+      "values":
+        - [ "\"another_subject\"" ]
+        - [ "\"test_subject\"" ]
+-
+  :http_method: "post"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories/test_repository/geo/types/cartesian"
+  :parameters:
+    :stripWidth:  "1.0"
+    :xmin:        "2.0"
+    :xmax:        "20.0"
+    :ymin:        "2.0"
+    :ymax:        "20.0"
+  :response:
+    :code:      "200"
+    :body:      "\"<http://franz.com/ns/allegrograph/3.0/geospatial/cartesian/2.0/20.0/2.0/20.0/1.0>\""
+-
+  :http_method: "post"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories/test_repository/geo/types/spherical"
+  :parameters:
+    :stripWidth:  "1.0"
+    :unit:        "degree"
+    :latmin:      "2.0"
+    :latmax:      "20.0"
+    :longmin:     "2.0"
+    :longmax:     "20.0"
+  :response:
+    :code:      "200"
+    :body:      "\"<http://franz.com/ns/allegrograph/3.0/geospatial/spherical/degrees/2.0/20.0/2.0/20.0/1.0>\""
+-
+  :http_method: "put"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories/test_repository/geo/polygon"
+  :parameters:
+    :resource:    "\"test_polygon\""
+    :point:
+      - "\"+2+2\"^^<http://franz.com/ns/allegrograph/3.0/geospatial/cartesian/2.0/20.0/2.0/20.0/1.0>"
+      - "\"+10+2\"^^<http://franz.com/ns/allegrograph/3.0/geospatial/cartesian/2.0/20.0/2.0/20.0/1.0>"
+      - "\"+10+10\"^^<http://franz.com/ns/allegrograph/3.0/geospatial/cartesian/2.0/20.0/2.0/20.0/1.0>"
+      - "\"+2+10\"^^<http://franz.com/ns/allegrograph/3.0/geospatial/cartesian/2.0/20.0/2.0/20.0/1.0>"
+  :response:
+    :code:      "204"
+    :body:      ""
+-
+  :http_method: "get"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories/test_repository/geo/box"
+  :parameters:
+    :type:      "<http://franz.com/ns/allegrograph/3.0/geospatial/cartesian/2.0/20.0/2.0/20.0/1.0>"
+    :predicate: "\"at\""
+    :xmin:      "8.0"
+    :ymin:      "8.0"
+    :xmax:      "11.0"
+    :ymax:      "11.0"
+  :response:
+    :code:      "200"
+    :body:
+      - [ "\"test_subject\"", "\"at\"", "\"+10.000000000931323+10.000000000931323\"^^<http://franz.com/ns/allegrograph/3.0/geospatial/cartesian/2.0/20.0/2.0/20.0/1.0>" ]
+-
+  :http_method: "get"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories/test_repository/geo/circle"
+  :parameters:
+    :type:      "<http://franz.com/ns/allegrograph/3.0/geospatial/cartesian/2.0/20.0/2.0/20.0/1.0>"
+    :predicate: "\"at\""
+    :x:         "9.0"
+    :y:         "9.0"
+    :radius:    "2.0"
+  :response:
+    :code:      "200"
+    :body:
+      - [ "\"test_subject\"", "\"at\"", "\"+10.000000000931323+10.000000000931323\"^^<http://franz.com/ns/allegrograph/3.0/geospatial/cartesian/2.0/20.0/2.0/20.0/1.0>" ]
+-
+  :http_method: "get"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories/test_repository/geo/haversine"
+  :parameters:
+    :type:      "<http://franz.com/ns/allegrograph/3.0/geospatial/cartesian/2.0/20.0/2.0/20.0/1.0>"
+    :predicate: "\"at\""
+    :lat:       "+09.0000000"
+    :long:      "+009.0000000"
+    :radius:    "200.0"
+    :unit:      "km"
+  :response:
+    :code:      "200"
+    :body:
+      - [ "\"test_subject\"", "\"at\"", "\"+100000+0100000\"^^<http://franz.com/ns/allegrograph/3.0/geospatial/spherical/degrees/2.0/20.0/2.0/20.0/1.0>" ]
+-
+  :http_method: "get"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories/test_repository/geo/polygon"
+  :parameters:
+    :type:      "<http://franz.com/ns/allegrograph/3.0/geospatial/cartesian/2.0/20.0/2.0/20.0/1.0>"
+    :predicate: "\"at\""
+    :polygon:   "\"test_polygon\""
+  :response:
+    :code:      "200"
+    :body:
+      - [ "\"test_subject\"", "\"at\"", "\"+10.000000000931323+10.000000000931323\"^^<http://franz.com/ns/allegrograph/3.0/geospatial/cartesian/2.0/20.0/2.0/20.0/1.0>" ]
+-
+  :http_method: "put"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories/test_repository/mapping/type"
+  :parameters:
+    :type:      "<time>"
+    :encoding:  "<http://www.w3.org/2001/XMLSchema#dateTime>"
+  :response:
+    :code:      "204"
+    :body:      ""
+-
+  :http_method: "delete"
+  :url:         "http://localhost:10035/catalogs/test_catalog/repositories/test_repository/mapping/type"
+  :parameters:
+    :type:      "<time>"
+  :response:
+    :code:      "204"
+    :body:      ""

data/spec/fake_transport_helper.rb

@@ -0,0 +1,38 @@
+require 'yaml'
+
+module FakeTransport
+
+  def self.enable!
+    @enabled = true
+  end
+
+  def self.disable!
+    @enabled = false
+  end
+
+  def self.transport_class
+    AllegroGraph::ExtendedTransport
+  end
+
+  def self.fake!
+    return unless @enabled
+    @@fake ||= YAML::load_file File.join(File.dirname(__FILE__), "fake_transport.yml")
+    transport_class.stub!(:request).and_return do |http_method, url, options|
+      options ||= { }
+      parameters            = options[:parameters]
+      headers               = options[:headers]
+      expected_status_code  = options[:expected_status_code]
+
+      request = @@fake.detect do |hash|
+        hash[:http_method].to_s == http_method.to_s &&
+          hash[:url].to_s == url.to_s &&
+          hash[:parameters] == parameters &&
+          hash[:headers] == headers
+      end
+      raise StandardError, "no fake request found for [#{http_method} #{url} #{parameters.inspect} #{headers.inspect}]" unless request
+      raise transport_class::UnexpectedStatusCodeError.new(request[:response][:code].to_i, request[:response][:body]) if expected_status_code && expected_status_code.to_s != request[:response][:code]
+      request[:response][:body].dup
+    end
+  end
+
+end

data/spec/integration/basic_spec.rb

@@ -0,0 +1,364 @@
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "spec_helper"))
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "..", "lib", "allegro_graph"))
+
+describe "integration" do
+
+  use_real_transport!
+
+  before :each do
+    @server = AllegroGraph::Server.new :username => "test", :password => "test"
+    @repository = AllegroGraph::Repository.new @server, "test_repository"    
+  end
+
+  describe "basic server functions" do
+
+    before :each do
+      @server = AllegroGraph::Server.new :username => "test", :password => "test"
+    end
+
+    it "should return the server's version" do
+      @server.version.should == {
+        :version  => "\"4.0.1a\"",
+        :date     => "\"March 10, 2010 10:23:52 GMT-0800\"",
+        :revision => "\"[unknown]\""
+      }
+    end
+
+  end
+
+  describe "repository listing" do
+
+    before :each do
+      @repository.create_if_missing!
+    end
+
+    it "should provide a list of repositories" do
+      @server.root_catalog.repositories.should == [ @repository ]
+    end
+
+  end
+
+  describe "repository creation" do
+
+    before :each do
+      @repository.delete_if_exists!
+    end
+
+    it "should create the repository" do
+      lambda do
+        @repository.create!
+      end.should change(@repository, :exists?).from(false).to(true)
+    end
+
+  end
+
+  describe "repository deletion" do
+
+    before :each do
+      @repository.create_if_missing!
+    end
+
+    it "should delete the repository" do
+      lambda do
+        @repository.delete!
+      end.should change(@repository, :exists?).from(true).to(false)
+    end
+
+  end
+
+  describe "statements" do
+
+    before :each do
+      @repository.create_if_missing!
+      @statements = @repository.statements
+    end
+
+    describe "creation" do
+
+      it "should take a statement" do
+        result = @statements.create "\"test_subject\"", "\"test_predicate\"", "\"test_object\"", "\"test_context\""
+        result.should be_true
+      end
+
+    end
+
+    describe "finding" do
+
+      before :each do
+        @statements.delete
+        @statements.create "\"test_subject\"", "\"test_predicate\"", "\"test_object\"", "\"test_context\""
+        @statements.create "\"another_subject\"", "\"test_predicate\"", "\"another_object\"", "\"test_context\""
+      end
+
+      it "should find all statements" do
+        statements = @statements.find
+        statements.should == [
+          [ "\"test_subject\"", "\"test_predicate\"", "\"test_object\"", "\"test_context\"" ],
+          [ "\"another_subject\"", "\"test_predicate\"", "\"another_object\"", "\"test_context\"" ]
+        ]
+      end
+
+      it "should find statements by filter options" do
+        statements = @statements.find :subject => "\"test_subject\""
+        statements.should == [
+          [ "\"test_subject\"", "\"test_predicate\"", "\"test_object\"", "\"test_context\"" ]
+        ]
+      end
+
+    end
+
+    describe "deletion" do
+
+      before :each do
+        @statements.create "\"test_subject\"", "\"test_predicate\"", "\"test_object\"", "\"test_context\""        
+      end
+
+      it "should delete all statements" do
+        lambda do
+          @statements.delete :subject   => "\"test_subject\"",
+                             :predicate => "\"test_predicate\"",
+                             :object    => "\"test_object\"",
+                             :context   => "\"test_context\""
+        end.should change(@repository, :size)
+      end
+
+    end
+    
+  end
+
+  describe "query bypass" do
+
+    before :each do
+      @repository.create_if_missing!
+
+      statements = @repository.statements
+      statements.create "\"test_subject\"", "<http://xmlns.com/foaf/0.1/knows>", "\"test_object\"", "\"test_context\""
+      statements.create "\"another_subject\"", "<http://xmlns.com/foaf/0.1/knows>", "\"another_object\"", "\"test_context\""
+    end
+
+    context "sparql" do
+
+      before :each do
+        @repository.query.language = :sparql
+      end
+      
+      it "should respond to queried data" do
+        result = @repository.query.perform "SELECT ?subject WHERE { ?subject <http://xmlns.com/foaf/0.1/knows> ?object . }"
+        result["names"].should include("subject")
+        result["values"].should include([ "\"another_subject\"" ], [ "\"test_subject\"" ])
+      end
+
+    end
+
+    context "prolog" do
+
+      before :each do
+        @repository.query.language = :prolog
+      end
+
+      it "should respond to queried data" do
+        result = @repository.query.perform "(select (?subject) (q- ?subject !<http://xmlns.com/foaf/0.1/knows> ?object))"
+        result["names"].should include("subject")
+        result["values"].should include([ "\"another_subject\"" ], [ "\"test_subject\"" ])
+      end
+
+    end
+
+  end
+
+  describe "geo" do
+
+    before :each do
+      @repository.create_if_missing!
+      @geo = @repository.geo
+    end
+
+    describe "types" do
+
+      it "should provide a cartesian type" do
+        result = @geo.cartesian_type 1.0, 2.0, 2.0, 20.0, 20.0
+        result.should == "<http://franz.com/ns/allegrograph/3.0/geospatial/cartesian/2.0/20.0/2.0/20.0/1.0>"
+      end
+
+      it "should provide a spherical type" do
+        result = @geo.spherical_type 1.0, :degree, 2.0, 2.0, 20.0, 20.0
+        result.should == "<http://franz.com/ns/allegrograph/3.0/geospatial/spherical/degrees/2.0/20.0/2.0/20.0/1.0>"
+      end
+      
+    end
+
+    describe "creating polygon" do
+
+      before :each do
+        @type = @geo.cartesian_type 1.0, 2.0, 2.0, 20.0, 20.0
+        @polygon = [ [ 2.0, 2.0 ], [ 11.0, 2.0 ], [ 11.0, 11.0 ], [ 2.0, 11.0 ] ]
+      end
+
+      it "should return true" do
+        result = @geo.create_polygon "test_polygon", @type, @polygon
+        result.should be_true
+      end
+      
+    end
+
+    context "in a cartesian system" do
+
+      before :each do
+        @type = @geo.cartesian_type 1.0, 2.0, 2.0, 20.0, 20.0
+        @repository.statements.create "\"test_subject\"", "\"at\"", "\"+10+10\"^^#{@type}"
+        @repository.statements.create "\"another_subject\"", "\"at\"", "\"+15+15\"^^#{@type}"
+      end
+
+      it "should find objects inside a box" do
+        result = @geo.inside_box @type, "\"at\"", 8.0, 8.0, 11.0, 11.0
+        result.should include([ "\"test_subject\"", "\"at\"", "\"+10.000000000931323+10.000000000931323\"^^#{@type}"])
+        result.should_not include([ "\"another_subject\"", "\"at\"", "\"+15.000000000465661+15.000000000465661\"^^#{@type}"])
+      end
+
+      it "should find objects inside a circle" do
+        result = @geo.inside_circle @type, "\"at\"", 9.0, 9.0, 2.0
+        result.should include([ "\"test_subject\"", "\"at\"", "\"+10.000000000931323+10.000000000931323\"^^#{@type}"])
+        result.should_not include([ "\"another_subject\"", "\"at\"", "\"+15.000000000465661+15.000000000465661\"^^#{@type}"])
+      end
+
+      context "with a defined polygon" do
+
+        before :each do
+          @type = @geo.cartesian_type 1, -100, -100, 100, 100
+          @repository.statements.create "\"test_subject\"", "\"at\"", "\"+1+1\"^^#{@type}"
+          @geo.create_polygon "test_polygon", @type, [ [ 0, -100 ], [ 0, 100 ], [ 100, 100 ], [ 100, -100 ] ]
+        end
+
+        it "should find objects inside that polygon" do
+          pending
+          result = @geo.inside_polygon @type, "\"at\"", "test_polygon"
+          result.should include([ "\"test_subject\"", "\"at\"", "\"+1+1\"^^<http://franz.com/ns/allegrograph/3.0/geospatial/cartesian/2.0/20.0/2.0/20.0/1.0>"])
+        end
+
+      end
+
+    end
+
+    context "in a spherical system" do
+
+      before :each do
+        @type = @geo.spherical_type 1.0, :degree, 2.0, 2.0, 20.0, 20.0
+        @repository.statements.create "\"test_subject\"", "\"at\"", "\"+10.00+010.00\"^^#{@type}"
+      end
+
+      it "should find objects inside a haversine" do
+        result = @geo.inside_haversine @type, "\"at\"", 9.0, 9.0, 200.0, :km
+        result.should include([ "\"test_subject\"", "\"at\"", "\"+100000+0100000\"^^<http://franz.com/ns/allegrograph/3.0/geospatial/spherical/degrees/2.0/20.0/2.0/20.0/1.0>"])
+      end
+
+    end
+
+  end
+
+  describe "transactions" do
+
+    before :each do
+      @repository.statements.delete
+    end
+
+    it "should commit all changes at once" do
+      @repository.transaction do
+        statements.create "\"test_subject\"", "<http://xmlns.com/foaf/0.1/knows>", "\"test_object\""
+        statements.create "\"another_subject\"", "<http://xmlns.com/foaf/0.1/knows>", "\"another_object\""
+      end
+
+      result = @repository.statements.find
+      result.should include([ "\"test_subject\"", "<http://xmlns.com/foaf/0.1/knows>", "\"test_object\"" ])
+      result.should include([ "\"another_subject\"", "<http://xmlns.com/foaf/0.1/knows>", "\"another_object\"" ])
+    end
+
+    it "should rollback on error" do
+      lambda do
+        @repository.transaction do
+          statements.create "\"test_subject\"", "<http://xmlns.com/foaf/0.1/knows>", "\"test_object\""
+          statements.create "\"another_subject\"", "<http://xmlns.com/foaf/0.1/knows>", "\"another_object\""
+          invalid
+        end
+      end.should raise_error(NameError)
+
+      result = @repository.statements.find
+      result.should_not include([ "\"test_subject\"", "<http://xmlns.com/foaf/0.1/knows>", "\"test_object\"" ])
+      result.should_not include([ "\"another_subject\"", "<http://xmlns.com/foaf/0.1/knows>", "\"another_object\"" ])
+    end
+
+  end
+
+  describe "federations" do
+
+    before :each do
+      @federation = AllegroGraph::Federation.new @server, "test_federation", :repository_names => [ @repository.name ]
+    end
+    
+    it "should create a federation" do
+      @federation.delete_if_exists!
+      @federation.create!.should be_true
+    end
+
+    it "should list the federations" do
+      @federation.create_if_missing!
+      @server.federations.should include(@federation)
+    end
+
+    it "should delete a federation" do
+      @federation.create_if_missing!
+      @federation.delete!.should be_true
+    end
+
+  end
+
+  describe "type mapping" do
+
+    before :each do
+      @repository.create_if_missing!
+      @statements = @repository.statements
+      @mapping    = @repository.mapping
+    end
+
+    describe "creating a type" do
+
+      it "should return true" do
+        result = @mapping.create "<time>", "<http://www.w3.org/2001/XMLSchema#dateTime>"
+        result.should be_true
+      end
+
+    end
+
+    describe "creating a type" do
+
+      before :each do
+        @mapping.create "<time>", "<http://www.w3.org/2001/XMLSchema#dateTime>"
+      end
+
+      it "should return true" do
+        result = @mapping.delete "<time>"
+        result.should be_true
+      end
+
+    end
+
+    describe "using a type for a range query" do
+
+      before :each do
+        @mapping.create "<time>", "<http://www.w3.org/2001/XMLSchema#dateTime>"
+        @statements.create "\"event_one\"", "<happened>", "\"2010-03-29T17:00:00\"^^<time>"
+        @statements.create "\"event_two\"", "<happened>", "\"2010-03-29T18:00:00\"^^<time>"
+        @statements.create "\"event_three\"", "<happened>", "\"2010-03-29T19:00:00\"^^<time>"
+      end
+
+      it "should findthe statements for the given time" do
+        result = @statements.find :predicate => "<happened>", :object => [ "\"2010-03-29T16:30:00\"^^<time>", "\"2010-03-29T18:30:00\"^^<time>" ]
+        result.should include([ "\"event_one\"", "<happened>", "\"2010-03-29T17:00:00Z\"^^<http://www.w3.org/2001/XMLSchema#dateTime>" ])
+        result.should include([ "\"event_two\"", "<happened>", "\"2010-03-29T18:00:00Z\"^^<http://www.w3.org/2001/XMLSchema#dateTime>" ])
+        result.should_not include([ "\"event_three\"", "<happened>", "\"2010-03-29T19:00:00Z\"^^<http://www.w3.org/2001/XMLSchema#dateTime>" ])
+      end
+
+    end
+
+  end
+
+end