ruby-web 1.1.1

data/lib/webunit/exception.rb

@@ -0,0 +1,14 @@
+=begin
+= WebUnit::exception
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: exception.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
+=end
+
+module WebUnit
+
+  class HttpNotFound < StandardError; end
+  class ElemNotFound < StandardError; end
+  class BadHtmlTags  < StandardError; end
+  class BadOperation < StandardError; end
+
+end

data/lib/webunit/form.rb

@@ -0,0 +1,116 @@
+=begin
+= WebUnit::Form
+  Copyright(C) 2001 yuichi TAKAHASHI, Narushima Hironori.
+  $Id: form.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
+=end
+module WebUnit
+
+  BOUNDARY = '--divider'
+
+  class Form < HtmlElem
+
+    attr_accessor :name, :action, :method, :encoding
+    attr_reader :parameters, :params
+
+    def initialize( ah )
+      super( 'form', ah )
+      @parameters = []    # index by int
+      @params = {}        # index by name
+      @action = ah["name"]
+      @action = ah["action"]
+      @method = ah["method"] == nil ? "GET" : ah["method"]
+      #print @action,":",method,"\n"
+    end
+
+    def add_param( param )
+      @parameters.push param
+      if @params.key?param.name then
+        @params[param.name].update( param )
+        param.update( @params[param.name] )
+      else
+        @params[param.name] = param
+      end
+    end
+
+    def freeze
+      @parameters.freeze
+      @params.freeze
+    end
+
+=begin
+--- Form#set_params( hash )
+      fill up each fields, by name.
+=end
+
+    def set_params( hash )
+      hash.each do |k,v|
+        raise ArgumentError.new("wrong key: " + k) unless self.params[k]
+        self.params[k].value = v
+      end
+      self
+    end
+
+=begin
+--- Form#set_parameters( array )
+      fill up each fields, by index.
+=end
+
+    def set_parameters( array )
+      array.each_index do |i|
+        self.parameters[i].value = array[i]
+      end
+      self
+    end
+
+=begin
+--- Form#store_test_data(fields,data,s=',',button=nil)
+      store data to backend ( Database, File, ... ).
+      input csv data to each fields, and submit.
+=end
+
+    def store_test_data( fields, data, s=',', button=nil )
+      data.split( "\n" ).collect{ |r| r.strip.split( s ) }.each do |r|
+        fields.each_index{ |i| @params[fields[i]].value = r[i] }
+        self.submit( button )
+      end
+    end
+
+=begin
+--- Form#submit(button=nil,x=nil,y=nil)
+      submit form, and return a Response.
+=end
+    def submit( button=nil, x=nil, y=nil )
+      data = []
+      matched = nil
+      multipart = (attrs['enctype'] == 'multipart/form-data')
+      # make data from params
+
+      @parameters.each do |p|
+        puts "#{p.class}/#{p.name}/#{p.value}" if $DEBUG
+        if p.class == InputSubmit || p.class == InputImage
+          next unless p.name == button || p.value == button
+          matched = p
+          if p.class  == InputImage
+            p.x = x
+            p.y = y
+          end
+        end
+        
+        if multipart
+          data << p.multipart_query_data(BOUNDARY)
+          else
+          data << p.query_data
+        end
+      end
+      
+      if multipart
+        data = data.join('') + "--#{BOUNDARY}--\n"
+      else
+        data = data.compact.join('&')
+      end
+    
+      Response::new.init_http( @action, @method, data, false, multipart)
+    end
+  end
+
+end

data/lib/webunit/frame.rb

@@ -0,0 +1,37 @@
+=begin
+= WebUnit::Frame
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: frame.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
+=end
+
+module WebUnit
+
+  class Frame < HtmlElem
+
+    def initialize( ah )
+      super( 'frame', ah )
+      @src = ah["src"]
+      @name = ah["name"]
+    end
+
+=begin
+--- Frame#src
+      reader of 'src' attribute.
+--- Frame#name
+      reader of 'name' attribute.
+=end
+
+    attr_reader :src, :name
+
+=begin
+--- Frame#read
+      return a Response of getting of 'src' attribute.
+=end
+
+    def read
+      Response::new.init_http( @src, "GET" ) if @src != nil
+    end
+
+  end
+
+end

data/lib/webunit/htmlelem.rb

@@ -0,0 +1,122 @@
+=begin
+= WebUnit::HtmlElem
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: htmlelem.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
+=end
+
+module WebUnit
+
+  class HtmlElem
+
+    attr_reader :tag, :data, :attrs, :children, :array, :name
+
+    def initialize( tag, ah={} )
+      @children = []
+      @tag = tag
+      @attrs = ah
+      @data = ''
+      @array = []
+      @name = ah['name'] if ah
+    end
+
+    def append( data )
+      if data.is_a?( HtmlElem )
+        @children << data
+      else
+        @data  << data
+      end
+      @array << data
+    end
+
+    def extract
+      data = ''
+      @array.each do |e|
+        if e.is_a?( String )
+          data << " #{e} "
+        elsif e.is_a?( HtmlElem )
+          data << e.extract
+        end
+      end
+      data.squeeze( ' ' ).strip
+    end
+
+    def inspect
+      return "<#toplevel>" if @tag == nil
+      as = ''
+      attrs.each{ |k,v| as << " #{k}=#{v}" }
+      "<#{@tag+as}>:#{data}:"
+    end
+
+=begin
+--- HtmlElem#find(tag)
+      return an Array of HtmlElems, which have ((|tag|)).
+=end
+
+    def find( tag )
+      a = []
+      a.push self if @tag == tag
+      @children.each do |c|
+        a = a + c.find( tag )
+      end
+      a
+    end
+
+=begin
+--- HtmlElem#search(data)
+      return an Array of HtmlElems, which have ((|data|)).
+=end
+
+    def search( data )
+      a = []
+      a.push self if @data == data
+      @children.each do |c|
+        a = a + c.search( data )
+      end
+      a
+    end
+
+=begin
+--- HtmlElem#readlink(str)
+      return a Response, gotten with reading a Link have ((|str|)).
+      raise ElemNotFound exception, when no Links found.
+=end
+
+    def readlink( str )
+      self.find( 'a' ).each do |link|
+        return link.read if link.data == str
+      end
+      raise ElemNotFound, "no Links have '#{str}' as data."
+    end
+
+=begin
+--- HtmlElem#has?(elem)
+      return true, when self have ((|elem|)) as child.
+      otherwise, return false.
+      ((|elem|)) should be a HtmlElem or a String.
+=end
+
+    def has?( elem )
+      if elem.kind_of?( HtmlElem )
+        @children.include?( elem )
+      elsif elem.instance_of?( String )
+        @array.include?( elem )
+      else
+        false
+      end
+    end
+
+=begin
+--- HtmlElem#print(indent='') -- FOR TEST USE ONLY
+     print tree structure, from self to lower.
+=end
+
+    def print( indent='' ) # not tested :-(
+      puts indent + inspect
+      @children.each do |c|
+        c.print( indent + '  ' )
+      end
+    end
+
+  end # class HtmlElem
+
+end # module WebUnit

data/lib/webunit/image.rb

@@ -0,0 +1,26 @@
+=begin
+= WebUnit::Image
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: image.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
+=end
+
+require 'net/http'
+
+module WebUnit
+
+  class Image < HtmlElem
+
+    attr_reader :src, :alt, :width, :height, :border
+
+    def initialize( ah )
+      super( 'img', ah )
+      @src = ah["src"]
+      @alt = ah["alt"]
+      @width = ah["width"]
+      @height = ah["height"]
+      @border = ah["border"]
+    end
+
+  end
+
+end

data/lib/webunit/jscript.rb

@@ -0,0 +1,31 @@
+=begin
+= WebUnit::JSciriptOpenObject
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: jscript.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
+=end
+
+module WebUnit
+
+  class JSciriptOpenObject < HtmlElem
+
+    attr_reader :url, :file, :target
+
+    def initialize( ah )
+      super( 'open', ah )
+      @url = ah['url']
+      @file = ah['file']
+      @target = ah['target']
+    end
+
+=begin
+--- JSciriptOpenObject#read
+      return a Response of getting of '@url'
+=end
+
+    def read
+      Response::new.init_http( @url, "GET" ) if @url != nil
+    end
+
+  end
+
+end

data/lib/webunit/link.rb

@@ -0,0 +1,33 @@
+=begin
+= WebUnit::Link
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: link.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
+=end
+
+require 'net/http'
+
+module WebUnit
+
+  class Link < HtmlElem
+
+    attr_reader :href, :target, :onClick
+
+    def initialize( ah )
+      super( 'a', ah )
+      @href = ah["href"]
+      @target = ah["target"]
+      @onClick = ah["onclick"]
+    end
+
+=begin
+--- Link#read
+      return a Response of getting of '@href'
+=end
+
+    def read
+      Response::new.init_http( @href, "GET" ) if @href != nil
+    end
+
+  end
+
+end

data/lib/webunit/params.rb

@@ -0,0 +1,321 @@
+=begin
+= WebUnit::Param/...
+  Copyright(C) 2001 yuichi TAKAHASHI, Narushima Hironori.
+  $Id: params.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
+=end
+
+module WebUnit
+
+  class Param < HtmlElem
+
+    attr_reader :name, :type, :relations
+    attr_accessor :stat, :value
+
+    def initialize( tag, ah )
+      super
+      @type = ah["type"] ? ah["type"] : 'text'
+      @value = ah["value"]
+      @relations = []
+      @stat = ah.key?( 'checked' ) ? 'on' : 'off'
+    end
+
+    def update( p )
+      @relations << p
+    end
+
+    def query_data
+      value = @value ? CGI::escape( @value ) : ''
+      @name ? ( CGI::escape( @name ) + '=' + value ) : nil
+    end
+
+    def multipart_query_data( boundary)
+      value = @value ? @value : ''
+      
+      if (@name)
+        name = CGI::escape(@name)
+          "--#{boundary}\n" +
+          %!Content-Disposition: form-data; name="#{name}"\n! +
+          "\n" +
+          value + "\n"
+      else
+        nil
+      end
+    end
+  end
+
+  class Input < Param
+
+    def initialize( ah )
+      super( 'input', ah )
+    end
+    
+    def on
+      @stat = 'on'
+    end
+
+    def off
+      @stat = 'off'
+    end
+
+    def inspect
+      a = super + "[stat:#{@stat}]"
+    end
+
+  end
+
+  class InputRadio < Input
+
+    def on
+      @stat = 'on'
+      @relations.each do |r|
+        r.off
+      end
+    end
+
+    def query_data
+      value = @value ? CGI::escape( @value ) : ''
+      (@stat == 'on' and @name) ? CGI::escape(@name) + '=' + value : nil
+    end
+
+    def multipart_query_data( boundary)
+      if @stat == 'on'
+        super(boundary)
+      else
+        nil
+      end
+    end
+
+    def value=( v )
+      self.stat = self.value == v ? 'on' : 'off'
+      @relations.each do |e|
+        e.stat = e.value == v ? 'on' : 'off'
+      end
+    end
+  end
+
+  class InputCheckbox < Input
+    def query_data
+      value = @value ? CGI::escape( @value ) : 'on'
+      (@stat == 'on' and @name) ? @name + '=' + value : nil
+    end
+
+    def multipart_query_data( boundary)
+      if @stat == 'on'
+        super( boundary)
+      else
+        nil
+      end
+    end
+  end
+
+  class InputSubmit < Input
+    def query_data
+      value = CGI::escape( @value ? @value : 'Submit Query' )
+      @name ? CGI::escape(@name) + '=' + value : nil
+    end
+  end
+
+  class InputImage < Input
+    attr_writer :x, :y
+
+    def query_data
+      @name + '.x=' + @x.to_s + '&' + @name + '.y=' + @y.to_s
+    end
+    
+    def multipart_query_data( boundary)
+      "--#{boundary}\n" +
+      %!Content-Disposition: form-data; name="#{@name}.x"\n! +
+      "\n" +
+      @x.to_s + "\n" +
+      "--#{boundary}\n" +
+      %!Content-Disposition: form-data; name="#{@name}.y"\n! +
+      "\n" +
+      @y.to_s + "\n"
+    end
+  end
+
+  class InputReset < Input
+
+    def query_data
+      nil
+    end
+
+    def multipart_query_data( boundary)
+      nil
+    end
+    
+  end
+
+  class Select < Param
+
+    attr_reader :options
+
+    def initialize( ah )
+      super( 'select', ah )
+      @options = []
+      @size = ah["size"]
+      @type = 'select'
+    end
+
+    def add_option( option )
+      @options.push( option )
+    end
+
+    def end_option
+      if @size == nil && @options.reject { |o| o.stat == 'off' } == []
+        @options[0].select
+      end
+    end
+
+    def select( arr )
+      @options.each do |o|
+        o.deselect
+      end
+      arr.each do |e|
+        @options[e].select if e.kind_of?( Integer )
+        if e.kind_of?( String )
+          @options.each do |o|
+            o.select if o.value == e || o.data == e
+          end
+        end
+      end
+    end
+
+    def query_data
+      a = []
+      @options.each do |o|
+        a << o.query_data( @name )
+      end
+      s = a.compact.join('&')
+      s == '' ? nil : s
+    end
+
+    def multipart_query_data( boundary)
+      lines = ''
+      @options.each do |o|
+        data = o.multipart_query_data(boundary, @name)
+        lines << data if data
+      end
+      
+      lines
+    end
+
+    def value
+      arr = []
+      @options.each do |o|
+        arr << o.value if o.stat == 'on'
+      end
+      case arr.size
+        when 0 then nil
+        when 1 then arr[0]
+        else arr
+      end
+    end
+
+    def value= ( v )
+      @options.each do |o|
+        if o.value == v
+          o.select
+        else
+          o.deselect
+        end
+      end
+    end
+  end
+
+  class SelectOption < HtmlElem
+    attr_reader :stat
+
+    def initialize( ah )
+      super( 'option', ah )
+      @value = ah["value"]
+      @stat = ah.key?( 'selected' ) ? 'on' : 'off'
+      @type = 'option'
+    end
+
+    def value
+      @value ? @value : @data
+    end
+
+    def select
+      @stat = 'on'
+    end
+
+    def deselect
+      @stat = 'off'
+    end
+
+    def query_data( name )
+      @value = @data unless @value
+      value = @value ? CGI::escape( @value ) : ''
+      (@stat == 'on' and name) ? name + '=' + value : nil
+    end
+    
+    def multipart_query_data( boundary, name)
+      @value = @data unless @value
+      value = @value ? @value : ''
+      
+      if @stat == 'on' and name
+        "--#{boundary}\n" +
+        %!Content-Disposition: form-data; name="#{CGI::escape(name)}"\n! +
+        "\n" +
+        value + "\n"
+      else
+        nil
+      end
+    end
+    
+  end
+
+  class Textarea < Param
+    def initialize( ah )
+      super( 'textarea', ah )
+      @type = 'textarea'
+    end
+
+    def value
+      @value ? @value : @data
+    end
+
+    def query_data
+      val = @value ? @value : @data
+      value = val ? CGI::escape( val ) : ''
+      @name ? ( CGI::escape( @name ) + '=' + value ) : nil
+    end
+                          
+    def multipart_query_data( boundary)
+      @value = @data unless @value
+      value = @value ? @value : ''
+
+      if @name
+        "--#{boundary}\n" +
+        %!Content-Disposition: form-data; name="#{CGI::escape(@name)}"\n! +
+        "\n" +
+        value + "\n"
+      else
+        nil
+      end
+    end
+    
+  end
+  
+  class InputFile < Input
+    def query_data
+      nil
+    end
+
+    def multipart_query_data( boundary)
+      if @name and @value
+        "--#{boundary}\n" +
+        %!Content-Disposition: form-data; name="#{File.basename(@name)}"; filename="#{File.basename(@value)}"\n! +
+        "Content-Type: text/plain\n" +
+        "\n" +
+        IO.readlines(@value).join('') + "\n"
+      else
+        nil
+      end
+    end
+  
+  end
+
+end