narf 0.6.3 → 0.7.1

data/test/webunit/test_domwalker.rb

@@ -1,83 +0,0 @@
-=begin
-= test for WebUnit::
-  Copyright(C) 2001 yuichi TAKAHASHI
-  $Id: test_domwalker.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
-=end
-
-require 'web/unit'
-
-module Web
-  module Unit
-
-  class TestXml < Web::Unit::TestCase
-
-    def test_doc
-    
-      xml = <<-'EOF'
-      <?xml version="1.0"?>
-      <top>
-        <array>
-          <name id="1">name1</name>
-          <name id="2">name2</name>
-	</array>
-        <array>
-          <name id="1" append="x">name1x</name>
-          <name id="1" append="y">name1y</name>
-          <name id="2" append="x">name2x</name>
-          <name id="2" append="y" more="q">name2y</name>
-	</array>
-	<x></x>
-      </top>
-      EOF
-      
-      doc = DomWalker::new( xml )
-      assert_equals( '/', doc.cur_path )
-      assert_equals( 'top', doc.cur_name )      
-      assert_equals( 3, doc.size() )            
-      assert_equals( 2, doc.size( "array" ) )                  
-      
-      doc.change_node( 'array/name' )
-      assert_equals( '/array/name', doc.cur_path )
-      assert_equals( "name1", doc.cur_value )
-      assert_equals( "1", doc.cur_attrs['id'] )
-      
-      doc.change_node( '/array/name[0]' )
-      assert_equals( '/array/name[0]', doc.cur_path )
-      assert_equals( "name1", doc.cur_value )
-      
-      doc.change_node( '/array/name[1]' )
-      assert_equals( '/array/name[1]', doc.cur_path )
-      assert_equals( "name2", doc.cur_value )
-      assert_equals( "2", doc.cur_attrs['id'] )
-      
-      assert_exception( DomWalkerError ){
-        doc.change_node( '/array/name[2]' )
-      }
-      
-      doc.change_node( '/array/name[id="1"]' )
-      assert_equals( '/array/name[id="1"]', doc.cur_path )
-      assert_equals( "name1", doc.cur_value )
-      
-      doc.change_node( '/array/name[id="2"]' )
-      assert_equals( '/array/name[id="2"]', doc.cur_path )
-      assert_equals( "name2", doc.cur_value )
-
-      assert_exception( DomWalkerError ){
-        doc.change_node( '/array/name[id="3"]' )
-      }
-      
-      path = '/array[1]/name[id="1",append="y"]'
-      doc.change_node( path )
-      assert_equals( path, doc.cur_path )
-      assert_equals( "name1y", doc.cur_value )
-
-      path = '/array[1]/name[id="2",append="y"]'
-      doc.change_node( path )
-      assert_equals( path, doc.cur_path )
-      assert_equals( "name2y", doc.cur_value )
-
-    end
-end
-  end
-
-end

data/test/webunit/test_frame.rb

@@ -1,43 +0,0 @@
-=begin
-= test for WebUnit::Frame
-  Copyright(C) 2001 yuichi TAKAHASHI
-  $Id: test_frame.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
-=end
-
-require 'web/unit'
-
-module Web
-  module Unit
-
-  class TestFrame < Web::Unit::TestCase
-
-    def test_Response
-
-      url = @urlbase + "frame.html"
-      response = Response::get( url )
-      assert_title( 'WebUnit:frame', response )
-      assert_equals( response.frame, response.frames[0] )
-
-      frames = response.frames
-      assert_urls( 'frame-0.html', frames[0].src )
-      assert_equals( 'f0', frames[0].name )
-      assert_urls( 'frame-1.html', frames[1].src )
-      assert_equals( 'f1', frames[1].name )
-
-    end
-
-    def test_accessor
-      frame = Frame::new( 'src'=>@urlbase + 'xxx.html', 'name'=>'fx' )
-      assert_urls( 'xxx.html', frame.src )
-      assert_equals( 'fx', frame.name )
-    end
-
-    def test_read
-      url = @urlbase + 'frame-0.html'
-      frame = Frame::new( 'src'=>url, 'name'=>'fx' )
-      assert_title( 'WebUnit::frame-0', frame.read )
-    end
-
-  end
-end
-end

data/test/webunit/test_htmlelem.rb

@@ -1,75 +0,0 @@
-=begin
-= test for WebUnit::HtmlElem
-  Copyright(C) 2001 yuichi TAKAHASHI
-  $Id: test_htmlelem.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
-=end
-
-require 'web/unit'
-
-module Web
-  module Unit
-
-  class TestHtmlElem < Web::Unit::TestCase
-
-    def test_accessor
-
-      attr_hash = { 'attr1' => '1', 'attr2' => '2', 'name'=>'x' }
-      h = HtmlElem::new( 'test', attr_hash )
-
-      assert_equals( 'test', h.tag )
-      assert_equals( '', h.data )
-      assert_equals( attr_hash, h.attrs )
-      assert_equals( [], h.children )
-      assert_equals( [], h.array )
-      assert_equals( 'x', h.name )
-
-    end
-
-    def test_append # data, array, inspect, extract
-
-      attr_hash = { 'attr1' => '1', 'attr2' => '2' }
-      h = HtmlElem::new( 'test', attr_hash )
-
-      h.append 'data'
-
-      assert_equals( 'data', h.data )
-      assert_equals( ['data'], h.array )
-
-      child1 = HtmlElem::new( 'child', 'attr1' => '3' )
-      child1.append( 'data2' )
-
-      h.append child1
-
-      assert_equals( 'data', h.data )
-      assert_equals( ['data',child1], h.array )
-
-      h.append ' 1 '
-      assert_equals( 'data 1 ', h.data )
-      assert_equals( ['data',child1,' 1 '], h.array )
-
-      child2 = HtmlElem::new( 'child', 'attr1' => '4' )
-      child2.append 'data3'
-      h.append child2
-
-      assert_equals( [child1,child2], h.find( 'child' ) )
-      assert_equals( [h], h.search( 'data 1 ' ) )
-      assert_equals( [child2], h.search( 'data3' ) )
-
-      assert_equals( true, h.has?( 'data' ) )
-      assert_equals( false, h.has?( 'data2' ) )
-      assert_equals( true, h.has?( child1 ) )
-      assert_equals( false, child1.has?( child1 ) )
-
-      assert_equals( '<test attr1=1 attr2=2>:data 1 :', h.inspect )
-
-      assert_equals( 'data data2 1 data3', h.extract )
-      child1.append( 'xxx' )
-      assert_equals( 'data data2 xxx 1 data3', h.extract )
-
-    end
-
-  end
-
-end
-
-end

data/test/webunit/test_image.rb

@@ -1,46 +0,0 @@
-=begin
-= test for WebUnit::Image
-  Copyright(C) 2001 yuichi TAKAHASHI
-  $Id: test_image.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
-=end
-
-require 'web/unit'
-
-module Web
-  module Unit
-
-  class TestImage < Web::Unit::TestCase
-
-    def test_Image
-
-      url = @urlbase + "image.html"
-      response = Response::get( url )
-      assert_title( 'WebUnit::image', response )
-
-      images = response.images
-      assert_equals( 2, images.size )
-
-      i = -1
-
-      image_edit = images[i+=1]
-      assert_equals( image_edit, response.image )
-
-      assert_equals( 'images/x.gif', image_edit.src )
-      assert_equals( nil, image_edit.alt )
-      assert_equals( nil, image_edit.width )
-      assert_equals( nil, image_edit.height )
-      assert_equals( nil, image_edit.border )
-
-      image_up = images[i+=1]
-      assert_equals( 'images/y.gif', image_up.src )
-      assert_equals( 'up', image_up.alt )
-      assert_equals( '64', image_up.width )
-      assert_equals( '64', image_up.height )
-      assert_equals( '0', image_up.border )
-
-    end
-
-  end
-
-end
-end

data/test/webunit/test_jscript.rb

@@ -1,58 +0,0 @@
-=begin
-= test for WebUnit::JSciriptOpenObject
-  Copyright(C) 2001 yuichi TAKAHASHI
-  $Id: test_jscript.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
-=end
-
-require 'web/unit'
-
-module Web
-  module Unit
-
-  class TestJSciriptOpenObject < Web::Unit::TestCase
-
-    def test_JSciriptOpenObject
-
-      url = @urlbase + "jscript.html"
-      response = Response::get( url )
-      assert_title( 'WebUnit::jscript', response )
-      assert_equals( response.open.inspect, response.opens[0].inspect )
-
-      opens = response.opens
-
-      assert_urls( 'jscript-0.html', opens[0].url )
-      assert_equals( 'jscript-0.html', opens[0].file )
-      assert_equals( 'j0', opens[0].target )
-
-      assert_urls( 'jscript-1.html', opens[1].url )
-      assert_equals( 'jscript-1.html', opens[1].file )
-      assert_equals( 'j1', opens[1].target )
-
-      response = opens[0].read
-      assert_title( 'WebUnit::jscript-0', response )
-
-    end
-
-    def test_accessor
-
-      hash = { 'file'=>'jscript-1.html', 'target'=>'j1',
-        'url'=>complete_url( 'jscript-1.html', @urlbase + 'x' ) }
-      open = JSciriptOpenObject::new( hash )
-
-      assert_urls( 'jscript-1.html', open.url )
-      assert_equals( 'jscript-1.html', open.file )
-      assert_equals( 'j1', open.target )
-
-    end
-
-    def test_read
-      hash = { 'file'=>'jscript-1.html', 'target'=>'j1',
-        'url'=>complete_url( 'jscript-1.html', @urlbase + 'x' ) }
-      open = JSciriptOpenObject::new( hash )
-      assert_title( 'WebUnit::jscript-1', open.read )
-    end
-
-  end
-
-end
-end

data/test/webunit/test_link.rb

@@ -1,87 +0,0 @@
-=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 'web/unit'
-
-module Web
-  module Unit
-
-  class TestLink < Web::Unit::TestCase
-
-    def test_Link
-
-      url = @urlbase + "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( 'link.html', link_self.href )
-      assert_equals( nil, link_self.target )
-
-      link_other = links[i+=1]
-      assert_equals( 'other', link_other.data )
-      assert_urls( '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( '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( Web::Unit::ElemNotFound ){
-        response = response.click( 'xxxxx' )
-      }
-      # doesn't work b/c hexane.org has redirects instead of 404
-      #assert_exception( Web::Unit::HttpNotFound ){
-      #  response = response.click( 'other' )
-      #}
-
-      response = response.readlink( 'self' )
-      assert_title( 'WebUnit::link', response )
-      assert_exception( Web::Unit::ElemNotFound ){
-        response = response.readlink( 'xxxxx' )
-      }
-      # doesn't work b/c hexane.org has redirects instead of 404's
-      #assert_exception( Web::Unit::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 + 'link.html'
-      link = Link::new( 'href'=>url, 'target'=>'fx' )
-      assert_title( 'WebUnit::link', link.read )
-    end
-  end
-  end
-
-end

data/test/webunit/test_params.rb

@@ -1,212 +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