X-Git-Url: http://git.code-monkey.de/?a=blobdiff_plain;f=test%2Ftest_array_sub.rb;fp=test%2Ftest_array_sub.rb;h=90c8f1ed085de5c12ed53cdf1ca413ee118c7589;hb=73956849d83adcc0a147f39b9cfc2aced5450e67;hp=0000000000000000000000000000000000000000;hpb=570c4905a0f8640d2aa97e0c5212a54501c7301c;p=ruby-eet.git

diff --git a/test/test_array_sub.rb b/test/test_array_sub.rb
new file mode 100644
index 0000000..90c8f1e
--- /dev/null
+++ b/test/test_array_sub.rb
@@ -0,0 +1,95 @@
+# $Id: test_array_sub.rb 43 2005-05-25 19:44:06Z tilman $
+
+require "eet"
+require "test/unit"
+require "common"
+
+class ArraySubTestData
+	def initialize(v)
+		@value = v
+	end
+
+	protected
+	def to_eet_name
+		"ArraySubTest"
+	end
+
+	def to_eet_properties
+		{"value" => [@value, :sub]}
+	end
+end
+
+class MyArray < Array
+	protected
+	def to_eet_properties
+		{"entries" => [self]}
+	end
+end
+
+class Entry
+	def initialize(v)
+		@value = v
+	end
+end
+
+class ArraySubTest < Test::Unit::TestCase
+	def test_arraysub
+		a = MyArray.new
+		["foo", "bar", "baz"].each { |s| a << Entry.new(s) }
+
+		data = ArraySubTestData.new(a).to_eet
+
+		assert_not_nil(data)
+
+		stream = nil
+
+		assert_nothing_raised do
+			stream = Eet::Stream.deserialize(data)
+		end
+
+		assert_equal(1, stream.length)
+		assert_equal("ArraySubTest", stream.first.tag)
+
+		assert_nothing_raised do
+			stream = Eet::Stream.deserialize(stream.first.data)
+		end
+
+		assert_equal(1, stream.length)
+		assert_equal("value", stream.first.tag)
+
+		assert_nothing_raised do
+			stream = Eet::Stream.deserialize(stream.first.data)
+		end
+
+		assert_equal(1, stream.length)
+		assert_equal("MyArray", stream.first.tag)
+
+		assert_nothing_raised do
+			stream = Eet::Stream.deserialize(stream.first.data)
+		end
+
+		assert_equal(3, stream.length)
+
+		["foo", "bar", "baz"].each_with_index do |s, i|
+			stream2 = nil
+			stream3 = nil
+
+			assert_equal("entries", stream[i].tag)
+
+			assert_nothing_raised do
+				stream2 = Eet::Stream.deserialize(stream[i].data)
+			end
+
+			assert_equal(1, stream2.length)
+			assert_equal("Entry", stream2.first.tag)
+
+			assert_nothing_raised do
+				stream3 = Eet::Stream.deserialize(stream2.first.data)
+			end
+
+			assert_equal(1, stream3.length)
+			assert_equal("value", stream3.first.tag)
+			assert_equal(s + "\0", stream3.first.data)
+		end
+	end
+end