narf 0.6.2 → 0.6.3

data/test/webunit/test_cookie.rb~

@@ -1,128 +0,0 @@
-=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 'web/unit'
-
-module Web
-  module Unit
-
-  class TestCookies < Web::Unit::TestCase
-
-    def setup
-      super
-      Cookies::clear
-    end
-
-    def test_Cookies
-
-      url = @urlbase + "cookie.cgi"
-      response = Response::get( url )
-
-      assert_equals( ["_session_id"], 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( _session_id name1 ), Cookies::list )
-
-      response = form.submit
-      assert_title( 'WebUnit::Cookies', response )
-
-      table = response.table
-      assert_equals( "name1", table.at(2,1).data )
-      assert_equals( "value1", table.at(2,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
-end

data/test/webunit/test_form.rb~

@@ -1,43 +0,0 @@
-=begin
-= test for WebUnit::Form
-  Copyright(C) 2001 yuichi TAKAHASHI
-  $Id: test_form.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
-=end
-
-require 'web/unit'
-
-module Web
-  module Unit
-
-  class TestForm < Web::Unit::TestCase
-
-    def test_accessor
-    end
-
-    def test_Form__store_test_data
-
-      url = '../cgi-bin/stock.cgi'
-      url_clear = url + '?clear'
-
-      form = Response::get( url_clear ).form
-      assert_urls( url, form.action )
-
-      form = Response::get( url ).form
-      form.store_test_data( %w( name title ), <<-EOF )
-        yuichi,leader
-        tadaya,member
-      EOF
-
-      parameters = Response::get( url ).form.parameters
-      assert_equals( 'yuichi', parameters[3].value )
-      assert_equals( 'leader', parameters[4].value )
-      assert_equals( 'tadaya', parameters[5].value )
-      assert_equals( 'member', parameters[6].value )
-
-      Response::get( url_clear )
-
-    end
-
-  end
-end
-end

data/test/webunit/test_multipart.rb~

@@ -1,53 +0,0 @@
-=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 'web/unit'
-
-module Web
-  module Unit
-
-  class TestMultipart < Web::Unit::TestCase
-
-    def test_multipart
-      url = @urlbase + "multipart.html"
-      response = Response::get( url )
-      assert_title( 'test for multipart/formdata', response )
-      
-      res = response.form.set_params( {
-        'file1' => 'test/webunit/resources/uploadfile1.txt',
-        'file2' => 'test/webunit/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
-
-end

data/test/webunit/test_params.rb~

@@ -1,211 +0,0 @@
-=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 'web/unit'
-
-module Web
-  module Unit
-
-  class TestParams < Web::Unit::TestCase
-
-    def test_accessor
-    end
-
-    def test_InputImage
-
-      url = @urlbase + "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 + "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 + "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
-end

data/test/webunit/test_response.rb~

@@ -1,145 +0,0 @@
-=begin
-= test for WebUnit::Response
-  Copyright(C) 2001 yuichi TAKAHASHI
-  $Id: test_response.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
-=end
-
-require 'web/unit'
-
-module Web
-  module Unit
-
-  class TestResponse < Web::Unit::TestCase
-
-    def test_s_new # get and post
-      url = @urlbase + "xxxxx.html" # not exist
-      assert_exception( Web::Unit::HttpNotFound ){
-        response = Response::get( url )
-      }
-
-      url = @urlbase + "badtags.html"
-      assert_exception( Web::Unit::BadHtmlTags ){
-        response = Response::get( url )
-      }
-
-      url = "response.html"
-      response = Response::get( url )
-      url = @urlbase + "response.html"
-      assert_equals( url, response.url )
-
-      # commented out to avoid annoying questions
-      #url = "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 = "document.xml"
-      response = Response::get( url )
-      assert_instance_of( DomWalker, response );
-
-    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 + "response.html"
-      response = Response::get( url )
-      assert_title( 'WebUnit::response', response )
-
-      assert_equals( url, response.url )
-      assert_equals( 'GET', response.method )
-      #assert_instance_of( Net::HTTPResponse, response.response )
-      assert_instance_of( Net::HTTPOK, response.response )
-      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 + "redirect.cgi"
-      to = @urlbase + "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( Web::Unit::BadOperation ){
-        response = response.redirect
-      }
-
-    end
-
-    def test_search
-
-      url = @urlbase + "link.html"
-      response = Response::get( url )
-      link = response.tree.search( 'self' )[0]
-
-      assert_equals( 'a', link.tag )
-      assert_equals( @urlbase + 'link.html', link.href )
-      assert_equals( 'self', link.data )
-
-      link = response.search( 'other' )[0]
-
-      assert_equals( 'a', link.tag )
-      assert_equals( @urlbase + 'link-0.html', link.href )
-      assert_equals( 'other', link.data )
-
-    end
-  end
-  end
-
-end