# coding: utf-8
$:.unshift "."
require 'spec_helper'

describe JSON::LD::API do
  before(:each) { @debug = []}

  describe ".compact" do
    {
      "prefix" => {
        :input => {
          "@id" => "http://example.com/a",
          "http://example.com/b" => {"@id" => "http://example.com/c"}
        },
        :context => {"ex" => "http://example.com/"},
        :output => {
          "@context" => {"ex" => "http://example.com/"},
          "@id" => "ex:a",
          "ex:b" => {"@id" => "ex:c"}
        }
      },
      "term" => {
        :input => {
          "@id" => "http://example.com/a",
          "http://example.com/b" => {"@id" => "http://example.com/c"}
        },
        :context => {"b" => "http://example.com/b"},
        :output => {
          "@context" => {"b" => "http://example.com/b"},
          "@id" => "http://example.com/a",
          "b" => {"@id" => "http://example.com/c"}
        }
      },
      "integer value" => {
        :input => {
          "@id" => "http://example.com/a",
          "http://example.com/b" => {"@value" => 1}
        },
        :context => {"b" => "http://example.com/b"},
        :output => {
          "@context" => {"b" => "http://example.com/b"},
          "@id" => "http://example.com/a",
          "b" => 1
        }
      },
      "boolean value" => {
        :input => {
          "@id" => "http://example.com/a",
          "http://example.com/b" => {"@value" => true}
        },
        :context => {"b" => "http://example.com/b"},
        :output => {
          "@context" => {"b" => "http://example.com/b"},
          "@id" => "http://example.com/a",
          "b" => true
        }
      },
      "@id" => {
        :input => {"@id" => "http://example.org/test#example"},
        :context => {},
        :output => {}
      },
      "@id coercion" => {
        :input => {
          "@id" => "http://example.com/a",
          "http://example.com/b" => {"@id" => "http://example.com/c"}
        },
        :context => {"b" => {"@id" => "http://example.com/b", "@type" => "@id"}},
        :output => {
          "@context" => {"b" => {"@id" => "http://example.com/b", "@type" => "@id"}},
          "@id" => "http://example.com/a",
          "b" => "http://example.com/c"
        }
      },
      "xsd:date coercion" => {
        :input => {
          "http://example.com/b" => {"@value" => "2012-01-04", "@type" => RDF::XSD.date.to_s}
        },
        :context => {
          "xsd" => RDF::XSD.to_s,
          "b" => {"@id" => "http://example.com/b", "@type" => "xsd:date"}
        },
        :output => {
          "@context" => {
            "xsd" => RDF::XSD.to_s,
            "b" => {"@id" => "http://example.com/b", "@type" => "xsd:date"}
          },
          "b" => "2012-01-04"
        }
      },
      "@list coercion" => {
        :input => {
          "http://example.com/b" => {"@list" => ["c", "d"]}
        },
        :context => {"b" => {"@id" => "http://example.com/b", "@container" => "@list"}},
        :output => {
          "@context" => {"b" => {"@id" => "http://example.com/b", "@container" => "@list"}},
          "b" => ["c", "d"]
        }
      },
      "@list coercion (integer)" => {
        :input => {
          "http://example.com/term" => [
            {"@list" => [1]},
          ]
        },
        :context => {
          "term4" => {"@id" => "http://example.com/term", "@container" => "@list"},
          "@language" => "de"
        },
        :output => {
          "@context" => {
            "term4" => {"@id" => "http://example.com/term", "@container" => "@list"},
            "@language" => "de"
          },
          "term4" => [1],
        }
      },
      "@set coercion" => {
        :input => {
          "http://example.com/b" => {"@set" => ["c"]}
        },
        :context => {"b" => {"@id" => "http://example.com/b", "@container" => "@set"}},
        :output => {
          "@context" => {"b" => {"@id" => "http://example.com/b", "@container" => "@set"}},
          "b" => ["c"]
        }
      },
      "empty @set coercion" => {
        :input => {
          "http://example.com/b" => []
        },
        :context => {"b" => {"@id" => "http://example.com/b", "@container" => "@set"}},
        :output => {
          "@context" => {"b" => {"@id" => "http://example.com/b", "@container" => "@set"}},
          "b" => []
        }
      },
      "@type with string @id" => {
        :input => {
          "@id" => "http://example.com/",
          "@type" => "#{RDF::RDFS.Resource}"
        },
        :context => {},
        :output => {
          "@id" => "http://example.com/",
          "@type" => "#{RDF::RDFS.Resource}"
        },
      },
      "@type with array @id" => {
        :input => {
          "@id" => "http://example.com/",
          "@type" => ["#{RDF::RDFS.Resource}"]
        },
        :context => {},
        :output => {
          "@id" => "http://example.com/",
          "@type" => "#{RDF::RDFS.Resource}"
        },
      },
      "default language" => {
        :input => {
          "http://example.com/term" => [
            "v5",
            {"@value" => "plain literal"}
          ]
        },
        :context => {
          "term5" => {"@id" => "http://example.com/term", "@language" => nil},
          "@language" => "de"
        },
        :output => {
          "@context" => {
            "term5" => {"@id" => "http://example.com/term", "@language" => nil},
            "@language" => "de"
          },
          "term5" => [ "v5", "plain literal" ]
        }
      },
    }.each_pair do |title, params|
      it title do
        jld = JSON::LD::API.compact(params[:input], params[:context], :debug => @debug)
        expect(jld).to produce(params[:output], @debug)
      end
    end

    context "keyword aliasing" do
      {
        "@id" => {
          :input => {
            "@id" => "",
            "@type" => "#{RDF::RDFS.Resource}"
          },
          :context => {"id" => "@id"},
          :output => {
            "@context" => {"id" => "@id"},
            "id" => "",
            "@type" => "#{RDF::RDFS.Resource}"
          }
        },
        "@type" => {
          :input => {
            "@type" => RDF::RDFS.Resource.to_s,
            "http://example.org/foo" => {"@value" => "bar", "@type" => "http://example.com/type"}
          },
          :context => {"type" => "@type"},
          :output => {
            "@context" => {"type" => "@type"},
            "type" => RDF::RDFS.Resource.to_s,
            "http://example.org/foo" => {"@value" => "bar", "type" => "http://example.com/type"}
          }
        },
        "@language" => {
          :input => {
            "http://example.org/foo" => {"@value" => "bar", "@language" => "baz"}
          },
          :context => {"language" => "@language"},
          :output => {
            "@context" => {"language" => "@language"},
            "http://example.org/foo" => {"@value" => "bar", "language" => "baz"}
          }
        },
        "@value" => {
          :input => {
            "http://example.org/foo" => {"@value" => "bar", "@language" => "baz"}
          },
          :context => {"literal" => "@value"},
          :output => {
            "@context" => {"literal" => "@value"},
            "http://example.org/foo" => {"literal" => "bar", "@language" => "baz"}
          }
        },
        "@list" => {
          :input => {
            "http://example.org/foo" => {"@list" => ["bar"]}
          },
          :context => {"list" => "@list"},
          :output => {
            "@context" => {"list" => "@list"},
            "http://example.org/foo" => {"list" => ["bar"]}
          }
        },
      }.each do |title, params|
        it title do
          jld = JSON::LD::API.compact(params[:input], params[:context], :debug => @debug)
          expect(jld).to produce(params[:output], @debug)
        end
      end
    end

    context "term selection" do
      {
        "Uses term with nil language when two terms conflict on language" => {
          :input => [{
            "http://example.com/term" => {"@value" => "v1"}
          }],
          :context => {
            "term5" => {"@id" => "http://example.com/term","@language" => nil},
            "@language" => "de"
          },
          :output => {
            "@context" => {
              "term5" => {"@id" => "http://example.com/term","@language" => nil},
              "@language" => "de"
            },
            "term5" => "v1",
          }
        },
        "Uses subject alias" => {
          :input => [{
            "@id" => "http://example.com/id1",
            "http://example.com/id1" => {"@value" => "foo", "@language" => "de"}
          }],
          :context => {
            "id1" => "http://example.com/id1",
            "@language" => "de"
          },
          :output => {
            "@context" => {
              "id1" => "http://example.com/id1",
              "@language" => "de"
            },
            "@id" => "http://example.com/id1",
            "id1" => "foo"
          }
        },
        "compact-0007" => {
          :input => ::JSON.parse(%(
            {"http://example.org/vocab#contains": "this-is-not-an-IRI"}
          )),
          :context => ::JSON.parse(%({
            "ex": "http://example.org/vocab#",
            "ex:contains": {"@type": "@id"}
          })),
          :output => ::JSON.parse(%({
            "@context": {
              "ex": "http://example.org/vocab#",
              "ex:contains": {"@type": "@id"}
            },
            "http://example.org/vocab#contains": "this-is-not-an-IRI"
          }))
        }
      }.each_pair do |title, params|
        it title do
          input = params[:input].is_a?(String) ? JSON.parse(params[:input]) : params[:input]
          ctx = params[:context].is_a?(String) ? JSON.parse(params[:context]) : params[:context]
          output = params[:output].is_a?(String) ? JSON.parse(params[:output]) : params[:output]
          jld = JSON::LD::API.compact(input, ctx, :debug => @debug)
          expect(jld).to produce(output, @debug)
        end
      end
    end

    context "@reverse" do
      {
        "compact-0033" => {
          :input => %([
            {
              "@id": "http://example.com/people/markus",
              "@reverse": {
                "http://xmlns.com/foaf/0.1/knows": [
                  {
                    "@id": "http://example.com/people/dave",
                    "http://xmlns.com/foaf/0.1/name": [ { "@value": "Dave Longley" } ]
                  }
                ]
              },
              "http://xmlns.com/foaf/0.1/name": [ { "@value": "Markus Lanthaler" } ]
            }
          ]),
          :context => %({
            "name": "http://xmlns.com/foaf/0.1/name",
            "isKnownBy": { "@reverse": "http://xmlns.com/foaf/0.1/knows" }
          }),
          :output => %({
            "@context": {
              "name": "http://xmlns.com/foaf/0.1/name",
              "isKnownBy": {
                "@reverse": "http://xmlns.com/foaf/0.1/knows"
              }
            },
            "@id": "http://example.com/people/markus",
            "name": "Markus Lanthaler",
            "isKnownBy": {
              "@id": "http://example.com/people/dave",
              "name": "Dave Longley"
            }
          })
        }
      }.each_pair do |title, params|
        it title do
          input = params[:input].is_a?(String) ? JSON.parse(params[:input]) : params[:input]
          ctx = params[:context].is_a?(String) ? JSON.parse(params[:context]) : params[:context]
          output = params[:output].is_a?(String) ? JSON.parse(params[:output]) : params[:output]
          jld = JSON::LD::API.compact(input, ctx, :debug => @debug)
          expect(jld).to produce(output, @debug)
        end
      end
    end

    context "context as value" do
      it "includes the context in the output document" do
        ctx = {
          "foo" => "http://example.com/"
        }
        input = {
          "http://example.com/" => "bar"
        }
        expected = {
          "@context" => {
            "foo" => "http://example.com/"
          },
          "foo" => "bar"
        }
        jld = JSON::LD::API.compact(input, ctx, :debug => @debug, :validate => true)
        expect(jld).to produce(expected, @debug)
      end
    end

    context "context as reference" do
      let(:remote_doc) do
        JSON::LD::API::RemoteDocument.new("http://example.com/context", %q({"@context": {"b": "http://example.com/b"}}))
      end
      it "uses referenced context" do
        input = {
          "http://example.com/b" => "c"
        }
        expected = {
          "@context" => "http://example.com/context",
          "b" => "c"
        }
        allow(JSON::LD::API).to receive(:documentLoader).with("http://example.com/context").and_yield(remote_doc)
        jld = JSON::LD::API.compact(input, "http://example.com/context", :debug => @debug, :validate => true)
        expect(jld).to produce(expected, @debug)
      end
    end

    context "@list" do
      {
        "1 term 2 lists 2 languages" => {
          :input => [{
            "http://example.com/foo" => [
              {"@list" => [{"@value" => "en", "@language" => "en"}]},
              {"@list" => [{"@value" => "de", "@language" => "de"}]}
            ]
          }],
          :context => {
            "foo_en" => {"@id" => "http://example.com/foo", "@container" => "@list", "@language" => "en"},
            "foo_de" => {"@id" => "http://example.com/foo", "@container" => "@list", "@language" => "de"}
          },
          :output => {
            "@context" => {
              "foo_en" => {"@id" => "http://example.com/foo", "@container" => "@list", "@language" => "en"},
              "foo_de" => {"@id" => "http://example.com/foo", "@container" => "@list", "@language" => "de"}
            },
            "foo_en" => ["en"],
            "foo_de" => ["de"]
          }
        },
      }.each_pair do |title, params|
        it title do
          jld = JSON::LD::API.compact(params[:input], params[:context], :debug => @debug)
          expect(jld).to produce(params[:output], @debug)
        end
      end
    end

    context "language maps" do
      {
        "compact-0024" => {
          :input => [
            {
              "@id" => "http://example.com/queen",
              "http://example.com/vocab/label" => [
                {"@value" => "The Queen", "@language" => "en"},
                {"@value" => "Die Königin", "@language" => "de"},
                {"@value" => "Ihre Majestät", "@language" => "de"}
              ]
            }
          ],
          :context => {
            "vocab" => "http://example.com/vocab/",
            "label" => {"@id" => "vocab:label", "@container" => "@language"}
          },
          :output => {
            "@context" => {
              "vocab" => "http://example.com/vocab/",
              "label" => {"@id" => "vocab:label", "@container" => "@language"}
            },
            "@id" => "http://example.com/queen",
            "label" => {
              "en" => "The Queen",
              "de" => ["Die Königin", "Ihre Majestät"]
            }
          }
        },
      }.each_pair do |title, params|
        it title do
          jld = JSON::LD::API.compact(params[:input], params[:context], :debug => @debug)
          expect(jld).to produce(params[:output], @debug)
        end
      end
    end

    context "@graph" do
      {
        "Uses @graph given mutliple inputs" => {
          :input => [
            {"http://example.com/foo" => ["foo"]},
            {"http://example.com/bar" => ["bar"]}
          ],
          :context => {"ex" => "http://example.com/"},
          :output => {
            "@context" => {"ex" => "http://example.com/"},
            "@graph" => [
              {"ex:foo"  => "foo"},
              {"ex:bar" => "bar"}
            ]
          }
        },
      }.each_pair do |title, params|
        it title do
          jld = JSON::LD::API.compact(params[:input], params[:context], :debug => @debug)
          expect(jld).to produce(params[:output], @debug)
        end
      end
    end

    context "exceptions" do
      {
        "@list containing @list" => {
          :input => {
            "http://example.org/foo" => {"@list" => [{"@list" => ["baz"]}]}
          },
          :exception => JSON::LD::JsonLdError::ListOfLists
        },
        "@list containing @list (with coercion)" => {
          :input => {
            "@context" => {"http://example.org/foo" => {"@container" => "@list"}},
            "http://example.org/foo" => [{"@list" => ["baz"]}]
          },
          :exception => JSON::LD::JsonLdError::ListOfLists
        },
      }.each do |title, params|
        it title do
          expect {JSON::LD::API.compact(params[:input], {})}.to raise_error(params[:exception])
        end
      end
    end
  end
end