sps_king 0.1.0

data/spec/examples/pain.008.001.02.ch.03.xml

@@ -0,0 +1,240 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!-- 
+(C) Copyright 2015, SIX Interbank Clearing AG, www.iso-payments.ch
+
+Anregungen und Fragen zu diesem Dokument können an das jeweilige Finanzinstitut gerichtet werden. 
+Allgemeine Anregungen können auch bei der SIX Interbank Clearing AG unter folgender Adresse angebracht werden: 
+pm@six-group.com
+-->
+<Document xmlns="http://www.six-interbank-clearing.com/de/pain.008.001.02.ch.03.xsd" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.six-interbank-clearing.com/de/pain.008.001.02.ch.03.xsd pain.008.001.02.ch.03.xsd">
+	<CstmrDrctDbtInitn>
+		<GrpHdr>
+			<MsgId>MSG-01</MsgId>
+			<CreDtTm>2015-03-23T07:30:00</CreDtTm>
+			<NbOfTxs>3</NbOfTxs>
+			<CtrlSum>4372.50</CtrlSum>
+			<InitgPty>
+				<Nm>MUSTER AG</Nm>
+				<Id>
+					<OrgId>
+						<Othr>
+							<Id>ABC1W</Id>
+						</Othr>
+					</OrgId>
+				</Id>
+			</InitgPty>
+		</GrpHdr>
+		<PmtInf>
+			<PmtInfId>PMTINF-01</PmtInfId>
+			<PmtMtd>DD</PmtMtd>
+			<PmtTpInf>
+				<SvcLvl>
+					<Prtry>CHTA</Prtry>
+				</SvcLvl>
+				<LclInstrm>
+					<Prtry>LSV+</Prtry>
+				</LclInstrm>
+			</PmtTpInf>
+			<ReqdColltnDt>2015-03-30</ReqdColltnDt>
+			<Cdtr>
+				<Nm>MUSTER AG</Nm>
+				<PstlAdr>
+					<Ctry>CH</Ctry>
+					<AdrLine>SELDWYLA</AdrLine>
+				</PstlAdr>
+			</Cdtr>
+			<CdtrAcct>
+				<Id>
+					<IBAN>CH7081232000001998736</IBAN>
+				</Id>
+			</CdtrAcct>
+			<CdtrAgt>
+				<FinInstnId>
+					<ClrSysMmbId>
+						<MmbId>81232</MmbId>
+					</ClrSysMmbId>
+					<Othr>
+						<Id>010001456</Id>
+					</Othr>
+				</FinInstnId>
+			</CdtrAgt>
+			<CdtrSchmeId>
+				<Id>
+					<PrvtId>
+						<Othr>
+							<Id>ABC1W</Id>
+							<SchmeNm>
+								<Prtry>CHLS</Prtry>
+							</SchmeNm>
+						</Othr>
+					</PrvtId>
+				</Id>
+			</CdtrSchmeId>
+			<DrctDbtTxInf>
+				<PmtId>
+					<InstrId>INSTRID-01-01</InstrId>
+					<EndToEndId>NOTPROVIDED</EndToEndId>
+				</PmtId>
+				<InstdAmt Ccy="CHF">3421.00</InstdAmt>
+				<DbtrAgt>
+					<FinInstnId>
+						<ClrSysMmbId>
+							<MmbId>4835</MmbId>
+						</ClrSysMmbId>
+					</FinInstnId>
+				</DbtrAgt>
+				<Dbtr>
+					<Nm>HERR PETER HALLER</Nm>
+					<PstlAdr>
+						<Ctry>CH</Ctry>
+						<AdrLine>ROSENAUWEG 4</AdrLine>
+						<AdrLine>8004 ZÜRICH</AdrLine>
+					</PstlAdr>
+				</Dbtr>
+				<DbtrAcct>
+					<Id>
+						<IBAN>CH9804835011062385295</IBAN>
+					</Id>
+				</DbtrAcct>
+				<RmtInf>
+					<Strd>
+						<CdtrRefInf>
+							<Tp>
+								<CdOrPrtry>
+									<Prtry>ESR</Prtry>
+								</CdOrPrtry>
+							</Tp>
+							<Ref>200002000000004443332000061</Ref>
+						</CdtrRefInf>
+					</Strd>
+				</RmtInf>
+			</DrctDbtTxInf>
+		</PmtInf>
+		<PmtInf>
+			<PmtInfId>PMTINF-02</PmtInfId>
+			<PmtMtd>DD</PmtMtd>
+			<PmtTpInf>
+				<SvcLvl>
+					<Prtry>CHTA</Prtry>
+				</SvcLvl>
+				<LclInstrm>
+					<Prtry>LSV+</Prtry>
+				</LclInstrm>
+			</PmtTpInf>
+			<ReqdColltnDt>2015-03-25</ReqdColltnDt>
+			<Cdtr>
+				<Nm>MUSTER AG</Nm>
+				<PstlAdr>
+					<Ctry>CH</Ctry>
+					<AdrLine>SELDWYLA</AdrLine>
+				</PstlAdr>
+			</Cdtr>
+			<CdtrAcct>
+				<Id>
+					<IBAN>CH7081232000001998736</IBAN>
+				</Id>
+			</CdtrAcct>
+			<CdtrAgt>
+				<FinInstnId>
+					<ClrSysMmbId>
+						<MmbId>81232</MmbId>
+					</ClrSysMmbId>
+					<Othr>
+						<Id>010001456</Id>
+					</Othr>
+				</FinInstnId>
+			</CdtrAgt>
+			<CdtrSchmeId>
+				<Id>
+					<PrvtId>
+						<Othr>
+							<Id>ABC1W</Id>
+							<SchmeNm>
+								<Prtry>CHLS</Prtry>
+							</SchmeNm>
+						</Othr>
+					</PrvtId>
+				</Id>
+			</CdtrSchmeId>
+			<DrctDbtTxInf>
+				<PmtId>
+					<InstrId>INSTRID-02-01</InstrId>
+					<EndToEndId>NOTPROVIDED</EndToEndId>
+				</PmtId>
+				<InstdAmt Ccy="CHF">885.50</InstdAmt>
+				<DbtrAgt>
+					<FinInstnId>
+						<ClrSysMmbId>
+							<MmbId>4835</MmbId>
+						</ClrSysMmbId>
+					</FinInstnId>
+				</DbtrAgt>
+				<Dbtr>
+					<Nm>HANS TESTER</Nm>
+					<PstlAdr>
+						<Ctry>CH</Ctry>
+						<AdrLine>PROBEWEG 88</AdrLine>
+						<AdrLine>9998 IRGENDWO</AdrLine>
+					</PstlAdr>
+				</Dbtr>
+				<DbtrAcct>
+					<Id>
+						<IBAN>CH9804835011062385295</IBAN>
+					</Id>
+				</DbtrAcct>
+				<RmtInf>
+					<Ustrd>Gemäss Rechnung 4712</Ustrd>
+					<Strd>
+						<CdtrRefInf>
+							<Tp>
+								<CdOrPrtry>
+									<Prtry>ESR</Prtry>
+								</CdOrPrtry>
+							</Tp>
+							<Ref>185744810000000000200800628</Ref>
+						</CdtrRefInf>
+					</Strd>
+				</RmtInf>
+			</DrctDbtTxInf>
+			<DrctDbtTxInf>
+				<PmtId>
+					<InstrId>INSTRID-02-02</InstrId>
+					<EndToEndId>NOTPROVIDED</EndToEndId>
+				</PmtId>
+				<InstdAmt Ccy="CHF">66.00</InstdAmt>
+				<DbtrAgt>
+					<FinInstnId>
+						<ClrSysMmbId>
+							<MmbId>700</MmbId>
+						</ClrSysMmbId>
+					</FinInstnId>
+				</DbtrAgt>
+				<Dbtr>
+					<Nm>PETER ERROR</Nm>
+					<PstlAdr>
+						<Ctry>CH</Ctry>
+						<AdrLine>Rudolfsweg 11</AdrLine>
+						<AdrLine>Sion</AdrLine>
+					</PstlAdr>
+				</Dbtr>
+				<DbtrAcct>
+					<Id>
+						<IBAN>CH2007000031023502601</IBAN>
+					</Id>
+				</DbtrAcct>
+				<RmtInf>
+					<Strd>
+						<CdtrRefInf>
+							<Tp>
+								<CdOrPrtry>
+									<Prtry>ESR</Prtry>
+								</CdOrPrtry>
+							</Tp>
+							<Ref>215703000075200334559000126</Ref>
+						</CdtrRefInf>
+					</Strd>
+				</RmtInf>
+			</DrctDbtTxInf>
+		</PmtInf>
+	</CstmrDrctDbtInitn>
+</Document>

data/spec/lib/sps_king/account/creditor_account_spec.rb

@@ -0,0 +1,52 @@
+# encoding: utf-8
+require 'spec_helper'
+
+describe SPS::CreditorAccount do
+  it 'should initialize a new account' do
+    expect(
+      SPS::CreditorAccount.new(
+        name:                'Gläubiger GmbH',
+        bic:                 'BANKDEFFXXX',
+        iban:                'DE87200500001234567890',
+        creditor_identifier: 'DE98ZZZ09999999999'
+      )
+    ).to be_valid
+  end
+
+  describe :creditor_identifier do
+    it 'should accept valid value' do
+      expect(SPS::CreditorAccount)
+        .to accept(
+          'DE98ZZZ09999999999',
+          'AT12ZZZ00000000001',
+          'IT97ZZZA1B2C3D4E5F6G7H8',
+          'NL97ZZZ123456780001',
+          'FR12ZZZ123456',
+          for: :creditor_identifier
+        )
+    end
+
+    it 'should not accept invalid value' do
+      expect(SPS::CreditorAccount)
+        .not_to accept(
+          '',
+          'invalid',
+          'DE98ZZZ099999999990',
+          'DEAAAAAAAAAAAAAAAA',
+          for: :creditor_identifier
+        )
+    end
+  end
+
+  describe :isr_participant_number do
+    it 'should accept valid value' do
+      expect(SPS::CreditorAccount)
+        .to accept('123123123', '554544543', nil, for: :isr_participant_number)
+    end
+
+    it 'should not accept invalid value' do
+      expect(SPS::CreditorAccount)
+        .not_to accept('32423432', 'a89898989', for: :isr_participant_number)
+    end
+  end
+end

data/spec/lib/sps_king/account/creditor_address_spec.rb

@@ -0,0 +1,14 @@
+# encoding: utf-8
+require 'spec_helper'
+
+describe SPS::CreditorAddress do
+  it 'should initialize a new address' do
+    expect(
+      SPS::CreditorAddress.new(
+        country_code:  'CH',
+        address_line1: 'Mustergasse 123',
+        address_line2: '12345 Musterstadt'
+      )
+    ).to be_valid
+  end
+end

data/spec/lib/sps_king/account/debtor_account_spec.rb

@@ -0,0 +1,14 @@
+# encoding: utf-8
+require 'spec_helper'
+
+describe SPS::DebtorAccount do
+  it 'should initialize a new account' do
+    expect(
+      SPS::DebtorAccount.new(
+        name: 'Gläubiger GmbH',
+        bic:  'BANKDEFFXXX',
+        iban: 'DE87200500001234567890'
+      )
+    ).to be_valid
+  end
+end

data/spec/lib/sps_king/account/debtor_address_spec.rb

@@ -0,0 +1,14 @@
+# encoding: utf-8
+require 'spec_helper'
+
+describe SPS::DebtorAddress do
+  it 'should initialize a new address' do
+    expect(
+      SPS::DebtorAddress.new(
+        country_code:  'CH',
+        address_line1: 'Mustergasse 123',
+        address_line2: '12345 Musterstadt'
+      )
+    ).to be_valid
+  end
+end

data/spec/lib/sps_king/account_spec.rb

@@ -0,0 +1,42 @@
+# encoding: utf-8
+require 'spec_helper'
+
+describe SPS::Account do
+  describe :new do
+    it 'should not accept unknown keys' do
+      expect {
+        SPS::Account.new foo: 'bar'
+      }.to raise_error(NoMethodError)
+    end
+  end
+
+  describe :name do
+    it 'should accept valid value' do
+      expect(SPS::Account).to accept('Gläubiger GmbH', 'Zahlemann & Söhne GbR', 'X' * 70, for: :name)
+    end
+
+    it 'should not accept invalid value' do
+      expect(SPS::Account).not_to accept(nil, '', 'X' * 71, for: :name)
+    end
+  end
+
+  describe :iban do
+    it 'should accept valid value' do
+      expect(SPS::Account).to accept('DE21500500009876543210', 'PL61109010140000071219812874', for: :iban)
+    end
+
+    it 'should not accept invalid value' do
+      expect(SPS::Account).not_to accept(nil, '', 'invalid', for: :iban)
+    end
+  end
+
+  describe :bic do
+    it 'should accept valid value' do
+      expect(SPS::Account).to accept('DEUTDEFF', 'DEUTDEFF500', 'SPUEDE2UXXX', for: :bic)
+    end
+
+    it 'should not accept invalid value' do
+      expect(SPS::Account).not_to accept('', 'invalid', for: :bic)
+    end
+  end
+end

data/spec/lib/sps_king/converter_spec.rb

@@ -0,0 +1,88 @@
+# encoding: utf-8
+require 'spec_helper'
+
+describe SPS::Converter do
+  include SPS::Converter::InstanceMethods
+
+  describe :convert do
+    context 'when the conversion method does not exist' do
+      it 'raises an ArgumentError' do
+        class DummyForConverter
+          extend SPS::Converter
+        end
+
+        expect {
+          DummyForConverter.convert(:anything, to: :unknown)
+        }.to raise_error(ArgumentError, "Converter 'unknown' does not exist!")
+      end
+    end
+  end
+
+  describe :convert_text do
+    it 'should convert special chars' do
+      expect(convert_text('10€')).to eq('10E')
+      expect(convert_text('info@bundesbank.de')).to eq('info(at)bundesbank.de')
+      expect(convert_text('abc_def')).to eq('abc-def')
+    end
+
+    it 'should not change allowed special character' do
+      expect(convert_text('üöäÜÖÄß')).to eq('üöäÜÖÄß')
+      expect(convert_text('&*$%')).to eq('&*$%')
+    end
+
+    it 'should convert line breaks' do
+      expect(convert_text("one\ntwo"))    .to eq('one two')
+      expect(convert_text("one\ntwo\n"))  .to eq('one two')
+      expect(convert_text("\none\ntwo\n")).to eq('one two')
+      expect(convert_text("one\n\ntwo"))  .to eq('one two')
+    end
+
+    it 'should convert number' do
+      expect(convert_text(1234)).to eq('1234')
+    end
+
+    it 'should remove invalid chars' do
+      expect(convert_text('"=<>!')).to eq('')
+    end
+
+    it 'should not touch valid chars' do
+      expect(convert_text("abc-ABC-0123- ':?,-(+.)/")).to eq("abc-ABC-0123- ':?,-(+.)/")
+    end
+
+    it 'should not touch nil' do
+      expect(convert_text(nil)).to eq(nil)
+    end
+  end
+
+  describe :convert_decimal do
+    it "should convert Integer to BigDecimal" do
+      expect(convert_decimal(42)).to eq(BigDecimal('42.00'))
+    end
+
+    it "should convert Float to BigDecimal" do
+      expect(convert_decimal(42.12)).to eq(BigDecimal('42.12'))
+    end
+
+    it 'should round' do
+      expect(convert_decimal(1.345)).to eq(BigDecimal('1.35'))
+    end
+
+    it 'should not touch nil' do
+      expect(convert_decimal(nil)).to eq(nil)
+    end
+
+    it 'should not convert zero value' do
+      expect(convert_decimal(0)).to eq(nil)
+    end
+
+    it 'should not convert negative value' do
+      expect(convert_decimal(-3)).to eq(nil)
+    end
+
+    it 'should not convert invalid value' do
+      expect(convert_decimal('xyz')).to eq(nil)
+      expect(convert_decimal('NaN')).to eq(nil)
+      expect(convert_decimal('Infinity')).to eq(nil)
+    end
+  end
+end