sexp_ext_test.rb

require "./test/test_helper"
require "wrong/sexp_ext"

describe Sexp do
  describe "#deep_clone" do

    def deeply_compare x, y
      assert (x == y)
      case x
        when Symbol, Numeric, NilClass
          # these are OK
        else
          assert (x.object_id != y.object_id)
      end
      if x.is_a? Sexp
        x.each_with_index do |val, i|
          deeply_compare(x[i], y[i])
        end
      end
    end

    it "deeply duplicates the sexp" do
      original = RubyParser.new.parse("x == 5")
      duplicate = original.deep_clone
      deeply_compare original, duplicate
    end
  end

  def parse(ruby)
    RubyParser.new.parse(ruby)
  end

  describe "#to_ruby" do
    it "converts the sexp to ruby code" do
      sexp = parse("x == 5")
      assert sexp.to_ruby == "(x == 5)"
    end

    it "leaves the original sexp alone" do
      sexp = parse("x == 5")
      assert sexp.to_ruby == "(x == 5)"
      assert sexp.to_ruby == "(x == 5)" # intended
    end
  end

  describe "#assertion? with a question mark" do
    it "matches an sexp that looks like assert { }" do
      sexp = parse("assert { true }")
      assert sexp.assertion?
    end

    it "matches an sexp that looks like assert(message) { }" do
      sexp = parse("assert('hi') { true }")
      assert sexp.assertion?
    end

    it "matches an sexp that looks like deny { }" do
      sexp = parse("deny { false }")
      assert sexp.assertion?
    end

    it "doesn't match an sexp that calls assert without a block" do
      sexp = parse("assert(true)")
      assert !sexp.assertion?
    end

    it "doesn't match a normal sexp" do
      sexp = parse("x == 5")
      assert !sexp.assertion?
    end
  end

  describe "#assertion" do
    it "matches a top-level sexp that looks like assert { }" do
      sexp = parse("assert { true }")
      code = sexp.assertion.to_ruby
      assert code == "assert { true }"
    end

    it "matches a nested sexp that looks like assert { }" do
      sexp = parse("nesting { assert { true } }")
      code = sexp.assertion.to_ruby
      assert code == "assert { true }"
    end

    it "matches the first nested sexp that looks like assert { }" do
      sexp = parse("nesting { assert { true } or assert { false } }")
      code = sexp.assertion.to_ruby
      assert code == "assert { true }"
    end
  end

end