opal-wedge 0.9.0.dev

data/benchmark/bm_dispatch_send.rb

@@ -0,0 +1,38 @@
+class SendDispatch
+  attr_reader :event_log
+
+  def initialize
+    @event_log = []
+  end
+
+  def call(event)
+    handler_name = "handle_#{event.name}"
+    __send__(handler_name, event) if respond_to?(handler_name)
+  end
+
+  def handle_foo(event)
+    event_log << event
+  end
+
+  def handle_bar(event)
+    event_log << event
+  end
+
+  def handle_baz(event)
+    event_log << event
+  end
+end
+
+klass = SendDispatch
+event = Struct.new(:name, :source, :args)
+
+100_000.times do
+  obj = klass.new
+  obj.call(e1 = event[:foo])
+  obj.call(e2 = event[:bar])
+  obj.call(e3 = event[:baz])
+  obj.call(event[:buz])
+  unless obj.event_log == [e1, e2, e3]
+    raise "#{klass}: #{obj.event_log.inspect}"
+  end
+end

data/benchmark/bm_dispatch_send_table.rb

@@ -0,0 +1,57 @@
+class SendTableDispatch
+  attr_reader :event_log
+
+  def initialize
+    @event_log = []
+  end
+
+  def self.method_added_cheat(method_name)
+    if method_name.to_s =~ /^handle_(.+)$/
+      handler_methods[$1.to_sym] = method_name.to_sym
+    end
+    # Cheating here, because Opal does not support method_added hook yet
+    # Uncomment the super below when it does:
+    # super
+  end
+
+  def self.handler_methods
+    @handler_methods ||= {}
+  end
+
+  def call(event)
+    if (handler_method = self.class.handler_methods[event.name])
+      __send__(handler_method, event)
+    end
+  end
+
+  def handle_foo(event)
+    event_log << event
+  end
+
+  def handle_bar(event)
+    event_log << event
+  end
+
+  def handle_baz(event)
+    event_log << event
+  end
+end
+
+klass = SendTableDispatch
+event = Struct.new(:name, :source, :args)
+
+# Cheating here, because Opal does not support method_added hook yet
+klass.method_added_cheat(:handle_foo)
+klass.method_added_cheat(:handle_bar)
+klass.method_added_cheat(:handle_baz)
+
+100_000.times do
+  obj = klass.new
+  obj.call(e1 = event[:foo])
+  obj.call(e2 = event[:bar])
+  obj.call(e3 = event[:baz])
+  obj.call(event[:buz])
+  unless obj.event_log == [e1, e2, e3]
+    raise "#{klass}: #{obj.event_log.inspect}"
+  end
+end

data/benchmark/bm_hash_assoc_object.rb

@@ -0,0 +1,11 @@
+h = {}
+a = []
+
+10_000.times do |i|
+  a[i] = Object.new
+  h[a[i]] = nil
+end
+
+10_000.times do |i|
+  k, v = h.assoc(a[i])
+end

data/benchmark/bm_hash_assoc_string.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[i.to_s] = nil
+end
+
+10_000.times do |i|
+  k, v = h.assoc(i.to_s)
+end

data/benchmark/bm_hash_clone_object.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[Object.new] = nil
+end
+
+100.times do |i|
+  h.clone
+end

data/benchmark/bm_hash_clone_string.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[i.to_s] = nil
+end
+
+100.times do |i|
+  h.clone
+end

data/benchmark/bm_hash_delete_object.rb

@@ -0,0 +1,11 @@
+h = {}
+a = []
+
+10_000.times do |i|
+  a[i] = Object.new
+  h[a[i]] = nil
+end
+
+10_000.times do |i|
+  h.delete(a[i])
+end

data/benchmark/bm_hash_delete_string.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[i.to_s] = nil
+end
+
+10_000.times do |i|
+  h.delete(i.to_s)
+end

data/benchmark/bm_hash_each_key_object.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[Object.new] = nil
+end
+
+1_000.times do |i|
+  h.each_key{|k| nil}
+end

data/benchmark/bm_hash_each_key_string.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[i.to_s] = nil
+end
+
+1_000.times do |i|
+  h.each_key{|k| nil}
+end

data/benchmark/bm_hash_each_object.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[Object.new] = nil
+end
+
+1_000.times do |i|
+  h.each{|k, v| nil}
+end

data/benchmark/bm_hash_each_string.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[i.to_s] = nil
+end
+
+1_000.times do |i|
+  h.each{|k, v| nil}
+end

data/benchmark/bm_hash_each_value_object.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[Object.new] = nil
+end
+
+1_000.times do |i|
+  h.each_value{|v| nil}
+end

data/benchmark/bm_hash_each_value_string.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[i.to_s] = nil
+end
+
+1_000.times do |i|
+  h.each_value{|v| nil}
+end

data/benchmark/bm_hash_element_reference_object.rb

@@ -0,0 +1,11 @@
+h = {}
+a = []
+
+10_000.times do |i|
+  a[i] = Object.new
+  h[a[i]] = nil
+end
+
+10_000.times do |i|
+  h[a[i]]
+end

data/benchmark/bm_hash_element_reference_string.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[i.to_s] = nil
+end
+
+10_000.times do |i|
+  h[i.to_s]
+end

data/benchmark/bm_hash_element_set_object.rb

@@ -0,0 +1,5 @@
+h = {}
+
+100_000.times do |i|
+  h[Object.new] = nil
+end

data/benchmark/bm_hash_element_set_string.rb

@@ -0,0 +1,5 @@
+h = {}
+
+100_000.times do |i|
+  h[i.to_s] = nil
+end

data/benchmark/bm_hash_equal_value_object.rb

@@ -0,0 +1,14 @@
+h1 = {}
+h2 = {}
+
+a = []
+
+10_000.times do |i|
+  a[i] = Object.new
+  h1[a[i]] = nil
+  h2[a[i]] = nil
+end
+
+1_000.times do
+  h1 == h2
+end

data/benchmark/bm_hash_equal_value_string.rb

@@ -0,0 +1,11 @@
+h1 = {}
+h2 = {}
+
+10_000.times do |i|
+  h1[i.to_s] = nil
+  h2[i.to_s] = nil
+end
+
+1_000.times do
+  h1 == h2
+end

data/benchmark/bm_hash_fetch_object.rb

@@ -0,0 +1,11 @@
+h = {}
+a = []
+
+10_000.times do |i|
+  a[i] = Object.new
+  h[a[i]] = nil
+end
+
+1_000.times do |i|
+  h.fetch(a[i])
+end

data/benchmark/bm_hash_fetch_string.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[i.to_s] = nil
+end
+
+1_000.times do |i|
+  h.fetch(i.to_s)
+end

data/benchmark/bm_hash_flatten_object.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[Object.new] = nil
+end
+
+1_000.times do
+  h.flatten
+end

data/benchmark/bm_hash_flatten_string.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[i.to_s] = nil
+end
+
+1_000.times do
+  h.flatten
+end

data/benchmark/bm_hash_has_key_object.rb

@@ -0,0 +1,11 @@
+h = {}
+a = []
+
+10_000.times do |i|
+  a[i] = Object.new
+  h[a[i]] = nil
+end
+
+10_000.times do |i|
+  h.has_key?(a[i])
+end

data/benchmark/bm_hash_has_key_string.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[i.to_s] = nil
+end
+
+10_000.times do |i|
+  h.has_key?(i.to_s)
+end

data/benchmark/bm_hash_has_value_object.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[Object.new] = i * 2
+end
+
+1_000.times do |i|
+  h.has_value?(i * 2)
+end

data/benchmark/bm_hash_has_value_string.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[i.to_s] = i * 2
+end
+
+1_000.times do |i|
+  h.has_value?(i * 2)
+end

data/benchmark/bm_hash_hash_object.rb

@@ -0,0 +1,9 @@
+h = {}
+
+1_000.times do |i|
+  h[Object.new] = nil
+end
+
+100.times do |i|
+  h.hash
+end

data/benchmark/bm_hash_hash_string.rb

@@ -0,0 +1,9 @@
+h = {}
+
+1_000.times do |i|
+  h[i.to_s] = nil
+end
+
+100.times do |i|
+  h.hash
+end

data/benchmark/bm_hash_inspect_object.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[Object.new] = nil
+end
+
+100.times do
+  h.inspect
+end

data/benchmark/bm_hash_inspect_string.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[i.to_s] = nil
+end
+
+100.times do
+  h.inspect
+end

data/benchmark/bm_hash_invert_object.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[Object.new] = nil
+end
+
+100.times do
+  h.invert
+end

data/benchmark/bm_hash_invert_string.rb

@@ -0,0 +1,9 @@
+h = {}
+
+10_000.times do |i|
+  h[i.to_s] = nil
+end
+
+100.times do
+  h.invert
+end