pry 0.9.10 → 0.9.11

data/spec/commands/amend_line_spec.rb

@@ -0,0 +1,247 @@
+require 'helper'
+
+describe "amend-line" do
+  before do
+    @t = pry_tester
+  end
+
+  it 'should amend the last line of input when no line number specified' do
+    eval_str = unindent(<<-STR)
+      def hello
+        puts :bing
+    STR
+
+    @t.process_command 'amend-line   puts :blah', eval_str
+
+    eval_str.should == unindent(<<-STR)
+      def hello
+        puts :blah
+    STR
+  end
+
+  it 'should amend the specified line of input when line number given' do
+    eval_str = unindent(<<-STR)
+      def hello
+        puts :bing
+        puts :bang
+    STR
+
+    @t.process_command 'amend-line 1 def goodbye', eval_str
+
+    eval_str.should == unindent(<<-STR)
+      def goodbye
+        puts :bing
+        puts :bang
+    STR
+  end
+
+  it 'should amend the first line of input when 0 given as line number' do
+    eval_str = unindent(<<-STR)
+      def hello
+        puts :bing
+        puts :bang
+    STR
+
+    @t.process_command 'amend-line 0 def goodbye', eval_str
+
+    eval_str.should == unindent(<<-STR)
+      def goodbye
+        puts :bing
+        puts :bang
+    STR
+  end
+
+  it 'should amend a specified line when negative number given' do
+    eval_str = unindent(<<-STR)
+      def hello
+        puts :bing
+        puts :bang
+    STR
+
+    @t.process_command 'amend-line -1   puts :bink', eval_str
+
+    eval_str.should == unindent(<<-STR)
+      def hello
+        puts :bing
+        puts :bink
+    STR
+
+    @t.process_command 'amend-line -2   puts :bink', eval_str
+
+    eval_str.should == unindent(<<-STR)
+      def hello
+        puts :bink
+        puts :bink
+    STR
+  end
+
+  it 'should amend a range of lines of input when negative numbers given' do
+    eval_str = unindent(<<-STR)
+      def hello
+        puts :bing
+        puts :bang
+        puts :boat
+    STR
+
+    @t.process_command 'amend-line -3..-2   puts :bink', eval_str
+
+    eval_str.should == unindent(<<-STR)
+      def hello
+        puts :bink
+        puts :boat
+    STR
+  end
+
+  it 'should correctly amend the specified line with interpolated text' do
+    eval_str = unindent(<<-STR)
+      def hello
+        puts :bing
+        puts :bang
+    STR
+
+    @t.process_command 'amend-line   puts "#{goodbye}"', eval_str
+
+    eval_str.should == unindent(<<-'STR')
+      def hello
+        puts :bing
+        puts "#{goodbye}"
+    STR
+  end
+
+  it 'should display error if nothing to amend' do
+    error = nil
+
+    begin
+      @t.process_command 'amend-line'
+    rescue Pry::CommandError => e
+      error = e
+    end
+
+    error.should.not.be.nil
+    error.message.should =~ /No input to amend/
+  end
+
+  it 'should correctly amend the specified range of lines' do
+    eval_str = unindent(<<-STR)
+      def hello
+        puts :bing
+        puts :bang
+        puts :heart
+    STR
+
+    @t.process_command 'amend-line 2..3   puts :bong', eval_str
+
+    eval_str.should == unindent(<<-STR)
+      def hello
+        puts :bong
+        puts :heart
+    STR
+  end
+
+  it 'should correctly delete a specific line using the ! for content' do
+    eval_str = unindent(<<-STR)
+      def hello
+        puts :bing
+        puts :bang
+        puts :boast
+        puts :heart
+    STR
+
+    @t.process_command 'amend-line 3 !', eval_str
+
+    eval_str.should == unindent(<<-STR)
+      def hello
+        puts :bing
+        puts :boast
+        puts :heart
+    STR
+  end
+
+  it 'should correctly delete a range of lines using the ! for content' do
+    eval_str = unindent(<<-STR)
+      def hello
+        puts :bing
+        puts :bang
+        puts :boast
+        puts :heart
+    STR
+
+    @t.process_command 'amend-line 2..4 !', eval_str
+
+    eval_str.should == unindent(<<-STR)
+      def hello
+        puts :heart
+    STR
+  end
+
+  it 'should correctly delete the previous line using the ! for content' do
+    eval_str = unindent(<<-STR)
+      def hello
+        puts :bing
+        puts :bang
+        puts :boast
+        puts :heart
+    STR
+
+    @t.process_command 'amend-line !', eval_str
+
+    eval_str.should == unindent(<<-STR)
+      def hello
+        puts :bing
+        puts :bang
+        puts :boast
+    STR
+  end
+
+  it 'should amend the specified range of lines, with numbers < 0 in range' do
+    eval_str = unindent(<<-STR)
+      def hello
+        puts :bing
+        puts :bang
+        puts :boast
+        puts :heart
+    STR
+
+    @t.process_command 'amend-line 2..-2   puts :bong', eval_str
+
+    eval_str.should == unindent(<<-STR)
+      def hello
+        puts :bong
+        puts :heart
+    STR
+  end
+
+  it 'should correctly insert a line before a specified line using >' do
+    eval_str = unindent(<<-STR)
+      def hello
+        puts :bing
+        puts :bang
+    STR
+
+    @t.process_command 'amend-line 2 >  puts :inserted', eval_str
+
+    eval_str.should == unindent(<<-STR)
+      def hello
+        puts :inserted
+        puts :bing
+        puts :bang
+    STR
+  end
+
+  it 'should ignore second value of range with > syntax' do
+    eval_str = unindent(<<-STR)
+      def hello
+        puts :bing
+        puts :bang
+    STR
+
+    @t.process_command 'amend-line 2..21 >  puts :inserted', eval_str
+
+    eval_str.should == unindent(<<-STR)
+      def hello
+        puts :inserted
+        puts :bing
+        puts :bang
+    STR
+  end
+end

data/spec/commands/bang_spec.rb

@@ -0,0 +1,19 @@
+require 'helper'
+
+describe "!" do
+  before do
+    @t = pry_tester
+  end
+
+  it 'should correctly clear the input buffer ' do
+    eval_str = unindent(<<-STR)
+      def hello
+        puts :bing
+    STR
+
+    @t.process_command '!', eval_str
+    @t.last_output.should =~ /Input buffer cleared!/
+
+    eval_str.should == ''
+  end
+end

data/spec/commands/cat_spec.rb

@@ -0,0 +1,164 @@
+require 'helper'
+
+describe "cat" do
+  before do
+    @str_output = StringIO.new
+
+    @t = pry_tester do
+      def insert_nil_input
+        @pry.update_input_history(nil)
+      end
+
+      def last_exception=(e)
+        @pry.last_exception = e
+      end
+    end
+  end
+
+  describe "on receiving a file that does not exist" do
+    it 'should display an error message' do
+      proc {
+        @t.eval 'cat supercalifragilicious66'
+      }.should.raise(StandardError).message.should =~ /Cannot open/
+    end
+  end
+
+  describe "with --in" do
+    it 'should display the last few expressions with indices' do
+      @t.eval('10', '20', 'cat --in').should == unindent(<<-STR)
+        1:
+          10
+        2:
+          20
+      STR
+    end
+  end
+
+  describe "with --in 1" do
+    it 'should display the first expression with no index' do
+      @t.eval('10', '20', 'cat --in 1').should == "10\n"
+    end
+  end
+
+  describe "with --in -1" do
+    it 'should display the last expression with no index' do
+      @t.eval('10', '20', 'cat --in -1').should == "20\n"
+    end
+  end
+
+  describe "with --in 1..2" do
+    it 'should display the given range with indices, omitting nils' do
+      @t.eval '10'
+      @t.insert_nil_input # normally happens when a command is executed
+      @t.eval ':hello'
+
+      @t.eval('cat --in 1..3').should == unindent(<<-EOS)
+        1:
+          10
+        3:
+          :hello
+      EOS
+    end
+  end
+
+  # this doesnt work so well on rbx due to differences in backtrace
+  # so we currently skip rbx until we figure out a workaround
+  describe "with --ex" do
+    before do
+      @o = Object.new
+
+      # this is to test exception code (cat --ex)
+      def @o.broken_method
+        this method is broken
+      end
+    end
+
+    if !Pry::Helpers::BaseHelpers.rbx?
+      it 'cat --ex should display repl code that generated exception' do
+        @t.eval unindent(<<-EOS)
+          begin
+            this raises error
+          rescue => e
+            _pry_.last_exception = e
+          end
+        EOS
+        @t.eval('cat --ex').should =~ /\d+:(\s*) this raises error/
+      end
+
+      it 'cat --ex should correctly display code that generated exception' do
+        begin
+          @o.broken_method
+        rescue => e
+          @t.last_exception = e
+        end
+        @t.eval('cat --ex').should =~ /this method is broken/
+      end
+    end
+  end
+
+  describe "with --ex N" do
+    it 'should cat first level of backtrace when --ex used with no argument ' do
+      temp_file do |f|
+        f << "bt number 1"
+        f.flush
+        @t.last_exception = mock_exception("#{f.path}:1", 'x', 'x')
+        @t.eval('cat --ex').should =~ /bt number 1/
+      end
+    end
+
+    it 'should cat first level of backtrace when --ex 0 used ' do
+      temp_file do |f|
+        f << "bt number 1"
+        f.flush
+        @t.last_exception = mock_exception("#{f.path}:1", 'x', 'x')
+        @t.eval('cat --ex 0').should =~ /bt number 1/
+      end
+    end
+
+    it 'should cat second level of backtrace when --ex 1 used ' do
+      temp_file do |f|
+        f << "bt number 2"
+        f.flush
+        @t.last_exception = mock_exception('x', "#{f.path}:1", 'x')
+        @t.eval('cat --ex 1').should =~ /bt number 2/
+      end
+    end
+
+    it 'should cat third level of backtrace when --ex 2 used' do
+      temp_file do |f|
+        f << "bt number 3"
+        f.flush
+        @t.last_exception = mock_exception('x', 'x', "#{f.path}:1")
+        @t.eval('cat --ex 2').should =~ /bt number 3/
+      end
+    end
+
+    it 'should show error when backtrace level out of bounds' do
+      @t.last_exception = mock_exception('x', 'x', 'x')
+      proc {
+        @t.eval('cat --ex 3')
+      }.should.raise(Pry::CommandError).message.should =~ /out of bounds/
+    end
+
+    it 'each successive cat --ex should show the next level of backtrace, and going past the final level should return to the first' do
+      temp_files = []
+      3.times do |i|
+        temp_files << Tempfile.new(['pry', '.rb'])
+        temp_files.last << "bt number #{i}"
+        temp_files.last.flush
+      end
+
+      @t.last_exception = mock_exception(*temp_files.map { |f| "#{f.path}:1" })
+
+      3.times do |i|
+        @t.eval('cat --ex').should =~ /bt number #{i}/
+      end
+
+      @t.eval('cat --ex').should =~ /bt number 0/
+
+      temp_files.each do |file|
+        file.close(true)
+      end
+    end
+  end
+end

data/spec/commands/cd_spec.rb

@@ -0,0 +1,250 @@
+require 'helper'
+
+describe 'cd' do
+  before do
+    @o, @obj = Object.new, Object.new
+    @obj.instance_variable_set(:@x, 66)
+    @obj.instance_variable_set(:@y, 79)
+    @o.instance_variable_set(:@obj, @obj)
+
+    @t = pry_tester(@o) do
+      def assert_binding_stack(other)
+        binding_stack.map { |b| b.eval('self') }.should == other
+      end
+
+      def binding_stack
+        eval '_pry_.binding_stack.dup'
+      end
+
+      def command_state
+        eval '_pry_.command_state["cd"]'
+      end
+
+      def old_stack
+        eval '_pry_.command_state["cd"].old_stack.dup'
+      end
+    end
+  end
+
+  describe 'state' do
+    it 'should not to be set up in fresh instance' do
+      @t.command_state.should.be.nil
+    end
+  end
+
+  describe 'old stack toggling with `cd -`' do
+    describe 'in fresh pry instance' do
+      it 'should not toggle when there is no old stack' do
+        2.times do
+          @t.eval 'cd -'
+          @t.assert_binding_stack [@o]
+        end
+      end
+    end
+
+    describe 'when an error was raised' do
+      it 'should not toggle and should keep correct stacks' do
+        proc {
+          @t.eval 'cd @'
+        }.should.raise(Pry::CommandError)
+
+        @t.old_stack.should == []
+        @t.assert_binding_stack [@o]
+
+        @t.eval 'cd -'
+        @t.old_stack.should == []
+        @t.assert_binding_stack [@o]
+      end
+    end
+
+    describe 'when using simple cd syntax' do
+      it 'should toggle' do
+        @t.eval 'cd :mon_dogg', 'cd -'
+        @t.assert_binding_stack [@o]
+
+        @t.eval 'cd -'
+        @t.assert_binding_stack [@o, :mon_dogg]
+      end
+    end
+
+    describe "when using complex cd syntax" do
+      it 'should toggle with a complex path (simple case)' do
+        @t.eval 'cd 1/2/3', 'cd -'
+        @t.assert_binding_stack [@o]
+
+        @t.eval 'cd -'
+        @t.assert_binding_stack [@o, 1, 2, 3]
+      end
+
+      it 'should toggle with a complex path (more complex case)' do
+        @t.eval 'cd 1/2/3', 'cd ../4', 'cd -'
+        @t.assert_binding_stack [@o, 1, 2, 3]
+
+        @t.eval 'cd -'
+        @t.assert_binding_stack [@o, 1, 2, 4]
+      end
+    end
+
+    describe 'series of cd calls' do
+      it 'should toggle with fuzzy `cd -` calls' do
+        @t.eval 'cd :mon_dogg', 'cd -', 'cd 42', 'cd -'
+        @t.assert_binding_stack [@o]
+
+        @t.eval 'cd -'
+        @t.assert_binding_stack [@o, 42]
+      end
+    end
+
+    describe 'when using cd ..' do
+      it 'should toggle with a simple path' do
+        @t.eval 'cd :john_dogg', 'cd ..'
+        @t.assert_binding_stack [@o]
+
+        @t.eval 'cd -'
+        @t.assert_binding_stack [@o, :john_dogg]
+      end
+
+      it 'should toggle with a complex path' do
+        @t.eval 'cd 1/2/3/../4', 'cd -'
+        @t.assert_binding_stack [@o]
+
+        @t.eval 'cd -'
+        @t.assert_binding_stack [@o, 1, 2, 4]
+      end
+    end
+
+    describe 'when using cd ::' do
+      it 'should toggle' do
+        @t.eval 'cd ::', 'cd -'
+        @t.assert_binding_stack [@o]
+
+        @t.eval 'cd -'
+        @t.assert_binding_stack [@o, TOPLEVEL_BINDING.eval('self')]
+      end
+    end
+
+    describe 'when using cd /' do
+      it 'should toggle' do
+        @t.eval 'cd /', 'cd -'
+        @t.assert_binding_stack [@o]
+
+        @t.eval 'cd :john_dogg', 'cd /', 'cd -'
+        @t.assert_binding_stack [@o, :john_dogg]
+      end
+    end
+
+    describe 'when using ^D (Control-D) key press' do
+      it 'should keep correct old binding' do
+        @t.eval 'cd :john_dogg', 'cd :mon_dogg', 'cd :kyr_dogg',
+          'Pry::DEFAULT_CONTROL_D_HANDLER.call("", _pry_)'
+        @t.assert_binding_stack [@o, :john_dogg, :mon_dogg]
+
+        @t.eval 'cd -'
+        @t.assert_binding_stack [@o, :john_dogg, :mon_dogg, :kyr_dogg]
+
+        @t.eval 'cd -'
+        @t.assert_binding_stack [@o, :john_dogg, :mon_dogg]
+      end
+    end
+  end
+
+  it 'should cd into simple input' do
+    @t.eval 'cd :mon_ouie'
+    @t.eval('self').should == :mon_ouie
+  end
+
+  it 'should break out of session with cd ..' do
+    @t.eval 'cd :outer', 'cd :inner'
+    @t.eval('self').should == :inner
+
+    @t.eval 'cd ..'
+    @t.eval('self').should == :outer
+  end
+
+  it "should not leave the REPL session when given 'cd ..'" do
+    @t.eval 'cd ..'
+    @t.eval('self').should == @o
+  end
+
+  it 'should break out to outer-most session with cd /' do
+    @t.eval 'cd :inner'
+    @t.eval('self').should == :inner
+
+    @t.eval 'cd 5'
+    @t.eval('self').should == 5
+
+    @t.eval 'cd /'
+    @t.eval('self').should == @o
+  end
+
+  it 'should break out to outer-most session with just cd (no args)' do
+    @t.eval 'cd :inner'
+    @t.eval('self').should == :inner
+
+    @t.eval 'cd 5'
+    @t.eval('self').should == 5
+
+    @t.eval 'cd'
+    @t.eval('self').should == @o
+  end
+
+  it 'should cd into an object and its ivar using cd obj/@ivar syntax' do
+    @t.eval 'cd @obj/@x'
+    @t.assert_binding_stack [@o, @obj, 66]
+  end
+
+  it 'should cd into an object and its ivar using cd obj/@ivar/ syntax (note following /)' do
+    @t.eval 'cd @obj/@x/'
+    @t.assert_binding_stack [@o, @obj, 66]
+  end
+
+  it 'should cd into previous object and its local using cd ../local syntax' do
+    @t.eval 'cd @obj', 'local = :local', 'cd @x', 'cd ../local'
+    @t.assert_binding_stack [@o, @obj, :local]
+  end
+
+  it 'should cd into an object and its ivar and back again using cd obj/@ivar/.. syntax' do
+    @t.eval 'cd @obj/@x/..'
+    @t.assert_binding_stack [@o, @obj]
+  end
+
+  it 'should cd into an object and its ivar and back and then into another ivar using cd obj/@ivar/../@y syntax' do
+    @t.eval 'cd @obj/@x/../@y'
+    @t.assert_binding_stack [@o, @obj, 79]
+  end
+
+  it 'should cd back to top-level and then into another ivar using cd /@ivar/ syntax' do
+    @t.eval '@z = 20', 'cd @obj/@x/', 'cd /@z'
+    @t.assert_binding_stack [@o, 20]
+  end
+
+  it 'should start a session on TOPLEVEL_BINDING with cd ::' do
+    @t.eval 'cd ::'
+    @t.eval('self').should == TOPLEVEL_BINDING.eval('self')
+  end
+
+  it 'should cd into complex input (with spaces)' do
+    def @o.hello(x, y, z)
+      :mon_ouie
+    end
+
+    @t.eval 'cd hello 1, 2, 3'
+    @t.eval('self').should == :mon_ouie
+  end
+
+  it 'should not cd into complex input when it encounters an exception' do
+    proc {
+      @t.eval 'cd 1/2/swoop_a_doop/3'
+    }.should.raise(Pry::CommandError)
+
+    @t.assert_binding_stack [@o]
+  end
+
+  # Regression test for ticket #516.
+  # FIXME: This is actually broken.
+  # it 'should be able to cd into the Object BasicObject' do
+  #   proc {
+  #     @t.eval 'cd BasicObject.new'
+  #   }.should.not.raise
+  # end
+end