microfiche 1.0.0

data/test/lib/facets/test_json.rb

@@ -0,0 +1,232 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/json.rb
+#
+# Extracted Fri Mar 16 13:16:34 EDT 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/json.rb'
+
+
+  require 'test/unit'
+
+class TC_JSON < Test::Unit::TestCase
+
+  include JSON
+
+  class A
+    def initialize(a)
+      @a = a
+    end
+
+    attr_reader :a
+
+    def ==(other)
+      a == other.a
+    end
+
+    def self.json_create(object)
+      new(*object['args'])
+    end
+
+    def to_json(*args)
+      {
+        'json_class'  => self.class,
+        'args'        => [ @a ],
+      }.to_json(*args)
+    end
+  end
+
+  def setup
+    $KCODE = 'UTF8'
+    @ary = [1, "foo", 3.14, 4711.0, 2.718, nil, [1,-2,3], false, true]
+    @ary_to_parse = ["1", '"foo"', "3.14", "4711.0", "2.718", "null",
+      "[1,-2,3]", "false", "true"]
+    @hash = {
+      'a' => 2,
+      'b' => 3.141,
+      'c' => 'c',
+      'd' => [ 1, "b", 3.14 ],
+      'e' => { 'foo' => 'bar' },
+      'g' => "\"\0\037",
+      'h' => 1000.0,
+      'i' => 0.001
+    }
+    @json = '{"a":2,"b":3.141,"c":"c","d":[1,"b",3.14],"e":{"foo":"bar"},' +
+      '"g":"\\"\\u0000\\u001f","h":1.0E3,"i":1.0E-3}'
+    @json2 = '{"a":2,"b":3.141,"c":"c","d":[1,"b",3.14],"e":{"foo":"bar"},' +
+      '"g":"\\"\\u0000\\u001f","h":1000.0,"i":0.001}'
+  end
+
+  def test_parse_value
+    assert_equal("", parse('""'))
+    assert_equal("\\", parse('"\\\\"'))
+    assert_equal('"', parse('"\""'))
+    assert_equal('\\"\\', parse('"\\\\\\"\\\\"'))
+    assert_equal("\\a\"\b\f\n\r\t\0\037",
+      parse('"\\a\"\b\f\n\r\t\u0000\u001f"'))
+    for i in 0 ... @ary.size
+      assert_equal(@ary[i], parse(@ary_to_parse[i]))
+    end
+  end
+
+  def test_parse_array
+    assert_equal([], parse('[]'))
+    assert_equal([], parse('  [  ]  '))
+    assert_equal([1], parse('[1]'))
+    assert_equal([1], parse('  [ 1  ]  '))
+    assert_equal(@ary,
+      parse('[1,"foo",3.14,47.11e+2,2718.E-3,null,[1,-2,3],false,true]'))
+    assert_equal(@ary, parse(%Q{   [   1 , "foo"  ,  3.14 \t ,  47.11e+2 
+      , 2718.E-3 ,\n null , [1, -2, 3 ], false , true\n ]  }))
+  end
+
+  def test_parse_object
+    assert_equal({}, parse('{}'))
+    assert_equal({}, parse('  {  }  '))
+    assert_equal({'foo'=>'bar'}, parse('{"foo":"bar"}'))
+    assert_equal({'foo'=>'bar'}, parse('    { "foo"  :   "bar"   }   '))
+  end
+
+  def test_unparse
+    json = unparse(@hash)
+    assert_equal(@json2, json)
+    parsed_json = parse(json)
+    assert_equal(@hash, parsed_json)
+    json = unparse({1=>2})
+    assert_equal('{"1":2}', json)
+    parsed_json = parse(json)
+    assert_equal({"1"=>2}, parsed_json)
+  end
+
+  def test_parser_reset
+    parser = Parser.new(@json)
+    assert_equal(@hash, parser.parse)
+    assert_equal(@hash, parser.parse)
+  end
+
+  def test_unicode
+    assert_equal '""', ''.to_json
+    assert_equal '"\\b"', "\b".to_json
+    assert_equal '"\u0001"', 0x1.chr.to_json
+    assert_equal '"\u001f"', 0x1f.chr.to_json
+    assert_equal '" "', ' '.to_json
+    assert_equal "\"#{0x7f.chr}\"", 0x7f.chr.to_json
+    utf8 = '© ≠ €!'
+    json = '"\u00a9 \u2260 \u20ac!"'
+    assert_equal json, utf8.to_json
+    assert_equal utf8, parse(json)
+    utf8 = "\343\201\202\343\201\204\343\201\206\343\201\210\343\201\212"
+    json = '"\u3042\u3044\u3046\u3048\u304a"'
+    assert_equal json, utf8.to_json
+    assert_equal utf8, parse(json)
+    utf8 = 'საქართველო'
+    json = '"\u10e1\u10d0\u10e5\u10d0\u10e0\u10d7\u10d5\u10d4\u10da\u10dd"'
+    assert_equal json, utf8.to_json
+    assert_equal utf8, parse(json)
+  end
+
+  def test_comments
+    json = <<EOT
+{
+  "key1":"value1", // eol comment
+  "key2":"value2"  /* multi line
+                    *  comment */,
+  "key3":"value3"  /* multi line
+                    // nested eol comment
+                    *  comment */
+}
+EOT
+    assert_equal(
+      { "key1" => "value1", "key2" => "value2", "key3" => "value3" },
+      parse(json))
+    json = <<EOT
+{
+  "key1":"value1"  /* multi line
+                    // nested eol comment
+                    /* illegal nested multi line comment */
+                    *  comment */
+}
+EOT
+    assert_raises(ParserError) { parse(json) }
+    json = <<EOT
+{
+  "key1":"value1"  /* multi line
+                   // nested eol comment
+                   closed multi comment */
+                   and again, throw an Error */
+}
+EOT
+    assert_raises(ParserError) { parse(json) }
+    json = <<EOT
+{
+  "key1":"value1"  /*/*/
+}
+EOT
+    assert_equal({ "key1" => "value1" }, parse(json))
+  end
+
+  def test_extended_json
+    a = A.new(666)
+    json = a.to_json
+    a_again = JSON.parse(json)
+    assert_kind_of a.class, a_again
+    assert_equal a, a_again
+  end
+
+  def test_raw_strings
+    raw = ''
+    raw_array = []
+    for i in 0..255
+      raw << i
+      raw_array << i
+    end
+    json = raw.to_json_raw
+    json_raw_object = raw.to_json_raw_object
+    hash = { 'json_class' => 'String', 'raw'=> raw_array }
+    assert_equal hash, json_raw_object
+    json_raw = <<EOT.chomp
+{\"json_class\":\"String\",\"raw\":[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255]}
+EOT
+# "
+    assert_equal json_raw, json
+    raw_again = JSON.parse(json)
+    assert_equal raw, raw_again
+  end
+
+  def test_utf8_mode
+    $KCODE = 'NONE'
+    utf8 = "© ≠ €! - \001"
+    json = "\"© ≠ €! - \\u0001\""
+    assert_equal json, utf8.to_json
+    assert_equal utf8, parse(json)
+    assert JSON.support_unicode?
+    $KCODE = 'UTF8'
+    utf8 = '© ≠ €!'
+    json = '"\u00a9 \u2260 \u20ac!"'
+    assert_equal json, utf8.to_json
+    assert_equal utf8, parse(json)
+    JSON.support_unicode = false
+    assert !JSON.support_unicode?
+    utf8 = "© ≠ €! - \001"
+    json = "\"© ≠ €! - \\u0001\""
+    assert_equal json, utf8.to_json
+    assert_equal utf8, parse(json)
+  end
+
+  def test_backslash
+    json = '"\\\\.(?i:gif|jpe?g|png)$"'
+    data = JSON.parse(json)
+    assert_equal json, JSON.unparse(data)
+    json = '"\\""'
+    data = JSON.parse(json)
+    assert_equal json, JSON.unparse(data)
+  end
+end
+
+

data/test/lib/facets/test_xoxo.rb

@@ -0,0 +1,288 @@
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+# for lib/facets/xoxo.rb
+#
+# Extracted Fri Mar 16 13:16:34 EDT 2007
+# Project.rb Test Extraction
+#
+
+require 'facets/xoxo.rb'
+
+
+  require 'test/unit'
+
+  class TCXOXO < Test::Unit::TestCase
+
+    def test_simple_list
+      l = ['1', '2', '3']
+      html = XOXO.dump(l)
+      assert_equal '<ol class="xoxo"><li>1</li><li>2</li><li>3</li></ol>', html
+    end
+
+    def test_nested_list
+      l = ['1', ['2', '3']]
+      assert_equal '<ol class="xoxo"><li>1</li><li><ol><li>2</li><li>3</li></ol></li></ol>', XOXO.dump(l)
+    end
+
+    def test_hash
+      h = {'test' => '1', 'name' => 'Kevin'}
+      # Changed since Ruby sorts the hash differently.
+      assert_equal '<ol class="xoxo"><li><dl><dt>name</dt><dd>Kevin</dd><dt>test</dt><dd>1</dd></dl></li></ol>', XOXO.dump(h)
+    end
+
+    def test_single_item
+      l = 'test'
+      assert_equal '<ol class="xoxo"><li>test</li></ol>', XOXO.dump(l)
+    end
+
+    def test_wrap_differs
+      l = 'test'
+      html = XOXO.dump(l)
+      html_wrap = XOXO.dump(l, :html_wrap => true)
+      assert_not_equal html, html_wrap
+    end
+
+    def test_wrap_single_item
+      l = 'test'
+      html = XOXO.dump(l, :html_wrap => true)
+      assert_equal <<EOF.strip, html
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN
+http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml"><head profile=""><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /></head><body><ol class="xoxo"><li>test</li></ol></body></html>
+EOF
+    end
+
+    def test_wrap_item_with_css
+      l = 'test'
+      html = XOXO.dump(l, :html_wrap => true, :css => 'reaptest.css')
+      assert_equal <<EOF.strip, html
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN
+http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml"><head profile=""><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><style type="text/css" >@import "reaptest.css";</style></head><body><ol class="xoxo"><li>test</li></ol></body></html>
+EOF
+    end
+
+    def test_hash_roundtrip
+      h = {'test' => '1', 'name' => 'Kevin'}
+      assert_equal h, XOXO.load(XOXO.dump(h))
+    end
+
+    def test_hash_with_url_roundtrip
+      h = {'url' => 'http://example.com', 'name' => 'Kevin'}
+      assert_equal h, XOXO.load(XOXO.dump(h))
+    end
+
+    def test_nested_hash_roundtrip
+      h = {'test' => '1', 'inner' => {'name' => 'Kevin'}}
+      assert_equal h, XOXO.load(XOXO.dump(h))
+    end
+
+    def test_nested_hash_with_url_roundtrip
+      h = {'url' => 'http://example.com', 'inner' => {
+            'url' => 'http://slashdot.org', 'name' => 'Kevin'}}
+      assert_equal h, XOXO.load(XOXO.dump(h))
+    end
+
+    def test_list_round_trip
+      l = ['3', '2', '1']
+      assert_equal l, XOXO.load(XOXO.dump(l))
+    end
+
+    def test_list_of_hashes_round_trip
+      l = ['3', {'a' => '2'}, {'b' => '1', 'c' => '4'}]
+      assert_equal l, XOXO.load(XOXO.dump(l))
+    end
+
+    def test_list_of_lists_round_trip
+      l = ['3', ['a', '2'], ['b', ['1', ['c', '4']]]]
+      assert_equal l, XOXO.load(XOXO.dump(l))
+    end
+
+    def test_hashes_of_lists_roundtrip
+      h = {
+        'test' => ['1', '2'],
+        'name' => 'Kevin',
+        'nestlist' => ['a', ['b', 'c']],
+        'nestdict' => {'e' => '6', 'f' => '7'}
+      }
+      assert_equal h, XOXO.load(XOXO.dump(h))
+    end
+
+    def test_xoxo_junk_in_containers
+      h = XOXO.load '<ol>bad<li><dl>worse<dt>good</dt><dd>buy</dd> now</dl></li></ol>'
+      assert_equal({'good' => 'buy'}, h)
+    end
+
+    def test_xoxo_junk_in_elements
+      l = XOXO.load '<ol><li>bad<dl><dt>good</dt><dd>buy</dd></dl>worse</li><li>bag<ol><li>OK</li></ol>fish</li></ol>'
+      assert_equal([{'good' => 'buy'}, ['OK']], l)
+    end
+
+    def test_xoxo_with_spaces_and_newlines
+      xoxo_sample = <<EOF.strip
+<ol class='xoxo'>
+  <li>
+    <dl>
+        <dt>text</dt>
+        <dd>item 1</dd>
+        <dt>description</dt>
+        <dd> This item represents the main point we're trying to make.</dd>
+        <dt>url</dt>
+        <dd>http://example.com/more.xoxo</dd>
+        <dt>title</dt>
+        <dd>title of item 1</dd>
+        <dt>type</dt>
+        <dd>text/xml</dd>
+        <dt>rel</dt>
+        <dd>help</dd>
+    </dl>
+  </li>
+</ol>
+EOF
+      h = XOXO.load xoxo_sample
+      h2 = {
+        'text' => 'item 1',
+        'description' => " This item represents the main point we're trying to make.",
+        'url' => 'http://example.com/more.xoxo',
+        'title' => 'title of item 1',
+        'type' => 'text/xml',
+        'rel' => 'help'
+      }
+      assert_equal h2, XOXO.load(xoxo_sample)
+    end
+
+    def test_special_attribute_decoding
+      xoxo_sample = <<EOF.strip
+<ol class='xoxo'>
+  <li>
+    <dl>
+        <dt>text</dt>
+        <dd>item 1</dd>
+        <dt>url</dt>
+        <dd>http://example.com/more.xoxo</dd>
+        <dt>title</dt>
+        <dd>title of item 1</dd>
+        <dt>type</dt>
+        <dd>text/xml</dd>
+        <dt>rel</dt>
+        <dd>help</dd>
+    </dl>
+  </li>
+</ol>
+EOF
+      smart_xoxo_sample = <<EOF.strip
+<ol class='xoxo'> 
+  <li><a href="http://example.com/more.xoxo"
+         title="title of item 1"
+         type="text/xml"
+         rel="help">item 1</a> 
+<!-- note how the "text" property is simply the contents of the <a> element -->
+  </li>
+</ol>
+EOF
+      assert_equal XOXO.load(xoxo_sample), XOXO.load(smart_xoxo_sample)
+    end
+
+    def test_special_attribute_and_dl_decoding
+      xoxo_sample = <<EOF.strip
+<ol class="xoxo">
+  <li>
+    <dl>
+        <dt>text</dt>
+        <dd>item 1</dd>
+        <dt>description</dt>
+        <dd> This item represents the main point we're trying to make.</dd>
+        <dt>url</dt>
+        <dd>http://example.com/more.xoxo</dd>
+        <dt>title</dt>
+        <dd>title of item 1</dd>
+        <dt>type</dt>
+        <dd>text/xml</dd>
+        <dt>rel</dt>
+        <dd>help</dd>
+    </dl>
+  </li>
+</ol>
+EOF
+      smart_xoxo_sample = <<EOF.strip
+<ol class="xoxo">
+  <li><a href="http://example.com/more.xoxo"
+         title="title of item 1"
+         type="text/xml"
+         rel="help">item 1</a> 
+<!-- note how the "text" property is simply the contents of the <a> element -->
+      <dl>
+        <dt>description</dt>
+          <dd> This item represents the main point we're trying to make.</dd>
+      </dl>
+  </li>
+</ol>
+EOF
+      assert_equal XOXO.load(xoxo_sample), XOXO.load(smart_xoxo_sample)
+    end
+
+    def test_special_attribute_encode
+      h = {
+        'url' => 'http://example.com/more.xoxo',
+        'title' => 'sample url',
+        'type' => "text/xml",
+        'rel' => 'help',
+        'text' => 'an example'
+      }
+      assert_equal '<ol class="xoxo"><li><a href="http://example.com/more.xoxo" title="sample url" rel="help" type="text/xml" >an example</a></li></ol>', XOXO.dump(h)
+    end
+
+    def test_special_attribute_roundtrip_full
+      h = {
+        'url' => 'http://example.com/more.xoxo',
+        'title' => 'sample url',
+        'type' => "text/xml",
+        'rel' => 'help',
+        'text' => 'an example'
+      }
+      assert_equal h, XOXO.load(XOXO.dump(h))
+    end
+
+    def test_special_attribute_roundtrip_no_text
+      h = {
+        'url' => 'http://example.com/more.xoxo',
+        'title' => 'sample url',
+        'type' => "text/xml",
+        'rel' => 'help'
+      }
+      assert_equal h, XOXO.load(XOXO.dump(h))
+    end
+
+    def test_special_attribute_roundtrip_no_text_or_title
+      h = {'url' => 'http://example.com/more.xoxo'}
+      assert_equal h, XOXO.load(XOXO.dump(h))
+    end
+
+    def test_attention_roundtrip
+      kmattn = <<EOF.strip
+<ol class="xoxo"><li><a href="http://www.boingboing.net/" title="Boing Boing Blog" >Boing Boing Blog</a><dl><dt>alturls</dt><dd><ol><li><a href="http://boingboing.net/rss.xml" >xmlurl</a></li></ol></dd><dt>description</dt><dd>Boing Boing Blog</dd></dl></li><li><a href="http://www.financialcryptography.com/" title="Financial Cryptography" >Financial Cryptography</a><dl><dt>alturls</dt><dd><ol><li><a href="http://www.financialcryptography.com/mt/index.rdf" >xmlurl</a></li></ol></dd><dt>description</dt><dd>Financial Cryptography</dd></dl></li><li><a href="http://hublog.hubmed.org/" title="HubLog" >HubLog</a><dl><dt>alturls</dt><dd><ol><li><a href="http://hublog.hubmed.org/index.xml" >xmlurl</a></li><li><a href="http://hublog.hubmed.org/foaf.rdf" >foafurl</a></li></ol></dd><dt>description</dt><dd>HubLog</dd></dl></li></ol>
+EOF
+      assert_equal kmattn, XOXO.dump(XOXO.load(kmattn))
+      assert_equal XOXO.load(kmattn), XOXO.load(XOXO.dump(XOXO.load(kmattn)))
+      assert_equal XOXO.dump(XOXO.load(kmattn)),
+                  XOXO.dump(XOXO.load(XOXO.dump(XOXO.load(kmattn))))
+    end
+
+    def test_unicode_roundtrip
+      unicode = "Tantek \xc3\x87elik and a snowman \xe2\x98\x83"
+      assert_equal unicode, XOXO.load(XOXO.dump(unicode))
+    end
+
+  # TBD:  Implement proper encodings.
+  #
+  #  def test_utf8_roundtrip
+  #  end
+  #  def test_windows1252_roundtrip
+  #  end
+  end
+
+