tdoc 0.13.0 → 0.13.1

data/bin/tdoc.rb

@@ -1,7 +1,7 @@
 #!/usr/bin/ruby
 require 'rubygems'
 require 'test/unit'
-require 'shoulda'
+require 'contest'
 require 'irb'
 
 $: << 'lib'
@@ -70,7 +70,7 @@ def mk_test_context(file, test_case=nil)
         eval setup_text.to_a.join(';') 
       end
       tests.each do |test|
-        should test[0] do
+        should test[0].to_s do
           eval test[1] 
         end
       end

data/bin/tdoc_idea.rb

@@ -0,0 +1,124 @@
+#!/usr/bin/ruby
+require 'rubygems'
+require 'test/unit'
+require 'shoulda'
+require 'irb'
+
+$: << 'lib'
+
+LINST='^[#|\s]*'
+EXTENSIONS={:tests => '.rdoc',:requires => '.rb'}
+DEFAULT_FILE=["README#{EXTENSIONS[:tests]}"]
+
+START_IRB="IRB.setup nil; IRB.conf[:MAIN_CONTEXT] = IRB::Irb.new.context; require 'irb/ext/multi-irb'; IRB.irb nil, self"
+
+def process(files) #called at end of script
+  if files.class==Array 
+    files.each {|f|  
+      puts "\n\n--------------------\n#{f}:\n\n"
+      result=system("#{$PROGRAM_NAME} #{f} #{ARGV}")
+      puts "\n\nERRORS IN TEST #{f}!!!\n\n" unless result
+    }
+  else
+    test_name=File.basename(files).sub(/\..*?$/,'')
+    test_case=Class.new(Test::Unit::TestCase)
+    Object.const_set(:"Test#{test_name.capitalize}", test_case)
+    mk_test_context(files, test_case)
+  end
+end
+
+def parse_file(file, test_case=nil)
+  test_name=File.basename(file).sub(/\..*?$/,'')
+  text=File.read(file)
+  unless test_case
+    test_case=Class.new(Test::Unit::TestCase)
+    Object.const_set(:"Test#{test_name.capitalize}", test_case)
+  end
+  test_dir=File.dirname(file)
+  external_files={
+    :requires => Dir.glob("#{test_dir}/#{test_name}#{EXTENSIONS[:requires]}"),
+    :contexts => Dir.glob("#{test_dir}/#{test_name}/*#{EXTENSIONS[:tests]}"),
+    :tests => [],
+  }
+  [:requires, :tests].each do |opt|
+    text.scan(/#{LINST}:include:\s*(.+#{EXTENSIONS[opt]})/).each do |files|
+      files[0].split(',').each do |f|
+        external_files[opt] << f unless f.match(/^blob/)
+      end
+    end
+  end
+  external_files[:requires].each {|r| require "#{r}" if FileTest.exist? "#{r}" }
+  external_files[:tests].each {|t| parse_file("#{test_dir}/#{t}") unless t.match(/#{test_name}/)}
+  external_files[:contexts].each {|c| text+=File.read(c)}
+end
+def mk_context(text)
+end
+def mk_test(text)
+end
+
+def mk_test_context(file, test_case=nil)
+  test_name=File.basename(file).sub(/\..*?$/,'')
+  test_dir=File.dirname(file)
+  $: << test_dir unless $:.include?(test_dir)
+  text=File.read(file)
+  opts={
+    :requires => Dir.glob("#{test_dir}/#{test_name}#{EXTENSIONS[:requires]}"),
+    :contexts => Dir.glob("#{test_dir}/#{test_name}/*#{EXTENSIONS[:tests]}"),
+    :tests => [],
+  }
+  [:requires, :tests].each do |opt|
+    text.scan(/#{LINST}:include:\s*(.+#{EXTENSIONS[opt]})/).each do |files|
+      files[0].split(',').each do |f|
+        opts[opt] << f unless f.match(/^blob/)
+      end
+    end
+  end
+  opts[:requires].each {|r| require "#{r}" if FileTest.exist? "#{r}" }
+  opts[:tests].delete_if {|c| c.match(/#{test_name}/)}
+  setup_text=text.sub(/(.*)\n#{LINST}setup\s*\n/m,'').sub(/\n#{LINST}end(.*)/m,'') if text.match(/#{LINST}setup\s*$/)
+  tests=text.split(/#{LINST}[Ee]xamples?:/).to_a[1..-1].to_a.map do |test|
+    test.gsub!(/#{LINST}>>\s*(.+)\n#{LINST}=>\s*(.+)/) {|m| 
+      expected, actual=[$2,$1]
+      #assert_equal cannot take a hash as its first argument
+      expected.sub!(/^\{(.*)\}\s*$/) {|m| "Hash[#{$1}]"}
+      "assert_equal #{expected}, #{actual}"
+    }
+    lines=test.split(/\n/)
+    test_text=lines.map {|l| 
+      if l.match(/#{LINST}!!!/)
+        START_IRB
+      else
+        l.match(/#{LINST}(assert.+)/) && $1
+      end
+    }.compact.join ";\n"
+    [lines[0], test_text]
+  end
+  tests=[['work',"assert(true);"]] if tests.empty? #avoids "no tests specified" error
+  context_proc=lambda {
+    context test_name do
+      setup do
+        eval setup_text.to_a.join(';') 
+      end
+      tests.each do |test|
+        should test[0] do
+          eval test[1] 
+        end
+      end
+      opts[:contexts].compact.each do |c| 
+        mk_test_context(c).call
+      end
+    end
+  }
+  if test_case
+    test_case.module_eval {mk_test_context(file).call}
+    process opts[:tests] unless opts[:tests].empty?
+  else
+    context_proc
+  end
+end
+if glob=ARGV.shift
+  files=Dir.glob(glob)
+  process(files.count > 1 ? files : files[0])
+else
+  process(DEFAULT_FILE)
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: tdoc
 version: !ruby/object:Gem::Version 
-  version: 0.13.0
+  version: 0.13.1
 platform: ruby
 authors: 
 - Herb Daily
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2011-12-11 00:00:00 -03:00
+date: 2012-01-07 00:00:00 -03:00
 default_executable: tdoc.rb
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -33,6 +33,7 @@ extra_rdoc_files: []
 files: 
 - README.rdoc
 - bin/tdoc.rb
+- bin/tdoc_idea.rb
 - rdoc/example.rb
 - rdoc/example.rdoc
 - lib/rdoc/parsers/tdoc.rb