sshp 0.0.1

data/vendor/ruby/1.9.1/gems/pry-0.9.12.2/spec/indent_spec.rb

@@ -0,0 +1,301 @@
+require 'helper'
+
+# Please keep in mind that any hash signs ("#") in the heredoc strings are
+# placed on purpose. Without these editors might remove the whitespace on empty
+# lines.
+describe Pry::Indent do
+  before do
+    @indent = Pry::Indent.new
+  end
+
+  it 'should indent an array' do
+    input  = "array = [\n10,\n15\n]"
+    output = "array = [\n  10,\n  15\n]"
+
+    @indent.indent(input).should == output
+  end
+
+  it 'should indent a hash' do
+    input  = "hash = {\n:name => 'Ruby'\n}"
+    output = "hash = {\n  :name => 'Ruby'\n}"
+
+    @indent.indent(input).should == output
+  end
+
+  it 'should indent a function' do
+    input  = "def\nreturn 10\nend"
+    output = "def\n  return 10\nend"
+
+    @indent.indent(input).should == output
+  end
+
+  it 'should indent a module and class' do
+    input        = "module Foo\n# Hello world\nend"
+    output       = "module Foo\n  # Hello world\nend"
+    input_class  = "class Foo\n# Hello world\nend"
+    output_class = "class Foo\n  # Hello world\nend"
+
+    @indent.indent(input).should       == output
+    @indent.indent(input_class).should == output_class
+  end
+
+  it 'should indent separate lines' do
+    @indent.indent('def foo').should   == 'def foo'
+    @indent.indent('return 10').should == '  return 10'
+    @indent.indent('end').should       == 'end'
+  end
+
+  it 'should not indent single line statements' do
+    input = <<TXT.strip
+def hello; end
+puts "Hello"
+TXT
+
+    @indent.indent(input).should == input
+  end
+
+  it 'should handle multiple open and closing tokens on a line' do
+    input = <<TXT.strip
+[10, 15].each do |num|
+puts num
+end
+TXT
+
+    output = <<TXT.strip
+[10, 15].each do |num|
+  puts num
+end
+TXT
+
+    @indent.indent(input).should == output
+  end
+
+  it 'should properly indent nested code' do
+    input = <<TXT.strip
+module A
+module B
+class C
+attr_accessor :test
+# keep
+def number
+return 10
+end
+end
+end
+end
+TXT
+
+    output = <<TXT.strip
+module A
+  module B
+    class C
+      attr_accessor :test
+      # keep
+      def number
+        return 10
+      end
+    end
+  end
+end
+TXT
+
+    @indent.indent(input).should == output
+  end
+
+  it 'should indent statements such as if, else, etc' do
+    input = <<TXT.strip
+if a == 10
+#
+elsif a == 15
+#
+else
+#
+end
+#
+while true
+#
+end
+#
+for num in [10, 15, 20]
+#
+end
+#
+for num in [10, 15, 20] do
+#
+end
+TXT
+
+    output = <<TXT.strip
+if a == 10
+  #
+elsif a == 15
+  #
+else
+  #
+end
+#
+while true
+  #
+end
+#
+for num in [10, 15, 20]
+  #
+end
+#
+for num in [10, 15, 20] do
+  #
+end
+TXT
+
+    @indent.indent(input).should == output
+  end
+
+  it "should correctly handle while <foo> do" do
+    input = "while 5 do\n5\nend"
+    @indent.indent(input).should == "while 5 do\n  5\nend"
+  end
+
+  it "should ident case statements" do
+    input = <<TXT.strip
+case foo
+when 1
+2
+when 2
+if 3
+4
+end
+when 5
+#
+else
+#
+end
+TXT
+
+ output = <<TXT.strip
+case foo
+when 1
+  2
+when 2
+  if 3
+    4
+  end
+when 5
+  #
+else
+  #
+end
+TXT
+
+    @indent.indent(input).should == output
+  end
+
+  it "should indent correctly with nesting" do
+    @indent.indent("[[\n[]]\n]").should == "[[\n  []]\n]"
+    @indent.reset.indent("[[\n[]]\n]").should == "[[\n  []]\n]"
+    @indent.reset.indent("[[{\n[] =>\n[]}]\n]").should == "[[{\n      [] =>\n  []}]\n]"
+  end
+
+  it "should not indent single-line ifs" do
+    @indent.indent("foo if bar\n#").should == "foo if bar\n#"
+    @indent.reset.indent("foo() if bar\n#").should == "foo() if bar\n#"
+    @indent.reset.indent("foo 'hi' if bar\n#").should == "foo 'hi' if bar\n#"
+    @indent.reset.indent("foo 1 while bar\n#").should == "foo 1 while bar\n#"
+    @indent.reset.indent("super if true\n#").should == "super if true\n#"
+    @indent.reset.indent("true if false\n#").should == "true if false\n#"
+    @indent.reset.indent("String if false\n#").should == "String if false\n#"
+  end
+
+  it "should indent cunningly disguised ifs" do
+    @indent.indent("{1 => if bar\n#").should == "{1 => if bar\n    #"
+    @indent.reset.indent("foo(if bar\n#").should == "foo(if bar\n    #"
+    @indent.reset.indent("bar(baz, if bar\n#").should == "bar(baz, if bar\n    #"
+    @indent.reset.indent("[if bar\n#").should == "[if bar\n    #"
+    @indent.reset.indent("true; while bar\n#").should == "true; while bar\n  #"
+  end
+
+  it "should differentiate single/multi-line unless" do
+    @indent.indent("foo unless bar\nunless foo\nbar\nend").should == "foo unless bar\nunless foo\n  bar\nend"
+  end
+
+  it "should not indent single/multi-line until" do
+    @indent.indent("%w{baz} until bar\nuntil foo\nbar\nend").should == "%w{baz} until bar\nuntil foo\n  bar\nend"
+  end
+
+  it "should indent begin rescue end" do
+    input = <<INPUT.strip
+begin
+doo :something => :wrong
+rescue => e
+doit :right
+end
+INPUT
+    output = <<OUTPUT.strip
+begin
+  doo :something => :wrong
+rescue => e
+  doit :right
+end
+OUTPUT
+
+    @indent.indent(input).should == output
+  end
+
+  it "should not indent inside strings" do
+    @indent.indent(%(def a\n"foo\nbar"\n  end)).should == %(def a\n  "foo\nbar"\nend)
+    @indent.indent(%(def a\nputs %w(foo\nbar), 'foo\nbar'\n  end)).should == %(def a\n  puts %w(foo\nbar), 'foo\nbar'\nend)
+  end
+
+  it "should not indent inside HEREDOCs" do
+    @indent.indent(%(def a\nputs <<FOO\n bar\nFOO\nbaz\nend)).should == %(def a\n  puts <<FOO\n bar\nFOO\n  baz\nend)
+    @indent.indent(%(def a\nputs <<-'^^'\n bar\n\t^^\nbaz\nend)).should == %(def a\n  puts <<-'^^'\n bar\n\t^^\n  baz\nend)
+  end
+
+  it "should not indent nested HEREDOCs" do
+    input = <<INPUT.strip
+def a
+puts <<FOO, <<-BAR, "baz", <<-':p'
+foo
+FOO
+bar
+BAR
+tongue
+:p
+puts :p
+end
+INPUT
+
+    output = <<OUTPUT.strip
+def a
+  puts <<FOO, <<-BAR, "baz", <<-':p'
+foo
+FOO
+bar
+BAR
+tongue
+:p
+  puts :p
+end
+OUTPUT
+
+    @indent.indent(input).should == output
+  end
+
+  describe "nesting" do
+      test = File.read("spec/fixtures/example_nesting.rb")
+
+      test.lines.each_with_index do |line, i|
+        result = line.split("#").last.strip
+        if result == ""
+          it "should fail to parse nesting on line #{i + 1} of example_nesting.rb" do
+            lambda {
+              Pry::Indent.nesting_at(test, i + 1)
+            }.should.raise(Pry::Indent::UnparseableNestingError)
+          end
+        else
+          it "should parse nesting on line #{i + 1} of example_nesting.rb" do
+            Pry::Indent.nesting_at(test, i + 1).should == eval(result)
+          end
+        end
+      end
+    end
+end

data/vendor/ruby/1.9.1/gems/pry-0.9.12.2/spec/input_stack_spec.rb

@@ -0,0 +1,90 @@
+# coding: utf-8
+require 'helper'
+
+describe "Pry#input_stack" do
+  before do
+    @str_output = StringIO.new
+  end
+
+  it 'should accept :input_stack as a config option' do
+    stack = [StringIO.new("test")]
+    Pry.new(:input_stack => stack).input_stack.should == stack
+  end
+
+  it 'should use defaults from Pry.config' do
+    Pry.config.input_stack = [StringIO.new("exit")]
+    Pry.new.input_stack.should == Pry.config.input_stack
+    Pry.config.input_stack = []
+  end
+
+  it 'should read from all input objects on stack and exit session (usingn repl)' do
+    stack = [b = StringIO.new(":cloister\nexit\n"), c = StringIO.new(":baron\n")]
+    instance = Pry.new(:input => StringIO.new(":alex\n"),
+                       :output => @str_output,
+                       :input_stack => stack)
+
+    instance.repl
+    @str_output.string.should =~ /:alex/
+    @str_output.string.should =~ /:baron/
+    @str_output.string.should =~ /:cloister/
+  end
+
+  it 'input objects should be popped off stack as they are used up' do
+    stack = [StringIO.new(":cloister\n"), StringIO.new(":baron\n")]
+    instance = Pry.new(:input => StringIO.new(":alex\n"),
+                       :output => @str_output,
+                       :input_stack => stack)
+
+    stack.size.should == 2
+
+    instance.rep
+    @str_output.string.should =~ /:alex/
+    instance.rep
+    @str_output.string.should =~ /:baron/
+    stack.size.should == 1
+    instance.rep
+    @str_output.string.should =~ /:cloister/
+    stack.size.should == 0
+  end
+
+  it 'should revert to Pry.config.input when it runs out of input objects in input_stack' do
+    redirect_pry_io(StringIO.new(":rimbaud\nexit\n"), StringIO.new) do
+      stack = [StringIO.new(":cloister\n"), StringIO.new(":baron\n")]
+      instance = Pry.new(:input => StringIO.new(":alex\n"),
+                         :output => @str_output,
+                         :input_stack => stack)
+
+      instance.repl
+      @str_output.string.should =~ /:alex/
+      @str_output.string.should =~ /:baron/
+      @str_output.string.should =~ /:cloister/
+      @str_output.string.should =~ /:rimbaud/
+    end
+  end
+
+  it 'should display error and throw(:breakout) if at end of input after using up input_stack objects' do
+    catch(:breakout) do
+      redirect_pry_io(StringIO.new(":rimbaud\n"), @str_output) do
+        Pry.new(:input_stack => [StringIO.new(":a\n"), StringIO.new(":b\n")]).repl
+      end
+    end
+    @str_output.string.should =~ /Error: Pry ran out of things to read/
+  end
+
+  if "".respond_to?(:encoding)
+    after do
+      Pry.line_buffer = [""]
+      Pry.current_line = 1
+    end
+    it "should pass strings to Pry in the right encoding" do
+      input1 = "'f｡｡'.encoding.name" # utf-8, see coding declaration
+      input2 = input1.encode('Shift_JIS')
+
+      mock_pry(input1, input2).should == %{=> "UTF-8"\n=> "Shift_JIS"\n\n}
+    end
+
+    it "should be able to use unicode regexes on a UTF-8 terminal" do
+      mock_pry('":-Þ" =~ /þ/i').should == %{=> 2\n\n}
+    end
+  end
+end

data/vendor/ruby/1.9.1/gems/pry-0.9.12.2/spec/method_spec.rb

@@ -0,0 +1,482 @@
+require 'helper'
+require 'set'
+
+describe Pry::Method do
+  it "should use String names for compatibility" do
+    klass = Class.new { def hello; end }
+    Pry::Method.new(klass.instance_method(:hello)).name.should == "hello"
+  end
+
+  describe ".from_str" do
+    it 'should look up instance methods if no methods available and no options provided' do
+      klass = Class.new { def hello; end }
+      meth = Pry::Method.from_str(:hello, Pry.binding_for(klass))
+      meth.should == klass.instance_method(:hello)
+    end
+
+    it 'should look up methods if no instance methods available and no options provided' do
+      klass = Class.new { def self.hello; end }
+      meth = Pry::Method.from_str(:hello, Pry.binding_for(klass))
+      meth.should == klass.method(:hello)
+    end
+
+    it 'should look up instance methods first even if methods available and no options provided' do
+      klass = Class.new { def hello; end; def self.hello; end  }
+      meth = Pry::Method.from_str(:hello, Pry.binding_for(klass))
+      meth.should == klass.instance_method(:hello)
+    end
+
+    it 'should look up instance methods if "instance-methods"  option provided' do
+      klass = Class.new { def hello; end; def self.hello; end  }
+      meth = Pry::Method.from_str(:hello, Pry.binding_for(klass), {"instance-methods" => true})
+      meth.should == klass.instance_method(:hello)
+    end
+
+    it 'should look up methods if :methods  option provided' do
+      klass = Class.new { def hello; end; def self.hello; end  }
+      meth = Pry::Method.from_str(:hello, Pry.binding_for(klass), {:methods => true})
+      meth.should == klass.method(:hello)
+    end
+
+    it 'should look up instance methods using the Class#method syntax' do
+      klass = Class.new { def hello; end; def self.hello; end  }
+      meth = Pry::Method.from_str("klass#hello", Pry.binding_for(binding))
+      meth.should == klass.instance_method(:hello)
+    end
+
+    it 'should look up methods using the object.method syntax' do
+      klass = Class.new { def hello; end; def self.hello; end  }
+      meth = Pry::Method.from_str("klass.hello", Pry.binding_for(binding))
+      meth.should == klass.method(:hello)
+    end
+
+    it 'should NOT look up instance methods using the Class#method syntax if no instance methods defined' do
+      klass = Class.new { def self.hello; end  }
+      meth = Pry::Method.from_str("klass#hello", Pry.binding_for(binding))
+      meth.should == nil
+    end
+
+    it 'should NOT look up methods using the object.method syntax if no methods defined' do
+      klass = Class.new { def hello; end  }
+      meth = Pry::Method.from_str("klass.hello", Pry.binding_for(binding))
+      meth.should == nil
+    end
+
+    it 'should look up methods using klass.new.method syntax' do
+      klass = Class.new { def hello; :hello; end }
+      meth = Pry::Method.from_str("klass.new.hello", Pry.binding_for(binding))
+      meth.name.should == "hello"
+    end
+
+    it 'should look up instance methods using klass.meth#method syntax' do
+      klass = Class.new { def self.meth; Class.new; end }
+      meth = Pry::Method.from_str("klass.meth#initialize", Pry.binding_for(binding))
+      meth.name.should == "initialize"
+    end
+
+    it 'should look up methods using instance::bar syntax' do
+      klass = Class.new{ def self.meth; Class.new; end }
+      meth = Pry::Method.from_str("klass::meth", Pry.binding_for(binding))
+      meth.name.should == "meth"
+    end
+
+    it 'should not raise an exception if receiver does not exist' do
+      lambda { Pry::Method.from_str("random_klass.meth", Pry.binding_for(binding)) }.should.not.raise
+    end
+  end
+
+  describe '.from_binding' do
+    it 'should be able to pick a method out of a binding' do
+      Pry::Method.from_binding(Class.new{ def self.foo; binding; end }.foo).name.should == "foo"
+    end
+
+    it 'should NOT find a method from the toplevel binding' do
+      Pry::Method.from_binding(TOPLEVEL_BINDING).should == nil
+    end
+
+    it "should find methods that have been undef'd" do
+      c = Class.new do
+        def self.bar
+          class << self; undef bar; end
+          binding
+        end
+      end
+
+      m = Pry::Method.from_binding(c.bar)
+      m.name.should == "bar"
+    end
+
+    # Our source_location trick doesn't work, due to https://github.com/rubinius/rubinius/issues/953
+    unless Pry::Helpers::BaseHelpers.rbx?
+       it 'should find the super method correctly' do
+        a = Class.new{ def gag33; binding; end; def self.line; __LINE__; end }
+        b = Class.new(a){ def gag33; super; end }
+
+        g = b.new.gag33
+        m = Pry::Method.from_binding(g)
+
+        m.owner.should == a
+        m.source_line.should == a.line
+        m.name.should == "gag33"
+      end
+    end
+
+    it 'should find the right method if a super method exists' do
+      a = Class.new{ def gag; binding; end; }
+      b = Class.new(a){ def gag; super; binding; end; def self.line; __LINE__; end }
+
+      m = Pry::Method.from_binding(b.new.gag)
+
+      m.owner.should == b
+      m.source_line.should == b.line
+      m.name.should == "gag"
+    end
+
+    if defined?(BasicObject) && !Pry::Helpers::BaseHelpers.rbx? # rubinius issue 1921
+      it "should find the right method from a BasicObject" do
+        a = Class.new(BasicObject) { def gag; ::Kernel.binding; end; def self.line; __LINE__; end }
+
+        m = Pry::Method.from_binding(a.new.gag)
+        m.owner.should == a
+        m.source_file.should == __FILE__
+        m.source_line.should == a.line
+      end
+    end
+
+    it 'should find the right method even if it was renamed and replaced' do
+      o = Object.new
+      class << o
+        def borscht
+          "nips"
+          binding
+        end
+        alias paella borscht
+        def borscht() paella end
+      end
+
+      m = Pry::Method.from_binding(o.borscht)
+      m.source.should == Pry::Method(o.method(:paella)).source
+    end
+  end
+
+  describe 'super' do
+    it 'should be able to find the super method on a bound method' do
+      a = Class.new{ def rar; 4; end }
+      b = Class.new(a){ def rar; super; end }
+
+      obj = b.new
+
+      zuper = Pry::Method(obj.method(:rar)).super
+      zuper.owner.should == a
+      zuper.receiver.should == obj
+    end
+
+    it 'should be able to find the super method of an unbound method' do
+      a = Class.new{ def rar; 4; end }
+      b = Class.new(a){ def rar; super; end }
+
+      zuper = Pry::Method(b.instance_method(:rar)).super
+      zuper.owner.should == a
+    end
+
+    it 'should return nil if no super method exists' do
+      a = Class.new{ def rar; super; end }
+
+      Pry::Method(a.instance_method(:rar)).super.should == nil
+    end
+
+    it 'should be able to find super methods defined on modules' do
+      m = Module.new{ def rar; 4; end }
+      a = Class.new{ def rar; super; end; include m }
+
+      zuper = Pry::Method(a.new.method(:rar)).super
+      zuper.owner.should == m
+    end
+
+    it 'should be able to find super methods defined on super-classes when there are modules in the way' do
+      a = Class.new{ def rar; 4; end }
+      m = Module.new{ def mooo; 4; end }
+      b = Class.new(a){ def rar; super; end; include m }
+
+      zuper = Pry::Method(b.new.method(:rar)).super
+      zuper.owner.should == a
+    end
+
+    it 'should be able to jump up multiple levels of bound method, even through modules' do
+      a = Class.new{ def rar; 4; end }
+      m = Module.new{ def rar; 4; end }
+      b = Class.new(a){ def rar; super; end; include m }
+
+      zuper = Pry::Method(b.new.method(:rar)).super
+      zuper.owner.should == m
+      zuper.super.owner.should == a
+    end
+  end
+
+  describe 'all_from_class' do
+    def should_find_method(name)
+      Pry::Method.all_from_class(@class).map(&:name).should.include(name)
+    end
+
+    it 'should be able to find public instance methods defined in a class' do
+      @class = Class.new{ def meth; 1; end }
+      should_find_method('meth')
+    end
+
+    it 'should be able to find private and protected instance methods defined in a class' do
+      @class = Class.new { protected; def prot; 1; end; private; def priv; 1; end }
+      should_find_method('priv')
+      should_find_method('prot')
+    end
+
+    it 'should find methods all the way up to Kernel' do
+      @class = Class.new
+      should_find_method('exit!')
+    end
+
+    it 'should be able to find instance methods defined in a super-class' do
+      @class = Class.new(Class.new{ def meth; 1; end }) {}
+      should_find_method('meth')
+    end
+
+    it 'should be able to find instance methods defined in modules included into this class' do
+      @class = Class.new{ include Module.new{ def meth; 1; end; } }
+      should_find_method('meth')
+    end
+
+    it 'should be able to find instance methods defined in modules included into super-classes' do
+      @class = Class.new(Class.new{ include Module.new{ def meth; 1; end; } })
+      should_find_method('meth')
+    end
+
+    it 'should attribute overridden methods to the sub-class' do
+      @class = Class.new(Class.new{ include Module.new{ def meth; 1; end; } }) { def meth; 2; end }
+      Pry::Method.all_from_class(@class).detect{ |x| x.name == 'meth' }.owner.should == @class
+    end
+
+    it 'should be able to find methods defined on a singleton class' do
+      @class = (class << Object.new; def meth; 1; end; self; end)
+      should_find_method('meth')
+    end
+
+    it 'should be able to find methods on super-classes when given a singleton class' do
+      @class = (class << Class.new{ def meth; 1; end}.new; self; end)
+      should_find_method('meth')
+    end
+  end
+
+  describe 'all_from_obj' do
+    describe 'on normal objects' do
+      def should_find_method(name)
+        Pry::Method.all_from_obj(@obj).map(&:name).should.include(name)
+      end
+
+      it "should find methods defined in the object's class" do
+        @obj = Class.new{ def meth; 1; end }.new
+        should_find_method('meth')
+      end
+
+      it "should find methods defined in modules included into the object's class" do
+        @obj = Class.new{ include Module.new{ def meth; 1; end } }.new
+        should_find_method('meth')
+      end
+
+      it "should find methods defined in the object's singleton class" do
+        @obj = Object.new
+        class << @obj; def meth; 1; end; end
+        should_find_method('meth')
+      end
+
+      it "should find methods in modules included into the object's singleton class" do
+        @obj = Object.new
+        @obj.extend Module.new{ def meth; 1; end }
+        should_find_method('meth')
+      end
+
+      it "should find methods all the way up to Kernel" do
+        @obj = Object.new
+        should_find_method('exit!')
+      end
+
+      it "should not find methods defined on the classes singleton class" do
+        @obj = Class.new{ class << self; def meth; 1; end; end }.new
+        Pry::Method.all_from_obj(@obj).map(&:name).should.not.include('meth')
+      end
+
+      it "should work in the face of an overridden send" do
+        @obj = Class.new{ def meth; 1; end; def send; raise EOFError; end }.new
+        should_find_method('meth')
+      end
+    end
+
+    describe 'on classes' do
+      def should_find_method(name)
+        Pry::Method.all_from_obj(@class).map(&:name).should.include(name)
+      end
+
+      it "should find methods defined in the class' singleton class" do
+        @class = Class.new{ class << self; def meth; 1; end; end }
+        should_find_method('meth')
+      end
+
+      it "should find methods defined on modules extended into the class" do
+        @class = Class.new{ extend Module.new{ def meth; 1; end; } }
+        should_find_method('meth')
+      end
+
+      it "should find methods defined on the singleton class of super-classes" do
+        @class = Class.new(Class.new{ class << self; def meth; 1; end; end })
+        should_find_method('meth')
+      end
+
+      it "should not find methods defined within the class" do
+        @class = Class.new{ def meth; 1; end }
+        Pry::Method.all_from_obj(@obj).map(&:name).should.not.include('meth')
+      end
+
+      it "should find methods defined on Class" do
+        @class = Class.new
+        should_find_method('allocate')
+      end
+
+      it "should find methods defined on Kernel" do
+        @class = Class.new
+        should_find_method('exit!')
+      end
+
+      it "should attribute overridden methods to the sub-class' singleton class" do
+        @class = Class.new(Class.new{ class << self; def meth; 1; end; end }) { class << self; def meth; 1; end; end }
+        Pry::Method.all_from_obj(@class).detect{ |x| x.name == 'meth' }.owner.should == (class << @class; self; end)
+      end
+
+      it "should attrbute overridden methods to the class not the module" do
+        @class = Class.new { class << self; def meth; 1; end; end; extend Module.new{ def meth; 1; end; } }
+        Pry::Method.all_from_obj(@class).detect{ |x| x.name == 'meth' }.owner.should == (class << @class; self; end)
+      end
+
+      it "should attribute overridden methods to the relevant singleton class in preference to Class" do
+        @class = Class.new { class << self; def allocate; 1; end; end }
+        Pry::Method.all_from_obj(@class).detect{ |x| x.name == 'allocate' }.owner.should == (class << @class; self; end)
+      end
+    end
+
+    describe 'method resolution order' do
+      module LS
+        class Top; end
+
+        class Next < Top; end
+
+        module M; end
+        module N; include M; end
+        module O; include M; end
+        module P; end
+
+        class Low < Next; include N; include P; end
+        class Lower < Low; extend N; end
+        class Bottom < Lower; extend O; end
+      end
+
+      def singleton_class(obj); class << obj; self; end; end
+
+      it "should look at a class and then its superclass" do
+        Pry::Method.instance_resolution_order(LS::Next).should == [LS::Next] + Pry::Method.instance_resolution_order(LS::Top)
+      end
+
+      it "should include the included modules between a class and its superclass" do
+        Pry::Method.instance_resolution_order(LS::Low).should == [LS::Low, LS::P, LS::N, LS::M] + Pry::Method.instance_resolution_order(LS::Next)
+      end
+
+      it "should not include modules extended into the class" do
+        Pry::Method.instance_resolution_order(LS::Bottom).should == [LS::Bottom] + Pry::Method.instance_resolution_order(LS::Lower)
+      end
+
+      it "should include included modules for Modules" do
+        Pry::Method.instance_resolution_order(LS::O).should == [LS::O, LS::M]
+      end
+
+      it "should include the singleton class of objects" do
+        obj = LS::Low.new
+        Pry::Method.resolution_order(obj).should == [singleton_class(obj)] + Pry::Method.instance_resolution_order(LS::Low)
+      end
+
+      it "should not include singleton classes of numbers" do
+        Pry::Method.resolution_order(4).should == Pry::Method.instance_resolution_order(Fixnum)
+      end
+
+      it "should include singleton classes for classes" do
+        Pry::Method.resolution_order(LS::Low).should == [singleton_class(LS::Low)] + Pry::Method.resolution_order(LS::Next)
+      end
+
+      it "should include modules included into singleton classes" do
+        Pry::Method.resolution_order(LS::Lower).should == [singleton_class(LS::Lower), LS::N, LS::M] + Pry::Method.resolution_order(LS::Low)
+      end
+
+      it "should include modules at most once" do
+        Pry::Method.resolution_order(LS::Bottom).count(LS::M).should == 1
+      end
+
+      it "should include modules at the point which they would be reached" do
+        Pry::Method.resolution_order(LS::Bottom).should == [singleton_class(LS::Bottom), LS::O] + (Pry::Method.resolution_order(LS::Lower))
+      end
+
+      it "should include the Pry::Method.instance_resolution_order of Class after the singleton classes" do
+        Pry::Method.resolution_order(LS::Top).should ==
+          [singleton_class(LS::Top), singleton_class(Object), (defined? BasicObject) && singleton_class(BasicObject)].compact +
+          Pry::Method.instance_resolution_order(Class)
+      end
+    end
+  end
+
+  describe 'method_name_from_first_line' do
+    it 'should work in all simple cases' do
+      meth = Pry::Method.new(nil)
+      meth.send(:method_name_from_first_line, "def x").should == "x"
+      meth.send(:method_name_from_first_line, "def self.x").should == "x"
+      meth.send(:method_name_from_first_line, "def ClassName.x").should == "x"
+      meth.send(:method_name_from_first_line, "def obj_name.x").should == "x"
+    end
+  end
+
+  describe 'method aliases' do
+    before do
+      @class = Class.new {
+        def eat
+        end
+
+        alias fress eat
+        alias_method :omnomnom, :fress
+
+        def eruct
+        end
+      }
+    end
+
+    it 'should be able to find method aliases' do
+      meth = Pry::Method(@class.new.method(:eat))
+      aliases = Set.new(meth.aliases)
+
+      aliases.should == Set.new(["fress", "omnomnom"])
+    end
+
+    it 'should return an empty Array if cannot find aliases' do
+      meth = Pry::Method(@class.new.method(:eruct))
+      meth.aliases.should.be.empty
+    end
+
+    it 'should not include the own name in the list of aliases' do
+      meth = Pry::Method(@class.new.method(:eat))
+      meth.aliases.should.not.include "eat"
+    end
+
+    unless Pry::Helpers::BaseHelpers.mri_18?
+      # Ruby 1.8 doesn't support this feature.
+      it 'should be able to find aliases for methods implemented in C' do
+        meth = Pry::Method(Hash.new.method(:key?))
+        aliases = Set.new(meth.aliases)
+
+        aliases.should == Set.new(["include?", "member?", "has_key?"])
+      end
+    end
+
+  end
+end