rcodetools 0.8.0.0 → 0.8.1.0

data/Rakefile

@@ -40,7 +40,7 @@ PKG_FILES = FileList[
 "README", "README.*", "THANKS", 
 "Rakefile", "Rakefile.method_analysis",
 "setup.rb",
-"test/**/*.rb",
+"test/**/*.rb","test/**/*.taf"
 ]
 
 begin
@@ -92,9 +92,9 @@ EOF
 
   end
 
-  task :gem #=> [:test]
+  task :gem => [:test]
   Rake::GemPackageTask.new(Spec) do |p|
-    #p.need_tar = true
+    p.need_tar_gz = true
   end
 
 rescue LoadError

data/bin/rct-complete

@@ -1,4 +1,4 @@
-#! /home/mfp/ruby1.8/bin/ruby
+#! /usr/local/bin/ruby
 require 'rcodetools/xmpfilter'
 require 'rcodetools/completion'
 require 'rcodetools/options'

data/bin/rct-doc

@@ -1,4 +1,4 @@
-#! /home/mfp/ruby1.8/bin/ruby
+#! /usr/local/bin/ruby
 require 'rcodetools/xmpfilter'
 require 'rcodetools/doc'
 require 'rcodetools/options'

data/bin/rct-meth-args

@@ -1,4 +1,4 @@
-#! /home/mfp/ruby1.8/bin/ruby
+#! /usr/local/bin/ruby
 # Copyright (c) 
 #  2006-2007 Mauricio Fernandez <mfp@acm.org>    http://eigenclass.org
 #  2006-2007 rubikitch <rubikitch@ruby-lang.org> http://www.rubyist.net/~rubikitch/

data/bin/xmpfilter

@@ -1,4 +1,4 @@
-#! /home/mfp/ruby1.8/bin/ruby
+#! /usr/local/bin/ruby
 require 'rcodetools/xmpfilter'
 require 'rcodetools/options'
 

data/lib/rcodetools/xmpfilter.rb

@@ -11,7 +11,7 @@ require 'tmpdir'
 module Rcodetools
 
 class XMPFilter
-  VERSION = "0.8.0"
+  VERSION = "0.8.1"
 
   MARKER = "!XMP#{Time.new.to_i}_#{Process.pid}_#{rand(1000000)}!"
   XMP_RE = Regexp.new("^" + Regexp.escape(MARKER) + '\[([0-9]+)\] (=>|~>|==>) (.*)')
@@ -225,7 +225,7 @@ end || #{v}
     exe_line = <<-EOF.map{|l| l.strip}.join(";")
       $stdout.reopen('#{File.expand_path(stdout.path)}', 'w')
       $stderr.reopen('#{File.expand_path(stderr.path)}', 'w')
-      $0.replace '#{File.expand_path(stdin.path)}'
+      $0 = '#{File.expand_path(stdin.path)}'
       ARGV.replace(#{@options.inspect})
       load #{File.expand_path(stdin.path).inspect}
       #{@evals.join(";")}

data/test/attic/test_run.rb

@@ -0,0 +1,45 @@
+require 'test/unit'
+require 'rcodetools/xmpfilter'
+require 'rcodetools/xmptestunitfilter'
+require 'rcodetools/completion'
+require 'rcodetools/doc'
+require 'rcodetools/options'
+require 'stringio'
+
+class TestRun < Test::Unit::TestCase
+  include Rcodetools
+  DIR = File.expand_path(File.dirname(__FILE__))
+
+  tests = {
+    :simple_annotation => {:klass => XMPFilter},
+    :unit_test         => {:klass => XMPTestUnitFilter},
+    :rspec             => {:klass => XMPRSpecFilter,    :interpreter     => "spec"},
+    :rspec_poetry      => {:klass => XMPRSpecFilter,    :interpreter     => "spec", :use_parentheses => false},
+    :no_warnings       => {:klass => XMPFilter,         :warnings        => false},
+    :bindings          => {:klass => XMPTestUnitFilter, :use_parentheses => false},
+    :unit_test_poetry  => {:klass => XMPTestUnitFilter, :use_parentheses => false},
+    :add_markers       => {:klass => XMPAddMarkers},
+    
+    :completion       => {:klass => XMPCompletionFilter,      :lineno => 1},
+    :completion_emacs => {:klass => XMPCompletionEmacsFilter, :lineno => 1},
+    :completion_emacs_icicles => {:klass => XMPCompletionEmacsIciclesFilter, :lineno => 1},
+    :completion_class_info => {:klass => XMPCompletionClassInfoFilter, :lineno => 1},
+    :completion_class_info_no_candidates => {:klass => XMPCompletionClassInfoFilter, :lineno => 1},
+    
+    :doc      => {:klass => XMPDocFilter,     :lineno => 1},
+    :refe     => {:klass => XMPReFeFilter,    :lineno => 1},
+    :ri       => {:klass => XMPRiFilter,      :lineno => 1},
+    :ri_emacs => {:klass => XMPRiEmacsFilter, :lineno => 1},
+    :ri_vim   => {:klass => XMPRiVimFilter,   :lineno => 1},
+    
+  }
+  tests.each_pair do |test, opts|
+    define_method("test_#{test}") do
+      inputfile = "#{DIR}/data/#{test}-input.rb"
+      outputfile = "#{DIR}/data/#{test}-output.rb"
+      sio = StringIO.new
+      sio.puts opts[:klass].run(File.read(inputfile), DEFAULT_OPTIONS.merge(opts))
+      assert_equal(File.read(outputfile), sio.string)
+    end
+  end 
+end

data/test/data/attic/add_markers-input.rb

@@ -0,0 +1,2 @@
+1+1
+2+3

data/test/data/attic/add_markers-output.rb

@@ -0,0 +1,2 @@
+1+1                                                # =>
+2+3                                                # =>

data/test/data/attic/bindings-input.rb

@@ -0,0 +1,26 @@
+
+require 'test/unit'
+
+class TestFoo < Test::Unit::TestCase
+  def setup
+    @o = []
+  end
+
+  def test_foo
+    a = 1
+    b = a
+    b                                              # =>
+  end
+
+  def test_arr
+    last = 1
+    @o << last
+    @o.last                                        # =>
+  end
+
+  def test_bar
+    a = b = c = 1
+    d = a
+    d                                              # =>
+  end
+end

data/test/data/attic/bindings-output.rb

@@ -0,0 +1,31 @@
+
+require 'test/unit'
+
+class TestFoo < Test::Unit::TestCase
+  def setup
+    @o = []
+  end
+
+  def test_foo
+    a = 1
+    b = a
+    assert_equal a, b
+    assert_equal 1, b
+  end
+
+  def test_arr
+    last = 1
+    @o << last
+    assert_equal last, @o.last
+    assert_equal 1, @o.last
+  end
+
+  def test_bar
+    a = b = c = 1
+    d = a
+    assert_equal a, d
+    assert_equal b, d
+    assert_equal c, d
+    assert_equal 1, d
+  end
+end

data/test/data/attic/completion-input.rb

@@ -0,0 +1 @@
+Array.new(3).uni

data/test/data/attic/completion-output.rb

@@ -0,0 +1,2 @@
+uniq
+uniq!

data/test/data/attic/completion_class_info-input.rb

@@ -0,0 +1 @@
+Array.new(3).s

data/test/data/attic/completion_class_info-output.rb

@@ -0,0 +1,10 @@
+select	Array#select
+send	Object#send
+shift	Array#shift
+singleton_methods	Object#singleton_methods
+size	Array#size
+slice	Array#slice
+slice!	Array#slice!
+sort	Array#sort
+sort!	Array#sort!
+sort_by	Enumerable#sort_by

data/test/data/attic/completion_class_info_no_candidates-input.rb

@@ -0,0 +1 @@
+Array.new(3).nonexisten

data/test/data/attic/completion_class_info_no_candidates-output.rb

@@ -0,0 +1 @@
+

data/test/data/attic/completion_detect_rbtest-input.rb

@@ -0,0 +1,7 @@
+#!/usr/bin/env ruby
+=begin test_bar
+assert_equal "BAR", bar("bar")
+=end
+def bar(s)
+  s.upca
+end

data/test/data/attic/completion_detect_rbtest-output.rb

@@ -0,0 +1,2 @@
+upcase
+upcase!

data/test/data/attic/completion_detect_rbtest2-input.rb

@@ -0,0 +1 @@
+Array.new(3).uni

data/test/data/attic/completion_detect_rbtest2-output.rb

@@ -0,0 +1,2 @@
+uniq
+uniq!

data/test/data/attic/completion_emacs-input.rb

@@ -0,0 +1 @@
+Array.new(3).uni

data/test/data/attic/completion_emacs-output.rb

@@ -0,0 +1,6 @@
+(progn
+(setq rct-method-completion-table '(("uniq") ("uniq!") ))
+(setq alist '(("uniq\t[Array#uniq]") ("uniq!\t[Array#uniq!]") ))
+(setq pattern "uni")
+(try-completion pattern rct-method-completion-table nil)
+)

data/test/data/attic/completion_emacs_icicles-input.rb

@@ -0,0 +1 @@
+1.div

data/test/data/attic/completion_emacs_icicles-output.rb

@@ -0,0 +1,6 @@
+(progn
+(setq rct-method-completion-table '(("div\t[Fixnum#div]") ("divmod\t[Fixnum#divmod]") ))
+(setq alist '(("div" . "Fixnum#div")("divmod" . "Fixnum#divmod")))
+(setq pattern "div")
+(setq klass "Fixnum")
+)

data/test/data/attic/completion_in_method-input.rb

@@ -0,0 +1,3 @@
+def fooz
+  [].lengt
+end

data/test/data/attic/completion_in_method-output.rb

@@ -0,0 +1 @@
+length

data/test/data/attic/completion_in_method-test.rb

@@ -0,0 +1,6 @@
+require 'test/unit'
+class TestFooz < Test::Unit::TestCase
+  def test_fooz
+    assert_equal(0, fooz)
+  end
+end

data/test/data/attic/completion_rbtest-input.rb

@@ -0,0 +1,7 @@
+#!/usr/bin/env ruby
+=begin test_bar
+assert_equal "BAR", bar("bar")
+=end
+def bar(s)
+  s.upca
+end

data/test/data/attic/completion_rbtest-output.rb

@@ -0,0 +1,2 @@
+upcase
+upcase!

data/test/data/attic/doc-input.rb

@@ -0,0 +1 @@
+[].length

data/test/data/attic/doc-output.rb

@@ -0,0 +1 @@
+Array#length

data/test/data/attic/doc_detect_rbtest-input.rb

@@ -0,0 +1 @@
+[].length

data/test/data/attic/doc_detect_rbtest-output.rb

@@ -0,0 +1 @@
+Array#length

data/test/data/attic/doc_detect_rbtest2-input.rb

@@ -0,0 +1,7 @@
+#!/usr/bin/env ruby
+=begin test_bar
+assert_equal "BAR", bar("bar")
+=end
+def bar(s)
+  s.upcase
+end

data/test/data/attic/doc_detect_rbtest2-output.rb

@@ -0,0 +1 @@
+String#upcase

data/test/data/attic/doc_rbtest-input.rb

@@ -0,0 +1,7 @@
+#!/usr/bin/env ruby
+=begin test_bar
+assert_equal "BAR", bar("bar")
+=end
+def bar(s)
+  s.upcase
+end

data/test/data/attic/doc_rbtest-output.rb

@@ -0,0 +1 @@
+String#upcase

data/test/data/attic/no_warnings-input.rb

@@ -0,0 +1,3 @@
+A = 1
+A = 1
+p (1)

data/test/data/attic/no_warnings-output.rb

@@ -0,0 +1,4 @@
+A = 1
+A = 1
+p (1)
+# >> 1

data/test/data/attic/refe-input.rb

@@ -0,0 +1 @@
+[].length

data/test/data/attic/refe-output.rb

@@ -0,0 +1 @@
+refe 'Array#length'

data/test/data/attic/ri-input.rb

@@ -0,0 +1 @@
+[].length

data/test/data/attic/ri-output.rb

@@ -0,0 +1 @@
+ri 'Array#length'

data/test/data/attic/ri_emacs-input.rb

@@ -0,0 +1 @@
+[].length

data/test/data/attic/ri_emacs-output.rb

@@ -0,0 +1 @@
+(rct-find-tag-or-ri "Array#length")

data/test/data/attic/ri_vim-input.rb

@@ -0,0 +1 @@
+[].length

data/test/data/attic/ri_vim-output.rb

@@ -0,0 +1 @@
+call RCT_find_tag_or_ri("Array#length")

data/test/data/attic/rspec-input.rb

@@ -0,0 +1,48 @@
+
+class X
+  Y = Struct.new(:a)
+  def foo(b); b ? Y.new(2) : 2 end
+  def bar; raise "No good" end
+  def baz; nil end
+  def fubar(x); x ** 2.0 + 1 end
+  def babar; [1,2] end
+  A = 1
+  A = 1
+end
+
+
+describe "xmpfilter's expectation expansion" do
+  before do
+    @o = X.new
+  end
+
+  it "should expand should == expectations" do
+    @o.foo(true)   # =>
+    @o.foo(true).a # =>
+    @o.foo(false)  # =>
+  end
+  
+  it "should expand should raise_error expectations" do
+    @o.bar         # =>
+  end
+
+  it "should expand should be_nil expectations" do
+    @o.baz         # =>
+  end
+
+  it "should expand correct expectations for complex values" do
+    @o.babar       # =>
+  end
+
+  it "should expand should be_close expectations" do
+    @o.fubar(10)   # =>
+  end
+end
+
+describe "xmpfilter's automagic binding detection" do
+  it "should expand should == expectations" do
+    a = b = c = 1
+    d = a
+    d                                              # =>
+  end
+end

data/test/data/attic/rspec-output.rb

@@ -0,0 +1,52 @@
+
+class X
+  Y = Struct.new(:a)
+  def foo(b); b ? Y.new(2) : 2 end
+  def bar; raise "No good" end
+  def baz; nil end
+  def fubar(x); x ** 2.0 + 1 end
+  def babar; [1,2] end
+  A = 1
+  A = 1 # !> already initialized constant A
+end
+
+
+describe "xmpfilter's expectation expansion" do
+  before do
+    @o = X.new
+  end
+
+  it "should expand should == expectations" do
+    (@o.foo(true)).should be_a_kind_of(X::Y)
+    (@o.foo(true).inspect).should == ("#<struct X::Y a=2>")
+    (@o.foo(true).a).should == (2)
+    (@o.foo(false)).should == (2)
+  end
+  
+  it "should expand should raise_error expectations" do
+    lambda{@o.bar}.should raise_error(RuntimeError)
+  end
+
+  it "should expand should be_nil expectations" do
+    (@o.baz).should be_nil
+  end
+
+  it "should expand correct expectations for complex values" do
+    (@o.babar).should == ([1, 2])
+  end
+
+  it "should expand should be_close expectations" do
+    (@o.fubar(10)).should be_close(101.0, 0.0001)
+  end
+end
+
+describe "xmpfilter's automagic binding detection" do
+  it "should expand should == expectations" do
+    a = b = c = 1
+    d = a
+    (d).should == (a)
+    (d).should == (b)
+    (d).should == (c)
+    (d).should == (1)
+  end
+end