ruby-web 1.1.1

data/lib/webunit/runtest.rb

@@ -0,0 +1,41 @@
+module WebUnit ; end
+
+def WebUnit.dispatch(args)
+  f_type = args.shift
+  case f_type
+  when '-fr'
+    ['AVAILABLE_FRAMEWORKS', %w(RubyUnit runit/testcase)]
+  when '-ft'
+    ['AVAILABLE_FRAMEWORKS', %w(Test::Unit test/unit/testcase)]
+  when '-xr'
+    ['AVAILABLE_XMLPARSERS', %w(REXML rexml/document)]
+  when '-xn'
+    ['AVAILABLE_XMLPARSERS', %w(NQXML nqxml/treeparser)]
+  else
+    args.unshift(f_type)
+    nil
+  end
+end
+
+def WebUnit.runtest(args)
+  if args.size > 0
+    while res = dispatch(args)
+      next if WebUnit.const_defined?(res[0])
+      WebUnit.const_set(res[0], [res[1]])
+    end
+    require 'webunit/ui/cui/testrunner'
+    test_runner = WebUnit::UI::CUI::TestRunner.new
+    args.each {|f| require f}
+    test_runner.run
+  else
+    puts "#{File.basename($0)} [-fr|-ft|-xr|-xn] testfile1 [, testfile2, ...]"
+    puts "\t-fr : use RubyUnit as Testing Framework"
+    puts "\t-ft : use Test::Unit as Testing Framework(default)"
+    puts "\t-xr : use REXML as XML parser(default)"
+    puts "\t-xn : use NQXML as XML parser"
+  end
+end
+
+if $0 == __FILE__
+  WebUnit.runtest(ARGV)
+end

data/lib/webunit/table.rb

@@ -0,0 +1,148 @@
+=begin
+= WebUnit::Table/TableRow/TableCell/NilTableCell
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: table.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
+=end
+
+module WebUnit
+
+  class Table < HtmlElem
+
+    attr_reader :rows
+
+    def initialize( ah )
+      super( 'table', ah )
+      @rows = []
+    end
+
+    def add_row( ah )
+      @rows.push( TableRow::new( ah ) )
+    end
+
+    def add_cell( cell )
+      p = @rows.last.size + 1
+      if @rows.size > 1 && @rows[-2].at(p) && @rows[-2].at(p).rs > 1 then
+        @rows.last.add( @rows[-2].at(p) )
+        @rows[-2].at(p).rs -= 1
+      end
+      @rows.last.add( cell )
+      while cell.cs > 1 do
+        @rows.last.add( cell )
+        cell.cs -= 1
+      end
+    end
+
+=begin
+--- Table#at(r,c=nil)
+      return a TableCell, when two arguments(row,col) specified.
+      return a TableRow, when a argument(row) specified.
+      r and c is both beginning from 1.
+=end
+
+    def at( r, c=nil )
+      if r < 1
+        raise ArgumentError
+      end
+      if c == nil
+        if @rows == [] || @rows.size < r
+          raise
+        end
+        @rows[r-1]
+      else
+        if c < 1
+          raise ArgumentError
+        end
+        if @rows == [] || @rows.size < r || @rows[r-1].size < c
+          NilTableCell::new
+        else
+          @rows[r-1].at(c)
+        end
+      end
+    end
+
+=begin
+--- Table#row_index( data, col=1 )
+=end
+
+    def row_index( data, col=1 )
+      row = nil
+      (1..@rows.size).each do |row|
+        break unless self.at(row,col).search( data ) == []
+      end
+      row
+    end
+
+=begin
+--- Table#col_index( data, row=1 )
+=end
+    def col_index( data, row=1 )
+      col = nil
+      (1..(self.at(row).size)).each do |col|
+        break unless self.at(row,col).search( data ) == []
+      end
+      col
+    end
+
+  end
+
+  class TableRow < HtmlElem
+
+    def initialize( ah )
+      super( 'tr', ah )
+      @cols = []
+    end
+
+=begin
+--- TableRow#size
+      return column number.
+=end
+
+    def size
+      @cols.size
+    end
+
+    def add( col )
+      @cols << col
+    end
+
+=begin
+--- TableRow#at( c )
+      return TableCell, pointed by ((|c|)).
+      c is beginning from 1.
+=end
+
+    def at( c )
+      @cols[c-1]
+    end
+
+  end
+
+  class TableCell < HtmlElem
+
+    attr_reader :data, :colspan, :rowspan
+
+    attr_accessor :cs, :rs
+
+    def initialize( tag, ah )
+      super
+      @colspan = ah['colspan']
+      @rowspan = ah['rowspan']
+      @cs = @colspan.to_i || 1
+      @rs = @rowspan.to_i || 1
+    end
+
+  end
+
+  class NilTableCell < TableCell
+
+    def initialize
+      super( 'dummy', {} )
+    end
+
+    def data
+      nil
+    end
+
+  end
+
+end

data/lib/webunit/testcase.rb

@@ -0,0 +1,45 @@
+=begin
+= WebUnit::TestCase
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: testcase.rb,v 1.2 2004/02/11 04:26:38 yuichi Exp $
+=end
+
+require 'webunit/converter'
+
+module WebUnit
+
+  class TestCase
+
+    include WebUnit
+    include Utils
+
+    def initialize( method, name=self.class.name )
+      case USING_FRAMEWORK
+      when 'Test::Unit'
+        super(method)
+      when 'RubyUnit'
+        super
+      else
+        super
+        # raise??
+      end
+      @urlbase = ENV['URLBASE'] ? ENV['URLBASE'] : 'http://localhost/'
+      @urlbase = orthop_url( @urlbase )
+      @urlbase << '/' unless @urlbase =~ %r!/$!
+      $stderr.puts "URLBASE is #{@urlbase}" if $DEBUG
+    end
+
+    def setup
+      $URLBASE = @urlbase
+      Response::reset
+      @cookies_kept = Cookies::instance.cookies
+    end
+
+    def teardown
+      Response::reset
+      Cookies::instance.cookies = @cookies_kept
+    end
+
+  end
+
+end

data/lib/webunit/ui/cui/testrunner.rb

@@ -0,0 +1,50 @@
+require 'webunit/converter'
+
+module WebUnit
+  module UI
+    module CUI
+      class TestRunner
+
+        def initialize(quiet_mode=true)
+          case USING_FRAMEWORK
+          when 'Test::Unit'
+            require 'test/unit/ui/console/testrunner'
+            @runner = Test::Unit::UI::Console::TestRunner
+          when 'RubyUnit'
+            require 'runit/cui/testrunner'
+            @runner = RUNIT::CUI::TestRunner.new
+          end
+          quiet_mode(quiet_mode)
+        end
+
+        def quiet_mode(boolean)
+          case USING_FRAMEWORK
+          when 'RubyUnit'
+            @runner.class.quiet_mode = boolean
+          end
+        end
+
+        def all_suite
+          case USING_FRAMEWORK
+          when 'Test::Unit'
+            suite_name = $0.sub(/\.rb$/, '')
+            suite = TestSuite.new(suite_name)
+            test_classes = []
+            ObjectSpace.each_object(Class) do |klass|
+              test_classes << klass if TestCase > klass
+            end
+            test_classes.each {|klass| suite << klass.suite}
+            suite
+          when 'RubyUnit'
+            TestCase.all_suite
+          end
+        end
+
+        def run(suite=all_suite)
+          @runner.run(suite)
+        end
+
+      end
+    end
+  end
+end

data/lib/webunit/utils.rb

@@ -0,0 +1,68 @@
+=begin
+= WebUnit::Utils
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: utils.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
+
+=end
+
+module WebUnit
+
+  module Utils
+
+=begin
+--- Utils#parse_url(url)
+      return an Array of protocol, hostname, port, and path.
+
+=end
+
+    def parse_url( url )
+      if url =~ %r!^([a-z]+)://([-0-9A-Aa-z_.]+):?([0-9]*)(/.*)?$!
+        [ $1, $2, $3 == "" ? 80 : $3.to_i, $4 ? $4 : '' ]
+      elsif url =~ %r!^file:(/.*)$!
+        [ 'file', nil, nil, $1 ]
+      else
+        [ nil, nil, nil, url ]
+      end
+    end
+
+=begin
+--- Utils#orthop_url(url)
+      return url, is orthopped by Utils#parse_url.
+
+=end
+
+    def orthop_url( url )
+      prot, host, port, path = parse_url url
+      path.gsub!( %r![^/]*/\.\./!, '/' )
+      path.gsub!( %r!/\.*/!, '/' )
+      "#{prot}://#{host}:#{port}#{path}"
+    end
+
+=begin
+--- Utils#complete_url(url,base)
+      return url, is completed with ((|base||).
+=end
+
+    def complete_url( url, base )
+      if base
+        prot,host,port,path = parse_url( base )
+        prefix = prot + "://" + host + ":" + port.to_s
+        case url
+        when nil then
+          url = base.sub( /\?.*/, '' )
+        when %r!^http://! then
+          url
+        when %r!^/! then
+          url = prefix + url
+        else
+          url = prefix + File::dirname( path ) + "/" + url
+        end
+        orthop_url( url )
+      else
+        url
+      end
+    end
+
+  end
+
+end

data/lib/webunit/webunit.rb

@@ -0,0 +1,28 @@
+=begin
+= WebUnit
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: webunit.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
+=end
+
+require 'webunit/converter'
+require 'webunit/utils'
+require 'webunit/exception'
+require 'webunit/assert'
+require 'webunit/htmlelem'
+require 'webunit/link'
+require 'webunit/frame'
+require 'webunit/image'
+require 'webunit/jscript'
+require 'webunit/testcase'
+require 'webunit/cookie'
+require 'webunit/params'
+require 'webunit/form'
+require 'webunit/parser'
+require 'webunit/response'
+require 'webunit/table'
+begin
+  require 'webunit/domwalker'
+rescue LoadError
+end
+
+WebUnit::TestCase::new( 'nil?' ).setup

data/test/dev/action.rb

@@ -0,0 +1,83 @@
+module Web
+  class Action #:nodoc:
+    attr_reader :patterns
+    def initialize patterns={}, &function
+      @patterns = patterns
+      @function = function || lambda{}
+      Thread.current[:actions] ||= [ ]
+      Thread.current[:actions].push self
+    end
+
+    def run cgi=Web::CGI.create
+      @function.call( cgi )
+    end
+    
+    def old_applies? cgi
+      matches = false
+      patterns.each{ |key, pattern|
+        cgi.multiple_params[key].each{ |value|
+          if pattern.kind_of? Regexp
+            matches = true if value =~ pattern
+          else
+            matches = true if value == pattern
+          end
+        }
+      }
+      matches
+    end
+
+    def applies? cgi
+      relevance = 0;
+      unmatched_terms = patterns.size;
+      patterns.each{ |key, pattern|
+        if pattern.kind_of? Regexp
+          if cgi.multiple_params[key].find{ |value| value =~ pattern }
+            unmatched_terms = unmatched_terms - 1
+            relevance += 1
+          end
+        else
+          if cgi.multiple_params[key].find{ |value| value == pattern }
+            unmatched_terms = unmatched_terms - 1
+            relevance += 10
+          end
+        end
+      }
+      if unmatched_terms == 0
+        relevance
+      else
+        false
+      end
+    end
+    
+    def Action.pick( cgi )
+      Thread.current[:actions] ||= [ ]
+      Thread.current[:actions].find_all do |action|
+        action.applies? cgi
+      end.sort do |a, b|
+        a.applies?(cgi) <=> b.applies?(cgi)
+      end.last || Thread.current[:actions].find do |action|
+        action.patterns == {}
+      end || blank_action
+      
+      #	    (raise Web::Exception.new( "Could not locate action for #{ cgi.multiple_params.inspect }" ))
+    end
+    
+    def Action.blank_action
+      blank = Action.new
+      Thread::current[:actions].delete blank
+      blank
+    end
+
+    def Action.run options={}
+      if options.kind_of? Hash
+        Web.process(options) do |cgi|
+          pick(cgi).run(cgi)
+        end
+      elsif options.kind_of? Web::CGI
+        pick(options).run(options)
+        options.close
+        options
+      end
+    end
+  end
+end