rubinius-melbourne 2.0.0.19 → 2.0.1.0

data/spec/str_spec.rb

@@ -0,0 +1,97 @@
+describe "A Str node" do
+  relates '"x"' do
+    parse do
+      [:str, "x"]
+    end
+  end
+
+  relates <<-ruby do
+      "before" \
+      " after"
+    ruby
+
+    parse do
+      [:str, "before after"]
+    end
+  end
+
+  relates '"before" " after"' do
+    parse do
+      [:str, "before after"]
+    end
+  end
+
+  relates <<-ruby do
+      "file = \#{__FILE__}\n"
+    ruby
+
+    parse do
+      [:dstr, "file = ", [:evstr, [:file]], [:str, "\n"]]
+    end
+  end
+
+  relates <<-ruby do
+<<'EOM'.strip
+  blah
+blah
+EOM
+    ruby
+
+    parse do
+      [:call, [:str, "  blah\nblah\n"], :strip, [:arglist]]
+    end
+  end
+
+  relates <<-ruby do
+a += <<-H1 + b + <<-H2
+  first
+H1
+  second
+H2
+    ruby
+
+    parse do
+      [:lasgn,
+       :a,
+       [:call,
+        [:lvar, :a],
+        :+,
+        [:arglist,
+         [:call,
+          [:call, [:str, "  first\n"], :+, [:arglist, [:call, nil, :b, [:arglist]]]],
+          :+,
+          [:arglist, [:str, "  second\n"]]]]]]
+    end
+  end
+
+  relates <<-ruby do
+<<-EOM
+  blah
+blah
+
+  EOM
+    ruby
+
+    parse do
+      [:str, "  blah\nblah\n\n"]
+    end
+  end
+
+  relates <<-ruby do
+<<'EOM'
+  blah
+blah
+EOM
+    ruby
+
+    parse do
+      [:str, "  blah\nblah\n"]
+    end
+  end
+
+  relates "%(blah)" do
+    parse do
+      [:str, "blah"]
+    end
+  end
+end

data/spec/super_spec.rb

@@ -0,0 +1,93 @@
+describe "A Super node" do
+  relates <<-ruby do
+      def x
+        super()
+      end
+    ruby
+
+    parse do
+      [:defn, :x, [:args], [:scope, [:block, [:super]]]]
+    end
+  end
+
+  relates <<-ruby do
+      def x(&block)
+        super(&block)
+      end
+    ruby
+
+    parse do
+      [:defn,
+       :x,
+       [:args, :"&block"],
+       [:scope, [:block, [:super, [:block_pass, [:lvar, :block]]]]]]
+    end
+  end
+
+  relates <<-ruby do
+      def x
+        super([24, 42])
+      end
+    ruby
+
+    parse do
+      [:defn,
+       :x,
+       [:args],
+       [:scope, [:block, [:super, [:array, [:lit, 24], [:lit, 42]]]]]]
+    end
+  end
+
+  relates <<-ruby do
+      def x
+        super(4)
+      end
+    ruby
+
+    parse do
+      [:defn, :x, [:args], [:scope, [:block, [:super, [:lit, 4]]]]]
+    end
+  end
+
+  relates "super(a, &b)" do
+    parse do
+      [:super,
+       [:call, nil, :a, [:arglist]],
+       [:block_pass, [:call, nil, :b, [:arglist]]]]
+    end
+  end
+
+  relates "super(a, *b)" do
+    parse do
+      [:super,
+        [:call, nil, :a, [:arglist]],
+        [:splat, [:call, nil, :b, [:arglist]]]]
+    end
+  end
+
+  relates <<-ruby do
+      def x
+        super(24, 42)
+      end
+    ruby
+
+    parse do
+      [:defn,
+        :x,
+        [:args],
+        [:scope, [:block, [:super, [:lit, 24], [:lit, 42]]]]]
+    end
+  end
+
+  relates "super([*[1]])" do
+    parse do
+      [:super, [:array, [:splat, [:array, [:lit, 1]]]]]
+    end
+  end
+
+  relates "super(*[1])" do
+    parse do
+      [:super, [:splat, [:array, [:lit, 1]]]]
+    end
+  end
+end

data/spec/true_spec.rb

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

data/spec/undef_spec.rb

@@ -0,0 +1,98 @@
+describe "An Undef node" do
+  relates "undef :x" do
+    parse do
+      [:undef, [:lit, :x]]
+    end
+  end
+
+  relates "undef :x, :y" do
+    parse do
+      [:block, [:undef, [:lit, :x]], [:undef, [:lit, :y]]]
+    end
+  end
+
+  relates "undef :x, :y, :z" do
+    parse do
+      [:block, [:undef, [:lit, :x]], [:undef, [:lit, :y]], [:undef, [:lit, :z]]]
+    end
+  end
+
+  relates <<-ruby do
+      f1
+      undef :x
+    ruby
+
+    parse do
+      [:block, [:call, nil, :f1, [:arglist]], [:undef, [:lit, :x]]]
+    end
+  end
+
+  relates <<-ruby do
+      f1
+      undef :x, :y
+    ruby
+
+    parse do
+      [:block,
+       [:call, nil, :f1, [:arglist]],
+       [:block, [:undef, [:lit, :x]], [:undef, [:lit, :y]]]]
+    end
+  end
+
+  relates <<-ruby do
+      undef :x, :y, :z
+      f2
+    ruby
+
+    parse do
+      [:block,
+       [:undef, [:lit, :x]],
+       [:undef, [:lit, :y]],
+       [:undef, [:lit, :z]],
+       [:call, nil, :f2, [:arglist]]]
+    end
+  end
+
+  relates <<-ruby do
+      f1
+      undef :x, :y, :z
+    ruby
+
+    parse do
+      [:block,
+       [:call, nil, :f1, [:arglist]],
+       [:block, [:undef, [:lit, :x]], [:undef, [:lit, :y]], [:undef, [:lit, :z]]]]
+    end
+  end
+
+  relates <<-ruby do
+      f1
+      undef :x, :y, :z
+      f2
+    ruby
+
+    parse do
+      [:block,
+       [:call, nil, :f1, [:arglist]],
+       [:block, [:undef, [:lit, :x]], [:undef, [:lit, :y]], [:undef, [:lit, :z]]],
+       [:call, nil, :f2, [:arglist]]]
+    end
+  end
+
+  relates "class B; undef :blah; end" do
+    parse do
+      [:class, :B, nil, [:scope, [:undef, [:lit, :blah]]]]
+    end
+  end
+
+  relates <<-ruby do
+      undef :"x\#{1}", :"x\#{2}"
+    ruby
+
+    parse do
+      [:block,
+        [:undef, [:dsym, "x", [:evstr, [:lit, 1]]]],
+        [:undef, [:dsym, "x", [:evstr, [:lit, 2]]]]]
+    end
+  end
+end

data/spec/until_spec.rb

@@ -0,0 +1,140 @@
+describe "An Until node" do
+  pre_until_sexp = [
+    :until,
+     [:call, nil, :a, [:arglist]],
+     [:call, [:call, nil, :b, [:arglist]], :+, [:arglist, [:lit, 1]]],
+     true
+  ]
+
+  relates <<-ruby do
+      while not a
+        b + 1
+      end
+    ruby
+
+    parse do
+      pre_until_sexp
+    end
+  end
+
+  relates "b + 1 while not a" do
+    parse do
+      pre_until_sexp
+    end
+  end
+
+  relates <<-ruby do
+      until a
+        b + 1
+      end
+    ruby
+
+    parse do
+      pre_until_sexp
+    end
+  end
+
+  relates "b + 1 until a" do
+    parse do
+      pre_until_sexp
+    end
+  end
+
+  post_until_sexp = [
+    :until,
+     [:call, nil, :a, [:arglist]],
+     [:call, [:call, nil, :b, [:arglist]], :+, [:arglist, [:lit, 1]]],
+     false
+  ]
+
+  post_until = lambda do |g|
+    top    = g.new_label
+    rdo    = g.new_label
+    brk    = g.new_label
+    bottom = g.new_label
+
+    g.push_modifiers
+
+    top.set!
+
+    g.push :self
+    g.send :b, 0, true
+    g.push 1
+    g.send :+, 1, false
+    g.pop
+
+    rdo.set!
+
+    g.push :self
+    g.send :a, 0, true
+    g.git bottom
+
+    g.check_interrupts
+    g.goto top
+
+    bottom.set!
+    g.push :nil
+
+    brk.set!
+
+    g.pop_modifiers
+  end
+
+  relates <<-ruby do
+      begin
+        b + 1
+      end while not a
+    ruby
+
+    parse do
+      post_until_sexp
+    end
+  end
+
+  relates <<-ruby do
+      begin
+        b + 1
+      end until a
+    ruby
+
+    parse do
+      post_until_sexp
+    end
+  end
+
+  nil_condition_sexp = [:until, [:nil], [:call, nil, :a, [:arglist]], true]
+
+  relates "a until ()" do
+    parse do
+      nil_condition_sexp
+    end
+  end
+
+  relates <<-ruby do
+      until ()
+        a
+      end
+    ruby
+
+    parse do
+      nil_condition_sexp
+    end
+  end
+
+  relates "a while not ()" do
+    parse do
+      nil_condition_sexp
+    end
+  end
+
+  relates <<-ruby do
+      while not ()
+        a
+      end
+    ruby
+
+    parse do
+      nil_condition_sexp
+    end
+  end
+end

data/spec/valias_spec.rb

@@ -0,0 +1,7 @@
+describe "A Valias node" do
+  relates "alias $y $x" do
+    parse do
+      [:valias, :$y, :$x]
+    end
+  end
+end