iso8583 0.1.0

data/test/BitmapTests.rb

@@ -0,0 +1,68 @@
+require 'lib/iso8583'
+require 'test/unit'
+
+class BitmapTests < Test::Unit::TestCase
+	def test_create_empty
+		b = Bitmap.new
+		assert_equal(b.to_s.size, 64, "proper length: 64")
+		b.set(112)
+		assert_equal(b.to_s.size, 128, "proper length: 128")
+		assert_equal(b.to_s, "10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000")
+		b.unset(112)
+		5.step(20,2){|i| b.set(i)}
+		assert(b.to_s.size==64, "proper length: 64")
+		assert_equal(b.to_s, "0000101010101010101000000000000000000000000000000000000000000000")
+		assert b[5]
+		assert b[7]
+		assert b[11]
+		assert !b[12]
+		assert !b[199]
+
+		assert_raises(ISO8583Exception) {b.set 1000 }
+		assert_raises(ISO8583Exception) {	b.set 1 }
+		assert_raises(ISO8583Exception) {	b.set -1 }
+		
+		
+	
+	end
+
+	def test_out_of_bounds_errors
+		b = Bitmap.new
+		assert_raises(ISO8583Exception) {b.set 1000 }
+		assert_raises(ISO8583Exception) {	b.set 1 }
+		assert_raises(ISO8583Exception) {	b.set -1 }
+	end
+
+	def test_parse_bmp
+		# 0000000001001001001001001001001001001001001001001001001001000000
+		# generated by: 10.step(60,3) {|i| mp.set(i)}
+
+		tst = "\x00\x49\x24\x92\x49\x24\x92\x40"
+		b = Bitmap.new tst
+		10.step(60,3) {|i| 
+			assert(b[i], "bit #{i} is not set.")
+			assert(!b[i+i], "bit #{i+i} is set.")
+		}
+
+		#10000000000000000001000000100000010000001000000100000010000001000000100000010000001000000100000010000001000000100000010000001000
+		# generated by: 20.step(128,7) {|i| mp.set(i)}
+		tst = "\x80\x00\x10\x20\x40\x81\x02\x04\x08\x10\x20\x40\x81\x02\x04\x08"
+		b = Bitmap.new tst
+		20.step(128,7) {|i|
+			assert(b[i], "bit #{i} is not set. (128 bit map)")
+			assert(!b[i+i], "bit #{i+i} is set. (128 bit map)")
+		}
+	end
+
+  def test_parse_rest
+    tst = "\x00\x49\x24\x92\x49\x24\x92\x40\x31\x32\x33\x34"
+		b, rest = Bitmap.parse tst
+		10.step(60,3) {|i| 
+			assert(b[i], "bit #{i} is not set.")
+			assert(!b[i+i], "bit #{i+i} is set.")
+		}
+    assert_equal("1234", rest)
+  end
+
+end
+	

data/test/message_test.rb

@@ -0,0 +1,124 @@
+require 'lib/iso8583'
+require 'lib/berlin'
+require 'test/unit'
+
+class MessageTest < Test::Unit::TestCase
+	def test_create_empty
+	  mes = BerlinMessage.new
+    mes.mti = 1100
+    pan = 474747474747
+    mes.pan = pan
+    assert_equal pan, mes.pan
+    assert_equal pan, mes[2]
+    assert_equal pan, mes["Primary Account Number (PAN)"]
+    assert_equal "1100@\000\000\000\000\000\000\00012474747474747", mes.to_b
+
+    mes = BerlinMessage.new
+    mes.mti = "Authorization Request Response Issuer Gateway"
+    pan = 474747474747
+    mes[2] = pan
+    assert_equal pan, mes.pan
+    assert_equal pan, mes[2]
+    assert_equal pan, mes["Primary Account Number (PAN)"]
+    assert_equal "1110@\000\000\000\000\000\000\00012474747474747", mes.to_b
+
+    mes = BerlinMessage.new
+    mes.mti = 1420
+    pan = 474747474747
+    mes["Primary Account Number (PAN)"] = pan
+    assert_equal pan, mes.pan
+    assert_equal pan, mes[2]
+    assert_equal pan, mes["Primary Account Number (PAN)"]
+    assert_equal "1420@\000\000\000\000\000\000\00012474747474747", mes.to_b
+	end
+
+	def test_parse
+    pan = 474747474747
+
+		assert_raises(ISO8583Exception) {
+	    mes = BerlinMessage.parse "@\000\000\000\000\000\000\00012474747474747"
+    }
+	  mes = BerlinMessage.parse "1430@\000\000\000\000\000\000\00012474747474747"
+    assert_equal pan, mes.pan
+    assert_equal 1430, mes.mti
+  end
+
+  def test_to_s
+    mes     = BerlinMessage.new
+    mes.mti = "Network Management Request Response Issuer Gateway or Acquirer Gateway" 
+    mes[2]  = 12341234
+    mes[3]  = 1111
+    mes[4]  = 100
+    mes[6]  = 101
+    mes[7]  = "0808120000"
+    mes[10] = 100
+    mes[11] = 0
+    mes[12] = "740808120000"
+    mes[14] = "1010"
+    mes[22] = "POSDATACODE"
+    mes[23] = 0
+    mes[24] = 1
+    mes[25] = 90
+    mes[26] = 4444
+    mes[30] = 150
+    mes[32] = 321321
+    mes[35] = ";123123123=123?5"
+    mes[37] = "123 123"
+    mes[38] = "90"
+    mes[39] = 90
+    mes[41] = "TermLoc!"
+    mes[42] = "ID Code!"
+    mes[43] = "Card Acceptor Name Location"
+    mes[49] = "840"
+    mes[51] = 978
+    mes[52] = '\x00\x01\x02\x03'
+    mes[53] = '\x07\x06\x05\x04'
+    mes[54] = "No additional amount"
+    mes[55] = '\x07\x06\x05\x04'
+    mes[56] = 88888888888
+    mes[59] = "I'm you're private data, data for money..."
+    mes[64] = "\xF0\xF0\xF0\xF0"
+    
+    expected = <<-END
+MTI:1814 (Network Management Request Response Issuer Gateway or Acquirer Gateway)
+
+002                      Primary Account Number (PAN) : 12341234
+003                                   Processing Code : 1111
+004                              Amount (Transaction) : 100
+006                        Amount, Cardholder Billing : 101
+007                       Date and Time, Transmission : 0808120000
+010               Conversion Rate, Cardholder Billing : 100
+011                  System Trace Audit Number (STAN) : 0
+012                  Date and Time, Local Transaction : 740808120000
+014                                  Date, Expiration : 1010
+022                                     POS Data Code : POSDATACODE
+023                              Card Sequence Number : 0
+024                                     Function Code : 1
+025                               Message Reason Code : 90
+026                       Card Acceptor Business Code : 4444
+030                                 Amounts, Original : 150
+032         Acquiring Institution Identification Code : 321321
+035                                      Track 2 Data : ;123123123=123?5
+037                        Retrieval Reference Number : 123 123
+038                                     Approval Code : 90
+039                                       Action Code : 90
+041             Card Acceptor Terminal Identification : TermLoc!
+042                 Card Acceptor Identification Code : ID Code!
+043                       Card Acceptor Name/Location : Card Acceptor Name Location
+049                        Currency Code, Transaction : 840
+051                 Currency Code, Cardholder Billing : 978
+052         Personal Identification Number (PIN) Data : \\x00\\x01\\x02\\x03
+053              Security Related Control Information : \\x07\\x06\\x05\\x04
+054                               Amounts, Additional : No additional amount
+055 Integrated Circuit Card (ICC) System Related Data : \\x07\\x06\\x05\\x04
+056                            Original Data Elements : 88888888888
+059                         Additional Data - Private : I'm you're private data, data for money...
+064           Message Authentication Code (MAC) Field : \360\360\360\360
+END
+    assert_equal expected, mes.to_s
+  end
+
+
+
+end
+	

data/test/test_codec.rb

@@ -0,0 +1,90 @@
+require 'test/unit'
+require 'lib/iso8583'
+
+class FieldTest < Test::Unit::TestCase
+
+
+
+  def test_MMDDhhmmssCodec
+    dt = MMDDhhmmssCodec.decode "1212121212"
+    assert_equal DateTime, dt.class
+    assert_equal 12, dt.month
+    assert_equal 12, dt.day
+    assert_equal 12, dt.hour
+    assert_equal 12, dt.min
+    assert_equal 12, dt.sec
+
+
+    assert_raise(ISO8583Exception) {
+      dt = MMDDhhmmssCodec.decode "1312121212"
+    }
+    
+    assert_raise(ISO8583Exception) {
+      dt = MMDDhhmmssCodec.encode "1312121212"
+    }
+
+    assert_equal "1212121212", MMDDhhmmssCodec.encode("1212121212")
+  end
+
+  def test_YYMMDDhhmmssCodec
+    dt = YYMMDDhhmmssCodec.decode "081212121212"
+    assert_equal DateTime, dt.class
+    assert_equal 2008, dt.year
+    assert_equal 12, dt.month
+    assert_equal 12, dt.day
+    assert_equal 12, dt.hour
+    assert_equal 12, dt.min
+    assert_equal 12, dt.sec
+
+
+    assert_raise(ISO8583Exception) {
+      dt = YYMMDDhhmmssCodec.decode "091312121212"
+    }
+    
+    assert_raise(ISO8583Exception) {
+      dt = YYMMDDhhmmssCodec.encode "091312121212"
+    }
+
+    assert_equal "091212121212", YYMMDDhhmmssCodec.encode("091212121212")
+
+  end
+  def test_YYMMCodec
+    dt = YYMMCodec.decode "0812"
+    assert_equal DateTime, dt.class
+    assert_equal 2008, dt.year
+    assert_equal 12, dt.month
+
+
+    assert_raise(ISO8583Exception) {
+      dt = YYMMCodec.decode "0913"
+    }
+    
+    assert_raise(ISO8583Exception) {
+      dt = YYMMCodec.encode "0913"
+    }
+
+    assert_equal "0912", YYMMCodec.encode("0912")
+
+  end
+
+  def test_AN_Codec
+    assert_raise(ISO8583Exception) {
+      dt = AN_Codec.encode "!!!"
+    }
+    assert_equal "bla", AN_Codec.encode("bla")
+    assert_equal "bla", AN_Codec.decode("bla")
+  end
+
+  def test_Track2_Codec
+    assert_raise(ISO8583Exception) {
+      dt = Track2.encode "!!!"
+    }
+    assert_raise(ISO8583Exception) {
+      dt = Track2.encode ";12312312=123?5"
+    }
+    assert_equal ";123123123=123?5", Track2.encode(";123123123=123?5")
+    assert_equal ";123123123=123?5", Track2.decode(";123123123=123?5")
+  end
+
+  
+end

data/test/test_fields.rb

@@ -0,0 +1,164 @@
+require 'test/unit'
+require 'lib/iso8583'
+
+class FieldTest < Test::Unit::TestCase
+
+
+
+  def test_LLL
+    value, rest = LLL.parse "123456"
+    assert_equal 123, value
+    assert_equal "456", rest
+
+    assert_raise(ISO8583ParseException) {
+      l,rest = LLL.parse "12"
+    }
+
+    enc = LLL.encode 123
+    assert_equal "\x31\x32\x33", enc
+    
+    enc = LLL.encode "123"
+    assert_equal "\x31\x32\x33", enc
+    
+    enc = LLL.encode 12
+    assert_equal "\x30\x31\x32", enc
+    
+    #enc = LLL.encode "012"
+    #assert_equal "\x30\x31\x32", enc
+
+    
+    assert_raise(ISO8583Exception) {
+      enc = LLL.encode 1234
+    }
+    
+    assert_raise(ISO8583Exception) {
+      enc = LLL.encode "1234"
+    }
+    
+    
+
+  end
+
+  def test_LLVAR_N
+    value, rest = LLVAR_N.parse "021234"
+    assert_equal 12, value
+    assert_equal "34", rest
+
+    value, rest = LLLVAR_N.parse "0041234"
+    assert_equal 1234, value
+    assert_equal "", rest
+    assert_raise(ISO8583ParseException) {
+      l,rest = LLLVAR_N.parse "12"
+    }
+    assert_raise(ISO8583ParseException) {
+      l,rest = LLVAR_N.parse "12123"
+    }
+
+    enc = LLVAR_N.encode 1234
+    assert_equal "041234", enc
+    
+    enc = LLVAR_N.encode 123412341234
+    assert_equal "12123412341234", enc
+    
+    assert_raise(ISO8583Exception) {
+      enc = LLVAR_N.encode "1234ABCD"
+    }
+    
+    enc = LLLVAR_N.encode "123412341234"
+    assert_equal "012123412341234", enc
+    
+    assert_raise(ISO8583Exception) {
+      enc = LLLVAR_N.encode "1234ABCD"
+    }
+
+  end
+ def test_LLVAR_Z
+    value, rest = LLVAR_Z.parse "16;123123123=123?5"+"021234"
+    assert_equal ";123123123=123?5", value
+    assert_equal "021234", rest
+
+    value, rest = LLVAR_Z.parse "16;123123123=123?5" 
+    assert_equal ";123123123=123?5", value
+    assert_equal "", rest
+    assert_raise(ISO8583ParseException) {
+      l,rest = LLVAR_Z.parse "12"
+    }
+    assert_raise(ISO8583ParseException) {
+      l,rest = LLVAR_Z.parse "17;123123123=123?5"
+    }
+
+    enc = LLVAR_Z.encode ";123123123=123?5"
+    assert_equal "16;123123123=123?5", enc
+    
+    
+    assert_raise(ISO8583Exception) {
+      enc = LLVAR_Z.encode "1234ABCD"
+    }
+    
+    
+    
+
+  end
+
+  def test_AN
+    fld = AN.dup
+    fld.length = 3
+    value, rest = fld.parse "1234"
+    assert_equal "123", value
+    assert_equal "4", rest
+    
+    assert_raise(ISO8583ParseException) {
+      fld.parse "12"
+    }
+
+    assert_raise(ISO8583Exception) {
+      fld.encode "888810"
+    }
+  end
+
+  def test_ANP
+    fld = ANP.dup
+    fld.length = 3
+    value, rest = fld.parse "1234"
+    assert_equal "123", value
+    assert_equal "4", rest
+    
+    assert_raise(ISO8583ParseException) {
+      fld.parse "12"
+    }
+
+    assert_equal "10 ", fld.encode("10")
+  end
+
+  def test_ANS
+    fld = ANS.dup
+    fld.length = 3
+    value, rest = fld.parse "1234"
+    assert_equal "123", value
+    assert_equal "4", rest
+    
+    assert_raise(ISO8583ParseException) {
+      fld.parse "12"
+    }
+
+    assert_equal "10 ", fld.encode("10")
+    assert_equal ["1!", "a"], fld.parse("1! a")
+  end
+  def test_B
+    fld = B.dup
+    fld.length = 3
+    value, rest = fld.parse "\000234"
+    assert_equal "\00023", value
+    assert_equal "4", rest
+    
+    assert_raise(ISO8583ParseException) {
+      fld.parse "12"
+    }
+
+    assert_equal "10\000", fld.encode("10")
+    assert_equal ["1! ", "a"], fld.parse("1! a")
+    assert_equal ["1!", ""], fld.parse("1!\000")
+  end
+ 
+  
+end

metadata

@@ -0,0 +1,70 @@
+--- !ruby/object:Gem::Specification 
+name: iso8583
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+platform: ruby
+authors: 
+- Tim Becker
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-08-15 00:00:00 +02:00
+default_executable: 
+dependencies: []
+
+description: Ruby implementation of ISO 8583 financial messaging
+email: tim.becker@kuriositaet.de
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- lib/berlin.rb
+- lib/bitmap.rb
+- lib/codec.rb
+- lib/exception.rb
+- lib/field.rb
+- lib/fields.rb
+- lib/iso8583.rb
+- lib/message.rb
+- AUTHORS
+- CHANGELOG
+- LICENSE
+- Rakefile
+- README
+- TODO
+- test/BitmapTests.rb
+- test/message_test.rb
+- test/test_codec.rb
+- test/test_fields.rb
+has_rdoc: true
+homepage: http://iso8583.rubyforge.org/
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: 
+- none
+rubyforge_project: iso8583
+rubygems_version: 1.3.1
+signing_key: 
+specification_version: 2
+summary: "iso8583: Ruby implementation of ISO 8583 financial messaging"
+test_files: []
+