ruby-web 1.1.1

data/test/unit/test_link.rb

@@ -0,0 +1,85 @@
+=begin
+= test for WebUnit::Link
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: test_link.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 TestLink < WebUnit::TestCase
+
+    def test_Link
+
+      url = @urlbase + "webunit/link.html"
+      response = Response::get( url )
+      assert_title( 'WebUnit::link', response )
+
+      links = response.links
+      i = -1
+
+      link_self = links[i+=1]
+      assert_equals( 'self', link_self.data )
+      assert_urls( 'webunit/link.html', link_self.href )
+      assert_equals( nil, link_self.target )
+
+      link_other = links[i+=1]
+      assert_equals( 'other', link_other.data )
+      assert_urls( 'webunit/link-0.html', link_other.href ) # not exist
+      assert_equals( 'top', link_other.target )
+
+      link_x = links[i+=1]
+      assert_equals( 'x', link_x.data )
+      assert_urls( 'webunit/x.cgi?aaa=AAA&bbb=BBB', link_x.href )
+      assert_equals( nil, link_x.target )
+
+      link_y = links[i+=1]
+      assert_equals( 'y', link_y.data )
+      assert_equals( '#', link_y.href )
+      assert_equals( nil, link_y.target )
+      assert_equals( 'test', link_y.onClick )
+
+      assert_title( 'WebUnit::link', link_self.read )
+
+      response = response.click( 'self' )
+      assert_title( 'WebUnit::link', response )
+      assert_exception( WebUnit::ElemNotFound ){
+        response = response.click( 'xxxxx' )
+      }
+      assert_exception( WebUnit::HttpNotFound ){
+        response = response.click( 'other' )
+      }
+
+      response = response.readlink( 'self' )
+      assert_title( 'WebUnit::link', response )
+      assert_exception( WebUnit::ElemNotFound ){
+        response = response.readlink( 'xxxxx' )
+      }
+      assert_exception( WebUnit::HttpNotFound ){
+        response = response.readlink( 'other' )
+      }
+
+    end
+
+    def test_accessor
+
+      link = Link::new( 'href'=>@urlbase+'xxx.html', 'target'=>'top' )
+      assert_urls( 'xxx.html', link.href )
+      assert_equals( 'top', link.target )
+
+      link = Link::new( 'href'=>@urlbase+'xxx.html' )
+      assert_equals( nil, link.target )
+
+    end
+
+    def test_read
+      url = @urlbase + 'webunit/link.html'
+      link = Link::new( 'href'=>url, 'target'=>'fx' )
+      assert_title( 'WebUnit::link', link.read )
+    end
+
+  end
+
+end

data/test/unit/test_multipart.rb

@@ -0,0 +1,51 @@
+=begin
+= test for data transfer by post multipart.
+  Copyright(C), Narushima Hironori
+  $Id: test_multipart.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 TestMultipart < WebUnit::TestCase
+
+    def test_multipart
+      url = @urlbase + "webunit/multipart.html"
+      response = Response::get( url )
+      assert_title( 'test for multipart/formdata', response )
+      
+      res = response.form.set_params( {
+        'file1' => 'test/unit/test_resources/uploadfile1.txt',
+        'file2' => 'test/unit/test_resources/uploadfile2.txt',
+      } ).submit
+      
+      table = res.tables[0]
+      assert_equals( 'uploadfile1.txt', table.at(1, 2).data)
+      assert_equals( '### Upload File 1', table.at(3, 2).data)
+      assert_equals( 'text/plain', table.at(4, 2).data)
+      
+      table = res.tables[1]
+      assert_equals( 'uploadfile2.txt', table.at(1, 2).data)
+      assert_equals( '### Upload File 2', table.at(3, 2).data)
+      
+      list = {}
+      res.tables[2].rows.each { |r|
+        list[r.at(1).data] = r.at(2).data
+      }
+      
+      assert_equals( 'Text 1', list['text1'])
+      assert_equals( 'Text 2', list['text2'])
+      assert_equals( 'Checkbox 3', list['checkbox1'])
+      assert_equals( 'Radio 1-2', list['radio1'])
+      assert_equals( 'Radio 2-3', list['radio2'])
+      assert_equals( 'Text Area 1', list['textarea1'])
+      assert_equals( 'Text Area 2', list['textarea2'])
+      assert_equals( 'a', list['select1'])
+      assert_equals( 'BB', list['select2'])
+    end
+
+  end
+
+end

data/test/unit/test_params.rb

@@ -0,0 +1,210 @@
+=begin
+= test for WebUnit::Params
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: test_params.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 TestParams < WebUnit::TestCase
+
+    def test_accessor
+    end
+
+    def test_InputImage
+
+      url = @urlbase + "webunit/form.html"
+      response = Response::get( url )
+
+      form = response.forms[4]
+      response = form.submit( 'AAA', 10, 5 )
+
+      qs = 'AAA.x=10&AAA.y=5'
+      assert_equals( qs, response.tree.find( 'b' )[0].data )
+
+    end
+
+    def test_Form
+
+      url = @urlbase + "webunit/form.html"
+      #Parser::ignore %w( br hr )
+      test_form = Response::get( url )
+
+      assert_equals( 'WebUnit Test 1', test_form.title )
+      assert_equals( 5, test_form.forms.size )
+
+      # hidden
+      form = test_form.forms[0]
+      assert_equals( 3, form.parameters.size )
+
+      assert_input( 'nhidden', 'hidden', 'HIDDEN', form.parameters[0] )
+
+      spec = { 'name'=>'nhidden', 'type'=>'hidden', 'value'=>'HIDDEN' }
+      assert_attrs( spec, form.parameters[0] )
+
+      assert_equals( 'nhidden', form.parameters[0].name )
+      assert_equals( 'hidden',  form.parameters[0].type )
+      assert_equals( 'HIDDEN',  form.parameters[0].value )
+      #response = form.submit
+      response = test_form.submit
+      qs = 'nhidden=HIDDEN'
+      assert_equals( qs, response.tree.find( 'b' )[0].data )
+
+      # textfields
+      form = test_form.forms[1]
+      assert_equals( 5, form.parameters.size )
+
+      assert_equals( 'ntext',     form.parameters[0].name )
+      assert_equals( 'npassword', form.parameters[1].name )
+      assert_equals( 'ntextarea', form.parameters[2].name )
+
+      assert_equals( 'text',     form.parameters[0].type )
+      assert_equals( 'password', form.parameters[1].type )
+      assert_equals( 'textarea', form.parameters[2].type )
+
+      assert_equals( 'TEXT',     form.parameters[0].value )
+      assert_equals( 'PASSWORD', form.parameters[1].value )
+      assert_equals( "TEXTAREA\nTEXTAREA", form.parameters[2].value )
+
+      assert_exception( TypeError ){ form.parameters[0] = "this is test" }
+      form.parameters[0].value = "this is test"
+      form.parameters[1].value = '!@#$%'
+      form.parameters[2].value = "aaaa\r\nbbbb"
+      response = form.submit( 'nsubmit' )
+
+      qs = 'ntext=this+is+test&'
+      qs << 'npassword=%21%40%23%24%25&'
+      qs << 'ntextarea=aaaa%0D%0Abbbb&'
+      qs << 'nsubmit=Submit+Query'
+      assert_equals( qs, response.tree.find( 'b' )[0].data )
+
+    # buttons
+      form = test_form.forms[2]
+
+      assert_equals( 6, form.params.size )
+      assert_equals( 10, form.parameters.size )
+
+      assert_equals( 'ncheckbox',  form.parameters[0].name )
+      assert_equals( 'ncheckbox1', form.parameters[1].name )
+      assert_equals( 'nradio',     form.parameters[2].name )
+      assert_equals( 'nradio',     form.parameters[3].name )
+      assert_equals( 'nradio',     form.parameters[4].name )
+      assert_equals( 'nradio1',    form.parameters[5].name )
+      assert_equals( 'nradio1',    form.parameters[6].name )
+      assert_equals( 'nradio1',    form.parameters[7].name )
+      assert_equals( 'nsubmit',    form.parameters[8].name )
+      assert_equals( 'nreset',     form.parameters[9].name )
+
+      form.params['ncheckbox'].on
+      form.params['ncheckbox1'].off
+      response = form.submit( 'nsubmit' )
+      qs = 'ncheckbox=on&'
+      qs << 'nradio1=c&'
+      qs << 'nsubmit=SUBMIT'
+      assert_equals( qs, response.tree.find( 'b' )[0].data )
+
+      form.params['ncheckbox'].off
+      form.params['nradio1'].on
+      response = form.submit( 'nsubmit' )
+      qs = 'nradio1=a&'
+      qs << 'nsubmit=SUBMIT'
+      assert_equals( qs, response.tree.find( 'b' )[0].data )
+
+      form.params['ncheckbox'].off
+      form.params['nradio1'].value='a'
+      form.params['nradio1'].value='b'
+      response = form.submit( 'nsubmit' )
+      qs = 'nradio1=b&'
+      qs << 'nsubmit=SUBMIT'
+      assert_equals( qs, response.tree.find( 'b' )[0].data )
+
+    # select
+      form = test_form.forms[3]
+      table = test_form.tables[3]
+      assert( table.at(1,2).has?( form.parameters[0] ) )
+      #p table.find( 'td' )[1].array
+
+      assert_equals( 5, form.parameters.size )
+      assert_equals( 'nselect',  form.parameters[0].name )
+      assert_equals( 'select',   form.parameters[0].type )
+      assert_input( 'nselect', 'select', 'aaa',  form.parameters[0] )
+      assert_equals( 'nselect1', form.parameters[1].name )
+      assert_equals( 'nselect2', form.parameters[2].name )
+
+      response = form.submit
+
+      qs = 'nselect=aaa&nselect2=b&nselect2=d'
+      #p response.tree.find( 'b' )[0].array
+      assert_equals( qs, response.find( 'b' )[0].data )
+
+      form.params['nselect1'].value = 'c'
+      response = form.submit
+      qs = 'nselect=aaa&nselect1=c&nselect2=b&nselect2=d'
+      assert_equals( qs, response.find( 'b' )[0].data )
+
+      form.params['nselect1'].select( [ 0, 2 ] )
+      response = form.submit
+      qs = 'nselect=aaa&nselect1=aaa&nselect1=c&nselect2=b&nselect2=d'
+      assert_equals( qs, response.find( 'b' )[0].data )
+
+      form.params['nselect1'].select( [ 'aaa', 'c' ] )
+      response = form.submit
+      qs = 'nselect=aaa&nselect1=aaa&nselect1=c&nselect2=b&nselect2=d'
+      assert_equals( qs, response.find( 'b' )[0].data )
+
+      form.params['nselect1'].select( [ 'b', 'c' ] )
+      response = form.submit
+      qs = 'nselect=aaa&nselect1=b&nselect1=c&nselect2=b&nselect2=d'
+      assert_equals( qs, response.find( 'b' )[0].data )
+
+      assert_equals( %w( b d ), form.params['nselect2'].value )
+      form.params['nselect2'].select( [ 'c' ] )
+      assert_equals( 'c', form.params['nselect2'].value )
+
+    end
+
+    def test_params
+
+      url = @urlbase + "webunit/params.html"
+      #Parser::ignore %w( br hr )
+      response = Response::get( url )
+      assert_equals( 'WebUnit Test Params', response.title )
+      assert_equals( 1, response.forms.size )
+      form = response.forms[0]
+      assert_equals( 10, form.params.size )
+      assert_equals( 13, form.parameters.size )
+
+      hash = {
+        "nhidden" => "aaaaa",
+        "ntext" => "bbbbb",
+        "npassword" => "ccccc",
+        "ntextarea" => "ddddd",
+      }
+
+      form.set_params( hash )
+      response = form.submit
+
+      qs = 'nhidden=aaaaa&ntext=bbbbb&npassword=ccccc&ntextarea=ddddd&ncheckbox1=1&nselect=aaa'
+      assert_equals( qs, response.tree.find( 'b' )[0].data )
+
+      array = [
+        "wwwww",
+        "xxxxx",
+        "yyyyy",
+        "zzzzz",
+      ]
+
+      form.set_parameters( array )
+      response = form.submit
+
+      qs = 'nhidden=wwwww&ntext=xxxxx&npassword=yyyyy&ntextarea=zzzzz&ncheckbox1=1&nselect=aaa'
+      assert_equals( qs, response.tree.find( 'b' )[0].data )
+
+    end
+
+  end
+
+end

data/test/unit/test_parser.rb

@@ -0,0 +1,53 @@
+=begin
+= test for WebUnit::Parser
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: test_parser.rb,v 1.6 2004/04/29 12:34:06 yuichi Exp $
+=end
+
+require 'webunit/webunit'
+require 'runit/cui/testrunner'
+
+module WebUnit
+
+  class TestParser < WebUnit::TestCase
+
+    def test_xhtml
+      html = <<-EOS
+      <meta value=""/>
+      <meta value="">      
+      <link value=""/>      
+      <link value="">            
+      <p class="a"/>
+      <p class="b" />
+      <p class="c">
+      <p/>
+      <p>      
+      <hr/>
+      <hr>      
+      <area/>
+      <area>
+      <img src="a"/>      
+      <img src="a">
+      <input type="a"/>
+      <input type="a">      
+      EOS
+      response = Response::html( html )
+    end
+      
+    def test_nest_tables
+      html = <<-EOS
+      <table border=1>
+        <tr><td>
+          <table border=2>
+            <tr><td>
+            </td></tr>            
+          </table>
+        </td></tr>
+      </table>
+      EOS
+      response = Response::html( html )
+    end
+    
+  end
+
+end

data/test/unit/test_response.rb

@@ -0,0 +1,150 @@
+=begin
+= test for WebUnit::Response
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: test_response.rb,v 1.4 2004/04/29 12:34:06 yuichi Exp $
+=end
+
+require 'webunit/webunit'
+require 'runit/cui/testrunner'
+
+module WebUnit
+
+  class TestResponse < WebUnit::TestCase
+
+    def test_s_new # get and post
+
+      url = @urlbase + "webunit/xxxxx.html" # not exist
+      assert_exception( WebUnit::HttpNotFound ){
+        response = Response::get( url )
+      }
+
+      url = @urlbase + "webunit/badtags.html"
+      assert_exception( WebUnit::BadHtmlTags ){
+        response = Response::get( url )
+      }
+
+      url = "webunit/response.html"
+      response = Response::get( url )
+      url = @urlbase + "webunit/response.html"
+      assert_equals( url, response.url )
+
+      url = "webunit/auth/index.html"
+      response = Response::get( url, nil, %w( user badpass ) )
+      assert_title( "401 Authorization Required", response );
+      response = Response::get( url, nil, %w( user pass ) )
+      assert_title( "Success", response );
+      
+      url = "webunit/document.xml"
+      response = Response::get( url )
+      assert_instance_of( DomWalker, response );
+
+#      url = "webunit/WikiName.html"
+#      response = Response::get( url )
+
+    end
+
+    def test_s_html
+
+      html = <<-EOS
+      <html>
+      <head>
+        <title>test title</title>
+      </head>
+      <body>
+        <a href='xxx.html'>XXX</a>
+      </body>
+      </html>
+      EOS
+      response = Response::html( html )
+      assert_title( 'test title', response )
+      assert_equals( 1, response.links.size )
+      assert_equals( 'XXX', response.link.data )
+      assert_urls( 'xxx.html', response.link.href )
+
+      response = Response::html( html, 'http://x.y.z/yyy.html' )
+      assert_title( 'test title', response )
+      assert_equals( 1, response.links.size )
+      assert_equals( 'XXX', response.link.data )
+      assert_urls( 'http://x.y.z/xxx.html', response.link.href )
+
+      html = <<-EOS
+      <body>
+        <a href='xxx.html'>XXX</a>
+      </body>
+      EOS
+      response = Response::html( html )
+      assert_equals( 'html', response.tree.tag )
+
+    end
+
+    def test_accessor
+
+      url = @urlbase + "webunit/response.html"
+      response = Response::get( url )
+      assert_title( 'WebUnit::response', response )
+
+      assert_equals( url, response.url )
+      assert_equals( 'GET', response.method )
+      if RUBY_VERSION[0..2] == "1.6"
+        assert_instance_of( Net::HTTPResponse, response.response )
+      else
+        assert_instance_of( Net::HTTPOK, response.response )
+      end
+      assert_instance_of( String, response.body )
+      assert_equals( '200', response.code )
+
+      assert_instance_of( HtmlElem, response.tree )
+
+      # response.links[0], response.link => test_link.rb
+      # response.forms[0], response.form => test_form.rb
+      # response.tables[0], response.table => test_table.rb
+      # response.frames[0], response.frame => test_frame.rb
+
+      assert_instance_of( Array, response.links )
+      assert_instance_of( Array, response.forms )
+      assert_instance_of( Array, response.tables )
+      assert_instance_of( Array, response.frames )
+
+    end
+
+    # test_click => test_link.rb
+
+    def test_redirect
+
+      url = @urlbase + "webunit/redirect.rb"
+      to = @urlbase + "webunit/response.html"
+
+      response = Response::post( url, "redirect=#{to}" )
+      assert_equals( 'POST', response.method )
+      assert_equals( '302', response.code )
+      assert_equals( to, response.link.href )
+
+      response = response.redirect
+      assert_equals( 'WebUnit::response', response.title )
+      assert_exception( WebUnit::BadOperation ){
+        response = response.redirect
+      }
+
+    end
+
+    def test_search
+
+      url = @urlbase + "webunit/link.html"
+      response = Response::get( url )
+      link = response.tree.search( 'self' )[0]
+
+      assert_equals( 'a', link.tag )
+      assert_equals( @urlbase + 'webunit/link.html', link.href )
+      assert_equals( 'self', link.data )
+
+      link = response.search( 'other' )[0]
+
+      assert_equals( 'a', link.tag )
+      assert_equals( @urlbase + 'webunit/link-0.html', link.href )
+      assert_equals( 'other', link.data )
+
+    end
+
+  end
+
+end