mvz-live_ast 2.0.0 → 2.1.0

data/test/ast_load/ast_load_test.rb

@@ -1,47 +0,0 @@
-# frozen_string_literal: true
-
-require "main"
-
-require "live_ast/ast_load"
-
-class AstLoadTest < BaseTest
-  include FileUtils
-
-  def test_defines_ast_load
-    assert private_methods.include?(:ast_load)
-  end
-
-  def test_reloading
-    noninvasive_ast_reload
-  end
-
-  def noninvasive_ast_reload
-    code1 = %{
-      class AstLoadTest::B
-        def f
-          "first B#f"
-        end
-      end
-    }
-
-    code2 = %{
-      class AstLoadTest::B
-        def f
-          "second B#f"
-        end
-      end
-    }
-
-    temp_file code1 do |file|
-      load file
-
-      LiveAST.ast(B.instance_method(:f))
-
-      write_file file, code2
-      ast_load file
-
-      assert_equal no_arg_def(:f, "second B#f"),
-                   LiveAST.ast(B.instance_method(:f))
-    end
-  end
-end

data/test/attr_test.rb

@@ -1,26 +0,0 @@
-# frozen_string_literal: true
-
-require_relative "main"
-
-class AttrTest < RegularTest
-  class A
-    attr_accessor :f
-    attr_reader :g
-    attr_writer :h
-  end
-
-  def test_attr
-    assert_raises LiveAST::ASTNotFoundError do
-      A.instance_method(:f).to_ast
-    end
-    assert_raises LiveAST::ASTNotFoundError do
-      A.instance_method(:f=).to_ast
-    end
-    assert_raises LiveAST::ASTNotFoundError do
-      A.instance_method(:g).to_ast
-    end
-    assert_raises LiveAST::ASTNotFoundError do
-      A.instance_method(:h=).to_ast
-    end
-  end
-end

data/test/backtrace_test.rb

@@ -1,161 +0,0 @@
-# frozen_string_literal: true
-
-require_relative "main"
-
-# test for raise redefinition side-effects: unsort this TestCase from
-# other TestCases.
-
-define_unsorted_test_case "BacktraceTest", RegularTest do
-  def test_raise_in_eval
-    3.times do
-      orig = exception_backtrace do
-        eval %{
-
-          raise
-
-
-        }, binding, "somewhere", 1000
-      end
-
-      live = exception_backtrace do
-        ast_eval %{
-
-          raise
-
-
-        }, binding, "somewhere", 1000
-      end
-
-      assert_equal orig.first, live.first
-      assert_match(/somewhere:1002/, live.first)
-    end
-  end
-
-  def test_raise_no_overrides
-    3.times do
-      orig = exception_backtrace do
-        eval %{
-
-
-          raise
-
-        }, binding, __FILE__, (__LINE__ + 9)
-      end
-
-      live = exception_backtrace do
-        ast_eval %{
-
-
-          raise
-
-        }, binding
-      end
-
-      assert_equal orig.first, live.first
-      here = Regexp.quote __FILE__
-      assert_match(/#{here}/, live.first)
-    end
-  end
-
-  def test_raise_using_overrides
-    3.times do
-      orig = exception_backtrace do
-        eval %{
-
-
-          raise
-
-        }, binding, __FILE__, (__LINE__ + 9)
-      end
-
-      live = exception_backtrace do
-        ast_eval %{
-
-
-          raise
-
-        }, binding, __FILE__, __LINE__
-      end
-
-      assert_equal orig.first, live.first
-      here = Regexp.quote __FILE__
-      assert_match(/#{here}/, live.first)
-    end
-  end
-
-  def test_raise_using_only_file_override
-    3.times do
-      orig = exception_backtrace do
-        eval %{
-
-
-          raise
-
-        }, binding, __FILE__
-      end
-
-      live = exception_backtrace do
-        ast_eval %{
-
-
-          raise
-
-        }, binding, __FILE__
-      end
-
-      assert_equal orig.first, live.first
-      here = Regexp.quote __FILE__
-      assert_match(/#{here}/, live.first)
-    end
-  end
-
-  def test_raise_after_eval
-    raise_after_eval("raise", false)
-    raise_after_eval("1/0", false)
-
-    require "live_ast/replace_raise"
-
-    raise_after_eval("raise", true)
-    raise_after_eval("1/0", false)
-  end
-
-  def raise_after_eval(code, will_succeed)
-    3.times do
-      orig = eval %{
-
-        lambda { #{code} } # lambda { foo }
-
-
-      }, binding, "somewhere", 1000
-
-      live = ast_eval %{
-
-          lambda { #{code} } # lambda { foo }
-
-
-      }, binding, "somewhere", 1000
-
-      orig_top = exception_backtrace { orig.call }.first
-      live_top = exception_backtrace { live.call }.first
-
-      assert_equal orig_top, LiveAST.strip_token(live_top)
-
-      if will_succeed
-        assert_equal orig_top, live_top
-        assert_match(/somewhere:1002/, live_top)
-      else
-        assert_not_equal orig_top, live_top
-        assert_match(/somewhere.*?:1002/, live_top)
-      end
-    end
-  end
-
-  def test_tokens_stripped
-    lines = exception_backtrace do
-      ast_eval %{ ast_eval ' ast_eval "raise", binding ', binding }, binding
-    end
-    lines.each do |line|
-      assert_nil line.index(LiveAST::Linker::REVISION_TOKEN)
-    end
-  end
-end

data/test/base/noninvasive_test.rb

@@ -1,55 +0,0 @@
-# frozen_string_literal: true
-
-require "main"
-
-class NoninvasiveTest < BaseTest
-  def test_no_clutter
-    [Method, UnboundMethod, Proc].each do |klass|
-      assert !klass.instance_methods.include?(:to_ast)
-      assert !klass.instance_methods.include?(:to_ruby)
-    end
-
-    assert !respond_to?(:ast_eval)
-    assert !private_methods.include?(:ast_eval)
-    assert !Kernel.respond_to?(:ast_eval)
-    assert !respond_to?(:ast_load)
-    assert !private_methods.include?(:ast_load)
-    assert !Kernel.respond_to?(:ast_load)
-  end
-
-  DEFINE_A = lambda do
-    class A
-      def f
-        "A#f"
-      end
-    end
-  end
-
-  def test_method
-    DEFINE_A.call
-
-    expected = no_arg_def(:f, "A#f")
-    assert_equal expected, LiveAST.ast(A.instance_method(:f))
-    assert_equal expected, LiveAST.ast(A.new.method(:f))
-  end
-
-  def test_lambda
-    a = lambda { |x, y| x**y }
-
-    assert_equal binop_block(:lambda, :**), LiveAST.ast(a)
-  end
-
-  def test_ast_eval
-    code = %{ lambda { |x, y| x / y } }
-
-    expected = binop_block(:lambda, :/)
-    result = LiveAST.ast(LiveAST.eval(code, binding))
-    assert_equal expected, result
-  end
-
-  def test_bogus
-    assert_raises TypeError do
-      LiveAST.ast(99)
-    end
-  end
-end

data/test/base/reload_test.rb

@@ -1,43 +0,0 @@
-# frozen_string_literal: true
-
-require "main"
-
-class ReloadTest < BaseTest
-  include FileUtils
-
-  def test_reloading
-    raw_reload
-  end
-
-  def raw_reload
-    code1 = %{
-      class ReloadTest::A
-        def f
-          "first A#f"
-        end
-      end
-    }
-
-    code2 = %{
-      class ReloadTest::A
-        def f
-          "second A#f"
-        end
-      end
-    }
-
-    temp_file code1 do |file|
-      load file
-
-      LiveAST.ast(A.instance_method(:f))
-
-      write_file file, code2
-      load file
-
-      # forced a raw-reload inconsistency -- verify bogus
-
-      assert_equal no_arg_def(:f, "first A#f"),
-                   LiveAST.ast(A.instance_method(:f))
-    end
-  end
-end

data/test/covert_define_method_test.rb

@@ -1,25 +0,0 @@
-# frozen_string_literal: true
-
-require_relative "main"
-
-class CovertDefineMethodTest < RegularTest
-  DEFINE = lambda do
-    class A
-      def A.my_def(*args, &block)
-        define_method(*args, &block)
-      end
-
-      my_def :h do |x, y|
-        x + y
-      end
-    end
-  end
-
-  def test_covert_define_method
-    DEFINE.call
-    assert_equal 77, A.new.h(33, 44)
-
-    assert_equal binop_define_method(:h, :+, :my_def),
-                 A.instance_method(:h).to_ast
-  end
-end

data/test/def_test.rb

@@ -1,37 +0,0 @@
-# frozen_string_literal: true
-
-require_relative "main"
-
-class DefTest < RegularTest
-  class A
-    def f
-      "A#f"
-    end
-  end
-
-  def test_def_unbound_method_a
-    expected = no_arg_def(:f, "A#f")
-    assert_equal expected, A.instance_method(:f).to_ast
-  end
-
-  def test_def_method_a
-    expected = no_arg_def(:f, "A#f")
-    assert_equal expected, A.new.method(:f).to_ast
-  end
-
-  class B
-    def f(x, y)
-      x + y
-    end
-  end
-
-  def test_def_unbound_method_b
-    expected = binop_def(:f, :+)
-    assert_equal expected, B.instance_method(:f).to_ast
-  end
-
-  def test_def_instance_method_b
-    expected = binop_def(:f, :+)
-    assert_equal expected, B.new.method(:f).to_ast
-  end
-end

data/test/define_method_test.rb

@@ -1,69 +0,0 @@
-# frozen_string_literal: true
-
-require_relative "main"
-
-class DefineMethodTest < RegularTest
-  WITH_BLOCKS = lambda do
-    class A
-      {
-        f: :+,
-        g: :*,
-        h: :-
-      }.each_pair do |name, op|
-        case op
-        when :+
-          define_method name do |x, y|
-            x + y
-          end
-        when :*
-          define_method name do |x, y|
-            x * y
-          end
-        when :-
-          define_method name do |x, y|
-            x - y
-          end
-        end
-      end
-    end
-  end
-
-  def test_with_block
-    WITH_BLOCKS.call
-
-    assert_equal binop_define_method_with_var(:name, :+),
-                 A.instance_method(:f).to_ast
-
-    assert_equal binop_define_method_with_var(:name, :*),
-                 A.instance_method(:g).to_ast
-
-    assert_equal binop_define_method_with_var(:name, :-),
-                 A.instance_method(:h).to_ast
-  end
-
-  WITH_PROCS = lambda do
-    class B
-      op = lambda { |x, y| x / y }
-
-      no_arg = proc { "B#f" }
-
-      define_method :g, &no_arg; define_method :f, &op
-    end
-  end
-
-  def test_via_block
-    WITH_PROCS.call
-
-    assert_equal binop_block(:lambda, :/),
-                 B.instance_method(:f).to_ast
-
-    assert_equal binop_block(:lambda, :/),
-                 B.new.method(:f).to_ast
-
-    assert_equal no_arg_block(:proc, "B#f"),
-                 B.instance_method(:g).to_ast
-
-    assert_equal no_arg_block(:proc, "B#f"),
-                 B.new.method(:g).to_ast
-  end
-end

data/test/define_singleton_method_test.rb

@@ -1,17 +0,0 @@
-# frozen_string_literal: true
-
-require_relative "main"
-
-class DefineSingletonMethodTest < RegularTest
-  def test_define_singleton_method
-    a = Object.new
-    a.define_singleton_method :f do |x, y|
-      x + y
-    end
-
-    assert_equal 77, a.f(33, 44)
-
-    assert_equal binop_define_singleton_method(:f, :+, :a),
-                 a.singleton_class.instance_method(:f).to_ast
-  end
-end

data/test/encoding_test/bad.rb

@@ -1 +0,0 @@
-# encoding: feynman-diagram

data/test/encoding_test/cp932.rb

@@ -1,6 +0,0 @@
-# -*- coding: cp932 -*-
-module EncodingTest
-  def cp932_string
-    "�傫�Ȕ��Ƃ˂��B"
-  end
-end

data/test/encoding_test/default.rb

@@ -1,5 +0,0 @@
-module EncodingTest
-  def default_string
-    "Cats and large boxes."  # google translate
-  end
-end

data/test/encoding_test/eucjp.rb

@@ -1,6 +0,0 @@
-# encoding: euc-jp -*-
-module EncodingTest
-  def eucjp_string
-    "�礭��Ȣ�Ȥͤ���"
-  end
-end

data/test/encoding_test/koi8.rb

@@ -1,6 +0,0 @@
-# -*- coding: koi8-r -*-
-module EncodingTest
-  def koi8_string
-    "� ���������� ������� ���������� �� 20 ��������"
-  end
-end

data/test/encoding_test/koi8_shebang.rb

@@ -1,7 +0,0 @@
-#!/usr/bin/env ruby
-# -*- coding: koi8-r -*-
-module EncodingTest
-  def koi8_shebang_string
-    "� ���������� ������� ���������� �� 20 ��������"
-  end
-end

data/test/encoding_test/koi8_with_utf8bom.rb

@@ -1,6 +0,0 @@
-# -*- coding: koi8-r -*-
-module EncodingTest
-  def koi8_with_utf8bom_string
-    "� ���������� ������� ���������� �� 20 ��������"
-  end
-end

data/test/encoding_test/usascii.rb

@@ -1,6 +0,0 @@
-# encoding: us-ascii
-module EncodingTest
-  def usascii_string
-    "Cats and large boxes."  # google translate
-  end
-end

data/test/encoding_test/usascii_with_utf8bom.rb

@@ -1,6 +0,0 @@
-# encoding: us-ascii
-module EncodingTest
-  def usascii_with_utf8bom_string
-    "Cats and large boxes."
-  end
-end

data/test/encoding_test/utf8.rb

@@ -1,6 +0,0 @@
-# -*- coding: utf-8 -*-
-module EncodingTest
-  def utf8_string
-    "大きな箱とねこ。"
-  end
-end

data/test/encoding_test/utf8bom.rb

@@ -1,6 +0,0 @@
-# -*- coding: utf-8 -*-
-module EncodingTest
-  def utf8bom_string
-    "大きな箱とねこ。"
-  end
-end

data/test/encoding_test/utf8bom_only.rb

@@ -1,5 +0,0 @@
-module EncodingTest
-  def utf8bom_only_string
-    "大きな箱とねこ。"
-  end
-end

data/test/encoding_test/utf8dos.rb

@@ -1,6 +0,0 @@
-# -*- coding: utf-8-dos -*-
-module EncodingTest
-  def utf8dos_string
-    "大きな箱とねこ。"
-  end
-end

data/test/encoding_test/utf8mac.rb

@@ -1,6 +0,0 @@
-# -*- coding: utf-8-mac -*-
-module EncodingTest
-  def utf8mac_string
-    "大きな箱とねこ。"
-  end
-end

data/test/encoding_test/utf8mac_alt.rb

@@ -1,6 +0,0 @@
-# -*- coding: utf8-mac -*-
-module EncodingTest
-  def utf8mac_alt_string
-    "大きな箱とねこ。"
-  end
-end

data/test/encoding_test/utf8unix.rb

@@ -1,6 +0,0 @@
-# -*- coding: utf-8-unix -*-
-module EncodingTest
-  def utf8unix_string
-    "大きな箱とねこ。"
-  end
-end

data/test/encoding_test.rb

@@ -1,54 +0,0 @@
-# frozen_string_literal: true
-
-require_relative "main"
-
-class AllEncodingTest < RegularTest
-  ENC_TESTS = {
-    default: "UTF-8",
-    usascii: "US-ASCII",
-    utf8: "UTF-8",
-    utf8unix: "UTF-8",
-    utf8mac: "UTF-8",
-    utf8mac_alt: "UTF8-MAC",
-    utf8dos: "UTF-8",
-    utf8bom: "UTF-8",
-    utf8bom_only: "UTF-8",
-    usascii_with_utf8bom: "US-ASCII",
-    koi8_with_utf8bom: "KOI8-R",
-    cp932: "Windows-31J",
-    eucjp: "EUC-JP",
-    koi8: "KOI8-R",
-    koi8_shebang: "KOI8-R"
-  }.freeze
-
-  ENC_TESTS.each_pair do |abbr, name|
-    define_method "test_#{abbr}" do
-      require_relative "encoding_test/#{abbr}"
-      self.class.class_eval { include EncodingTest }
-
-      str = send("#{abbr}_string")
-      assert_equal name, str.encoding.to_s
-
-      ast = EncodingTest.instance_method("#{abbr}_string").to_ast
-      assert_equal "UTF-8", no_arg_def_return(ast).encoding.to_s
-
-      LiveAST.load "./test/encoding_test/#{abbr}.rb"
-
-      ast = EncodingTest.instance_method("#{abbr}_string").to_ast
-      assert_equal "UTF-8", no_arg_def_return(ast).encoding.to_s
-    end
-  end
-
-  def test_bad
-    orig = assert_raises ArgumentError do
-      live_ast_original_load "./test/encoding_test/bad.rb"
-    end
-    live = assert_raises ArgumentError do
-      LiveAST.load "./test/encoding_test/bad.rb"
-    end
-    # inconsistent punctuation from Ruby
-    re = /\Aunknown encoding name\s*[-:]\s*feynman-diagram\Z/
-    assert_match re, orig.message
-    assert_match re, live.message
-  end
-end