[macruby-changes] [3055] MacRuby/trunk/test_vm/gcd.rb

[source_changes at macosforge.org]

Revision: 3055
          http://trac.macosforge.org/projects/ruby/changeset/3055
Author:   lsansonetti at apple.com
Date:     2009-11-25 16:52:54 -0800 (Wed, 25 Nov 2009)
Log Message:
-----------
added 2 GCD stress tests

Modified Paths:
--------------
    MacRuby/trunk/test_vm/gcd.rb

Modified: MacRuby/trunk/test_vm/gcd.rb
===================================================================
--- MacRuby/trunk/test_vm/gcd.rb	2009-11-25 23:15:05 UTC (rev 3054)
+++ MacRuby/trunk/test_vm/gcd.rb	2009-11-26 00:52:54 UTC (rev 3055)
@@ -62,3 +62,21 @@
   g.wait
   p :ok
 }
+
+# Stress tests
+
+assert ':ok', %{
+  Dispatch::Queue.concurrent.apply(10000000) {}
+  p :ok
+}
+
+assert ':ok', %{
+  i = 0
+  g = Dispatch::Group.new
+  while i < 10000000
+    g.dispatch(Dispatch::Queue.concurrent) { 1+2*3/4-5 }
+    i += 1
+  end
+  g.wait
+  p :ok
+}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macruby-changes/attachments/20091125/cd78755b/attachment.html>