[macruby-changes] [1234] MacRuby/branches/experimental/test_roxor.rb

[source_changes at macosforge.org]

Revision: 1234
          http://trac.macosforge.org/projects/ruby/changeset/1234
Author:   vincent.isambart at gmail.com
Date:     2009-03-28 03:45:51 -0700 (Sat, 28 Mar 2009)
Log Message:
-----------
added multiple assignment failing tests

Modified Paths:
--------------
    MacRuby/branches/experimental/test_roxor.rb

Modified: MacRuby/branches/experimental/test_roxor.rb
===================================================================
--- MacRuby/branches/experimental/test_roxor.rb	2009-03-28 03:46:56 UTC (rev 1233)
+++ MacRuby/branches/experimental/test_roxor.rb	2009-03-28 10:45:51 UTC (rev 1234)
@@ -316,13 +316,18 @@
   assert ':ok', "a, b, c = [1, 2]; p :ok if a == 1 and b == 2 and c == nil"
   assert ':ok', "a, b, c = nil; p :ok if a == nil and b == nil and c == nil"
 
+  assert '[nil, [], nil]', "a, *b, c = nil; p [a, b, c]"
+  assert '[1, [], 2]', "a, *b, c = 1, 2; p [a, b, c]"
+  assert '[1, [2, 3], 4]', "a, *b, c = 1, 2, 3, 4; p [a, b, c]"
+  assert '[[1, 2, 3], 4]', "*a, b = 1, 2, 3, 4; p [a, b]"
+  assert '4', "*, a = 1, 2, 3, 4; p a"
+  assert '[1, [2, 3], 4]', "(a, *b), c = [1, 2, 3], 4; p [a, b, c]"
+
   assert ':ok', '* = 1,2; p :ok'
   assert '[1, 2]', 'x = (* = 1,2); p x'
 
   assert '[42]', "a=[1,2,3]; b=[0,3]; a[*b]=42; p a"
 
-  # TODO add more multiple assignments test
-
   assert '42', "a=[20]; a[0] += 22; p a[0]"
   assert '42', "a=[80]; a[0] -= 38; p a[0]"
   assert '42', "a=[84]; a[0] /= 2; p a[0]"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macruby-changes/attachments/20090328/06f24790/attachment.html>