rubinius-melbourne 2.0.0.19 → 2.0.1.0

data/spec/false_spec.rb

@@ -0,0 +1,7 @@
+describe "A False node" do
+  relates "false" do
+    parse do
+      [:false]
+    end
+  end
+end

data/spec/flip2_spec.rb

@@ -0,0 +1,43 @@
+describe "A Flip2 node" do
+  relates <<-ruby do
+      x = if ((i % 4) == 0)..((i % 3) == 0) then
+        i
+      else
+        nil
+      end
+    ruby
+
+    parse do
+      [:lasgn,
+       :x,
+       [:if,
+        [:flip2,
+         [:call,
+          [:call, [:call, nil, :i, [:arglist]], :%, [:arglist, [:lit, 4]]],
+          :==,
+          [:arglist, [:lit, 0]]],
+         [:call,
+          [:call, [:call, nil, :i, [:arglist]], :%, [:arglist, [:lit, 3]]],
+          :==,
+          [:arglist, [:lit, 0]]]],
+        [:call, nil, :i, [:arglist]],
+        [:nil]]]
+    end
+  end
+
+  relates <<-ruby do
+      if 1..2.a?(b) then
+        nil
+      end
+    ruby
+
+    parse do
+      [:if,
+       [:flip2,
+        [:lit, 1],
+        [:call, [:lit, 2], :a?, [:arglist, [:call, nil, :b, [:arglist]]]]],
+       [:nil],
+       nil]
+    end
+  end
+end

data/spec/flip3_spec.rb

@@ -0,0 +1,27 @@
+describe "A Flip3 node" do
+  relates <<-ruby do
+      x = if ((i % 4) == 0)...((i % 3) == 0) then
+        i
+      else
+        nil
+      end
+    ruby
+
+    parse do
+      [:lasgn,
+       :x,
+       [:if,
+        [:flip3,
+         [:call,
+          [:call, [:call, nil, :i, [:arglist]], :%, [:arglist, [:lit, 4]]],
+          :==,
+          [:arglist, [:lit, 0]]],
+         [:call,
+          [:call, [:call, nil, :i, [:arglist]], :%, [:arglist, [:lit, 3]]],
+          :==,
+          [:arglist, [:lit, 0]]]],
+        [:call, nil, :i, [:arglist]],
+        [:nil]]]
+    end
+  end
+end

data/spec/for_spec.rb

@@ -0,0 +1,61 @@
+describe "A For node" do
+  relates <<-ruby do
+      for o in ary do
+        puts(o)
+      end
+    ruby
+
+    parse do
+      [:for,
+       [:call, nil, :ary, [:arglist]],
+       [:lasgn, :o],
+       [:call, nil, :puts, [:arglist, [:lvar, :o]]]]
+    end
+  end
+
+  relates <<-ruby do
+      for i in (0..max) do
+        # do nothing
+      end
+    ruby
+
+    parse do
+      [:for, [:dot2, [:lit, 0], [:call, nil, :max, [:arglist]]], [:lasgn, :i]]
+    end
+  end
+
+  relates <<-ruby do
+      for a, b in x do
+        5
+      end
+    ruby
+
+    parse do
+      [:for,
+       [:call, nil, :x, [:arglist]],
+       [:masgn, [:array, [:lasgn, :a], [:lasgn, :b]]],
+       [:lit, 5]]
+    end
+  end
+
+  relates <<-ruby do
+      for i in ()
+        i
+      end
+    ruby
+
+    parse do
+      [:for, [:nil], [:lasgn, :i], [:lvar, :i]]
+    end
+  end
+
+  relates <<-ruby do
+      c = 1
+      for i in a
+        for j in b
+          c
+        end
+      end
+    ruby
+  end
+end

data/spec/gasgn_spec.rb

@@ -0,0 +1,13 @@
+describe "A Gasgn node" do
+  relates "$x = 42" do
+    parse do
+      [:gasgn, :$x, [:lit, 42]]
+    end
+  end
+
+  relates "$a = *[1]" do
+    parse do
+      [:gasgn, :$a, [:svalue, [:splat, [:array, [:lit, 1]]]]]
+    end
+  end
+end

data/spec/gvar_spec.rb

@@ -0,0 +1,25 @@
+describe "A Gvar node" do
+  relates "$x" do
+    parse do
+      [:gvar, :$x]
+    end
+  end
+
+  relates "$stderr" do
+    parse do
+      [:gvar, :$stderr]
+    end
+  end
+
+  relates "$__blah" do
+    parse do
+      [:gvar, :$__blah]
+    end
+  end
+
+  relates "$_" do
+    parse do
+      [:gvar, :$_]
+    end
+  end
+end

data/spec/hash_spec.rb

@@ -0,0 +1,31 @@
+describe "A Hash node" do
+  relates "{ 1 => 2, 3 => 4 }" do
+    parse do
+      [:hash, [:lit, 1], [:lit, 2], [:lit, 3], [:lit, 4]]
+    end
+  end
+
+  relates "{ 1 => (2 rescue 3) }" do
+    parse do
+      [:hash, [:lit, 1], [:rescue, [:lit, 2], [:resbody, [:array], [:lit, 3]]]]
+    end
+  end
+
+  relates "{ 1 => [*1] }" do
+    parse do
+      [:hash, [:lit, 1], [:array, [:splat, [:lit, 1]]]]
+    end
+  end
+
+  relates <<-ruby do
+      a = 1
+      { :a => a }
+    ruby
+
+    parse do
+      [:block,
+        [:lasgn, :a, [:lit, 1]],
+        [:hash, [:lit, :a], [:lvar, :a]]]
+    end
+  end
+end

data/spec/iasgn_spec.rb

@@ -0,0 +1,25 @@
+describe "A Iasgn node" do
+  relates "@a = 4" do
+    parse do
+      [:iasgn, :@a, [:lit, 4]]
+    end
+  end
+
+  relates "@a = *[1]" do
+    parse do
+      [:iasgn, :@a, [:svalue, [:splat, [:array, [:lit, 1]]]]]
+    end
+  end
+
+  relates <<-ruby do
+      a = 1
+      @a = a
+    ruby
+
+    parse do
+      [:block,
+        [:lasgn, :a, [:lit, 1]],
+        [:iasgn, :@a, [:lvar, :a]]]
+    end
+  end
+end

data/spec/if_spec.rb

@@ -0,0 +1,131 @@
+describe "An If node" do
+  relates <<-ruby do
+      if true then
+        10
+      else
+        12
+      end
+    ruby
+
+    parse do
+      [:if, [:true], [:lit, 10], [:lit, 12]]
+    end
+  end
+
+  relates "if b then a end" do
+    parse do
+      [:if, [:call, nil, :b, [:arglist]], [:call, nil, :a, [:arglist]], nil]
+    end
+  end
+
+  relates <<-ruby do
+      if (x = 5
+      (x + 1)) then
+        nil
+      end
+    ruby
+
+    parse do
+      [:if,
+       [:block,
+        [:lasgn, :x, [:lit, 5]],
+        [:call, [:lvar, :x], :+, [:arglist, [:lit, 1]]]],
+       [:nil],
+       nil]
+    end
+  end
+
+  relates <<-ruby do
+      if x = obj.x then
+        x.do_it
+      end
+    ruby
+
+    parse do
+      [:if,
+       [:lasgn, :x, [:call, [:call, nil, :obj, [:arglist]], :x, [:arglist]]],
+       [:call, [:lvar, :x], :do_it, [:arglist]],
+       nil]
+    end
+  end
+
+  relates "return if false unless true" do
+    parse do
+      [:if, [:true], nil, [:if, [:false], [:return], nil]]
+    end
+  end
+
+  relates "a if not b" do
+    parse do
+      [:if, [:call, nil, :b, [:arglist]], nil, [:call, nil, :a, [:arglist]]]
+    end
+  end
+
+  relates "a if b" do
+    parse do
+      [:if, [:call, nil, :b, [:arglist]], [:call, nil, :a, [:arglist]], nil]
+    end
+  end
+
+  relates "if not b then a end" do
+    parse do
+      [:if, [:call, nil, :b, [:arglist]], nil, [:call, nil, :a, [:arglist]]]
+    end
+  end
+
+  relates "if b then a end" do
+    parse do
+      [:if, [:call, nil, :b, [:arglist]], [:call, nil, :a, [:arglist]], nil]
+    end
+  end
+
+  nil_condition_sexp = [:if, [:nil], [:call, nil, :a, [:arglist]], nil]
+
+  relates "a if ()" do
+    parse do
+      nil_condition_sexp
+    end
+  end
+
+  relates "if () then a end" do
+    parse do
+      nil_condition_sexp
+    end
+  end
+
+  relates "a unless not ()" do
+    parse do
+      nil_condition_sexp
+    end
+  end
+
+  relates "unless not () then a end" do
+    parse do
+      nil_condition_sexp
+    end
+  end
+
+  relates "a unless not b" do
+    parse do
+      [:if, [:call, nil, :b, [:arglist]], [:call, nil, :a, [:arglist]], nil]
+    end
+  end
+
+  relates "a unless b" do
+    parse do
+      [:if, [:call, nil, :b, [:arglist]], nil, [:call, nil, :a, [:arglist]]]
+    end
+  end
+
+  relates "unless not b then a end" do
+    parse do
+      [:if, [:call, nil, :b, [:arglist]], [:call, nil, :a, [:arglist]], nil]
+    end
+  end
+
+  relates "unless b then a end" do
+    parse do
+      [:if, [:call, nil, :b, [:arglist]], nil, [:call, nil, :a, [:arglist]]]
+    end
+  end
+end

data/spec/iter_spec.rb

@@ -0,0 +1,613 @@
+describe "An Iter node" do
+  relates "m { }" do
+    parse do
+      [:iter, [:call, nil, :m, [:arglist]], nil]
+    end
+  end
+
+  relates "m do end" do
+    parse do
+      [:iter, [:call, nil, :m, [:arglist]], nil]
+    end
+  end
+
+  relates "m { x }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:call, nil, :x, [:arglist]]]
+    end
+  end
+
+  relates "m { || x }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       0,
+       [:call, nil, :x, [:arglist]]]
+    end
+  end
+
+  relates "m { |a| a + x }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       [:lasgn, :a],
+       [:call, [:lvar, :a], :+, [:arglist, [:call, nil, :x, [:arglist]]]]]
+    end
+  end
+
+  relates "m { |*| x }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       [:masgn, [:array, [:splat]]],
+       [:call, nil, :x, [:arglist]]]
+    end
+  end
+
+  relates "m { |*c| x; c }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       [:masgn, [:array, [:splat, [:lasgn, :c]]]],
+       [:block, [:call, nil, :x, [:arglist]], [:lvar, :c]]]
+    end
+  end
+
+  relates "m { |a, | a + x }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       [:masgn, [:array, [:lasgn, :a]]],
+       [:call, [:lvar, :a], :+, [:arglist, [:call, nil, :x, [:arglist]]]]]
+    end
+  end
+
+  relates "m { |a, *| a + x }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       [:masgn, [:array, [:lasgn, :a], [:splat]]],
+       [:call, [:lvar, :a], :+, [:arglist, [:call, nil, :x, [:arglist]]]]]
+    end
+  end
+
+  relates "m { |a, *c| a + x; c }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       [:masgn, [:array, [:lasgn, :a], [:splat, [:lasgn, :c]]]],
+       [:block,
+        [:call, [:lvar, :a], :+, [:arglist, [:call, nil, :x, [:arglist]]]],
+        [:lvar, :c]]]
+    end
+  end
+
+  relates "m { |a, b| a + x; b }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       [:masgn, [:array, [:lasgn, :a], [:lasgn, :b]]],
+       [:block,
+        [:call, [:lvar, :a], :+, [:arglist, [:call, nil, :x, [:arglist]]]],
+        [:lvar, :b]]]
+    end
+  end
+
+  relates "m { |a, b, | a + x; b }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       [:masgn, [:array, [:lasgn, :a], [:lasgn, :b]]],
+       [:block,
+        [:call, [:lvar, :a], :+, [:arglist, [:call, nil, :x, [:arglist]]]],
+        [:lvar, :b]]]
+    end
+  end
+
+  relates "m { |a, b, *| a + x; b }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       [:masgn, [:array, [:lasgn, :a], [:lasgn, :b], [:splat]]],
+       [:block,
+        [:call, [:lvar, :a], :+, [:arglist, [:call, nil, :x, [:arglist]]]],
+        [:lvar, :b]]]
+    end
+  end
+
+  masgn_rest_arg_block = lambda do |g|
+    g.push :self
+
+    g.in_block_send :m, :rest, -3 do |d|
+      d.push_local 0
+      d.push :self
+      d.send :x, 0, true
+      d.send :+, 1, false
+      d.pop
+      d.push_local 1
+      d.pop
+      d.push_local 2
+    end
+  end
+
+  relates "m { |a, b, *c| a + x; b; c }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       [:masgn, [:array, [:lasgn, :a], [:lasgn, :b], [:splat, [:lasgn, :c]]]],
+       [:block,
+        [:call, [:lvar, :a], :+, [:arglist, [:call, nil, :x, [:arglist]]]],
+        [:lvar, :b],
+        [:lvar, :c]]]
+    end
+  end
+
+  relates "m do |a, b, *c| a + x; b; c end" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       [:masgn, [:array, [:lasgn, :a], [:lasgn, :b], [:splat, [:lasgn, :c]]]],
+       [:block,
+        [:call, [:lvar, :a], :+, [:arglist, [:call, nil, :x, [:arglist]]]],
+        [:lvar, :b],
+        [:lvar, :c]]]
+    end
+  end
+
+  relates "m { n = 1; n }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:block, [:lasgn, :n, [:lit, 1]], [:lvar, :n]]]
+    end
+  end
+
+  relates "m { n = 1; m { n } }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:block,
+        [:lasgn, :n, [:lit, 1]],
+        [:iter, [:call, nil, :m, [:arglist]], nil, [:lvar, :n]]]]
+    end
+  end
+
+  relates "n = 1; m { n = 2 }; n" do
+    parse do
+      [:block,
+        [:lasgn, :n, [:lit, 1]],
+        [:iter, [:call, nil, :m, [:arglist]], nil, [:lasgn, :n, [:lit, 2]]],
+        [:lvar, :n]]
+    end
+  end
+
+  relates "m(a) { |b| a + x }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist, [:call, nil, :a, [:arglist]]]],
+       [:lasgn, :b],
+       [:call,
+        [:call, nil, :a, [:arglist]],
+        :+,
+        [:arglist, [:call, nil, :x, [:arglist]]]]]
+    end
+  end
+
+  relates <<-ruby do
+      m { |a|
+        a + x
+      }
+    ruby
+
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       [:lasgn, :a],
+       [:call, [:lvar, :a], :+, [:arglist, [:call, nil, :x, [:arglist]]]]]
+    end
+  end
+
+  relates <<-ruby do
+      m do |a|
+        a + x
+      end
+    ruby
+
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       [:lasgn, :a],
+       [:call, [:lvar, :a], :+, [:arglist, [:call, nil, :x, [:arglist]]]]]
+    end
+  end
+
+  relates "obj.m { |a| a + x }" do
+    parse do
+      [:iter,
+       [:call, [:call, nil, :obj, [:arglist]], :m, [:arglist]],
+       [:lasgn, :a],
+       [:call, [:lvar, :a], :+, [:arglist, [:call, nil, :x, [:arglist]]]]]
+    end
+  end
+
+  relates "obj.m(x) { |a| a + x }" do
+    parse do
+      [:iter,
+       [:call,
+        [:call, nil, :obj, [:arglist]],
+        :m,
+        [:arglist, [:call, nil, :x, [:arglist]]]],
+       [:lasgn, :a],
+       [:call, [:lvar, :a], :+, [:arglist, [:call, nil, :x, [:arglist]]]]]
+    end
+  end
+
+  relates "obj.m(a) { |a| a + x }" do
+    parse do
+      [:iter,
+       [:call,
+        [:call, nil, :obj, [:arglist]],
+        :m,
+        [:arglist, [:call, nil, :a, [:arglist]]]],
+       [:lasgn, :a],
+       [:call, [:lvar, :a], :+, [:arglist, [:call, nil, :x, [:arglist]]]]]
+    end
+  end
+
+  relates "a = 1; m { |a| a + x }" do
+    parse do
+      [:block,
+       [:lasgn, :a, [:lit, 1]],
+       [:iter,
+        [:call, nil, :m, [:arglist]],
+        [:lasgn, :a],
+        [:call, [:lvar, :a], :+, [:arglist, [:call, nil, :x, [:arglist]]]]]]
+    end
+  end
+
+  relates <<-ruby do
+      x = nil
+      m do |a|
+        begin
+          x
+        rescue Exception => x
+          break
+        ensure
+          x = a
+        end
+      end
+    ruby
+
+    parse do
+      [:block,
+       [:lasgn, :x, [:nil]],
+       [:iter,
+        [:call, nil, :m, [:arglist]],
+        [:lasgn, :a],
+        [:ensure,
+         [:rescue,
+          [:lvar, :x],
+          [:resbody,
+           [:array, [:const, :Exception], [:lasgn, :x, [:gvar, :$!]]],
+           [:break]]],
+         [:lasgn, :x, [:lvar, :a]]]]]
+    end
+  end
+
+  relates "m { next }" do
+    parse do
+      [:iter, [:call, nil, :m, [:arglist]], nil, [:next]]
+    end
+  end
+
+  relates "m { next if x }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:if, [:call, nil, :x, [:arglist]], [:next], nil]]
+    end
+  end
+
+  relates "m { next x }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:next, [:call, nil, :x, [:arglist]]]]
+    end
+  end
+
+  relates "m { x = 1; next x }" do
+    parse do
+      [:iter,
+        [:call, nil, :m, [:arglist]],
+        nil,
+        [:block,
+          [:lasgn, :x, [:lit, 1]],
+          [:next, [:lvar, :x]]]]
+    end
+  end
+
+  relates "m { next [1] }" do
+    parse do
+      [:iter, [:call, nil, :m, [:arglist]], nil, [:next, [:array, [:lit, 1]]]]
+    end
+  end
+
+  relates "m { next *[1] }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:next, [:svalue, [:splat, [:array, [:lit, 1]]]]]]
+    end
+  end
+
+  relates "m { next [*[1]] }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:next, [:array, [:splat, [:array, [:lit, 1]]]]]]
+    end
+  end
+
+  relates "m { next *[1, 2] }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:next, [:svalue, [:splat, [:array, [:lit, 1], [:lit, 2]]]]]]
+    end
+  end
+
+  relates "m { next [*[1, 2]] }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:next, [:array, [:splat, [:array, [:lit, 1], [:lit, 2]]]]]]
+    end
+  end
+
+  relates "m { break }" do
+    parse do
+      [:iter, [:call, nil, :m, [:arglist]], nil, [:break]]
+    end
+  end
+
+  relates "m { break if x }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:if, [:call, nil, :x, [:arglist]], [:break], nil]]
+    end
+  end
+
+  relates "m { break x }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:break, [:call, nil, :x, [:arglist]]]]
+    end
+  end
+
+  relates "m { x = 1; break x }" do
+    parse do
+      [:iter,
+        [:call, nil, :m, [:arglist]],
+        nil,
+        [:block,
+          [:lasgn, :x, [:lit, 1]],
+          [:break, [:lvar, :x]]]]
+    end
+  end
+
+  relates "m { break [1] }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:break, [:array, [:lit, 1]]]]
+    end
+  end
+
+  relates "m { break *[1] }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:break, [:svalue, [:splat, [:array, [:lit, 1]]]]]]
+    end
+  end
+
+  relates "m { break [*[1]] }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:break, [:array, [:splat, [:array, [:lit, 1]]]]]]
+    end
+  end
+
+  relates "m { break *[1, 2] }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:break, [:svalue, [:splat, [:array, [:lit, 1], [:lit, 2]]]]]]
+    end
+  end
+
+  relates "m { break [*[1, 2]] }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:break, [:array, [:splat, [:array, [:lit, 1], [:lit, 2]]]]]]
+    end
+  end
+
+  relates "m { return }" do
+    parse do
+      [:iter, [:call, nil, :m, [:arglist]], nil, [:return]]
+    end
+  end
+
+  relates "m { return if x }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:if, [:call, nil, :x, [:arglist]], [:return], nil]]
+    end
+  end
+
+  relates "m { return x }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:return, [:call, nil, :x, [:arglist]]]]
+    end
+  end
+
+  relates "m { x = 1; return x }" do
+    parse do
+      [:iter,
+        [:call, nil, :m, [:arglist]],
+        nil,
+        [:block,
+          [:lasgn, :x, [:lit, 1]],
+          [:return, [:lvar, :x]]]]
+    end
+  end
+
+  relates "m { return [1] }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:return, [:array, [:lit, 1]]]]
+    end
+  end
+
+  relates "m { return *[1] }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:return, [:svalue, [:splat, [:array, [:lit, 1]]]]]]
+    end
+  end
+
+  relates "m { return [*[1]] }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:return, [:array, [:splat, [:array, [:lit, 1]]]]]]
+    end
+  end
+
+  relates "m { return *[1, 2] }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:return, [:svalue, [:splat, [:array, [:lit, 1], [:lit, 2]]]]]]
+    end
+  end
+
+  relates "m { return [*[1, 2]] }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:return, [:array, [:splat, [:array, [:lit, 1], [:lit, 2]]]]]]
+    end
+  end
+
+  relates "m { redo }" do
+    parse do
+      [:iter, [:call, nil, :m, [:arglist]], nil, [:redo]]
+    end
+  end
+
+  relates "m { redo if x }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist]],
+       nil,
+       [:if, [:call, nil, :x, [:arglist]], [:redo], nil]]
+    end
+  end
+
+  relates "m(a) { retry }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist, [:call, nil, :a, [:arglist]]]],
+       nil,
+       [:retry]]
+    end
+
+    # TODO
+  end
+
+  relates "m(a) { retry if x }" do
+    parse do
+      [:iter,
+       [:call, nil, :m, [:arglist, [:call, nil, :a, [:arglist]]]],
+       nil,
+       [:if, [:call, nil, :x, [:arglist]], [:retry], nil]]
+    end
+
+    # TODO
+  end
+
+  relates "break" do
+    parse do
+      [:break]
+    end
+  end
+
+  relates "redo" do
+    parse do
+      [:redo]
+    end
+  end
+
+  relates "retry" do
+    parse do
+      [:retry]
+    end
+  end
+
+  relates "next" do
+    parse do
+      [:next]
+    end
+  end
+
+  relates <<-ruby do
+      def x(a)
+        bar { super }
+      end
+    ruby
+
+    parse do
+      [:defn,
+       :x,
+       [:args, :a],
+       [:scope, [:block, [:iter, [:call, nil, :bar, [:arglist]], nil, [:zsuper]]]]]
+    end
+  end
+end