90 lines
4.2 KiB
Ruby
90 lines
4.2 KiB
Ruby
|
# frozen_string_literal: true
|
||
|
|
|
||
|
|
require_relative "../../helper"
|
||
|
|
require "provider/adapters/bbk"
|
||
|
|
|
||
|
|
class Provider < Sequel::Model(:providers)
|
||
|
|
module Adapters
|
||
|
|
describe BBK do
|
||
|
|
before do
|
||
|
|
VCR.insert_cassette("bbk", match_requests_on: [:method, :host])
|
||
|
|
end
|
||
|
|
|
||
|
|
after { VCR.eject_cassette }
|
||
|
|
|
||
|
|
let(:adapter) { BBK.new }
|
||
|
|
|
||
|
|
it "parses CSV with foreign base and DEM quote" do
|
||
|
|
csv = <<~CSV
|
||
|
|
DATAFLOW;BBK_STD_FREQ;BBK_STD_CURRENCY;BBK_ERX_PARTNER_CURRENCY;BBK_ERX_SERIES_TYPE;BBK_ERX_RATE_TYPE;BBK_ERX_SUFFIX;TIME_PERIOD;OBS_VALUE;TIME_FORMAT;BBK_DECIMALS;BBK_ID;BBK_UNIT;BBK_UNIT_MULT;BBK_TITLE;WEB_CATEGORY;BBK_COMM_GEN;BBK_DIFF;OBS_STATUS
|
||
|
|
BBK:BBEX3(1.0);D;USD;DEM;AA;AC;000;1998-12-30;1.6730;P1D;4;BBEX3.D.USD.DEM.AA.AC.000;DEM;0;Devisenkurse der Frankfurter Börse / 1 USD = ... DEM / Vereinigte Staaten;WEDE;;0.0;
|
||
|
|
CSV
|
||
|
|
|
||
|
|
records = adapter.parse(csv)
|
||
|
|
|
||
|
|
_(records.length).must_equal(1)
|
||
|
|
_(records.first[:base]).must_equal("USD")
|
||
|
|
_(records.first[:quote]).must_equal("DEM")
|
||
|
|
_(records.first[:rate]).must_equal(1.6730)
|
||
|
|
_(records.first[:date]).must_equal(Date.new(1998, 12, 30))
|
||
|
|
end
|
||
|
|
|
||
|
|
it "scales rates using the hardcoded per-currency multiplier" do
|
||
|
|
csv = <<~CSV
|
||
|
|
DATAFLOW;BBK_STD_FREQ;BBK_STD_CURRENCY;BBK_ERX_PARTNER_CURRENCY;BBK_ERX_SERIES_TYPE;BBK_ERX_RATE_TYPE;BBK_ERX_SUFFIX;TIME_PERIOD;OBS_VALUE;TIME_FORMAT;BBK_DECIMALS;BBK_ID;BBK_UNIT;BBK_UNIT_MULT;BBK_TITLE;WEB_CATEGORY;BBK_COMM_GEN;BBK_DIFF;OBS_STATUS
|
||
|
|
BBK:BBEX3(1.0);D;ATS;DEM;AA;AC;000;1998-12-30;14.214;P1D;3;BBEX3.D.ATS.DEM.AA.AC.000;DEM;0;Devisenkurse der Frankfurter Börse / 100 ATS = ... DEM / Österreich;WEDE;;0.0;
|
||
|
|
BBK:BBEX3(1.0);D;ITL;DEM;AA;AC;000;1998-12-30;1.0100;P1D;4;BBEX3.D.ITL.DEM.AA.AC.000;DEM;0;Devisenkurse der Frankfurter Börse / 1 000 ITL = ... DEM / Italien;WEDE;;0.0;
|
||
|
|
CSV
|
||
|
|
|
||
|
|
records = adapter.parse(csv)
|
||
|
|
ats = records.find { |r| r[:base] == "ATS" }
|
||
|
|
itl = records.find { |r| r[:base] == "ITL" }
|
||
|
|
|
||
|
|
_(ats[:rate]).must_be_close_to(0.14214, 0.00001)
|
||
|
|
_(itl[:rate]).must_be_close_to(0.00101, 0.000001)
|
||
|
|
end
|
||
|
|
|
||
|
|
it "skips non-daily frequencies" do
|
||
|
|
csv = <<~CSV
|
||
|
|
DATAFLOW;BBK_STD_FREQ;BBK_STD_CURRENCY;BBK_ERX_PARTNER_CURRENCY;BBK_ERX_SERIES_TYPE;BBK_ERX_RATE_TYPE;BBK_ERX_SUFFIX;TIME_PERIOD;OBS_VALUE;TIME_FORMAT;BBK_DECIMALS;BBK_ID;BBK_UNIT;BBK_UNIT_MULT;BBK_TITLE;WEB_CATEGORY;BBK_COMM_GEN;BBK_DIFF;OBS_STATUS
|
||
|
|
BBK:BBEX3(1.0);M;USD;DEM;AA;AC;A02;1998-12;1.6700;P1M;4;BBEX3.M.USD.DEM.AA.AC.A02;DEM;0;Devisenkurse der Frankfurter Börse / 1 USD = ... DEM / Vereinigte Staaten;WEDE;;0.0;
|
||
|
|
CSV
|
||
|
|
|
||
|
|
_(adapter.parse(csv)).must_be_empty
|
||
|
|
end
|
||
|
|
|
||
|
|
it "skips rows with missing OBS_VALUE" do
|
||
|
|
csv = <<~CSV
|
||
|
|
DATAFLOW;BBK_STD_FREQ;BBK_STD_CURRENCY;BBK_ERX_PARTNER_CURRENCY;BBK_ERX_SERIES_TYPE;BBK_ERX_RATE_TYPE;BBK_ERX_SUFFIX;TIME_PERIOD;OBS_VALUE;TIME_FORMAT;BBK_DECIMALS;BBK_ID;BBK_UNIT;BBK_UNIT_MULT;BBK_TITLE;WEB_CATEGORY;BBK_COMM_GEN;BBK_DIFF;OBS_STATUS
|
||
|
|
BBK:BBEX3(1.0);D;USD;DEM;AA;AC;000;1998-12-24;.;P1D;4;BBEX3.D.USD.DEM.AA.AC.000;DEM;0;Devisenkurse der Frankfurter Börse / 1 USD = ... DEM / Vereinigte Staaten;WEDE;;;K
|
||
|
|
CSV
|
||
|
|
|
||
|
|
_(adapter.parse(csv)).must_be_empty
|
||
|
|
end
|
||
|
|
|
||
|
|
it "fetches rates for a historical date range" do
|
||
|
|
dataset = adapter.fetch(after: Date.new(1998, 12, 21), upto: Date.new(1998, 12, 30))
|
||
|
|
|
||
|
|
_(dataset).wont_be_empty
|
||
|
|
_(dataset.map { |r| r[:quote] }.uniq).must_equal(["DEM"])
|
||
|
|
end
|
||
|
|
|
||
|
|
it "fetches multiple currencies per date" do
|
||
|
|
dataset = adapter.fetch(after: Date.new(1998, 12, 21), upto: Date.new(1998, 12, 30))
|
||
|
|
dates = dataset.map { |r| r[:date] }.uniq
|
||
|
|
sample = dataset.select { |r| r[:date] == dates.first }
|
||
|
|
|
||
|
|
_(sample.size).must_be(:>, 5)
|
||
|
|
end
|
||
|
|
|
||
|
|
it "returns USD/DEM in a plausible range for late-1998" do
|
||
|
|
dataset = adapter.fetch(after: Date.new(1998, 12, 29), upto: Date.new(1998, 12, 30))
|
||
|
|
usd = dataset.find { |r| r[:base] == "USD" && r[:quote] == "DEM" && r[:date] == Date.new(1998, 12, 30) }
|
||
|
|
|
||
|
|
_(usd).wont_be_nil
|
||
|
|
_(usd[:rate]).must_be_close_to(1.67, 0.1)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|