Add Class#subclasses benchmark with concurrency

Author: headius

bench/bench_subclasses.rb

@@ -0,0 +1,28 @@
+require 'benchmark/ips'
+
+Benchmark.ips do |bm|
+  [1, 5, 10, 50].each do |count|
+    bm.report("#{count} thread Numeric.subclasses") do
+      count.times.map {
+        Thread.new {
+          i = 10_000 / count
+          while i > 0
+            Numeric.subclasses
+            i-=1
+          end
+        }
+      }.each(&:join)
+    end
+    bm.report("#{count} thread Object.subclasses") do
+      count.times.map {
+        Thread.new {
+          i = 10_000 / count
+          while i > 0
+            Object.subclasses
+            i-=1
+          end
+        }
+      }.each(&:join)
+    end
+  end
+end