Contents

# Author::    Nicolas Despres  <[e-mail]>.
# Copyright:: Copyright (c) 2004, 2005 TTK team. All rights reserved.
# License::   LGPL
# $Id: assert_eval.rb 567 2005-04-13 08:00:06Z polrop $


require 'safe_eval.rb'


module TTK

  module Strategies

    class Strategy

      class AssertEval < SafeEval

        def initialize
          super(3, true)
        end

        def run(code_str='', binding={}, filename='(AssertEval)', lineno=1)
          code_str.strip!
          return nil if code_str.empty?
          super(code_str, get_binding(binding), filename, lineno)
        end
        public :run

        def set_environment
          Kernel.module_eval('undef_method :`')
          require 'pathname'
          Pathname.module_eval('undef_method :open')
        end
        protected :set_environment

        def get_binding(local_binding)
          code = ''
          local_binding.each do |fileid, filename|
            code += "#{fileid} = Pathname.new('#{filename}')\n"
          end
          eval(code)
          return binding
        end
        protected :get_binding

      end # class AssertEval

    end # class Strategy

  end # module Strategies

end # module TTK

Version data entries

5 entries across 5 versions & 1 rubygems

Version	Path
ttk-0.1.576	lib/ttk/strategies/Strategy/assert_eval.rb
ttk-0.1.580	lib/ttk/strategies/Strategy/assert_eval.rb
ttk-0.1.579	lib/ttk/strategies/Strategy/assert_eval.rb
ttk-0.2.1	lib/ttk/strategies/Strategy/assert_eval.rb
ttk-0.2.0	lib/ttk/strategies/Strategy/assert_eval.rb