animehunter-mongo 0.9

data/tests/test_ordered_hash.rb

@@ -0,0 +1,129 @@
+$LOAD_PATH[0,0] = File.join(File.dirname(__FILE__), '..', 'lib')
+require 'mongo/util/ordered_hash'
+require 'test/unit'
+
+class OrderedHashTest < Test::Unit::TestCase
+
+  def setup
+    @oh = OrderedHash.new
+    @oh['c'] = 1
+    @oh['a'] = 2
+    @oh['z'] = 3
+    @ordered_keys = %w(c a z)
+  end
+
+  def test_empty
+    assert_equal [], OrderedHash.new.keys
+  end
+
+  def test_equality
+    a = OrderedHash.new
+    a['x'] = 1
+    a['y'] = 2
+
+    b = OrderedHash.new
+    b['y'] = 2
+    b['x'] = 1
+
+    c = OrderedHash.new
+    c['x'] = 1
+    c['y'] = 2
+
+    d = OrderedHash.new
+    d['x'] = 2
+    d['y'] = 3
+
+    e = OrderedHash.new
+    e['z'] = 1
+    e['y'] = 2
+
+    assert_equal a, c
+    assert_not_equal a, b
+    assert_not_equal a, d
+    assert_not_equal a, e
+  end
+
+  def test_order_preserved
+    assert_equal @ordered_keys, @oh.keys
+  end
+
+  def test_order_preserved_after_replace
+    @oh['a'] = 42
+    assert_equal @ordered_keys, @oh.keys
+    @oh['c'] = 'foobar'
+    assert_equal @ordered_keys, @oh.keys
+    @oh['z'] = /huh?/
+    assert_equal @ordered_keys, @oh.keys
+  end
+
+  def test_each
+    keys = []
+    @oh.each { |k, v| keys << k }
+    assert_equal keys, @oh.keys
+
+    @oh['z'] = 42
+    assert_equal keys, @oh.keys
+  end
+
+  def test_values
+    assert_equal [1, 2, 3], @oh.values
+  end
+
+  def test_merge
+    other = OrderedHash.new
+    other['f'] = 'foo'
+    noob = @oh.merge(other)
+    assert_equal @ordered_keys + ['f'], noob.keys
+    assert_equal [1, 2, 3, 'foo'], noob.values
+  end
+
+  def test_merge_bang
+    other = OrderedHash.new
+    other['f'] = 'foo'
+    @oh.merge!(other)
+    assert_equal @ordered_keys + ['f'], @oh.keys
+    assert_equal [1, 2, 3, 'foo'], @oh.values
+  end
+
+  def test_merge_bang_with_overlap
+    other = OrderedHash.new
+    other['a'] = 'apple'
+    other['c'] = 'crab'
+    other['f'] = 'foo'
+    @oh.merge!(other)
+    assert_equal @ordered_keys + ['f'], @oh.keys
+    assert_equal ['crab', 'apple', 3, 'foo'], @oh.values
+  end
+
+  def test_merge_bang_with_hash_with_overlap
+    other = Hash.new
+    other['a'] = 'apple'
+    other['c'] = 'crab'
+    other['f'] = 'foo'
+    @oh.merge!(other)
+    assert_equal @ordered_keys + ['f'], @oh.keys
+    assert_equal ['crab', 'apple', 3, 'foo'], @oh.values
+  end
+
+  def test_inspect_retains_order
+    assert_equal '{"c"=>1, "a"=>2, "z"=>3}', @oh.inspect
+  end
+
+  def test_clear
+    @oh.clear
+    assert @oh.keys.empty?
+  end
+
+  def test_delete
+    assert @oh.keys.include?('z')
+    @oh.delete('z')
+    assert !@oh.keys.include?('z')
+  end
+
+  def test_delete_if
+    assert @oh.keys.include?('z')
+    @oh.delete_if { |k,v| k == 'z' }
+    assert !@oh.keys.include?('z')
+  end
+
+end

data/tests/test_round_trip.rb

@@ -0,0 +1,116 @@
+HERE = File.dirname(__FILE__)
+$LOAD_PATH[0,0] = File.join(HERE, '..', 'lib')
+require 'mongo'
+require 'mongo/util/xml_to_ruby'
+require 'test/unit'
+
+# For each xml/bson file in the data subdirectory, we turn the XML into an
+# OrderedHash and then test both Ruby-to-BSON and BSON-to-Ruby translations.
+#
+# There is a whole other project that includes similar tests
+# (http://github.com/mongodb/mongo-qa). If the directory ../../mongo-qa
+# exists, (that is, the top-level dir of mongo-qa is next to the top-level dir
+# of this project), then we find the BSON test files there and use those, too.
+class RoundTripTest < Test::Unit::TestCase
+
+  include XGen::Mongo::Driver
+
+  @@ruby = nil
+
+  def setup
+    unless @@ruby
+      names = Dir[File.join(HERE, 'data', '*.xml')].collect {|f| File.basename(f).sub(/\.xml$/, '') }
+      @@ruby = {}
+      names.each { |name|
+        File.open(File.join(HERE, 'data', "#{name}.xml")) { |f|
+          @@ruby[name] = XMLToRuby.new.xml_to_ruby(f)
+        }
+      }
+    end
+  end
+
+  def test_dummy
+    assert true
+  end
+
+  def self.create_test_for_round_trip_files_in_dir(dir)
+    names = Dir[File.join(dir, '*.xson')].collect {|f| File.basename(f).sub(/\.xson$/, '') }
+    names.each { |name|
+      eval <<EOS
+def test_#{name}_#{dir.gsub(/[^a-zA-Z0-9_]/, '_')}
+  one_round_trip("#{dir}", "#{name}")
+end
+EOS
+    }
+  end
+
+  # Dynamically generate one test for each test file. This way, if one test
+  # fails the others will still run.
+  create_test_for_round_trip_files_in_dir(File.join(HERE, 'data'))
+  mongo_qa_dir = File.join(HERE, '../..', 'mongo-qa/modules/bson_tests/tests')
+  if File.exist?(mongo_qa_dir)
+    %w(basic_types complex single_types).each { |subdir_name|
+      create_test_for_round_trip_files_in_dir(File.join(mongo_qa_dir, subdir_name))
+    }
+  end
+
+  # Round-trip comparisons of Ruby-to-BSON and back.
+  # * Take the objects that were read from XML
+  # * Turn them into BSON bytes
+  # * Compare that with the BSON files we have
+  # * Turn those BSON bytes back in to Ruby objects
+  # * Turn them back into BSON bytes
+  # * Compare that with the BSON files we have (or the bytes that were already
+  #   generated)
+  def one_round_trip(dir, name)
+    obj = File.open(File.join(dir, "#{name}.xson")) { |f|
+      XMLToRuby.new.xml_to_ruby(f)
+    }
+
+    File.open(File.join(dir, "#{name}.bson"), 'rb') { |f|
+      # Read the BSON from the file
+      bson = f.read
+      bson = if RUBY_VERSION >= '1.9'
+               bson.bytes.to_a
+             else
+               bson.split(//).collect { |c| c[0] }
+             end
+
+      # Turn the Ruby object into BSON bytes and compare with the BSON bytes
+      # from the file.
+      bson_from_ruby = BSON.new.serialize(obj).to_a
+
+      begin
+        assert_equal bson.length, bson_from_ruby.length
+        assert_equal bson, bson_from_ruby
+      rescue => ex
+#         File.open(File.join(dir, "#{name}_out_a.bson"), 'wb') { |f| # DEBUG
+#           bson_from_ruby.each { |b| f.putc(b) }
+#         }
+        raise ex
+      end
+
+      # Turn those BSON bytes back into a Ruby object.
+      #
+      # We're passing a nil db to the contructor here, but that's OK because
+      # the BSON DBRef bytes don't contain the db object in any case, and we
+      # don't care what the database is.
+      obj_from_bson = BSON.new.deserialize(ByteBuffer.new(bson_from_ruby))
+      assert_kind_of OrderedHash, obj_from_bson
+
+      # Turn that Ruby object into BSON and compare it to the original BSON
+      # bytes.
+      bson_from_ruby = BSON.new.serialize(obj_from_bson).to_a
+      begin
+        assert_equal bson.length, bson_from_ruby.length
+        assert_equal bson, bson_from_ruby
+      rescue => ex
+#         File.open(File.join(dir, "#{name}_out_b.bson"), 'wb') { |f| # DEBUG
+#           bson_from_ruby.each { |b| f.putc(b) }
+#         }
+        raise ex
+      end
+    }
+  end
+
+end

metadata

@@ -0,0 +1,133 @@
+--- !ruby/object:Gem::Specification 
+name: animehunter-mongo
+version: !ruby/object:Gem::Version 
+  version: "0.9"
+platform: ruby
+authors: 
+- Jim Menard
+- Mike Dirolf
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-05-16 00:00:00 -07:00
+default_executable: 
+dependencies: []
+
+description: A Ruby driver for the 10gen Mongo DB. For more information about Mongo, see http://www.mongodb.org.
+email: mongodb-dev@googlegroups.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README.rdoc
+files: 
+- README.rdoc
+- Rakefile
+- mongo-ruby-driver.gemspec
+- bin/bson_benchmark.rb
+- bin/mongo_console
+- bin/run_test_script
+- bin/standard_benchmark
+- examples/admin.rb
+- examples/benchmarks.rb
+- examples/blog.rb
+- examples/capped.rb
+- examples/cursor.rb
+- examples/gridfs.rb
+- examples/index_test.rb
+- examples/info.rb
+- examples/queries.rb
+- examples/simple.rb
+- examples/strict.rb
+- examples/types.rb
+- lib/mongo/admin.rb
+- lib/mongo/collection.rb
+- lib/mongo/cursor.rb
+- lib/mongo/db.rb
+- lib/mongo/gridfs/chunk.rb
+- lib/mongo/gridfs/grid_store.rb
+- lib/mongo/gridfs.rb
+- lib/mongo/message/get_more_message.rb
+- lib/mongo/message/insert_message.rb
+- lib/mongo/message/kill_cursors_message.rb
+- lib/mongo/message/message.rb
+- lib/mongo/message/message_header.rb
+- lib/mongo/message/msg_message.rb
+- lib/mongo/message/opcodes.rb
+- lib/mongo/message/query_message.rb
+- lib/mongo/message/remove_message.rb
+- lib/mongo/message/update_message.rb
+- lib/mongo/message.rb
+- lib/mongo/mongo.rb
+- lib/mongo/query.rb
+- lib/mongo/types/binary.rb
+- lib/mongo/types/code.rb
+- lib/mongo/types/dbref.rb
+- lib/mongo/types/objectid.rb
+- lib/mongo/types/regexp_of_holding.rb
+- lib/mongo/types/undefined.rb
+- lib/mongo/util/bson.rb
+- lib/mongo/util/byte_buffer.rb
+- lib/mongo/util/ordered_hash.rb
+- lib/mongo/util/xml_to_ruby.rb
+- lib/mongo.rb
+has_rdoc: true
+homepage: http://www.mongodb.org
+licenses: 
+post_install_message: 
+rdoc_options: 
+- --main
+- README.rdoc
+- --inline-source
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 2
+summary: Ruby driver for the 10gen Mongo DB
+test_files: 
+- tests/mongo-qa/_common.rb
+- tests/mongo-qa/admin
+- tests/mongo-qa/capped
+- tests/mongo-qa/count1
+- tests/mongo-qa/dbs
+- tests/mongo-qa/find
+- tests/mongo-qa/find1
+- tests/mongo-qa/gridfs_in
+- tests/mongo-qa/gridfs_out
+- tests/mongo-qa/indices
+- tests/mongo-qa/remove
+- tests/mongo-qa/stress1
+- tests/mongo-qa/test1
+- tests/mongo-qa/update
+- tests/test_admin.rb
+- tests/test_bson.rb
+- tests/test_byte_buffer.rb
+- tests/test_chunk.rb
+- tests/test_cursor.rb
+- tests/test_db.rb
+- tests/test_db_api.rb
+- tests/test_db_connection.rb
+- tests/test_grid_store.rb
+- tests/test_message.rb
+- tests/test_mongo.rb
+- tests/test_objectid.rb
+- tests/test_ordered_hash.rb
+- tests/test_round_trip.rb