npn47_iso8583 0.1.5.a

data/lib/iso8583/message.rb

@@ -0,0 +1,419 @@
+# Copyright 2009 by Tim Becker (tim.becker@kuriostaet.de)
+# MIT License, for details, see the LICENSE file accompaning
+# this distribution
+
+module ISO8583
+
+  # The class `Message` defines functionality to describe classes
+  # representing different type of messages, or message families.
+  # A message family consists of a number of possible message types that
+  # are allowed, and a way of naming and encoding the bitmaps allowed in
+  # the messages.
+  #
+  # To create your own message, start by subclassing Message:
+  #
+  #    class MyMessage < Message
+  #       (...)
+  #    end
+  #
+  # the subtyped message should be told how the MTI is encoded:
+  #
+  #    class MyMessage < Message
+  #       mti_format N, :length => 4
+  #       (...)
+  #    end
+  #
+  # `N` above is an instance of Field which encodes numbers into their
+  # ASCII representations in  a fixed length field. The option `length=>4`
+  # indicates the length of the fixed field.
+  #
+  # Next, the allowed message types are specified:
+  #
+  #    class MyMessage < Message
+  #       (...)
+  #       mti 1100, "Authorization Request Acquirer Gateway"
+  #       mti 1110, "Authorization Request Response Issuer Gateway"
+  #       (...)
+  #    end
+  #
+  # This basically defines to message types, 1100 and 1110 which may
+  # be accessed later either via their name or value:
+  #
+  #    mes = MyMessage.new 1100
+  # 
+  # or
+  #    mes = MyMessage.new "Authorization Request Acquirer Gateway"
+  #
+  # or
+  #    mes = MyMessage.new
+  #    mes.mti = 1110 # or Auth. Req. Acq. Gateway ...
+  #
+  # Finally the allowed bitmaps, their names and the encoding rules are
+  # specified:
+  #
+  #    class MyMessage < Message
+  #       (...)
+  #       bmp  2, "Primary Account Number (PAN)",               LLVAR_N,   :max    => 19
+  #       bmp  3,  "Processing Code",                           N,         :length =>  6
+  #       bmp  4,  "Amount (Transaction)",                      N,         :length => 12
+  #       bmp  6,  "Amount, Cardholder Billing" ,               N,         :length => 12
+  #       (...)
+  #    end
+  #
+  # The example above defines four bitmaps (2,3,4 and 6), and provides
+  # their bitmap number and description. The PAN field is variable length
+  # encoded (LL length indicator, ASCII, contents numeric, ASCII) and the
+  # maximum length of the field is limited to 19 using options.
+  #
+  # The other fields are fixed length numeric ASCII fields (the length of the fields is
+  # indicated by the `:length` options.)
+  #
+  # This message may be used as follows in order to interpret a received message.:
+  #
+  #    mes = MyMessage.parse inputData
+  #    puts mes[2] # prints the PAN from the message.
+  #
+  # Constructing own messages works as follows:
+  #
+  #     mes = MyMessage.new 1100 
+  #     mes[2]= 474747474747
+  #     # Alternatively
+  #     mes["Primary Account Number (PAN)"]= 4747474747
+  #     mes[3] = 1234 # padding is added by the Field en/decoder
+  #     mes["Amount (Transaction)"] = 100
+  #     mes[6] = 200
+  #
+  # the convenience method bmp_alias may be used in defining the class in
+  # order to provide direct access to fields using methods:
+  #
+  #    class MyMessage < Message
+  #       (...)
+  #       bmp  2, "Primary Account Number (PAN)",               LLVAR_N,   :max    => 19
+  #       (...)
+  #       bmp_alias 2, :pan
+  #    end
+  #
+  # this allows accessing fields in the following manner:
+  #
+  #     mes = MyMessage.new 1100
+  #     mes.pan = 474747474747
+  #     puts mes.pan
+  #     # Identical functionality to:
+  #     mes[2]= 474747474747
+  #     # or:
+  #     mes["Primary Account Number (PAN)"]= 4747474747
+  #
+  # Most of the work in implementing a new set of message type lays in
+  # figuring out the correct fields to use defining the Message class via
+  # bmp.
+  #    
+  class Message
+
+    # The value of the MTI (Message Type Indicator) of this message.
+    attr_reader :mti 
+
+    # Instantiate a new instance of this type of Message
+    # optionally specifying an mti. 
+    def initialize(mti = nil)
+      # values is an internal field used to collect all the
+      # bmp number | bmp name | field en/decoders | values
+      # which are set in this message.
+      @values = {}
+      self.mti = mti if mti
+    end
+
+    # Set the mti of the Message using either the actual value
+    # or the name of the message type that was defined using
+    # Message.mti
+    #
+    # === Example
+    #    class MyMessage < Message
+    #      (...)
+    #      mti 1100, "Authorization Request Acquirer Gateway"
+    #    end
+    #
+    #    mes = MyMessage.new
+    #    mes.mti = 1100 # or mes.mti = "Authorization Request Acquirer Gateway"
+    def mti=(value)
+      num, name = _get_mti_definition(value)
+      @mti = num
+    end
+    
+    # Set a field in this message, `key` is either the
+    # bmp number or it's name.
+    # ===Example
+    #
+    #    mes = BlaBlaMessage.new
+    #    mes[2]=47474747                          # bmp 2 is generally the PAN
+    #    mes["Primary Account Number"]=47474747   # if thats what you called the field in Message.bmp.
+    def []=(key, value)
+      bmp_def              = _get_definition key
+      bmp_def.value        = value
+      @values[bmp_def.bmp] = bmp_def 
+    end
+
+    # Retrieve the decoded value of the contents of a bitmap
+    # described either by the bitmap number or name.
+    #
+    # ===Example
+    #
+    #    mes = BlaBlaMessage.parse someMessageBytes
+    #    mes[2] # bmp 2 is generally the PAN
+    #    mes["Primary Account Number"] # if thats what you called the field in Message.bmp.
+    def [](key)
+      bmp_def = _get_definition key
+      bmp     = @values[bmp_def.bmp]
+      bmp ? bmp.value : nil
+    end
+
+    # Retrieve the byte representation of the bitmap.
+    def to_b
+      raise ISO8583Exception.new "no MTI set!" unless mti
+      mti_enc = self.class._mti_format.encode(mti)
+      mti_enc << _body.join
+    end
+
+    # Returns a nicely formatted representation of this
+    # message.
+    def to_s
+      _mti_name = _get_mti_definition(mti)[1]
+      str = "MTI:#{mti} (#{_mti_name})\n\n"
+      _max = @values.values.max {|a,b|
+        a.name.length <=> b.name.length
+      }
+      _max_name = _max.name.length
+
+      @values.keys.sort.each{|bmp_num|
+        _bmp = @values[bmp_num]
+        str += ("%03d %#{_max_name}s : %s\n" % [bmp_num, _bmp.name, _bmp.value])
+      }
+      str
+    end
+
+
+    # METHODS starting with an underscore are meant for
+    # internal use only ...
+    
+    # Returns an array of two byte arrays:
+    # [bitmap_bytes, message_bytes]
+    def _body
+      bitmap  = Bitmap.new
+      message = ""
+      @values.keys.sort.each do |bmp_num|
+        bitmap.set(bmp_num)
+        enc_value = @values[bmp_num].encode
+        message << enc_value
+      end
+      [ bitmap.to_bytes, message ]
+    end
+
+    def _get_definition(key) #:nodoc:
+      b = self.class._definitions[key]
+      unless b
+        raise ISO8583Exception.new "no definition for field: #{key}"
+      end
+      b.dup
+    end
+
+    # return [mti_num, mti_value] for key being either
+    # mti_num or mti_value
+    def _get_mti_definition(key)
+      num_hash,name_hash = self.class._mti_definitions
+      if num_hash[key]
+        [key, num_hash[key]]
+      elsif name_hash[key]
+        [name_hash[key], key]
+      else
+        raise ISO8583Exception.new("MTI: #{key} not allowed!")
+      end
+    end
+
+    class << self
+
+      # Defines how the message type indicator is encoded into bytes. 
+      # ===Params:
+      # * field    : the decoder/encoder for the MTI
+      # * opts     : the options to pass to this field
+      #
+      # === Example
+      #     class MyMessage < Message
+      #       mti_format N, :length =>4
+      #       (...)
+      #     end
+      #
+      # encodes the mti of this message using the `N` field (fixed
+      # length, plain ASCII) and sets the fixed lengh to 4 bytes.
+      #
+      # See also: mti
+      def mti_format(field, opts)
+        f = field.dup
+        _handle_opts(f, opts)
+        @mti_format = f
+      end
+      
+      # Defines the message types allowed for this type of message and
+      # gives them names
+      # 
+      # === Example
+      #    class MyMessage < Message
+      #      (...)
+      #      mti 1100, "Authorization Request Acquirer Gateway"
+      #    end
+      #
+      #    mes = MyMessage.new
+      #    mes.mti = 1100 # or mes.mti = "Authorization Request Acquirer Gateway"
+      #
+      # See Also: mti_format
+      def mti(value, name)
+        @mtis_v ||= {}
+        @mtis_n ||= {}
+        @mtis_v[value] = name
+        @mtis_n[name]  = value
+      end
+
+      # Define a bitmap in the message
+      # ===Params:
+      # * bmp   : bitmap number
+      # * name  : human readable form
+      # * field : field for encoding/decoding
+      # * opts  : options to pass to the field, e.g. length for fxed len fields.
+      #
+      # ===Example
+      #
+      #    class MyMessage < Message
+      #      bmp 2, "PAN", LLVAR_N, :max =>19
+      #      (...)
+      #    end
+      #
+      # creates a class MyMessage that allows for a bitmap 2 which 
+      # is named "PAN" and encoded by an LLVAR_N Field. The maximum 
+      # length of the value is 19. This class may be used as follows:
+      #
+      #    mes = MyMessage.new
+      #    mes[2] = 474747474747 # or mes["PAN"] = 4747474747
+      #
+      def bmp(bmp, name, field, opts = nil)
+        @defs ||= {}
+
+        field = field.dup
+        field.name = name
+        field.bmp  = bmp
+        _handle_opts(field, opts) if opts
+        
+        bmp_def = BMP.new bmp, name, field
+
+        @defs[bmp]  = bmp_def
+        @defs[name] = bmp_def
+      end
+
+      # Create an alias to access bitmaps directly using a method.
+      # Example:
+      #     class MyMessage < Message
+      #         (...)
+      #         bmp 2, "PAN", LLVAR_N
+      #         (...)
+      #         bmp_alias 2, :pan
+      #     end #class
+      #
+      # would allow you to access the PAN like this:
+      #
+      #    mes.pan = 1234
+      #    puts mes.pan
+      #
+      # instead of:
+      #
+      #    mes[2] = 1234
+      #
+      def bmp_alias(bmp, aliaz)
+        define_method (aliaz) {
+          bmp_ = @values[bmp]
+          bmp_ ? bmp_.value : nil
+        }
+
+        define_method ("#{aliaz}=") {|value|
+          self[bmp] = value
+          # bmp_def = _get_definition(bmp)
+          # bmp_def.value= value
+          # @values[bmp] = bmp_def
+        }
+      end
+      
+      # Parse the bytes `str` returning a message of the defined type.
+      def parse(str)
+        message = self.new
+        message.mti, rest = _mti_format.parse(str)
+        bmp,rest = Bitmap.parse(rest)
+        bmp.each {|bit|
+          bmp_def      = _definitions[bit]
+          value, rest  = bmp_def.field.parse(rest)
+          message[bit] = value
+        }
+        message
+      end
+      
+      # access the mti definitions applicable to the Message
+      #
+      # returns a pair of hashes containing:
+      #
+      # mti_value => mti_name
+      #
+      # mti_name => mti_value
+      #
+      def _mti_definitions
+        [@mtis_v, @mtis_n]
+      end
+      
+      # Access the field definitions of this class, this is a
+      # hash containing [bmp_number, BMP] and [bitmap_name, BMP]
+      # pairs.
+      #
+      def _definitions
+        @defs
+      end
+
+      # Returns the field definition to format the mti.
+      def _mti_format
+        @mti_format
+      end
+
+
+
+      # METHODS starting with an underscore are meant for
+      # internal use only ...
+
+      # Modifies the field definitions of the fields passed
+      # in through the `bmp` and `mti_format` class methods.
+      #
+      def _handle_opts(field, opts)
+        opts.each_pair {|key, value|
+          key = (key.to_s+"=").to_sym
+          if field.respond_to?(key)
+            field.send(key, value)
+          else
+            warn "unknown option #{key} for #{field.name}"
+          end
+        }
+      end
+    end
+  end
+
+  # Internal class used to tie together name, bitmap number, field en/decoder
+  # and the value of the corresponding field
+  class BMP
+    attr_accessor :bmp
+    attr_accessor :name
+    attr_accessor :field
+    attr_accessor :value
+
+    def initialize(bmp, name, field)
+      @bmp   = bmp
+      @name  = name
+      @field = field
+    end
+
+    def encode
+      field.encode(value)
+    end
+  end
+
+end

data/lib/iso8583/util.rb

@@ -0,0 +1,94 @@
+# Copyright 2009 by Tim Becker (tim.becker@kuriostaet.de)
+# MIT License, for details, see the LICENSE file accompaning
+# this distribution
+
+module ISO8583
+
+  # general utilities
+  #
+  # Convert a String of bytes to their hex representation
+  # E.g.:
+  #
+  #    b2hex "\x12\x34\xab" => "1234AB"
+  #
+  def b2hex(byte_string)
+    r = byte_string.unpack("H*")[0]
+    r.length > 1 ? r : "  "
+  end
+
+  #
+  # Convert a String containing hex data to
+  # a String containing the corresponding bytes:
+  # 
+  #   hex2b "abcd12" => "\xa\cd\12"
+  #
+  def hex2b(hex_string)
+    string = hex_string.gsub(/\s+/, "")
+    raise ISO8583Exception.new("Invalid Hex chars: #{hex_string}") unless string =~ /^[A-Fa-f0-9]*$/
+    raise ISO8583Exception.new("Uneven number of Hex chars #{hex_string}") unless ( (string.length % 2) == 0)
+    [string].pack("H*")
+  end
+
+  def _conv(str, mapping)
+    _str = ""
+    str.each_byte{|byte|
+      _str << mapping[byte]
+    }
+    _str
+  end
+
+  #
+  # Convert a String of ASCII chars to EBCDIC
+  #
+  def ascii2ebcdic(ascii)
+    _conv(ascii, US_ASCII2IBM037)
+  end
+
+  #
+  # Convert an EBCDIC String to ASCII
+  #
+  def ebcdic2ascii(ebcdic)
+    _conv(ebcdic, IBM0372US_ASCII)
+  end
+
+  # The charsets supported by iconv aren't guranteed. At the very least MACs don't support ebcdic,
+  # so providing rudimentary mappings here.
+  US_ASCII2IBM037 = [
+                     0x00, 0x01, 0x02, 0x03, 0x37, 0x2d, 0x2e, 0x2f, 0x16, 0x05, 0x15, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f,
+                     0x10, 0x11, 0x12, 0x13, 0x3c, 0x3d, 0x32, 0x26, 0x18, 0x19, 0x3f, 0x27, 0x1c, 0x1d, 0x1e, 0x1f,
+                     0x40, 0x5a, 0x7f, 0x7b, 0x5b, 0x6c, 0x50, 0x7d, 0x4d, 0x5d, 0x5c, 0x4e, 0x6b, 0x60, 0x4b, 0x61,
+                     0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7, 0xf8, 0xf9, 0x7a, 0x5e, 0x4c, 0x7e, 0x6e, 0x6f,
+                     0x7c, 0xc1, 0xc2, 0xc3, 0xc4, 0xc5, 0xc6, 0xc7, 0xc8, 0xc9, 0xd1, 0xd2, 0xd3, 0xd4, 0xd5, 0xd6,
+                     0xd7, 0xd8, 0xd9, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6, 0xe7, 0xe8, 0xe9, 0xba, 0xe0, 0xbb, 0xb0, 0x6d,
+                     0x79, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87, 0x88, 0x89, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96,
+                     0x97, 0x98, 0x99, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6, 0xa7, 0xa8, 0xa9, 0xc0, 0x4f, 0xd0, 0xa1, 0x07,
+                     0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+                     0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+                     0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+                     0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+                     0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+                     0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+                     0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+                     0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+                    ]
+
+  IBM0372US_ASCII = [
+                     0x00, 0x01, 0x02, 0x03, 0x3f, 0x09, 0x3f, 0x7f, 0x3f, 0x3f, 0x3f, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f,
+                     0x10, 0x11, 0x12, 0x13, 0x3f, 0x0a, 0x08, 0x3f, 0x18, 0x19, 0x3f, 0x3f, 0x1c, 0x1d, 0x1e, 0x1f,
+                     0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x0a, 0x17, 0x1b, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x05, 0x06, 0x07,
+                     0x3f, 0x3f, 0x16, 0x3f, 0x3f, 0x3f, 0x3f, 0x04, 0x3f, 0x3f, 0x3f, 0x3f, 0x14, 0x15, 0x3f, 0x1a,
+                     0x20, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x2e, 0x3c, 0x28, 0x2b, 0x7c,
+                     0x26, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x21, 0x24, 0x2a, 0x29, 0x3b, 0x3f,
+                     0x2d, 0x2f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x2c, 0x25, 0x5f, 0x3e, 0x3f,
+                     0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x60, 0x3a, 0x23, 0x40, 0x27, 0x3d, 0x22,
+                     0x3f, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, 0x68, 0x69, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+                     0x3f, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f, 0x70, 0x71, 0x72, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+                     0x3f, 0x7e, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78, 0x79, 0x7a, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+                     0x5e, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x5b, 0x5d, 0x3f, 0x3f, 0x3f, 0x3f,
+                     0x7b, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48, 0x49, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+                     0x7d, 0x4a, 0x4b, 0x4c, 0x4d, 0x4e, 0x4f, 0x50, 0x51, 0x52, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+                     0x5c, 0x3f, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58, 0x59, 0x5a, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+                     0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f, 0x3f,
+                    ]
+
+end

data/lib/iso8583/version.rb

@@ -0,0 +1,4 @@
+# -*- mode: ruby; encoding: utf-8; tab-width: 2; indent-tabs-mode: nil -*-
+module ISO8583
+  VERSION = "0.1.5.a"
+end

data/lib/iso8583.rb

@@ -0,0 +1,13 @@
+$:.unshift(File.dirname(__FILE__)) unless
+  $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+module ISO8583
+  require "iso8583/field"
+  require "iso8583/codec"
+  require "iso8583/fields"
+  require "iso8583/exception"
+  require "iso8583/bitmap"
+  require "iso8583/message"
+  require "iso8583/util"
+  require "iso8583/version"
+end

data/test/BitmapTests.rb

@@ -0,0 +1,80 @@
+require 'lib/iso8583'
+require 'test/unit'
+
+include ISO8583
+
+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
+
+  def test_each
+    bmp = Bitmap.new
+    bmp.set(2)
+    bmp.set(3)
+    bmp.set(5)
+    bmp.set(6)
+    arr = []
+    bmp.each{|bit|
+      arr.push bit
+    }
+    assert_equal [2,3,5,6], arr
+  end
+
+end
+