amigo 0.1.0

data/lib/amigo/variables.rb

@@ -0,0 +1,56 @@
+require 'hamster/immutable'
+require 'hamster/list'
+
+module Amigo
+
+  class Variables
+
+    include Hamster::Immutable
+
+    module ALL
+
+      class << self
+
+        def include?(name)
+          true
+        end
+
+        def to_sparql
+          "*"
+        end
+
+      end
+
+    end
+
+    def self.new(*names)
+      return ALL if names.include?(:*)
+      super(names)
+    end
+
+    def initialize(names)
+      @names = Hamster.list(*names)
+    end
+
+    def include?(name)
+      @names.include?(name)
+    end
+
+    def to_sparql
+      @names.map { |name| "?#{name}" }.join(" ")
+    end
+
+    def eql?(other)
+      return true if other.equal?(self)
+      other.class.equal?(self.class) &&
+        @names.eql?(other.instance_variable_get(:@names))
+    end
+    alias_method :==, :eql?
+
+    def hash
+      @names.hash
+    end
+
+  end
+
+end

data/lib/amigo/version.rb

@@ -0,0 +1,5 @@
+module Amigo
+
+  VERSION = "0.1.0".freeze
+
+end

data/lib/amigo/where.rb

@@ -0,0 +1,78 @@
+require 'hamster/immutable'
+require 'hamster/list'
+require 'hamster/hash'
+require 'hamster/set'
+
+require 'amigo/variable'
+require 'amigo/term'
+
+module Amigo
+
+  class Where
+
+    include Hamster::Immutable
+
+    def initialize(subject, predicate, object)
+      @components = Hamster.list(
+        component(:subject, subject),
+        component(:predicate, predicate),
+        component(:object, object)
+      )
+    end
+
+    def ask(statements)
+      statements.any? { |statement| select?(statement) }
+    end
+
+    def select(statements)
+      statements.reduce(Hamster.set) do |result, statement|
+        next result unless select?(statement)
+        result.add(bind(statement, Hamster.hash))
+      end
+    end
+
+    def join(statements, rows)
+      rows.reduce(Hamster.set) do |result, row|
+        statements.reduce(result) do |result, statement|
+          next result unless join?(statement, row)
+          result.add(bind(statement, row))
+        end
+      end
+    end
+
+    def select?(statement)
+      @components.all? { |component| component.select?(statement) }
+    end
+
+    def join?(statement, row)
+      select?(statement) && @components.all? { |component| component.join?(statement, row) }
+    end
+
+    def bind(statement, row)
+      @components.reduce(row) { |row, component| component.bind(statement, row) }
+    end
+
+    def to_sparql
+      "#{@components.map(&:to_sparql).join(" ")} ."
+    end
+
+    def eql?(other)
+      return true if other.equal?(self)
+      other.class.equal?(self.class) &&
+        @components.eql?(other.instance_variable_get(:@components))
+    end
+    alias_method :==, :eql?
+
+    def hash
+      @components.hash
+    end
+
+    private
+
+    def component(component, value)
+      (Symbol === value ? Variable : Term).new(component, value)
+    end
+
+  end
+
+end

data/spec/amigo/select/execute_spec.rb

@@ -0,0 +1,184 @@
+require 'spec_helper'
+
+require 'hamster/set'
+require 'hamster/hash'
+
+require 'amigo/uri'
+require 'amigo/triple'
+require 'amigo/select'
+
+module Amigo
+
+  describe Select do
+
+    describe "#execute" do
+
+      describe "with no where clauses" do
+
+        before do
+          @result = Select.new(:title).
+            execute(Hamster.set(Triple.new(URI.parse(URI.parse("ex_book:book1")), URI.parse(URI.parse("dc:title")), "SPARQL Tutorial")))
+        end
+
+        it "the result has a single solution" do
+          @result.size.should == 1
+        end
+
+        describe "the solution" do
+
+          before do
+            @solution = @result.first
+          end
+
+          it "binds no variables" do
+            @solution.include?(:title).should == false
+          end
+
+        end
+
+      end
+
+      describe "when matching URIs" do
+
+        before do
+          @result = Select.new(:title).
+            where(URI.parse("ex_book:book1"), URI.parse("dc:title"), :title).
+            execute(Hamster.set(Triple.new(URI.parse("ex_book:book1"), URI.parse("dc:title"), "SPARQL Tutorial")))
+        end
+
+        it "returns the correct number of solutions" do
+          @result.size.should == 1
+        end
+
+        describe "each solution" do
+
+          before do
+            @solution = @result.first
+          end
+
+          it "correctly bind the selected variables" do
+            @solution[:title].should == "SPARQL Tutorial"
+          end
+
+        end
+
+      end
+
+      describe "when matching literals" do
+
+        before do
+          @result = Select.new(:v).
+            where(:v, :p, 42).
+            execute(Hamster.set(Triple.new(URI.parse("ns:y"), URI.parse("ns:p"), 42)))
+        end
+
+        it "returns the correct number of solutions" do
+          @result.size.should == 1
+        end
+
+        describe "each solution" do
+
+          before do
+            @solution = @result.first
+          end
+
+          it "correctly bind the the selected variables" do
+            @solution[:v].should == URI.parse("ns:y")
+          end
+
+        end
+
+      end
+
+      describe "with unselected variables" do
+
+        before do
+          @result = Select.new(:title).
+            where(:x, :y, :title).
+            execute(Hamster.set(Triple.new(URI.parse("ex_book:book1"), URI.parse("dc:title"), "SPARQL Tutorial")))
+        end
+
+        it "returns the correct number of solutions" do
+          @result.size.should == 1
+        end
+
+        describe "each solution" do
+
+          before do
+            @solution = @result.first
+          end
+
+          it "correctly bind the the selected variables" do
+            @solution[:title].should == "SPARQL Tutorial"
+          end
+
+          it "do not bind any non-selected variables" do
+            @solution.include?(:x).should == false
+            @solution.include?(:y).should == false
+          end
+
+        end
+
+      end
+
+      describe "with joins" do
+
+        before do
+          @result = Select.new(:name, :mbox).
+            where(:x, URI.parse("foaf:name"), :name).
+            where(:x, URI.parse("foaf:mbox"), :mbox).
+            execute(Hamster.set(
+              Triple.new("a", URI.parse("foaf:name"), "Johnny Lee Outlaw"),
+              Triple.new("a", URI.parse("foaf:mbox"), URI.parse("mailto:jlow@example.com")),
+              Triple.new("b", URI.parse("foaf:name"), "Peter Goodguy"),
+              Triple.new("b", URI.parse("foaf:mbox"), URI.parse("mailto:peter@example.com")),
+              Triple.new("c", URI.parse("foaf:mbox"), URI.parse("mailto:carol@example.com"))
+            )).
+            sort_by(&:name)
+        end
+
+        it "returns the correct number of solutions" do
+          @result.size == 2
+        end
+
+        describe "each solution" do
+
+          before do
+            @solution = @result.first
+          end
+
+          it "correctly bind the selected variables" do
+            @solution[:name].should == "Johnny Lee Outlaw"
+            @solution[:mbox].should == URI.parse("mailto:jlow@example.com")
+          end
+
+          it "does not bind any un-selected variables" do
+            @solution.include?(:x).should == false
+          end
+
+        end
+
+        describe "each solution" do
+
+          before do
+            @solution = @result.last
+          end
+
+          it "correctly bind the selected variables" do
+            @solution[:name].should == "Peter Goodguy"
+            @solution[:mbox].should == URI.parse("mailto:peter@example.com")
+          end
+
+          it "does not bind any un-selected variables" do
+            @solution.include?(:x).should == false
+          end
+
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/amigo/select/immutable_spec.rb

@@ -0,0 +1,15 @@
+require 'spec_helper'
+
+require 'amigo/select'
+
+module Amigo
+
+  describe Select do
+
+    it "is immutable" do
+      Select.should include(Hamster::Immutable)
+    end
+
+  end
+
+end

data/spec/amigo/select/to_sparql_spec.rb

@@ -0,0 +1,35 @@
+require 'spec_helper'
+
+require 'amigo/select'
+
+module Amigo
+
+  describe Select do
+
+    describe "#to_sparql" do
+
+      [
+        [Select.new(:*), "SELECT * WHERE {}"],
+        [Select.new(:*).where(:a, :b, :c), "SELECT * WHERE {?a ?b ?c .}"],
+        [Select.new(:a, :b, :c).where(:a, :b, :c), "SELECT ?a ?b ?c WHERE {?a ?b ?c .}"],
+        [Select.new(:a, :c).where(:a, :b, :c), "SELECT ?a ?c WHERE {?a ?b ?c .}"],
+        [Select.new(:*).where(:a, "bee", :c), "SELECT * WHERE {?a \"bee\" ?c .}"],
+        [Select.new(:a, :c).where(:a, "bee", :c), "SELECT ?a ?c WHERE {?a \"bee\" ?c .}"],
+        [Select.new(:*).where(:a, "bee", :c).where("dee", :e, "eff"), "SELECT * WHERE {?a \"bee\" ?c . \"dee\" ?e \"eff\" .}"],
+      ].each do |select, sparql|
+
+        describe "given #{select.inspect}" do
+
+          it "returns #{sparql.inspect}" do
+            select.to_sparql.should == sparql
+          end
+
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/amigo/select/to_sql_spec.rb

@@ -0,0 +1,38 @@
+require 'spec_helper'
+
+require 'amigo/select'
+
+module Amigo
+
+  describe Select do
+
+    describe "#to_sql" do
+
+      [
+        [Select.new(:*), "SELECT * FROM triples LIMIT 0"],
+        [Select.new(:*).where(:x, :y, :z), "SELECT subject x, predicate y, object z FROM triples"],
+        [Select.new(:x, :y, :z).where(:x, :y, :z), "SELECT subject x, predicate y, object z FROM triples"],
+        [Select.new(:x, :z).where(:x, :y, :z), "SELECT subject x, object z FROM triples"],
+        [Select.new(:*).where(:x, "bee", :z), "SELECT subject x, object z, FROM triples WHERE triples.predicate = 'bee'"],
+        [Select.new(:x, :z).where(:x, "bee", :z), "SELECT subject x, object z FROM triples WHERE triples.predicate = 'bee'"],
+        [Select.new(:*).where(:x, "bee", :z).where("dee", :y, "eff"), "SELECT a.subject x, a.object z, b.predicate y FROM triples a CROSS JOIN triples b WHERE a.predicate = 'bee' AND b.subject = 'dee' AND b.object = 'eff'"],
+        [Select.new(:x, :y).where(:x, "bee", :z).where(:z, :y, "see"), "SELECT a.subject x, b.predicate y FROM triples a JOIN triples b ON (a.object = b.subject) WHERE a.predicate = 'bee' AND b.object = 'see'"],
+      ].each do |select, sql|
+
+        describe "given #{select.inspect}" do
+
+          it "returns #{sql.inspect}" do
+            pending {
+              select.to_sql.should == sql
+            }
+          end
+
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/amigo/store/to_ntriples_spec.rb

@@ -0,0 +1,17 @@
+require 'spec_helper'
+
+require 'amigo/store'
+
+module Amigo
+
+  describe Store do
+
+    describe "#to_ntriples" do
+
+
+
+    end
+
+  end
+
+end

data/spec/amigo/term/to_sparql_spec.rb

@@ -0,0 +1,35 @@
+require 'spec_helper'
+
+require 'amigo/term'
+
+module Amigo
+
+  describe Term do
+
+    describe "#to_sparql" do
+
+      [
+        [:subject, "a", "\"a\""],
+        [:predicate, "x", "\"x\""],
+        [:object, "flibble", "\"flibble\""]
+      ].each do |component, value, sparql|
+
+        describe "given #{name.inspect}" do
+
+          before do
+            @term = Term.new(component, value)
+          end
+
+          it "returns #{sparql.inspect}" do
+            @term.to_sparql.should == sparql
+          end
+
+        end
+
+      end
+
+    end
+
+  end
+
+end