require 'spec_helper'

describe Ldp::Orm do
  subject { Ldp::Orm.new test_resource }

  let(:simple_graph) do
    RDF::Graph.new << [RDF::URI.new(""), RDF::DC.title, "Hello, world!"]
  end

  let(:conn_stubs) do
    Faraday::Adapter::Test::Stubs.new do |stub|
      stub.get('/a_resource') {[ 200, {"Link" => "<http://www.w3.org/ns/ldp#DirectContainer>;rel=\"type\", <http://www.w3.org/ns/ldp#Resource>;rel=\"type\""}, simple_graph.dump(:ttl) ]}
      stub.head('/a_resource') { [200] }
      stub.put("/a_resource") { [204]}
    end
  end

  let(:mock_conn) do
    Faraday.new do |builder|
      builder.adapter :test, conn_stubs do |stub|
      end
    end
  end

  let :mock_client do
    Ldp::Client.new mock_conn
  end

  let :test_resource do
    Ldp::Resource::RdfSource.new mock_client, "http://example.com/a_resource"
  end

  describe "#delete" do
    it "should delete the LDP resource" do
      expect(test_resource).to receive(:delete)
      subject.delete
    end
  end

  describe "#create" do
    let(:conn_stubs) do
      Faraday::Adapter::Test::Stubs.new do |stub|
        stub.post("/") { [201]}
      end
    end
    let :test_resource do
      Ldp::Resource::RdfSource.new mock_client, nil, simple_graph
    end
    it "should return a new orm" do
      expect(subject.create).to be_kind_of Ldp::Orm
    end
  end

  describe "#save" do
    it "should update the resource from the graph" do
      expect(subject.save).to be true
    end

    it "should return false if the response was not successful" do
      conn_stubs.instance_variable_get(:@stack)[:put] = [] # erases the stubs for :put
      conn_stubs.put('/a_resource') {[412, nil, 'There was an error']}
      expect(subject.save).to be false
    end
  end

  describe "#save!" do
    it "should raise an exception if the ETag didn't match" do
      conn_stubs.instance_variable_get(:@stack)[:put] = [] # erases the stubs for :put
      conn_stubs.put('/a_resource') {[412, {}, "Bad If-Match header value: 'ae43aa934dc4f4e15ea1b4dd1ca7a56791972836'"]}
      expect { subject.save! }.to raise_exception(Ldp::EtagMismatch, "Bad If-Match header value: 'ae43aa934dc4f4e15ea1b4dd1ca7a56791972836'")
    end
  end

  describe "#value" do
    it "should provide a convenience method for retrieving values" do
      expect(subject.value(RDF::DC.title).first.to_s).to eq "Hello, world!"
    end
  end

  describe "#reload" do
    before do
      updated_graph = RDF::Graph.new << [RDF::URI.new(""), RDF::DC.title, "Hello again, world!"]
      conn_stubs.get('/a_resource') {[200,
                                      {"Link" => "<http://www.w3.org/ns/ldp#Resource>;rel=\"type\", <http://www.w3.org/ns/ldp#DirectContainer>;rel=\"type\"",
                                       "ETag" => "new-tag"},
                                      updated_graph.dump(:ttl)]}
    end

    it "loads the new values" do
      old_value = subject.value(RDF::DC.title).first.to_s
      reloaded = subject.reload
      expect(reloaded.value(RDF::DC.title).first.to_s).not_to eq old_value
    end

    it "uses the new ETag" do
      old_tag = subject.resource.get.etag
      reloaded = subject.reload
      expect(reloaded.resource.get.etag).not_to eq old_tag
    end
  end
end