ya2yaml 0.29.2 → 0.30

data/test/test.rb

@@ -1,7 +1,9 @@
 #!/usr/bin/env ruby
 # encoding: UTF-8
 
-# $Id: test.rb,v 1.6 2009/02/09 09:00:57 funai Exp funai $
+# Author::    Akira FUNAI
+# Copyright:: Copyright (c) 2006-2010 Akira FUNAI
+# License::   MIT License
 
 $:.unshift(File.expand_path(File.dirname(__FILE__) + '/../lib'))
 
@@ -27,415 +29,453 @@ end if RUBY_VERSION >= "1.9"
 
 class TC_Ya2YAML < Test::Unit::TestCase
 
-	@@struct_klass = Struct::new('Foo',:bar,:buz)
-	class Moo
-		attr_accessor :val1,:val2
-		def initialize(val1,val2)
-			@val1 = val1
-			@val2 = val2
-		end
-		def ==(k) 
-			(k.class == self.class) &&
-			(k.val1 == self.val1) &&
-			(k.val2 == self.val2)
-		end 
-	end
-	puts "test may take minutes. please wait.\n"
-
-	def setup
-		@text   = File.open('./t.yaml', 'r') { |f| f.read }
-		@gif    = File.open('./t.gif', 'rb') { |f| f.read }
-		@struct = @@struct_klass.new('barbarbar', @@struct_klass.new('baaaar', 12345))
-		@klass  = Moo.new('boobooboo', Time.local(2009,2,9,16,44,10))
-	end
-
-	def test_options
-		opt = {:syck_compatible => true}
-		'foobar'.ya2yaml(opt)
-		assert_equal(
-			{:syck_compatible => true},
-			opt,
-			'ya2yaml should not change the option hash'
-		)
-
-		[
-			[
-				{},
-				"--- \n- \"\\u0086\"\n- |-\n    a\xe2\x80\xa8    b\xe2\x80\xa9    c\n- |4-\n     abc\n    xyz\n",
-			],
-			[
-				{:indent_size => 4},
-				"--- \n- \"\\u0086\"\n- |-\n        a\xe2\x80\xa8        b\xe2\x80\xa9        c\n- |8-\n         abc\n        xyz\n",
-			],
-			[
-				{:minimum_block_length => 16},
-				"--- \n- \"\\u0086\"\n- \"a\\Lb\\Pc\"\n- \" abc\\nxyz\"\n",
-			],
+  @@struct_klass = Struct::new('Foo', :bar, :buz)
+  class Moo
+    attr_accessor :val1, :val2
+    def initialize(val1, val2)
+      @val1 = val1
+      @val2 = val2
+    end
+    def ==(k)
+      (k.class == self.class) &&
+      (k.val1 == self.val1) &&
+      (k.val2 == self.val2)
+    end
+  end
+  puts "test may take minutes. please wait.\n"
+
+  def setup
+    @text   = File.open('./t.yaml', 'r') { |f| f.read }
+    @gif    = File.open('./t.gif', 'rb') { |f| f.read }
+    @struct = @@struct_klass.new('barbarbar', @@struct_klass.new('baaaar', 12345))
+    @klass  = Moo.new('boobooboo', Time.local(2009, 2, 9, 16, 44, 10))
+  end
+
+  def test_options
+    opt = {:syck_compatible => true}
+    'foobar'.ya2yaml(opt)
+    assert_equal(
+      {:syck_compatible => true},
+      opt,
+      'ya2yaml should not change the option hash'
+    )
+
+    [
+      [
+        {},
+        "--- \n- \"\\u0086\"\n- |-\n    a\xe2\x80\xa8    b\xe2\x80\xa9    c\n- |4-\n     abc\n    xyz\n",
+      ],
+      [
+        {:indent_size => 4},
+        "--- \n- \"\\u0086\"\n- |-\n        a\xe2\x80\xa8        b\xe2\x80\xa9        c\n- |8-\n         abc\n        xyz\n",
+      ],
+      [
+        {:minimum_block_length => 16},
+        "--- \n- \"\\u0086\"\n- \"a\\Lb\\Pc\"\n- \" abc\\nxyz\"\n",
+      ],
 #			[
 #				{:emit_c_document_end => true},
 #				"--- \n- \"\\u0086\"\n- |-\n    a\xe2\x80\xa8    b\xe2\x80\xa9    c\n- |4-\n     abc\n    xyz\n...\n",
 #			],
-			[
-				{:printable_with_syck => true},
-				"--- \n- \"\\u0086\"\n- |-\n    a\xe2\x80\xa8    b\xe2\x80\xa9    c\n- \" abc\\n\\\n    xyz\"\n",
-			],
-			[
-				{:escape_b_specific => true},
-				"--- \n- \"\\u0086\"\n- \"a\\Lb\\Pc\"\n- |4-\n     abc\n    xyz\n",
-			],
-			[
-				{:escape_as_utf8 => true},
-				"--- \n- \"\\xc2\\x86\"\n- |-\n    a\xe2\x80\xa8    b\xe2\x80\xa9    c\n- |4-\n     abc\n    xyz\n",
-			],
-			[
-				{:syck_compatible => true},
-				"--- \n- \"\\xc2\\x86\"\n- \"a\\xe2\\x80\\xa8b\\xe2\\x80\\xa9c\"\n- \" abc\\n\\\n    xyz\"\n",
-			],
-		].each {|opt,yaml|
-			y = ["\xc2\x86","a\xe2\x80\xa8b\xe2\x80\xa9c"," abc\nxyz"].ya2yaml(opt)
-			assert_equal(
-				yaml,
-				y,
-				"option #{opt.inspect} should be recognized"
-			)
-		}
-	end
-
-	def test_hash_order
-		[
-			[
-				nil,
-				"--- \na: 1\nb: 2\nc: 3\n",
-			],
-			[
-				[],
-				"--- \na: 1\nb: 2\nc: 3\n",
-			],
-			[
-				['c','b','a'],
-				"--- \nc: 3\nb: 2\na: 1\n",
-			],
-			[
-				['b'],
-				"--- \nb: 2\na: 1\nc: 3\n",
-			],
-		].each {|hash_order,yaml|
-			y = {
-				'a' => 1,
-				'c' => 3,
-				'b' => 2,
-			}.ya2yaml(
-				:hash_order => hash_order
-			)
-			assert_equal(
-				yaml,
-				y,
-				'hash order should be kept when :hash_order provided'
-			)
-		}
-	end
-
-	def test_normalize_line_breaks
-		[
-			["\n\n\n\n",          "--- \"\\n\\n\\n\\n\"\n",],
-			["\r\n\r\n\r\n",      "--- \"\\n\\n\\n\"\n",],
-			["\r\n\n\n",          "--- \"\\n\\n\\n\"\n",],
-			["\n\r\n\n",          "--- \"\\n\\n\\n\"\n",],
-			["\n\n\r\n",          "--- \"\\n\\n\\n\"\n",],
-			["\n\n\n\r",          "--- \"\\n\\n\\n\\n\"\n",],
-			["\r\r\n\r",          "--- \"\\n\\n\\n\"\n",],
-			["\r\r\r\r",          "--- \"\\n\\n\\n\\n\"\n",],
-			["\r\xc2\x85\r\n",    "--- \"\\n\\n\\n\"\n",],
-			["\r\xe2\x80\xa8\r\n","--- \"\\n\\L\\n\"\n",],
-			["\r\xe2\x80\xa9\r\n","--- \"\\n\\P\\n\"\n",],
-		].each {|src,yaml|
-			y = src.ya2yaml(
-				:minimum_block_length => 16
-			)
-			assert_equal(
-				yaml,
-				y,
-				'line breaks should be normalized to fit the format.'
-			)
-		}
-	end
-
-	def test_structs
-		[
-			[Struct.new('Hoge',:foo).new(123),"--- !ruby/struct:Hoge \n  foo: 123\n",],
-			[Struct.new(:foo).new(123),       "--- !ruby/struct: \n  foo: 123\n",],
-		].each {|src,yaml|
-			y = src.ya2yaml()
-			assert_equal(
-				yaml,
-				y,
-				'ruby struct should be serialized properly'
-			)
-		}
-	end
-
-	def test_roundtrip_single_byte_char
-		 ("\x00".."\x7f").each {|c|
-			y = c.ya2yaml()
-			r = YAML.load(y)
-			assert_equal(
-				(c == "\r" ? "\n" : c), # "\r" is normalized as "\n"
-				r,
-				'single byte characters should round-trip properly'
-			)
-		}
-	end
-
-	def test_roundtrip_multi_byte_char
-		[
-			0x80,
-			0x85,
-			0xa0,
-			0x07ff,
-			0x0800,
-			0x0fff,
-			0x1000,
-			0x2028,
-			0x2029,
-			0xcfff,
-			0xd000,
-			0xd7ff,
-			0xe000,
-			0xfffd,
-			0x10000,
-			0x3ffff,
-			0x40000,
-			0xfffff,
-			0x100000,
-			0x10ffff,
-		].each {|ucs_code|
-			[-1,0,1].each {|ofs|
-				(c = [ucs_code + ofs].pack('U'))
-				next unless c.valid_encoding? if c.respond_to? :valid_encoding?
-				c_hex = c.unpack('H8')
-				y = c.ya2yaml(
-					:escape_b_specific => true,
-					:escape_as_utf8    => true
-				)
-				r = YAML.load(y)
-				assert_equal(
-					(c == "\xc2\x85" ? "\n" : c), # "\N" is normalized as "\n"
-					r,
-					"multi byte characters #{c_hex} should round-trip properly"
-				)
-			}
-		}
-	end
-
-	def test_roundtrip_ambiguous_string
-		 [
-		 	'true',
-			 'false',
-			 'TRUE',
-			 'FALSE',
-			 'Y',
-			 'N',
-			 'y',
-			 'n',
-			 'on',
-			 'off',
-			 true,
-			 false,
-			 '0b0101',
-			 '-0b0101',
-			 0b0101,
-			 -0b0101,
-			 '031',
-			 '-031',
-			 031,
-			 -031,
-			 '123.001e-1',
-			 '123.01',
-			 '123',
-			 123.001e-1,
-			 123.01,
-			 123,
-			 '-123.001e-1',
-			 '-123.01',
-			 '-123',
-			 -123.001e-1,
-			 -123.01,
-			 -123,
-			 'INF',
-			 'inf',
-			 'NaN',
-			 'nan',
-			 '0xfe2a',
-			 '-0xfe2a',
-			 0xfe2a,
-			 -0xfe2a,
-			 '1:23:32.0200',
-			 '1:23:32',
-			 '-1:23:32.0200',
-			 '-1:23:32',
-			 '<<',
-			 '~',
-			 'null',
-			 'nUll',
-			 'Null',
-			 'NULL',
-			 '',
-			 nil,
-			 '2006-09-12',
-			 '2006-09-11T17:28:07Z',
-			 '2006-09-11T17:28:07+09:00',
-			 '2006-09-11 17:28:07.662694 +09:00',
-			 '=',
-		 ].each {|c|
-		 	['','hoge'].each {|ext|
-				src = (c.class == String) ? (c + ext) : c
-				y = src.ya2yaml(
-					:escape_as_utf8 => true
-				)
-				r = YAML.load(y)
-				assert_equal(
-					src,
-					r,
-					'ambiguous elements should round-trip properly'
-				)
-			}
-		}
-	end
-
-	def test_roundtrip_string
-		chars = "aあ\t\-\?,\[\{\#&\*!\|>'\"\%\@\`.\\ \n\xc2\xa0\xe2\x80\xa8".split('')
-		
-		chars.each {|i|
-			chars.each {|j|
-				chars.each {|k|
-					src = i + j + k
-					y =  src.ya2yaml(
-						:printable_with_syck => true,
-						:escape_b_specific   => true,
-						:escape_as_utf8      => true
-					)
-					r = YAML.load(y)
-					assert_equal(
-						src,
-						r,
-						'string of special characters should round-trip properly'
-					)
-				}
-			}
-		}
-	end
-
-	# patch by pawel.j.radecki at gmail.com. thanks!
-	def test_roundtrip_symbols
-		symbol1 = :"Batman: The Dark Knight - Why So Serious?!"
-		result_symbol1 = YAML.load(symbol1.ya2yaml)
-		assert_equal(symbol1,result_symbol1)
-
-		symbol2 = :"Batman: The Dark Knight - \"Why So Serious?!\""
-		result_symbol2 = YAML.load(symbol2.ya2yaml)
-		assert_equal(symbol2,result_symbol2)
+      [
+        {:printable_with_syck => true},
+        "--- \n- \"\\u0086\"\n- |-\n    a\xe2\x80\xa8    b\xe2\x80\xa9    c\n- \" abc\\n\\\n    xyz\"\n",
+      ],
+      [
+        {:escape_b_specific => true},
+        "--- \n- \"\\u0086\"\n- \"a\\Lb\\Pc\"\n- |4-\n     abc\n    xyz\n",
+      ],
+      [
+        {:escape_as_utf8 => true},
+        "--- \n- \"\\xc2\\x86\"\n- |-\n    a\xe2\x80\xa8    b\xe2\x80\xa9    c\n- |4-\n     abc\n    xyz\n",
+      ],
+      [
+        {:syck_compatible => true},
+        "--- \n- \"\\xc2\\x86\"\n- \"a\\xe2\\x80\\xa8b\\xe2\\x80\\xa9c\"\n- \" abc\\n\\\n    xyz\"\n",
+      ],
+    ].each {|opt, yaml|
+      y = ["\xc2\x86", "a\xe2\x80\xa8b\xe2\x80\xa9c", " abc\nxyz"].ya2yaml(opt)
+      assert_equal(
+        yaml,
+        y,
+        "option #{opt.inspect} should be recognized"
+      )
+    }
+  end
+
+  def test_hash_order
+    [
+      [
+        nil,
+        "--- \na: 1\nb: 2\nc: 3\n",
+      ],
+      [
+        [],
+        "--- \na: 1\nb: 2\nc: 3\n",
+      ],
+      [
+        ['c', 'b', 'a'],
+        "--- \nc: 3\nb: 2\na: 1\n",
+      ],
+      [
+        ['b'],
+        "--- \nb: 2\na: 1\nc: 3\n",
+      ],
+    ].each {|hash_order, yaml|
+      y = {
+        'a' => 1,
+        'c' => 3,
+        'b' => 2,
+      }.ya2yaml(
+        :hash_order => hash_order
+      )
+      assert_equal(
+        yaml,
+        y,
+        'hash order should be kept when :hash_order provided'
+      )
+    }
+  end
+
+  def test_normalize_line_breaks
+    [
+      ["\n\n\n\n",           "--- \"\\n\\n\\n\\n\"\n"],
+      ["\r\n\r\n\r\n",       "--- \"\\n\\n\\n\"\n"],
+      ["\r\n\n\n",           "--- \"\\n\\n\\n\"\n"],
+      ["\n\r\n\n",           "--- \"\\n\\n\\n\"\n"],
+      ["\n\n\r\n",           "--- \"\\n\\n\\n\"\n"],
+      ["\n\n\n\r",           "--- \"\\n\\n\\n\\n\"\n"],
+      ["\r\r\n\r",           "--- \"\\n\\n\\n\"\n"],
+      ["\r\r\r\r",           "--- \"\\n\\n\\n\\n\"\n"],
+      ["\r\xc2\x85\r\n",     "--- \"\\n\\n\\n\"\n"],
+      ["\r\xe2\x80\xa8\r\n", "--- \"\\n\\L\\n\"\n"],
+      ["\r\xe2\x80\xa9\r\n", "--- \"\\n\\P\\n\"\n"],
+    ].each {|src, yaml|
+      y = src.ya2yaml(
+        :minimum_block_length => 16
+      )
+      assert_equal(
+        yaml,
+        y,
+        'line breaks should be normalized to fit the format.'
+      )
+    }
+  end
+
+  def test_structs
+    [
+      [Struct.new('Hoge', :foo).new(123), "--- !ruby/struct:Hoge \n  foo: 123\n", ],
+      [Struct.new(:foo).new(123),       "--- !ruby/struct: \n  foo: 123\n", ],
+    ].each {|src, yaml|
+      y = src.ya2yaml()
+      assert_equal(
+        yaml,
+        y,
+        'ruby struct should be serialized properly'
+      )
+    }
+  end
+
+  def test_roundtrip_single_byte_char
+     ("\x00".."\x7f").each {|c|
+      y = c.ya2yaml()
+      r = YAML.load(y)
+      assert_equal(
+        (c == "\r" ? "\n" : c), # "\r" is normalized as "\n"
+        r,
+        'single byte characters should round-trip properly'
+      )
+    }
+  end
+
+  def test_roundtrip_multi_byte_char
+    [
+      0x80,
+      0x85,
+      0xa0,
+      0x07ff,
+      0x0800,
+      0x0fff,
+      0x1000,
+      0x2028,
+      0x2029,
+      0xcfff,
+      0xd000,
+      0xd7ff,
+      0xe000,
+      0xfffd,
+      0x10000,
+      0x3ffff,
+      0x40000,
+      0xfffff,
+      0x100000,
+      0x10ffff,
+    ].each {|ucs_code|
+      [-1, 0, 1].each {|ofs|
+        (c = [ucs_code + ofs].pack('U'))
+        next unless c.valid_encoding? if c.respond_to? :valid_encoding?
+        c_hex = c.unpack('H8')
+        y = c.ya2yaml(
+          :escape_b_specific => true,
+          :escape_as_utf8    => true
+        )
+        r = YAML.load(y)
+        assert_equal(
+          (c == "\xc2\x85" ? "\n" : c), # "\N" is normalized as "\n"
+          r,
+          "multi byte characters #{c_hex} should round-trip properly"
+        )
+      }
+    }
+  end
+
+  def test_roundtrip_ambiguous_string
+    [
+      'true',
+      'false',
+      'TRUE',
+      'FALSE',
+      'Y',
+      'N',
+      'y',
+      'n',
+      'on',
+      'off',
+      true,
+      false,
+      '0b0101',
+      '-0b0101',
+      0b0101,
+      -0b0101,
+      '031',
+      '-031',
+      031,
+      -031,
+      '123.001e-1',
+      '123.01',
+      '123',
+      123.001e-1,
+      123.01,
+      123,
+      '-123.001e-1',
+      '-123.01',
+      '-123',
+      -123.001e-1,
+      -123.01,
+      -123,
+      'INF',
+      'inf',
+      'NaN',
+      'nan',
+      '0xfe2a',
+      '-0xfe2a',
+      0xfe2a,
+      -0xfe2a,
+      '1:23:32.0200',
+      '1:23:32',
+      '-1:23:32.0200',
+      '-1:23:32',
+      '<<',
+      '~',
+      'null',
+      'nUll',
+      'Null',
+      'NULL',
+      '',
+      nil,
+      '2006-09-12',
+      '2006-09-11T17:28:07Z',
+      '2006-09-11T17:28:07+09:00',
+      '2006-09-11 17:28:07.662694 +09:00',
+      '=',
+    ].each {|c|
+      ['', 'hoge'].each {|ext|
+        src = (c.class == String) ? (c + ext) : c
+        y = src.ya2yaml(
+          :escape_as_utf8 => true
+        )
+        r = YAML.load(y)
+        assert_equal(
+          src,
+          r,
+          'ambiguous elements should round-trip properly'
+        )
+      }
+    }
+  end
+
+  def test_roundtrip_string
+    chars = "aあ\t\-\?,\[\{\#&\*!\|>'\"\%\@\`.\\ \n\xc2\xa0\xe2\x80\xa8".split('')
+
+    chars.each {|i|
+      chars.each {|j|
+        chars.each {|k|
+          src = i + j + k
+          y =  src.ya2yaml(
+            :printable_with_syck => true,
+            :escape_b_specific   => true,
+            :escape_as_utf8      => true
+          )
+          r = YAML.load(y)
+          assert_equal(
+            src,
+            r,
+            'string of special characters should round-trip properly'
+          )
+        }
+      }
+    }
+  end
+
+  # patch by pawel.j.radecki at gmail.com. thanks!
+  def test_roundtrip_symbols
+    symbol1 = :"Batman: The Dark Knight - Why So Serious?!"
+    result_symbol1 = YAML.load(symbol1.ya2yaml)
+    assert_equal(symbol1, result_symbol1)
+
+    symbol2 = :"Batman: The Dark Knight - \"Why So Serious?!\""
+    result_symbol2 = YAML.load(symbol2.ya2yaml)
+    assert_equal(symbol2, result_symbol2)
 
 #		# YAML.load problem: the quotes within the symbol are lost here
 #		symbol3 = :"\"Batman: The Dark Knight - Why So Serious?!\""
 #		result_symbol3 = YAML.load(symbol3.ya2yaml)
-#		assert_equal(symbol3,result_symbol3)
-	end
-
-	def test_roundtrip_types
-		objects = [
-			[],
-			[1],
-			{},
-			{'foo' => 'bar'},
-			nil,
-			'hoge',
-			"abc\nxyz\n",
-			(s = "\xff\xff"),
-			true,
-			false,
-			1000,
-			1000.1,
-			-1000,
-			-1000.1,
-			Date.new(2009,2,9),
-			Time.local(2009,2,9,16,35,22),
-			:foo,
-			1..10,
-			/abc\nxyz/i,
-			@struct,
-			@klass,
-		]
-		s.force_encoding("BINARY") if s.respond_to? :force_encoding
-
-		objects.each {|obj|
-			src = case obj.class.to_s
-				when 'Array'
-					(obj.length) == 0 ? [] : objects
-				when 'Hash'
-					if (obj.length) == 0
-						{}
-					else
-						h = {}
-						c = 0
-						objects.each {|val|
-							h[c] = {}
-							objects.each {|key|
-								h[c][key] = val unless (key.class == Hash || key.class == Moo)
-							}
-							c += 1
-						}
-						h
-					end
-				else
-					obj
-			end
-			y = src.ya2yaml(
-				:syck_compatible => true
-			)
-
-			r = YAML.load(y)
-			assert_equal(
-				src,
-				r,
-				'types other than String should round-trip properly'
-			)
-		}
-	end
-
-	def test_roundtrip_various
-		[
-			[1,2,['c','d',[[['e']],[]],'f'],3,Time.local(2009,2,9,17,9),[[:foo]],nil,true,false,[],{},{[123,223]=>456},{[1]=>2,'a'=>'b','c' => [9,9,9],Time.local(2009,2,9,17,10) => 'hoge'},],
-			[],
-			{[123,223]=>456},
-			{},
-			{'foo' => {1 => {2=>3,4=>5},6 => [7,8]}},
-			"abc",
-			" abc\n def\ndef\ndef\ndef\ndef\n",
-			"abc\n def\ndef\n",
-			"abc\n def\ndef\n\n",
-			"abc\n def\ndef\n\n ",
-			"abc\n def\ndef\n \n",
-			"abc\n def\ndef \n \n",
-			"abc\n def\ndef \n \n ",
-			' ほげほげほげ',
-			{"ほげ\nほげ\n ほげ" => 123},
-			[["ほげ\nほげ\n ほげ"]],
-			"ほげh\x4fge\nほげ\nほげ",
-			[{'ほげ'=>'abc',"ほげ\nほげ"=>'ほげ'},'ほげ',@text],
-			[Date.today,-9.011,0.023,4,-5,{1=>-2,-1=>@text,'_foo'=>'bar','ぬお-ぬお'=>321}],
-			{1=>-2,-1=>@gif,'_foo'=>'bar','ぬお-ぬお'=>321},
-		].each {|src|
-			y = src.ya2yaml(
-				:syck_compatible => true
-			)
-
-			r = YAML.load(y)
-			assert_equal(
-				src,
-				r,
-				'various types should round-trip properly'
-			)
-		}
-	end
+#		assert_equal(symbol3, result_symbol3)
+  end
+
+  def test_roundtrip_types
+    objects = [
+      [],
+      [1],
+      {},
+      {'foo' => 'bar'},
+      nil,
+      'hoge',
+      "abc\nxyz\n",
+      (s = "\xff\xff"),
+      true,
+      false,
+      1000,
+      1000.1,
+      -1000,
+      -1000.1,
+      Date.new(2009, 2, 9),
+      Time.local(2009, 2, 9, 16, 35, 22),
+      :foo,
+      1..10,
+      /abc\nxyz/i,
+      @struct,
+      @klass,
+    ]
+    s.force_encoding("BINARY") if s.respond_to? :force_encoding
+
+    objects.each {|obj|
+      src = case obj.class.to_s
+        when 'Array'
+          (obj.length) == 0 ? [] : objects
+        when 'Hash'
+          if (obj.length) == 0
+            {}
+          else
+            h = {}
+            c = 0
+            objects.each {|val|
+              h[c] = {}
+              objects.each {|key|
+                h[c][key] = val unless (key.class == Hash || key.class == Moo)
+              }
+              c += 1
+            }
+            h
+          end
+        else
+          obj
+      end
+      y = src.ya2yaml(
+        :syck_compatible => true
+      )
+
+      r = YAML.load(y)
+      assert_equal(
+        src,
+        r,
+        'types other than String should round-trip properly'
+      )
+    }
+  end
+
+  def test_roundtrip_various
+    [
+      [1, 2, ['c', 'd', [[['e']], []], 'f'], 3, Time.local(2009, 2, 9, 17, 9), [[:foo]], nil, true, false, [], {}, {[123, 223]=>456}, {[1]=>2, 'a'=>'b', 'c' => [9, 9, 9], Time.local(2009, 2, 9, 17, 10) => 'hoge'}, ],
+      [],
+      {[123, 223]=>456},
+      {},
+      {'foo' => {1 => {2=>3, 4=>5}, 6 => [7, 8]}},
+      "abc",
+      " abc\n def\ndef\ndef\ndef\ndef\n",
+      "abc\n def\ndef\n",
+      "abc\n def\ndef\n\n",
+      "abc\n def\ndef\n\n ",
+      "abc\n def\ndef\n \n",
+      "abc\n def\ndef \n \n",
+      "abc\n def\ndef \n \n ",
+      ' ほげほげほげ',
+      {"ほげ\nほげ\n ほげ" => 123},
+      [["ほげ\nほげ\n ほげ"]],
+      "ほげh\x4fge\nほげ\nほげ",
+      [{'ほげ'=>'abc', "ほげ\nほげ"=>'ほげ'}, 'ほげ', @text],
+      [Date.today, -9.011, 0.023, 4, -5, {1=>-2, -1=>@text, '_foo'=>'bar', 'ぬお-ぬお'=>321}],
+      {1=>-2, -1=>@gif, '_foo'=>'bar', 'ぬお-ぬお'=>321},
+    ].each {|src|
+      y = src.ya2yaml(
+        :syck_compatible => true
+      )
+
+      r = YAML.load(y)
+      assert_equal(
+        src,
+        r,
+        'various types should round-trip properly'
+      )
+    }
+  end
+
+  def test_circular_reference
+    a = []
+    a << a
+    assert_raise(
+      ArgumentError,
+      'Object#ya2yaml should raise ArgumentError when the object includes a circular reference'
+    ) {
+      a.ya2yaml
+    }
+  end
+
+  def test_binary
+    return if RUBY_VERSION < '1.9.0'
+
+    y = nil
+    assert_nothing_raised(
+      "Ya2YAML#string_type should dump 'ASCII-8BIT' strings as '!binary'"
+    ) {
+      y = '日本語'.force_encoding('ASCII-8BIT').ya2yaml
+    }
+    assert_equal(
+      "--- !binary |\n  5pel5pys6Kqe\n\n",
+      y,
+      "Ya2YAML#string_type should dump 'ASCII-8BIT' strings as '!binary'"
+    )
+
+    assert_nothing_raised(
+      "Ya2YAML#string_type should dump strings with invalid encodings as '!binary'"
+    ) {
+      y = '日本語'.encode('EUC-JP').force_encoding('UTF-8').ya2yaml
+    }
+    assert_equal(
+      "--- !binary |\n  xvzL3Ljs\n\n",
+      y,
+      "Ya2YAML#string_type should dump strings with invalid encodings as '!binary'"
+    )
+  end
 
 end