narf 0.5.1

data/lib/web/unit/testcase.rb

@@ -0,0 +1,49 @@
+=begin
+= Web::Unit::TestCase
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: testcase.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
+=end
+
+require 'web/unit/converter'
+
+module Web
+  module Unit #:nodoc: all
+
+  class TestCase
+
+    include Web::Unit
+    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
+
+    def test_make_testunit_stop_complaining_about_no_tests
+
+    end
+  end
+end
+end

data/lib/web/unit/ui/cui/testrunner.rb

@@ -0,0 +1,52 @@
+require 'web/unit/converter'
+
+module Web
+  module Unit #:nodoc: all
+    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
+end

data/lib/web/unit/ui/cui/testrunner.rb~

@@ -0,0 +1,50 @@
+require 'web/unit/converter'
+
+module WebUnit #:nodoc: all
+  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/web/unit/utils.rb

@@ -0,0 +1,70 @@
+=begin
+= Web::Unit::Utils
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: utils.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
+
+=end
+
+module Web
+  module Unit #:nodoc: all
+
+  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
+end

data/lib/web/unit/webunit.rb

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

data/lib/web/upload.rb

@@ -0,0 +1,55 @@
+require 'tempfile'
+
+module Web
+  # == Purpose
+  # This class delegates to the uploaded Tempfile, and adds
+  # content type and original filename attributes.
+  #
+  # If you are testing a multipart/form, use this class
+  # to pretend you uploaded a file:
+  #
+  #     "uploaded_file" => Upload.new(anIO,
+  #                                   "image/png",
+  #                                   "my_favorite_image.png" )
+  #
+  # See Web::Testing for more information.
+  #
+  class Upload
+    attr_reader :content_type, :original_filename
+    
+    def initialize( tempfile, content_type, original_filename )
+      if (tempfile.is_a? String)
+        contents = File.open( tempfile, "r" ) { |f| f.read }
+        tempfile = Tempfile.new("Web")
+        tempfile.binmode
+        tempfile.write contents
+        tempfile.rewind
+      end		
+      
+      @content_type = content_type
+      @original_filename = original_filename
+      @tempfile = tempfile
+    end
+    
+    # use this method to move an upload somewhere you care about
+    def write_to_file( filename )
+      File.open( filename, "w" ) { |f|
+        f.binmode
+        f.write( self.read )
+      }
+    end
+    
+    # how do I get the contents of an upload?
+    def read
+      @tempfile.rewind
+      @tempfile.read
+    end
+    
+    # how do I get in IO object from an upload?
+    def open
+      @tempfile.rewind
+      yield @tempfile
+    end
+  end
+
+end

data/lib/web/upload.rb~

@@ -0,0 +1,262 @@
+require 'tempfile'
+
+module Web
+  # == Purpose
+  # This class delegates to the uploaded Tempfile, and adds
+  # content type and original filename attributes.
+  #
+  # If you are testing a multipart/form, use this class
+  # to pretend you uploaded a file:
+  #
+  #     "uploaded_file" => Upload.new(anIO,
+  #                                   "image/png",
+  #                                   "my_favorite_image.png" )
+  #
+  # See Web::Testing for more information.
+  #
+  class Upload
+    attr_reader :content_type, :original_filename
+    
+    def initialize( tempfile, content_type, original_filename )
+      if (tempfile.is_a? String)
+        contents = File.open( tempfile, "r" ) { |f| f.read }
+        tempfile = Tempfile.new("Web")
+        tempfile.binmode
+        tempfile.write contents
+        tempfile.rewind
+      end		
+      
+      @content_type = content_type
+      @original_filename = original_filename
+      @tempfile = tempfile
+    end
+    
+    # use this method to move an upload somewhere you care about
+    def write_to_file( filename )
+      File.open( filename, "w" ) { |f|
+        f.binmode
+        f.write( self.read )
+      }
+    end
+    
+    # how do I get the contents of an upload?
+    def read
+      @tempfile.rewind
+      @tempfile.read
+    end
+    
+    # how do I get in IO object from an upload?
+    def open
+      @tempfile.rewind
+      yield @tempfile
+    end
+  end
+  
+  
+  
+  # === Purpose
+  # Web::Request parses the cookies and parameters and contains methods to access them.
+  #
+  module Request #:nodoc:
+    def Request.normalize( params )              #:nodoc:
+      params.each { |key, value|
+        unless value.kind_of? Array
+          params[key] = [value]
+        end
+      }
+      params.default = []
+      params
+    end
+    
+    def Request.cookies(mock=nil)
+      Request.normalize( mock || Request.parse_cookie( ENV['HTTP_COOKIE'] || ENV['COOKIE'] ) )
+    end
+    
+    def Request.parse_cookie(raw_cookie) #:nodoc:
+      cookies = Hash.new([])
+      return cookies unless raw_cookie
+      
+      raw_cookie.split(/; /).each do |pairs|
+        name, values = pairs.split('=',2)
+        name = Web::unescape(name)
+        values ||= ""
+        values = values.split('&').collect{|v| Web::unescape(v) }
+        if cookies.has_key?(name)
+          cookies[name].push(*values)
+        else
+          cookies[name] = values
+        end
+      end
+      
+      cookies
+    end    
+    
+    def Request.parse             #:nodoc:
+      if (multipart?)
+        parse_multipart
+      else
+        parse_query_string( query_string )
+      end
+    end
+    
+    def Request.query_string
+      case ENV["REQUEST_METHOD"]
+      when "GET", "HEAD"
+        if (defined? MOD_RUBY) # <= this check is untested.
+          #    search the test files for
+          #    test_parse_get_with_mod_ruby
+          #    for an explanation
+          mod_ruby_query_string
+        else
+          ENV["QUERY_STRING"]
+        end
+      when "POST"
+        $stdin.binmode
+        $stdin.read(Integer(ENV['CONTENT_LENGTH']))
+      end
+    end
+    
+    # this method solely exists b/c of difficulties setting MOD_RUBY dynamically.
+    # so this method exists so I can test the effect separately
+    # from the (currently untestable) cause
+    def Request.mod_ruby_query_string     #:nodoc:
+      Apache::request.args
+    end
+    
+    def Request.parse_query_string(query) #:nodoc:
+      query ||= ""
+      params = Hash.new([])
+      
+      query.split(/[&;]/n).each do |pairs|
+        key, value = pairs.split('=',2).collect{|v| Web::unescape(v) }
+        if params.has_key?(key)
+          params[key].push(value)
+        else
+          params[key] = [value]
+        end
+      end
+      
+      params
+    end
+    
+    
+    # note this returns the un-arrayified version of the array
+    def Request.parse_query_string_typed(query) #:nodoc: :notest:
+      params = parse_query_string query
+      params2 = {}
+      params.collect do |k,v|
+        if ! (k =~ /type/)
+          if (atype = params["#{k}#type"][0]) 
+            params2[k] = Module.const_get(atype.intern).unencode(v[0])
+          else
+            params2[k] = v[0]
+          end
+        end
+      end
+      params2
+    end
+    
+    def Request.multipart?
+      ("POST" == ENV['REQUEST_METHOD']) &&
+            (/multipart\/form-data/.match(ENV['CONTENT_TYPE']))
+    end
+    
+    def Request.parse_multipart    #:nodoc:
+      %r|\Amultipart/form-data.*boundary=\"?([^\";,]+)\"?|n.match(ENV['CONTENT_TYPE'])
+      boundary = $1.dup
+      
+      read_multipart(boundary, Integer(ENV['CONTENT_LENGTH']))
+    end
+    
+    EOL="\r\n"
+    
+    def Request.read_multipart(boundary, content_length)  #:nodoc:
+      params = Hash.new([])
+      boundary = "--" + boundary
+      buf = ""
+      bufsize = 10 * 1024
+      
+      # start multipart/form-data
+      $stdin.binmode
+      boundary_size = boundary.size + EOL.size
+      content_length -= boundary_size
+      status = $stdin.read(boundary_size)
+      if nil == status
+        raise EOFError, "no content body"
+      end
+      
+      until -1 == content_length
+        head = nil
+        body = Tempfile.new("Web")
+        body.binmode
+        
+        until head and /#{boundary}(?:#{EOL}|--)/n.match(buf)
+          
+          if head
+            trim_size = (EOL + boundary + EOL).size
+            if trim_size < buf.size
+              body.print buf[0 ... (buf.size - trim_size)]
+              buf[0 ... (buf.size - trim_size)] = ""
+            end
+          elsif /#{EOL}#{EOL}/n.match(buf)
+            buf = buf.sub(/\A((?:.|\n)*?#{EOL})#{EOL}/n) do
+              head = $1.dup
+              ""
+            end
+            next
+          end
+          
+          c = if bufsize < content_length
+                $stdin.read(bufsize) or ''
+              else
+                $stdin.read(content_length) or ''
+              end
+          buf.concat c
+          content_length -= c.size
+          
+        end
+        
+        
+        /Content-Disposition:.* filename="?([^\";]*)"?/ni.match(head)
+        filename = ($1 or "").dup
+        if /Mac/ni.match(ENV['HTTP_USER_AGENT']) and
+            /Mozilla/ni.match(ENV['HTTP_USER_AGENT']) and
+            (not /MSIE/ni.match(ENV['HTTP_USER_AGENT']))
+          filename = Web::unescape(filename)
+        end
+        
+        /Content-Type: (.*)/ni.match(head)
+        content_type = ($1 or "").strip
+        
+        buf = buf.sub(/\A((?:.|\n)*?)(?:#{EOL})?#{boundary}(#{EOL}|--)/n) do
+          body.print $1
+          if "--" == $2
+            content_length = -1
+          end
+          ""
+        end
+        
+        body.rewind
+        
+        if (content_type.empty?)
+          upload = body.read
+        else
+          upload = Web::Upload.new( body, content_type, filename )
+        end
+
+        /Content-Disposition:.* name="?([^\";]*)"?/ni.match(head)
+        name = $1.dup
+        
+        if params.has_key?(name)
+          params[name].push(upload)
+        else
+          params[name] = [upload]
+        end
+        
+      end
+      
+      params
+    end # read_multipart
+    
+  end
+end