bgp4r 0.0.8 → 0.0.9

data/bgp4r.gemspec

@@ -5,11 +5,11 @@
 
 Gem::Specification.new do |s|
   s.name = %q{bgp4r}
-  s.version = "0.0.8"
+  s.version = "0.0.9"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
   s.authors = ["Jean-Michel Esnault"]
-  s.date = %q{2010-09-30}
+  s.date = %q{2010-10-12}
   s.description = %q{BGP4R is a BGP-4 ruby library to create,  send, and receive  BGP messages in an  object oriented manner}
   s.email = %q{jesnault@gmail.com}
   s.extra_rdoc_files = [
@@ -20,64 +20,102 @@ Gem::Specification.new do |s|
     "COPYING",
      "LICENSE.txt",
      "README.rdoc",
-     "bgp/aggregator.rb",
-     "bgp/as_path.rb",
-     "bgp/atomic_aggregate.rb",
-     "bgp/attribute.rb",
-     "bgp/attributes.rb",
-     "bgp/cluster_list.rb",
      "bgp/common.rb",
-     "bgp/communities.rb",
-     "bgp/extended_communities.rb",
-     "bgp/extended_community.rb",
      "bgp/iana.rb",
      "bgp/io.rb",
-     "bgp/label.rb",
-     "bgp/local_pref.rb",
-     "bgp/message.rb",
-     "bgp/mp_reach.rb",
-     "bgp/multi_exit_disc.rb",
+     "bgp/messages/capability.rb",
+     "bgp/messages/keepalive.rb",
+     "bgp/messages/markers.rb",
+     "bgp/messages/message.rb",
+     "bgp/messages/messages.rb",
+     "bgp/messages/notification.rb",
+     "bgp/messages/open.rb",
+     "bgp/messages/route_refresh.rb",
+     "bgp/messages/update.rb",
      "bgp/neighbor.rb",
-     "bgp/next_hop.rb",
-     "bgp/nlri.rb",
-     "bgp/orf.rb",
-     "bgp/origin.rb",
-     "bgp/originator_id.rb",
-     "bgp/path_attribute.rb",
-     "bgp/prefix_orf.rb",
-     "bgp/rd.rb",
-     "bgp/version.rb",
+     "bgp/nlris/inet.rb",
+     "bgp/nlris/label.rb",
+     "bgp/nlris/labeled.rb",
+     "bgp/nlris/nlri.rb",
+     "bgp/nlris/nlris.rb",
+     "bgp/nlris/prefix.rb",
+     "bgp/nlris/rd.rb",
+     "bgp/nlris/vpn.rb",
+     "bgp/optional_parameters/as4.rb",
+     "bgp/optional_parameters/capabilities.rb",
+     "bgp/optional_parameters/capability.rb",
+     "bgp/optional_parameters/dynamic.rb",
+     "bgp/optional_parameters/graceful_restart.rb",
+     "bgp/optional_parameters/mbgp.rb",
+     "bgp/optional_parameters/optional_parameter.rb",
+     "bgp/optional_parameters/orf.rb",
+     "bgp/optional_parameters/route_refresh.rb",
+     "bgp/orfs/orf.rb",
+     "bgp/orfs/prefix_orf.rb",
+     "bgp/path_attributes/aggregator.rb",
+     "bgp/path_attributes/as_path.rb",
+     "bgp/path_attributes/atomic_aggregate.rb",
+     "bgp/path_attributes/attribute.rb",
+     "bgp/path_attributes/attributes.rb",
+     "bgp/path_attributes/cluster_list.rb",
+     "bgp/path_attributes/communities.rb",
+     "bgp/path_attributes/extended_communities.rb",
+     "bgp/path_attributes/extended_community.rb",
+     "bgp/path_attributes/local_pref.rb",
+     "bgp/path_attributes/mp_reach.rb",
+     "bgp/path_attributes/mp_unreach.rb",
+     "bgp/path_attributes/multi_exit_disc.rb",
+     "bgp/path_attributes/next_hop.rb",
+     "bgp/path_attributes/origin.rb",
+     "bgp/path_attributes/originator_id.rb",
+     "bgp/path_attributes/path_attribute.rb",
      "bgp4r.gemspec",
      "bgp4r.rb",
      "examples/routegen",
      "examples/routegen.yml",
      "examples/simple.rb",
-     "examples/unit-testing/keepalive_set_to_zeo.rb",
      "examples/unit-testing/malformed_update.rb",
      "examples/unit-testing/prepend_aspath.rb",
      "examples/unit-testing/unknown_transitive_attr.rb",
-     "test/aggregator_test.rb",
-     "test/as_path_test.rb",
-     "test/atomic_aggregate_test.rb",
-     "test/attribute_test.rb",
-     "test/cluster_list_test.rb",
      "test/common_test.rb",
-     "test/communities_test.rb",
-     "test/extended_communities_test.rb",
-     "test/extended_community_test.rb",
-     "test/label_test.rb",
-     "test/local_pref_test.rb",
-     "test/message_test.rb",
-     "test/mp_reach_test.rb",
-     "test/multi_exit_disc_test.rb",
+     "test/messages/capability_test.rb",
+     "test/messages/keepalive_test.rb",
+     "test/messages/markers_test.rb",
+     "test/messages/message_test.rb",
+     "test/messages/notification_test.rb",
+     "test/messages/open_test.rb",
+     "test/messages/route_refresh_test.rb",
+     "test/messages/update_test.rb",
      "test/neighbor_test.rb",
-     "test/next_hop_test.rb",
-     "test/nlri_test.rb",
-     "test/origin_test.rb",
-     "test/originator_id_test.rb",
-     "test/path_attribute_test.rb",
-     "test/prefix_orf_test.rb",
-     "test/rd_test.rb"
+     "test/nlris/inet_test.rb",
+     "test/nlris/labeled_test.rb",
+     "test/nlris/nlri_test.rb",
+     "test/nlris/rd_test.rb",
+     "test/optional_parameters/as4_test.rb",
+     "test/optional_parameters/capability_test.rb",
+     "test/optional_parameters/dynamic_test.rb",
+     "test/optional_parameters/graceful_restart_test.rb",
+     "test/optional_parameters/mbgp_test.rb",
+     "test/optional_parameters/optional_parameter_test.rb",
+     "test/optional_parameters/orf_test.rb",
+     "test/optional_parameters/route_refresh_test.rb",
+     "test/orfs/prefix_orf_test.rb",
+     "test/path_attributes/aggregator_test.rb",
+     "test/path_attributes/as_path_test.rb",
+     "test/path_attributes/atomic_aggregate_test.rb",
+     "test/path_attributes/attribute_test.rb",
+     "test/path_attributes/cluster_list_test.rb",
+     "test/path_attributes/communities_test.rb",
+     "test/path_attributes/extended_communities_test.rb",
+     "test/path_attributes/extended_community_test.rb",
+     "test/path_attributes/local_pref_test.rb",
+     "test/path_attributes/mp_reach_test.rb",
+     "test/path_attributes/mp_unreach_test.rb",
+     "test/path_attributes/multi_exit_disc_test.rb",
+     "test/path_attributes/next_hop_test.rb",
+     "test/path_attributes/origin_test.rb",
+     "test/path_attributes/originator_id_test.rb",
+     "test/path_attributes/path_attribute_test.rb"
   ]
   s.homepage = %q{http://github.com/jesnault/bgp4r/tree/master}
   s.rdoc_options = ["--quiet", "--title", "A BGP-4 Ruby Library", "--line-numbers"]
@@ -87,28 +125,50 @@ Gem::Specification.new do |s|
   s.rubygems_version = %q{1.3.6}
   s.summary = %q{A BGP-4 Ruby Library}
   s.test_files = [
-    "test/aggregator_test.rb",
-     "test/as_path_test.rb",
-     "test/atomic_aggregate_test.rb",
-     "test/attribute_test.rb",
-     "test/cluster_list_test.rb",
-     "test/common_test.rb",
-     "test/communities_test.rb",
-     "test/extended_communities_test.rb",
-     "test/extended_community_test.rb",
-     "test/label_test.rb",
-     "test/local_pref_test.rb",
-     "test/message_test.rb",
-     "test/mp_reach_test.rb",
-     "test/multi_exit_disc_test.rb",
+    "test/common_test.rb",
+     "test/messages",
+     "test/messages/capability_test.rb",
+     "test/messages/keepalive_test.rb",
+     "test/messages/markers_test.rb",
+     "test/messages/message_test.rb",
+     "test/messages/notification_test.rb",
+     "test/messages/open_test.rb",
+     "test/messages/route_refresh_test.rb",
+     "test/messages/update_test.rb",
      "test/neighbor_test.rb",
-     "test/next_hop_test.rb",
-     "test/nlri_test.rb",
-     "test/origin_test.rb",
-     "test/originator_id_test.rb",
-     "test/path_attribute_test.rb",
-     "test/prefix_orf_test.rb",
-     "test/rd_test.rb"
+     "test/nlris",
+     "test/nlris/inet_test.rb",
+     "test/nlris/labeled_test.rb",
+     "test/nlris/nlri_test.rb",
+     "test/nlris/rd_test.rb",
+     "test/optional_parameters",
+     "test/optional_parameters/as4_test.rb",
+     "test/optional_parameters/capability_test.rb",
+     "test/optional_parameters/dynamic_test.rb",
+     "test/optional_parameters/graceful_restart_test.rb",
+     "test/optional_parameters/mbgp_test.rb",
+     "test/optional_parameters/optional_parameter_test.rb",
+     "test/optional_parameters/orf_test.rb",
+     "test/optional_parameters/route_refresh_test.rb",
+     "test/orfs",
+     "test/orfs/prefix_orf_test.rb",
+     "test/path_attributes",
+     "test/path_attributes/aggregator_test.rb",
+     "test/path_attributes/as_path_test.rb",
+     "test/path_attributes/atomic_aggregate_test.rb",
+     "test/path_attributes/attribute_test.rb",
+     "test/path_attributes/cluster_list_test.rb",
+     "test/path_attributes/communities_test.rb",
+     "test/path_attributes/extended_communities_test.rb",
+     "test/path_attributes/extended_community_test.rb",
+     "test/path_attributes/local_pref_test.rb",
+     "test/path_attributes/mp_reach_test.rb",
+     "test/path_attributes/mp_unreach_test.rb",
+     "test/path_attributes/multi_exit_disc_test.rb",
+     "test/path_attributes/next_hop_test.rb",
+     "test/path_attributes/origin_test.rb",
+     "test/path_attributes/originator_id_test.rb",
+     "test/path_attributes/path_attribute_test.rb"
   ]
 
   if s.respond_to? :specification_version then

data/bgp4r.rb

@@ -1,27 +1,7 @@
-#--
-# Copyright 2008, 2009 Jean-Michel Esnault.
-# All rights reserved.
-# See LICENSE.txt for permissions.
-#
-#
-# This file is part of BGP4R.
-# 
-# BGP4R is free software: you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
-# 
-# BGP4R is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with BGP4R.  If not, see <http://www.gnu.org/licenses/>.
-#++
-
 require 'bgp/common'
-require 'bgp/io'
+require 'bgp/iana'
+require 'bgp/messages/messages'
+require 'bgp/path_attributes/attributes'
+require 'bgp/nlris/nlris'
+require 'bgp/optional_parameters/capabilities'
 require 'bgp/neighbor'
-require 'bgp/message'
-require 'bgp/version'

data/examples/routegen

@@ -82,4 +82,4 @@ nlris = Nlri.new
   nlris = Nlri.new
 end
 
-Thread.stop
+sleep(200)

data/examples/routegen.yml

@@ -5,23 +5,39 @@ neighbor:
   router id: 1.1.1.1
   my as: 100
   holdtime: 180
-  local address: 199.0.0.5
-  neighbor address: 199.0.0.6
+  local address: 40.0.0.1
+  neighbor address: 40.0.0.2
   capabilities: 
   - four byte as
 routes: 
-  nlris: 11.0.0.0/28, 1999, 127
-  next hop: 199.0.0.5
+  nlris: 11.0.0.0/28, 199999, 127
+  next hop: 40.0.0.1
   local pref: 100
   med: 100
   origin: 0
   communities: 100:1 200:1 300:1
-  as path: 200 300 400 500
+  as path: 100 90 80
 
 ...
 
 produces:
 
+
+junos> show route logical-router Paris terse 
+
+  inet.0: 200004 destinations, 200004 routes (200004 active, 0 holddown, 0 hidden)
+  Restart Complete
+  + = Active Route, - = Last Active, * = Both
+
+  A Destination        P Prf   Metric 1   Metric 2  Next hop        AS path
+  * 11.0.0.16/28       B 170        100            >40.0.0.1        100 90 80 I
+  * 11.0.0.32/28       B 170        100            >40.0.0.1        100 90 80 I
+  * 11.0.0.48/28       B 170        100            >40.0.0.1        100 90 80 I
+  * 11.0.0.64/28       B 170        100            >40.0.0.1        100 90 80 I
+  * 11.0.0.80/28       B 170        100            >40.0.0.1        100 90 80 I
+  ...
+
+
 ios#show ip route summary | inc bgp
 bgp 100         0           1999        107946      287856
 ios#

data/examples/simple.rb

@@ -17,8 +17,8 @@ Log.level=Logger::DEBUG
 neighbor = Neighbor.new \
   :version=> 4, 
   :my_as=> 100, 
-  :remote_addr => '192.168.1.199', 
-  :local_addr => '192.168.1.5', 
+  :remote_addr => '40.0.0.2', 
+  :local_addr => '40.0.0.1', 
   :id=> '1.1.1.1', :holdtime=> 180
 
 neighbor.capability :as4_byte
@@ -49,10 +49,10 @@ neighbor.start :auto_retry
 an_update = Update.new(
   Path_attribute.new(
     Origin.new(2),
-    Next_hop.new('192.168.1.5'),
+    Next_hop.new('40.0.0.1'),
     Multi_exit_disc.new(100),
     Local_pref.new(100),
-    As_path.new(400,300,200),
+    As_path.new(100, 80, 60),
     Communities.new('1311:1 311:59 2805:64')
   ),
   Nlri.new('77.0.0.0/17', '78.0.0.0/18', '79.0.0.0/19')

data/examples/unit-testing/malformed_update.rb

@@ -49,7 +49,7 @@ class TestBgp < Test::Unit::TestCase
   
   def start_peering
     @n100.capability :as4_byte
-    @n100.start 
+    @n100.start
   end
   
   def recv(q, timeout=5)

data/examples/unit-testing/unknown_transitive_attr.rb

@@ -2,14 +2,15 @@ require "test/unit"
 require 'bgp4r'
 require 'timeout'
 
+
 Thread.abort_on_exception=true
 
 class TestBgp < Test::Unit::TestCase
   
   include BGP
 
-  Log.create
-  Log.level=Logger::DEBUG
+  # Log.create
+  # Log.level=Logger::DEBUG
   
   N100 = Class.new(BGP::Neighbor)
   N300 = Class.new(BGP::Neighbor)
@@ -26,6 +27,13 @@ class TestBgp < Test::Unit::TestCase
   def setup
     @n100 = N100.new(:my_as=> 100, :remote_addr => '40.0.0.2', :local_addr => '40.0.0.1', :id=> '13.11.19.59')
     @n300 = N300.new(:my_as=> 300, :remote_addr => '40.0.1.1', :local_addr => '40.0.1.2', :id=> '13.11.19.57')
+    @n100.capability :mbgp, :ipv4, :unicast
+    gr = OPT_PARM::CAP::Graceful_restart.new 3, 120
+    gr.add :ipv4, :unicast, 1
+    gr.add :ipv4, :multicast, 1
+    gr.add :ipv6, :unicast, 1
+    gr.add :ipv6, :multicast, 3
+    @n100.capability gr
     start_peering
   end
   
@@ -39,7 +47,7 @@ class TestBgp < Test::Unit::TestCase
     assert msg, "Did not receive expected BGP update message."
     assert msg.path_attribute.has?(255), "The path attribute was expected to contain an attribute type 255"
     assert_not_nil msg.path_attribute[255]
-    assert_equal 'AN OPTIONAL TRANSITIVE ATTR WITH TYPE 999', msg.path_attribute[255].value
+    assert_equal 'AN OPTIONAL TRANSITIVE ATTR WITH TYPE 255', msg.path_attribute[255].value
   end
 
   def teardown
@@ -58,12 +66,12 @@ class TestBgp < Test::Unit::TestCase
   
   def recv(q, timeout=5)
     begin
-       Timeout::timeout(timeout) do |t| 
-         msg = q.deq
-       end
-     rescue Timeout::Error => e
-       nil
-     end
+      Timeout::timeout(timeout) do |t| 
+        msg = q.deq
+      end
+    rescue Timeout::Error => e
+      nil
+    end
   end
   
   def update_with_unknown_transitive_attribute
@@ -92,7 +100,7 @@ class TestBgp < Test::Unit::TestCase
       Multi_exit_disc.new(100),
       Local_pref.new(100),
       As_path.new(100),
-      my_attr.new(ATTR::OPTIONAL_TRANSITIVE, 255, 'AN OPTIONAL TRANSITIVE ATTR WITH TYPE 999'),
+      my_attr.new(ATTR::OPTIONAL_TRANSITIVE, 255, 'AN OPTIONAL TRANSITIVE ATTR WITH TYPE 255'),
       my_attr.new(ATTR::OPTIONAL_TRANSITIVE, 0, 'AN OPTIONAL TRANSITIVE ATTR WITH TYPE 0')
     ),
     Nlri.new('77.0.0.0/17', '78.0.0.0/18', '79.0.0.0/19')

data/test/messages/capability_test.rb

@@ -0,0 +1,113 @@
+#--
+# Copyright 2010 Jean-Michel Esnault.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#
+#
+# This file is part of BGP4R.
+# 
+# BGP4R is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+# 
+# BGP4R is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with BGP4R.  If not, see <http://www.gnu.org/licenses/>.
+#++
+
+
+require "test/unit"
+require "bgp/messages/capability"
+require 'bgp4r'
+
+class TestOptParmCapabilityEncode < Test::Unit::TestCase
+  include BGP::OPT_PARM
+  def test_encode_dynamic
+    assert_equal '0206010400010001', CAP::Mbgp.new(1,1).to_shex
+    assert_equal '01000400010001', DYN_CAP::Mbgp.new(1,1).to_shex
+  end
+end
+
+class TestBgpMessagesCapabilityRevision < Test::Unit::TestCase
+  include BGP::OPT_PARM
+  def test_capability_revision
+    assert_equal '01000400010001',  DYN_CAP::Mbgp.new(1,1).to_shex
+    assert_equal '0206010400010001',  CAP::Mbgp.new(1,1).to_shex
+    revision = BGP::Capability::Revision.new :unset, :set, :advertise, 10, DYN_CAP::Mbgp.new(1,1)
+    assert_equal '400000000a01000400010001', revision.to_shex
+    assert_equal '0x00000010  Advertise  Req (0x40)  MBGP IPv4, Unicast',revision.to_s
+    rev = BGP::Capability::Revision.advertise( 10, DYN_CAP::Mbgp.new(1,1))
+    assert_equal '000000000a01000400010001', rev.to_shex
+    rev = BGP::Capability::Revision.advertise_ack_request( 10, DYN_CAP::Mbgp.new(1,1))
+    assert_equal '400000000a01000400010001', rev.to_shex
+  end
+  def test_capability_revision_o1
+    r = BGP::Capability::Revision.new :unset, :unset, :advertise, 0, 'a cap'
+    assert_equal 0, r.instance_eval { @o1 }
+    r = BGP::Capability::Revision.new :set, :unset, :advertise, 0, 'a cap'
+    assert_equal 0x80, r.instance_eval { @o1 }
+    r = BGP::Capability::Revision.new :set, :set, :advertise, 0, 'a cap'
+    assert_equal 0xc0, r.instance_eval { @o1 }
+    r = BGP::Capability::Revision.new :unset, :set, :advertise, 0, 'a cap'
+    assert_equal 0x40, r.instance_eval { @o1 }
+  end
+  def test_capability_revision_factory
+    s = '400000000a01000400010001'
+    sbin = [s].pack('H*')
+    r = BGP::Capability::Revision.new(sbin)
+    assert_equal s, r.to_shex
+    assert_equal '', sbin
+  end
+end
+
+class TestBgpMessagesCapability < Test::Unit::TestCase
+  include BGP
+  include BGP::OPT_PARM
+  def test_capability_1
+    cap_msg = BGP::Capability.new
+    assert_equal 'ffffffffffffffffffffffffffffffff001306', cap_msg.to_shex
+    cap_msg <<  BGP::Capability::Revision.advertise( 10, DYN_CAP::Mbgp.new(1,1))
+    assert_match /^(ff){16}001f06000000000a01000400010001/, cap_msg.to_shex
+    cap_msg <<  BGP::Capability::Revision.advertise( 20, DYN_CAP::Mbgp.new(1,2))
+    assert_match /^(ff){16}002b06\s*000000000a01000400010001\s*000000001401000400010002/, cap_msg.to_shex
+  end
+  def test_capability_2
+    cap_msg = BGP::Capability.new(
+      BGP::Capability::Revision.advertise( 10, DYN_CAP::Mbgp.new(1,1)),
+      BGP::Capability::Revision.advertise( 20, DYN_CAP::Mbgp.new(1,2))
+    )
+    assert_match /^(ff){16}002b06\s*000000000a01000400010001\s*000000001401000400010002/, cap_msg.to_shex
+  end
+  def test_capability_3
+
+    s = 'Capability (6), length: 91
+  Seqn        Action     Ack bits    Capability
+  0x00000010  Advertise      (0x00)  MBGP IPv4, Unicast
+  0x00000020  Advertise  Req (0x40)  MBGP IPv4, Unicast
+  0x00000020  Advertise  Rsp (0x80)  MBGP IPv4, Unicast
+  0x00000010  Withdraw       (0x01)  MBGP IPv4, Unicast
+  0x00000020  Withdraw   Req (0x41)  MBGP IPv4, Unicast
+  0x00000020  Withdraw   Rsp (0x81)  MBGP IPv4, Unicast'
+
+    cap_msg = BGP::Capability.new(
+    BGP::Capability::Revision.advertise( 10, DYN_CAP::Mbgp.new(1,1)),
+    BGP::Capability::Revision.advertise_ack_request( 20, DYN_CAP::Mbgp.new(1,1)),
+    BGP::Capability::Revision.advertise_ack_response( 20, DYN_CAP::Mbgp.new(1,1)),
+    BGP::Capability::Revision.remove( 10, DYN_CAP::Mbgp.new(1,1)),
+    BGP::Capability::Revision.remove_ack_request( 20, DYN_CAP::Mbgp.new(1,1)),
+    BGP::Capability::Revision.remove_ack_response( 20, DYN_CAP::Mbgp.new(1,1))
+    )
+    assert_equal s, cap_msg.to_s
+  end
+  def test_factory
+    s = 'ffffffffffffffffffffffffffffffff002b06000000000a01000400010001000000001401000400010002'
+    msg =  BGP::Message.factory([s].pack('H*'))
+    assert_equal(BGP::Capability, msg.class)
+    assert_equal s, msg.to_shex
+  end
+end

data/test/messages/keepalive_test.rb

@@ -0,0 +1,34 @@
+#--
+# Copyright 2008, 2009, 2010 Jean-Michel Esnault.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#
+#
+# This file is part of BGP4R.
+# 
+# BGP4R is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+# 
+# BGP4R is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with BGP4R.  If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'test/unit'
+require 'bgp4r'
+
+class Keepalive_Test < Test::Unit::TestCase
+  include BGP
+  def test_1
+    Keepalive.new
+    assert_match(/^(ff){16}001304$/, Keepalive.new.to_shex)
+    assert_match(/^(ff){16}001304$/, Message.keepalive.unpack('H*')[0])
+    assert_equal(Keepalive, Message.factory(Keepalive.new.encode).class)
+  end
+end

data/test/messages/markers_test.rb

@@ -0,0 +1,33 @@
+#--
+# Copyright 2008, 2009, 2010 Jean-Michel Esnault.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#
+#
+# This file is part of BGP4R.
+# 
+# BGP4R is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+# 
+# BGP4R is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with BGP4R.  If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'test/unit'
+require 'bgp4r'
+require 'bgp/messages/markers'
+class End_of_rib_markers_Test < Test::Unit::TestCase
+  include BGP
+  def test_end_of_rib_maker_messages
+    assert_match /(ff){16}00170200000000/, Update.end_of_rib_marker.to_shex
+    assert_match /(ff){16}001d0200000006800f03000104/, Update.end_of_rib_marker(:afi=>1, :safi=>4).to_shex
+    assert_match /(ff){16}001d0200000006800f03000180/, Update.end_of_rib_marker(:afi=>1, :safi=>128).to_shex
+  end
+end

data/test/messages/message_test.rb

@@ -0,0 +1,43 @@
+#--
+# Copyright 2008, 2009 Jean-Michel Esnault.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#
+#
+# This file is part of BGP4R.
+# 
+# BGP4R is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+# 
+# BGP4R is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with BGP4R.  If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'test/unit'
+require 'bgp4r'
+
+class Message_Test < Test::Unit::TestCase
+  include BGP
+  class MyMessage < Message
+    attr_reader :data
+    def initialize(s=nil)
+      @data= parse(s) if s
+    end
+    def encode
+      @msg_type=0xee
+      super('abcdefghihjklmopqrstuvwxyz')
+    end
+  end
+  def test_1
+    msg1 = MyMessage.new
+    msg2 = MyMessage.new(msg1.encode)
+    assert_equal('abcdefghihjklmopqrstuvwxyz',msg2.data)
+  end
+end