ruby-web 1.1.1

data/test/dev/webunit/conv/test_digit_view.rb

@@ -0,0 +1,134 @@
+=begin
+= sample of WebUnit( test_digit_view.rb )
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: test_digit_view.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
+=end
+
+require 'webunit/webunit'
+
+class TestDigitView < WebUnit::TestCase
+
+  def setup
+    super
+    @url = "webunit/sample/conv/digit.cgi"
+  end
+
+  def test_initial
+
+    response = Response::get( @url )
+    assert_title( 'Digit - WebUnit Sample -', response )
+
+    assert_equals( 1, response.forms.size )
+    assert_equals( 1, response.tables.size )
+
+    form = response.form
+    assert_urls( @url, form.action )
+    assert_equals( 'post', form.method )
+
+    parameters = form.parameters #=> array
+    assert_equals( 6, parameters.size )
+    i = -1
+
+    assert_input( 'toct', 'text', '0', parameters[i+=1] )
+    assert_input( 'tdec', 'text', '0', parameters[i+=1] )
+    assert_input( 'thex', 'text', '0x0', parameters[i+=1] )
+    assert_input( 'boct', 'submit', '8=&gt;', parameters[i+=1] )
+    assert_input( 'bdec', 'submit', '10=&gt;', parameters[i+=1] )
+    assert_input( 'bhex', 'submit', '16=&gt;', parameters[i+=1] )
+
+    table = response.table
+    params = form.params #=> hash
+    c = 0
+
+    assert_include( params['toct'], table.at(1,c+=1) )
+    assert_include( params['boct'], table.at(2,c) )
+    assert_equals( 'center', table.at(2,c).attrs['align'] )
+
+    assert_include( params['tdec'], table.at(1,c+=1) )
+    assert_include( params['bdec'], table.at(2,c) )
+    assert_equals( 'center', table.at(2,c).attrs['align'] )
+
+    assert_include( params['thex'], table.at(1,c+=1) )
+    assert_include( params['bhex'], table.at(2,c) )
+    assert_equals( 'center', table.at(2,c).attrs['align'] )
+
+  end
+
+  def test_links
+
+    response = Response::get( @url )
+    assert_title( 'Digit - WebUnit Sample -', response )
+    assert_equals( 3, response.links.size )
+
+    links = response.links
+    i = -1
+
+    link_ruby = links[i+=1]
+    assert_equals( 'Ruby', link_ruby.data )
+    url = 'http://www.ruby-lang.org/ja/'
+    assert_urls( url, link_ruby.href )
+
+    link_rubyunit = links[i+=1]
+    assert_equals( 'RubyUnit', link_rubyunit.data )
+    url = 'http://homepage1.nifty.com/markey/ruby/rubyunit/index.html'
+    assert_urls( url, link_rubyunit.href )
+
+    link_webunit = links[i+=1]
+    assert_equals( 'WebUnit', link_webunit.data )
+    url = 'http://www.jbt.co.jp/user/yuichi/ruby/webunit/index-ja.html'
+    assert_urls( url, link_webunit.href )
+
+  end
+
+  def test_8_to
+
+    response = Response::get( @url )
+    assert_title( 'Digit - WebUnit Sample -', response )
+
+    form = response.form
+    params = form.params
+
+    params['toct'].value = '017'
+    response = form.submit( 'boct' )
+
+    params = response.form.params
+    assert_equals( '15', params['tdec'].value )
+    assert_equals( '0xF', params['thex'].value )
+
+  end
+
+  def test_10_to
+
+    response = Response::get( @url )
+    assert_title( 'Digit - WebUnit Sample -', response )
+
+    form = response.form
+    params = form.params
+
+    params['tdec'].value = '10'
+    response = form.submit( 'bdec' )
+
+    params = response.form.params
+    assert_equals( '012', params['toct'].value )
+    assert_equals( '0xA', params['thex'].value )
+
+  end
+
+  def test_16_to
+
+    response = Response::get( @url )
+    assert_title( 'Digit - WebUnit Sample -', response )
+
+    form = response.form
+    params = form.params
+
+    params['thex'].value = '0x1A'
+    response = form.submit( 'bhex' )
+
+    params = response.form.params
+    assert_equals( '032', params['toct'].value )
+    assert_equals( '26', params['tdec'].value )
+
+  end
+
+end

data/test/installation/htdocs/cgi_test.rb

@@ -0,0 +1,296 @@
+module Web
+  @@message_template = nil
+
+  def Web::print_message( title, content )
+    @@message_template ||=
+             lib_file_contents('resources/message_template.html' )
+    puts( @@message_template.gsub( /\$title\$/,
+                                        title ).gsub( /\$content\$/,
+                                                      content ) )
+  end
+
+  def Web::info_fileinfo( file)
+    lines = '<table>'
+    %w!original_filename read content_type!.each { |m|
+      lines << "<tr><td>#{m}</td><td>#{file.send(m)}</td></tr>"
+    }
+    lines << '</table>'
+  end
+    
+
+
+  def Web::info
+    Web::clear()
+    case Web["test"]
+    when "multipart.html"
+      puts <<-EOF
+<html>
+<head>
+<title>test for multipart/formdata</title>
+</head>
+<body>
+
+<form method="post" enctype="multipart/form-data">
+                 <!-- action="test_install.cgi"-->
+<input type="hidden" name="test" value="multipart">
+
+<ul>
+<li>files
+<ul>
+<li><input type="file" name="file1"></li>
+<li><input type="file" name="file2"></li>
+</ul>
+</li>
+
+<li>textinput
+<ul>
+<li><input type="text" name="text1" value="Text 1"></li>
+<li><input type="text" name="text2" value="Text 2"></li>
+</ul>
+</li>
+
+<li>checkbox
+<ul>
+<li><input type="checkbox" name="checkbox1" value="Checkbox 1">1</li>
+<li><input type="checkbox" name="checkbox1" value="Checkbox 2">2</li>
+<li><input type="checkbox" name="checkbox1" value="Checkbox 3" checked>3</li>
+</ul>
+</li>
+
+<li>radio button
+<ul>
+<li><input type="radio" name="radio1" value="Radio 1-1">1-1</li>
+<li><input type="radio" name="radio1" value="Radio 1-2" checked>1-2</li>
+<li><input type="radio" name="radio1" value="Radio 1-3">1-3</li>
+<li><input type="radio" name="radio2" value="Radio 2-1">2-1</li>
+<li><input type="radio" name="radio2" value="Radio 2-2">2-2</li>
+<li><input type="radio" name="radio2" value="Radio 2-3" checked>2-3</li>
+</ul>
+</li>
+
+<li>text area
+<ul>
+<li><textarea name="textarea1">Text Area 1</textarea></li>
+<li><textarea name="textarea2">Text Area 2</textarea></li>
+</ul>
+
+<li>selections
+<ul>
+<li>
+<select name="select1">
+  <option value="a">A</option>
+  <option>B</option>
+</select>
+</li>
+<li>
+<select name="select2">
+  <option value="aa">AA</option>
+  <option selected>BB</option>
+</select>
+</li>
+</ul>
+</li>
+
+</ul>
+
+<div>
+<input type="submit" name="submit" value="submit">
+</div>
+
+</form>
+
+</body>
+</html>
+EOF
+
+  when "multipart"
+    begin
+      print '<h1>result</h1>'
+      print Web::info_fileinfo( Web['file1']) + '<hr>'
+      print Web::info_fileinfo( Web['file2']) + '<hr>'
+      print '<table border>'
+      %w!text1 text2 checkbox1 radio1 radio2 textarea1 textarea2 select1 select2!.each { |k|
+        print "<tr><td>#{k}</td><td>#{Web[k]}</td></tr>"
+      }
+      print '</table>'
+    rescue Exception
+      print 'error:'
+      print $!.to_s
+    end
+    
+  when "cookie"
+    if Web.key?( 'key' ) && Web['key'] != '' && Web.key?( 'value' )
+      Web.set_cookie( Web['key'], Web['value'] )
+    end
+    
+    print '<html><head><title>WebUnit::Cookies</title></head>'
+    print  '<body><h1>WebUnit::Cookies</h1><table border=1>'
+
+    print Web.cookie.keys.collect{|key|
+      if key == ''
+        nil
+      else
+        "<tr><td>#{key}</td><td>#{Web.cookie[key]}</td></tr>"
+      end
+    }.compact.to_s
+    
+    print '</table><br>'
+    
+    print 'Params<table border=1>'
+    
+    print Web.keys.collect{|key|
+      "<tr><td>#{key}</td><td>#{Web[key]}</td></tr>"
+    }.to_s
+    
+    print '</table>'
+    
+    print "<form>"
+    print '<input type="hidden" name="test" value="cookie">'
+    print 'key = <input type="text" name="key" value="" size="20"><br>'
+    print 'value = <input type="text" name="value" value="" size="20"><br>'
+    print '<input type="submit">'
+
+    print '</body></html>'
+
+  when "response.html"
+    puts <<-EOF
+<html>
+<head>
+  <title>WebUnit::response</title>
+</head>
+<body>
+
+<h1>WebUnit::response</h1>
+
+<hr>
+
+<form action='simple.cgi'>
+
+<table border=1>
+  <tr><td>link</td>
+      <td><a href=index-en.html>test</a></td></tr>
+  <tr><td>hidden</td>
+      <td>HIDDEN<input type='hidden' name='nhidden' value='HIDDEN'></td></tr>
+  <tr><td>text</td>
+      <td><input type='text' name='ntext' value='TEXT'></td></tr>
+  <tr><td>password</td>
+      <td><input type='password' name='npassword' value='PASSWORD'></td></tr>
+  <tr><td>textarea</td>
+      <td><textarea name='ntextarea' rows=4 cols=40>TEXTAREA
+TEXTAREA</textarea></td></tr>
+  <tr><td>checkbox</td>
+    <td><input type='checkbox' name='ncheckbox'>
+        <input type='checkbox' name='ncheckbox1' value=1 checked></td>    
+  </tr>
+  <tr><td>radio</td>
+    <td>
+      <input type='radio' name='nradio' value='a'>a,
+      <input type='radio' name='nradio' value='b'>b,
+      <input type='radio' name='nradio' value='c'>c
+    </td>
+  </tr>      
+  <tr><td>combo</td>
+    <td>
+      <select name=nselect>
+        <option value=aaa>a
+        <option>b
+      </select>
+    </td>    
+  </tr>
+  <tr><td>list</td>
+    <td>
+      <select name=nselect1 size=5>
+        <option value=aaa>a
+        <option>b
+        <option>c
+        <option>d
+      </select>
+    </td>
+  </tr>      
+  <tr>
+    <td></td>
+    <td>
+      <!--<input type='submit' value='SUBMIT'>-->
+      <input type='submit' value='SUBMIT'>
+      <input type='reset' value='RESET'>
+    </td>
+  </tr>
+</table>
+
+</form>
+
+</body>
+</html>
+EOF
+  when "redirect"
+    if Web.key?( 'redirect' )
+      Web.set_redirect Web['redirect']
+    else
+      puts( "<html><body>",
+            "Use test=redirect&redirect=http://... <br>",
+            "<b>" + Web::html_encode( ENV['QUERY_STRING'] || '' ) + "</b>",
+            "</body></html>" )
+    end
+  when "stock"
+    stock = ''
+    
+    tempfile = "/tmp/stock.cgi"
+
+    if Web.key?( 'clear' )
+      File::delete( tempfile ) if File::exist?( tempfile )
+    else
+      if Web.key?( 'name' ) && Web.key?( 'title' )
+        open( tempfile, "a" ){ |f|
+          f.puts "#{ Web.multiple_params['name'][0] },#{ Web.multiple_params['title'][0] }"
+        }
+      end
+      if File::exist?( tempfile )
+        open( tempfile ).each do |line|
+          line.chop!
+          stock << "<input type=\"text\" name=\"name\" value=\"#{ line.split( ',' )[0] }\">"
+          stock << "<input type=\"text\" name=\"title\" value=\"#{ line.split( ',' )[1] }\">"
+          stock << "<br>\n"
+        end
+      end
+    end
+    
+    print "<html><head><title>stock.cgi</title></head><body>"
+    print "<form method='POST'>"
+    print "<input type=\"hidden\" name=\"test\" value=\"stock\">"
+    print "<input type=\"text\" name=\"name\">"
+    print "<input type=\"text\" name=\"title\">"
+    print "<input type=\"submit\" value=\"add\">"
+    print "<br>\n"
+    print stock
+    print "</form></body></html>"
+  else
+
+    
+    msg = ""
+ 
+    [:request, :get, :post, :cookie, :env].each do |namespace|
+      variables = Web::send(namespace)
+      unless variables.empty?    
+        msg += "<h2>Web::#{namespace}</h2>"
+        msg += "<table onMouseover=\"changeto(event, '#F8FF80')\" onMouseout=\"changeback(event, '#eeeeff')\">"
+        variables.keys.sort.each do |key|
+          msg += "<tr><td><b>#{key}</b></td><td>"
+          value = variables[key]
+          value = [value] unless value.kind_of? Array
+          msg += value.collect do |e|
+                   Web::html_encode( if e.kind_of? String
+                                       e
+                                     else
+                                       e.inspect
+                                     end )
+                 end.join("<br />")
+        end
+        msg += "</table>"
+      end
+    end
+    
+    Web::print_message( "Web::info", msg )
+  end
+
+end
+end

data/test/installation/htdocs/test_install.rb

@@ -0,0 +1,4 @@
+#!/usr/bin/ruby-web
+
+Web::info
+

data/test/installation/runwebtest.rb

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+
+require 'webunit/runtest'
+
+WebUnit.runtest(ARGV)

data/test/installation/test_cookie.rb

@@ -0,0 +1,128 @@
+=begin
+= test for WebUnit::Cookies
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: test_cookie.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
+=end
+
+require 'webunit/webunit'
+require 'runit/cui/testrunner'
+
+module WebUnit
+
+  class TestCookies < WebUnit::TestCase
+
+    def setup
+      super
+      Cookies::clear
+    end
+
+    def test_Cookies
+
+      url = @urlbase + "?test=cookie.rb"
+      response = Response::get( url )
+
+      assert_equals( [ ], Cookies::list )
+
+      form = response.form
+      form.params['key'].value = 'name1'
+      form.params['value'].value = 'value1'
+      response = form.submit
+      assert_title( 'WebUnit::Cookies', response )
+
+      assert_equals( %w( name1 ).sort, Cookies::list.sort )
+
+      response = form.submit
+      assert_title( 'WebUnit::Cookies', response )
+
+      table = response.table
+      assert_equals( "name1", table.at(1,1).data )
+      assert_equals( "value1", table.at(1,2).data )
+
+      Cookies::clear
+      Cookies::add( 'NAME', 'AAA' )
+
+      response = form.submit
+      assert_title( 'WebUnit::Cookies', response )
+
+      table = response.table
+      assert_equals( "NAME", table.at(1,1).data )
+      assert_equals( "AAA", table.at(1,2).data )
+
+    end
+
+    def test_s_clear # and instance method 'clear'
+
+      line = "name1=value1; path=/"
+      hash = Cookies::update( line )
+      assert_equals( %w( name1 ), Cookies::list )
+      Cookies::clear
+      assert_equals( [], Cookies::list )
+
+    end
+
+    def test_s_add # and instance method 'add'
+
+      line = "name1=value1; path=/"
+      Cookies::add( 'name1', 'value1' )
+      hash = Cookies::instance.cookies[%w( name1 / )]
+      assert_equals( 'name1', hash['name'] )
+      assert_equals( 'value1', hash['value'] )
+
+    end
+
+    def test_s_list # and instance method 'list'
+
+      line = "name1=value1; path=/"
+      hash = Cookies::update( line )
+      assert_equals( %w( name1 ), Cookies::list )
+
+      line = "name2=value2; path=/aaa"
+      hash = Cookies::update( line )
+      assert_equals( [], %w( name1 name2 ) - Cookies::list )
+
+    end
+
+    def test_s_has? # and instance method 'has?'
+
+      line = "name1=value1; path=/"
+      hash = Cookies::update( line )
+      assert_equals( true, Cookies::has?( 'name1' ) )
+      assert_equals( false, Cookies::has?( 'name2' ) )
+
+    end
+
+    def test_s_update # and instance method 'update'
+
+      line = "name1=value1; path=/"
+      Cookies::update( line )
+      hash = Cookies::instance.cookies[%w( name1 / )]
+      assert_equals( {'name'=>'name1','value'=>'value1', 'path'=>'/' }, hash )
+
+    end
+
+    def test_s_header # and instance method 'header'
+
+      line = "name1=value1; path=/aaa"
+      Cookies::update( line )
+
+      header = Cookies::header( '/aaa' )
+      assert_equals( {'Cookie'=>'name1=value1'}, header )
+
+      header = Cookies::header( '/' )
+      assert_equals( {}, header )
+
+    end
+
+    def test_accessor
+
+      assert_instance_of( Hash, Cookies::instance.cookies )
+      Cookies::instance.cookies = {}
+      assert_exception( ArgumentError ){
+        Cookies::instance.cookies = nil
+      }
+
+    end
+
+  end
+
+end