scb 0.0.1

data/spec/fixtures/sv/ssd/BO/BO0102/LagenhetOmbAkBpAtAr.json

@@ -0,0 +1,148 @@
+{
+  "title": "Ombyggda lägenheter i flerbostadshus med statligt stöd efter åtgärd, byggnadsperiod, ägarkategori, tabellinnehåll och tid",
+  "variables": [
+    {
+      "code": "Atgard",
+      "text": "åtgärd",
+      "values": [
+        "10",
+        "11",
+        "12",
+        "13",
+        "14",
+        "15",
+        "16",
+        "17",
+        "18",
+        "19",
+        "9"
+      ],
+      "valueTexts": [
+        "utbyte av elledningar",
+        "grundförstärkning",
+        "hissinstallation",
+        "utbyte av hygienutrustning",
+        "utbyte av köksutrustning",
+        "stomförstärkning",
+        "utbyte av vattenledningar",
+        "utbyte av ventilationssystem",
+        "utbyte av värmerör",
+        "utbyte av värmesystem",
+        "utbyte av avloppsledningar"
+      ]
+    },
+    {
+      "code": "Byggnadsperiod",
+      "text": "byggnadsperiod",
+      "values": [
+        "-1901",
+        "1901-1920",
+        "1921-1930",
+        "1931-1940",
+        "1941-1950",
+        "1951-1960",
+        "1961-1970",
+        "1971-1980",
+        "1981-1990",
+        "1991-2000",
+        "2001-2010",
+        "2011-"
+      ],
+      "valueTexts": [
+        "före 1901",
+        "1901-1920",
+        "1921-1930",
+        "1931-1940",
+        "1941-1950",
+        "1951-1960",
+        "1961-1970",
+        "1971-1980",
+        "1981-1990",
+        "1991-2000",
+        "2001-2010",
+        "2011-"
+      ],
+      "elimination": true
+    },
+    {
+      "code": "Agarkategori",
+      "text": "ägarkategori",
+      "values": [
+        "1",
+        "2",
+        "3",
+        "4",
+        "ENSK PERS",
+        "ANNAN ÄGARE"
+      ],
+      "valueTexts": [
+        "stat, landsting, kommun",
+        "kommunägda företag",
+        "HSB, Riksbyggen",
+        "annan bostadsrättsförening",
+        "enskild person",
+        "annan ägare"
+      ],
+      "elimination": true
+    },
+    {
+      "code": "ContentsCode",
+      "text": "tabellinnehåll",
+      "values": [
+        "BO0102G1"
+      ],
+      "valueTexts": [
+        "Ombyggda lägenheter i flerbostadshus med statligt stöd"
+      ]
+    },
+    {
+      "code": "Tid",
+      "text": "tid",
+      "values": [
+        "1989",
+        "1990",
+        "1991",
+        "1992",
+        "1993",
+        "1994",
+        "1995",
+        "1996",
+        "1997",
+        "1998",
+        "1999",
+        "2000",
+        "2001",
+        "2002",
+        "2003",
+        "2004",
+        "2005",
+        "2006",
+        "2007",
+        "2008"
+      ],
+      "valueTexts": [
+        "1989",
+        "1990",
+        "1991",
+        "1992",
+        "1993",
+        "1994",
+        "1995",
+        "1996",
+        "1997",
+        "1998",
+        "1999",
+        "2000",
+        "2001",
+        "2002",
+        "2003",
+        "2004",
+        "2005",
+        "2006",
+        "2007",
+        "2008"
+      ],
+      "time": true
+    }
+  ]
+}

data/spec/scb/api/config_spec.rb

@@ -0,0 +1,50 @@
+# encoding: utf-8
+
+require_relative '../../spec_helper'
+
+describe "Config" do
+  subject {
+    SCB::API::Config.new do |c|
+      c.api_host    = api_host
+      c.api_version = api_version
+    end
+  }
+
+  let(:api_host)    { 'config.test' }
+  let(:api_version) { 'v2'          }
+
+  it "returns the api_host" do
+    subject.api_host.must_equal api_host
+  end
+
+  it "returns the api_version" do
+    subject.api_version.must_equal api_version
+  end
+
+  it "returns the base_url" do
+    subject.base_url.must_equal 'http://config.test/OV0104/v2/sv/ssd'
+  end
+
+  describe "json_parser" do
+    it "is a lambda by default" do
+      subject.json_parser.
+        parse('{"foo":123}')['foo'].must_equal 123
+    end
+
+    it "can be changed" do
+      subject.json_parser = "foo"
+      subject.json_parser.must_equal "foo"
+    end
+  end
+
+  describe "http_client" do
+    it "is Net::HTTP by default" do
+      subject.http_client.must_equal SCB::HTTP
+    end
+
+    it "can be changed" do
+      subject.http_client = "bar"
+      subject.http_client.must_equal "bar"
+    end
+  end
+end

data/spec/scb/api_spec.rb

@@ -0,0 +1,101 @@
+# encoding: utf-8
+
+require_relative '../spec_helper'
+
+describe "API" do
+  subject { SCB::API }
+
+  let(:api)           { api_with_test_config(SCB::API.new) }
+  let(:base_url)      { "http://api.test/name/v0/lang/db" }
+  let(:expected_uri)  { URI.parse "#{base_url}/endpoint" }
+
+  let(:fake_http_post) {
+    # With UTF8 BOM, since the real API has this bug.
+    ->(path, json){ fake_response("\xEF\xBB\xBF#{json}") }
+  }
+
+  describe "initialize" do
+    it "takes a config" do
+      subject.new("foo").config.must_equal "foo"
+    end
+
+    it "instantiates a default config" do
+      subject.new.config.api_host.must_equal "api.scb.se"
+    end
+  end
+
+  describe "get" do
+    it "checks for nil responses" do
+      api.stub(:http_get, nil) do
+        api.get('nil').must_be_nil
+      end
+    end
+
+    it "retrieves the data using a HTTP GET" do
+      api.stub(:http_get, fake_response('foo')) do
+        api.get.must_equal "foo"
+      end
+    end
+  end
+
+  describe "get_and_parse" do
+    it "parses the returned body" do
+      api.stub(:http_get, fixture_response('sv/ssd/BO')) do
+        api.get_and_parse.last["id"].must_equal "BO0701"
+      end
+    end
+  end
+
+  describe "post" do
+    it "unfortunately receives the body with an UTF8 BOM" do
+      api.stub(:http_post, fake_http_post) do
+        api.post(nil, { foo: "bar"}).
+          must_equal "\xEF\xBB\xBF{\"foo\":\"bar\"}"
+      end
+    end
+
+    it "strips the UTF8 BOM if the format is json" do
+      api.stub(:http_post, fake_http_post) do
+        query = { foo: "bar", response: { format: "json" } }
+
+        api.post(nil, query).
+          must_equal '{"foo":"bar","response":{"format":"json"}}'
+      end
+    end
+  end
+
+  describe "post_and_parse" do
+    it "forces the format to be JSON" do
+      api.stub(:http_post, fake_http_post) do
+        query = { response: { format: "png" } }
+        api.post_and_parse(nil, query).must_equal({
+          "response" => { "format" => "json" }
+        })
+      end
+    end
+  end
+
+  describe "base_url" do
+    it "returns the base URL" do
+      api.base_url.must_equal base_url
+    end
+  end
+
+  describe "uri" do
+    it "it returns a URI pointing to the provided endpoint" do
+      api.uri("endpoint").must_equal expected_uri
+    end
+  end
+
+  describe "load_json" do
+    it "can load JSON" do
+      api.load_json('{"baz":[1,2,3]}')['baz'].first.must_equal 1
+    end
+  end
+
+  describe "dump_json" do
+    it "can dump JSON" do
+      api.dump_json({ foo: 123}).must_equal '{"foo":123}'
+    end
+  end
+end

data/spec/scb/db/level_spec.rb

@@ -0,0 +1,39 @@
+# encoding: utf-8
+
+require_relative '../../spec_helper'
+
+describe SCB::DB::Level do
+  subject { SCB::DB::Level }
+
+  let(:api) { SCB::API.new }
+
+  let(:level) {
+    s('BO', 'Boende, byggande och bebyggelse')
+  }
+
+  describe "initialize" do
+    it "takes a name" do
+      level.name.must_equal 'BO'
+    end
+
+    it "also takes an optional text" do
+      level.text.must_equal 'Boende, byggande och bebyggelse'
+    end
+  end
+
+  describe "levels" do
+    it "has a list of levels" do
+      level.stub(:data, parsed_fixture('sv/ssd/BO')) do
+        level.levels.last.name.must_equal 'BO0701'
+      end
+    end
+  end
+
+  describe "tables" do
+    it "has a list of tables" do
+      level.stub(:data, parsed_fixture('sv/ssd/BO/BO0102')) do
+        level.tables[3].name.must_equal 'LagenhetRivAkBpLtRAr'
+      end
+    end
+  end
+end

data/spec/scb/db/table_spec.rb

@@ -0,0 +1,102 @@
+# encoding: utf-8
+
+require_relative '../../spec_helper'
+
+describe SCB::DB::Table do
+  subject { SCB::DB::Table }
+
+  let(:name)  { 'LagenhetOmbAkBpAtAr' }
+  let(:table) { s(name) }
+
+  describe "initialize" do
+    it "takes a name" do
+      table.name.must_equal name
+    end
+  end
+
+  describe "query" do
+    it "parses the simple query and loads the JSON" do
+      table.stub(:json_query, ->(sq) { sq }) do
+        table.query({ Foo: [1,2] }).
+          first[:selection][:values].must_equal ["1","2"]
+      end
+    end
+  end
+
+  describe "json_query" do
+    it "loads JSON" do
+      table.stub(:post_query, '{"foo":123}') do
+        table.json_query['foo'].must_equal 123
+      end
+    end
+  end
+
+  describe "png_query" do
+    it "parses the simple_query and sets the format to png" do
+      table.stub(:post_query, ->(q, f){ [q,f] }) do
+        response = table.png_query({ Foo: 1 }, "bar")
+
+        response[0].must_equal [{
+          code: "Foo",
+          selection: {
+            filter: "bar",
+            values: ["1"]
+          }
+        }]
+
+        response[1].must_equal "png"
+      end
+    end
+  end
+
+  describe "post_query" do
+    it "rescues any http exception and raises its own instead" do
+      table.stub(:api_post, ->(n, sq) { raise SCB::HTTP::Exception }) do
+        ->{ table.post_query({}) }.must_raise SCB::DB::InvalidQuery
+      end
+    end
+  end
+
+  describe "title" do
+    it "extracts the title from the data" do
+      table.stub(:data, { 'title' => 'bar' }) do
+        table.title.must_equal 'bar'
+      end
+    end
+  end
+
+  describe "uri" do
+    it "returns the URI of the table" do
+      table.stub(:api_uri, URI) do
+        table.uri.must_equal URI
+      end
+    end
+  end
+
+  describe "write_png_query" do
+    it "writes the image data to a file" do
+      expected = [[{
+          code: "Bar",
+          selection: { filter: "item", values: ["1"] }
+        }], "png" ]
+
+      table.stub(:post_query, ->(*args){ args }) do
+        table.stub(:write_file, ->(*args){ args }) do
+          table.write_png_query(nil, { Bar: 1 })[1].
+            must_equal expected
+        end
+      end
+    end
+  end
+
+  describe "write_png_query_raw" do
+    it "writes the image data to a file" do
+      table.stub(:post_query, ->(*args){ args }) do
+        table.stub(:write_file, ->(*args){ args }) do
+          table.write_png_query_raw('foo', { Bar: 123 }).
+            must_equal ["foo", [{:Bar=>123}, "png"]]
+        end
+      end
+    end
+  end
+end

data/spec/scb/db/variable_spec.rb

@@ -0,0 +1,54 @@
+# encoding: utf-8
+
+require_relative '../../spec_helper'
+
+describe SCB::DB::Variable do
+  subject { SCB::DB::Variable }
+
+  let(:fixture_file)   { 'sv/ssd/BO/BO0102/LagenhetOmbAkBpAtAr' }
+  let(:variables_data) { parsed_fixture(fixture_file)['variables'] }
+  let(:data)           { variables_data.sample }
+  let(:variable)       { subject.new(data) }
+
+  describe "initialize" do
+    it "takes data as input" do
+      subject.new("foo").data.must_equal "foo"
+    end
+  end
+
+  describe "code" do
+    it "returns the code of the variable" do
+      variable.code.must_equal data["code"]
+    end
+  end
+
+  describe "text" do
+    it "returns the text of the variable" do
+      variable.text.must_equal data["text"]
+    end
+  end
+
+  describe "values" do
+    it "returns the values of the variable" do
+      variable.values.must_equal data["values"]
+    end
+  end
+
+  describe "value_texts" do
+    it "returns the value texts of the variable" do
+      variable.value_texts.must_equal data["valueTexts"]
+    end
+  end
+
+  describe "elimination?" do
+    it "returns true/false if the variable is an elimination" do
+      variable.elimination?.must_equal !!data["elimination"]
+    end
+  end
+
+  describe "time?" do
+    it "returns true/false if the variable is a time" do
+      variable.time?.must_equal !!data["time"]
+    end
+  end
+end