Libguestfs - Oct 2011 - [hivex][PATCH 7/8] ruby: Add unit test for new RLenValue type

Signed-off-by: Alex Nelson <ajnelson at cs.ucsc.edu>
---
 ruby/tests/tc_120_rlenvalue.rb |   39 +++++++++++++++++++++++++++++++++++++++
 1 files changed, 39 insertions(+), 0 deletions(-)
 create mode 100644 ruby/tests/tc_120_rlenvalue.rb

diff --git a/ruby/tests/tc_120_rlenvalue.rb b/ruby/tests/tc_120_rlenvalue.rb
new file mode 100644
index 0000000..d24b92a
--- /dev/null
+++ b/ruby/tests/tc_120_rlenvalue.rb
@@ -0,0 +1,39 @@
+# hivex Ruby bindings -*- ruby -*-
+# Copyright (C) 2009-2011 Red Hat Inc.
+#
+# This program 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 2 of the License, or
+# (at your option) any later version.
+#
+# This program 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 this program; if not, write to the Free Software
+# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+# Demonstrate value_data_cell_offset by looking at the value at
+# "\$$$\PROTO.HIV\A\A", verified to be at file offset 297680
(0x48ad0)
+# of the large test hive.  The returned offset and length for this
+# value cell should be 0,0, due to the value data being inline.
+
+require 'test/unit'
+$:.unshift(File::join(File::dirname(__FILE__), "..",
"lib"))
+$:.unshift(File::join(File::dirname(__FILE__), "..", "ext",
"hivex"))
+require 'hivex'
+
+class TestRLenValue < Test::Unit::TestCase
+  def test_RLenValue
+    h = Hivex::open("../images/large", {})
+    assert_not_nil (h)
+
+    root = h.root()
+    assert (root)
+
+    r = h.value_data_cell_offset(297680)
+    r.each {|key,value| assert_equal (value, 0)}
+  end
+end
-- 
1.7.4.4