rubinius-compiler 2.1.0 → 2.1.1

data/spec/return_spec.rb

@@ -0,0 +1,152 @@
+describe "A Return node" do
+  relates "return" do
+    compile do |g|
+      g.push :nil
+      g.ret
+    end
+  end
+
+  relates "return 1" do
+    compile do |g|
+      g.push 1
+      g.ret
+    end
+  end
+
+  ruby_version_is ""..."1.9" do
+    relates "return *1" do
+      compile do |g|
+        bottom = g.new_label
+
+        g.push 1
+        g.cast_array
+        g.dup
+        g.send :size, 0
+        g.push 1
+        g.send :>, 1
+        g.git bottom
+
+        g.push 0
+        g.send :at, 1
+
+        bottom.set!
+
+        g.ret
+      end
+    end
+
+    relates <<-ruby do
+        x = 1, 2
+        return *x
+      ruby
+
+      compile do |g|
+        g.push 1
+        g.push 2
+        g.make_array 2
+        g.set_local 0
+        g.pop
+
+        bottom = g.new_label
+
+        g.push_local 0
+        g.cast_array
+        g.dup
+        g.send :size, 0
+        g.push 1
+        g.send :>, 1
+        g.git bottom
+
+        g.push 0
+        g.send :at, 1
+
+        bottom.set!
+
+        g.ret
+      end
+    end
+
+    relates "return *[1]" do
+      compile do |g|
+        g.splatted_array
+        g.ret
+      end
+    end
+  end
+
+  ruby_version_is "1.9" do
+    relates "return *1" do
+      compile do |g|
+        bottom = g.new_label
+
+        g.push 1
+        g.cast_array
+
+        g.ret
+      end
+    end
+
+    relates <<-ruby do
+        x = 1, 2
+        return *x
+      ruby
+
+      compile do |g|
+        g.push 1
+        g.push 2
+        g.make_array 2
+        g.set_local 0
+        g.pop
+
+        g.push_local 0
+        g.cast_array
+
+        g.ret
+      end
+    end
+
+    relates "return *[1]" do
+      compile do |g|
+        bottom = g.new_label
+
+        g.push 1
+        g.make_array 1
+
+        g.ret
+      end
+    end
+  end
+
+  relates "return 1, 2, 3" do
+    compile do |g|
+      g.push 1
+      g.push 2
+      g.push 3
+      g.make_array 3
+      g.ret
+    end
+  end
+
+  relates "return 1, 2, *c" do
+    compile do |g|
+      g.push 1
+      g.push 2
+      g.make_array 2
+
+      g.push :self
+      g.send :c, 0, true
+      g.cast_array
+
+      g.send :+, 1
+      g.ret
+    end
+  end
+
+  relates "return [*[1]]" do
+    compile do |g|
+      g.push 1
+      g.make_array 1
+      g.ret
+    end
+  end
+end

data/spec/sclass_spec.rb

@@ -0,0 +1,138 @@
+describe "An Sclass node" do
+  relates <<-ruby do
+      class << self
+        42
+      end
+    ruby
+
+    compile do |g|
+      g.push :self
+      g.push_type
+      g.swap
+      g.send :object_singleton_class, 1
+
+      d = new_generator(g)
+
+      g.create_block d
+
+      d.push_self
+      d.add_scope
+      d.push 42
+      d.ret
+
+      g.swap
+      g.push_scope
+      g.push_true
+      g.send :call_under, 3
+    end
+  end
+
+  relates <<-ruby do
+      class A
+        class << self
+          a
+        end
+        class B
+        end
+      end
+    ruby
+
+    compile do |g|
+      in_class :A do |d|
+
+
+        d.push :self
+        d.push_type
+        d.swap
+        d.send :object_singleton_class, 1
+
+        e = new_generator(g)
+
+        d.create_block(e)
+
+        e.push_self
+        e.add_scope
+        e.push :self
+        e.send :a, 0, true
+        e.ret
+
+        d.swap
+        d.push_scope
+        d.push_true
+        d.send :call_under, 3
+
+        d.pop
+        d.in_class :B
+        d.pop
+        d.push :nil
+      end
+    end
+  end
+
+  relates <<-ruby do
+      x = "a"
+      class << x
+      end
+    ruby
+
+    compile do |g|
+      g.push_literal "a"
+      g.string_dup
+      g.set_local 0
+      g.pop
+      g.push_local 0
+      g.push_type
+      g.swap
+      g.send :object_singleton_class, 1
+      g.pop
+      g.push :nil
+    end
+  end
+
+  relates <<-ruby do
+    x = "a"
+    m do
+      class << x
+      end
+    end
+    ruby
+
+    compile do |g|
+      g.push_literal "a"
+      g.string_dup
+      g.set_local 0
+      g.pop
+
+      g.push :self
+
+      g.in_block_send :m, :none do |d|
+        d.push_local_depth 1, 0
+        d.push_type
+        d.swap
+        d.send :object_singleton_class, 1
+        d.pop
+        d.push :nil
+      end
+    end
+  end
+
+  relates <<-ruby do
+    x = "a"
+    class << x
+      self
+    end
+    ruby
+
+    compile do |g|
+      g.push_literal "a"
+      g.string_dup
+      g.set_local 0
+      g.pop
+
+      g.push_local 0
+      g.push_type
+      g.swap
+      g.send :object_singleton_class, 1
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,12 @@
+require 'rubinius/bridge'
+require 'rubinius/toolset'
+
+Rubinius::ToolSets.create :spec do
+  require "rubinius/melbourne"
+  require "rubinius/processor"
+  require "rubinius/compiler"
+  require "rubinius/ast"
+
+  require 'spec/custom/matchers/compile_as'
+  require 'spec/custom/runner/relates'
+end

data/spec/str_spec.rb

@@ -0,0 +1,118 @@
+describe "A Str node" do
+  relates '"x"' do
+    compile do |g|
+      g.push_literal "x"
+      g.string_dup
+    end
+  end
+
+  str_concat = lambda do |g|
+    g.push_literal "before after"
+    g.string_dup
+  end
+
+  relates <<-ruby do
+      "before" \
+      " after"
+    ruby
+
+    compile(&str_concat)
+  end
+
+  relates '"before" " after"' do
+    compile(&str_concat)
+  end
+
+  relates <<-ruby do
+      "file = \#{__FILE__}\n"
+    ruby
+
+    compile do |g|
+      g.push_literal "file = "
+
+      g.push_scope
+      g.send :active_path, 0
+      g.meta_to_s
+
+      g.push_literal "\n"
+
+      g.string_build 3
+    end
+  end
+
+  relates <<-ruby do
+<<'EOM'.strip
+  blah
+blah
+EOM
+    ruby
+
+    compile do |g|
+      g.push_literal "  blah\nblah\n"
+      g.string_dup
+      g.send :strip, 0, false
+    end
+  end
+
+  relates <<-ruby do
+a += <<-H1 + b + <<-H2
+  first
+H1
+  second
+H2
+    ruby
+
+    compile do |g|
+      g.push_local 0
+
+      g.push_literal "  first\n"
+      g.string_dup
+
+      g.push :self
+      g.send :b, 0, true
+      g.send :+, 1, false
+
+      g.push_literal "  second\n"
+      g.string_dup
+
+      g.send :+, 1, false
+      g.send :+, 1, false
+
+      g.set_local 0
+    end
+  end
+
+  relates <<-ruby do
+<<-EOM
+  blah
+blah
+
+  EOM
+    ruby
+
+    compile do |g|
+      g.push_literal "  blah\nblah\n\n"
+      g.string_dup
+    end
+  end
+
+  relates <<-ruby do
+<<'EOM'
+  blah
+blah
+EOM
+    ruby
+
+    compile do |g|
+      g.push_literal "  blah\nblah\n"
+      g.string_dup
+    end
+  end
+
+  relates "%(blah)" do
+    compile do |g|
+      g.push_literal "blah"
+      g.string_dup
+    end
+  end
+end

data/spec/super_spec.rb

@@ -0,0 +1,170 @@
+describe "A Super node" do
+  relates <<-ruby do
+      def x
+        super()
+      end
+    ruby
+
+    compile do |g|
+      in_method :x do |d|
+        d.push_block
+        d.send_super :x, 0
+      end
+    end
+  end
+
+  relates <<-ruby do
+      def x(&block)
+        super(&block)
+      end
+    ruby
+
+    compile do |g|
+      in_method :x do |d|
+        d.block_arg 0
+
+        is_nil = d.new_label
+        d.push_local 0
+        d.dup
+        d.is_nil
+        d.git is_nil
+        d.push_cpath_top
+        d.find_const :Proc
+        d.swap
+        d.send :__from_block__, 1
+        is_nil.set!
+        d.send_super :x, 0
+      end
+    end
+  end
+
+  relates <<-ruby do
+      def x
+        super([24, 42])
+      end
+    ruby
+
+    compile do |g|
+      in_method :x do |d|
+        d.push 24
+        d.push 42
+        d.make_array 2
+        d.push_block
+        d.send_super :x, 1
+      end
+    end
+  end
+
+  relates <<-ruby do
+      def x
+        super(4)
+      end
+    ruby
+
+    compile do |g|
+      in_method :x do |d|
+        d.push 4
+        d.push_block
+        d.send_super :x, 1
+      end
+    end
+  end
+
+  relates "super(a, &b)" do
+    compile do |g|
+      t = g.new_label
+
+      g.push :self
+      g.send :a, 0, true
+
+      g.push :self
+      g.send :b, 0, true
+
+      g.dup
+      g.is_nil
+      g.git t
+
+      g.push_cpath_top
+      g.find_const :Proc
+      g.swap
+
+      g.send :__from_block__, 1
+
+      t.set!
+
+      # nil here because the test isn't wrapped in a method, so
+      # there is no current method to pull the name of the method
+      # from
+      g.send_super nil, 1
+    end
+  end
+
+  relates "super(a, *b)" do
+    compile do |g|
+      g.push :self
+      g.send :a, 0, true
+
+      g.push :self
+      g.send :b, 0, true
+
+      g.cast_array
+
+      g.push_block
+
+      # nil here because the test isn't wrapped in a method, so
+      # there is no current method to pull the name of the method
+      # from
+      g.send_super nil, 1, true
+    end
+  end
+
+  relates <<-ruby do
+      def f(*)
+        super
+      end
+    ruby
+
+    compile do |g|
+      in_method :f do |d|
+        d.push_block
+        d.zsuper :f
+      end
+    end
+  end
+
+  relates <<-ruby do
+      def x
+        super(24, 42)
+      end
+    ruby
+
+    compile do |g|
+      in_method :x do |d|
+        d.push 24
+        d.push 42
+        d.push_block
+        d.send_super :x, 2
+      end
+    end
+  end
+
+  relates "super([*[1]])" do
+    compile do |g|
+      g.push 1
+      g.make_array 1
+      g.push_block
+      g.send_super nil, 1
+    end
+  end
+
+  relates "super(*[1])" do
+    compile do |g|
+      g.push 1
+      g.make_array 1
+      g.cast_array
+
+      g.push_block
+      g.send_super nil, 0, true
+    end
+  end
+end