ruby-web 1.1.1

data/test/unit/test_cookie.rb

@@ -0,0 +1,114 @@
+=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
+
+class TestCookies < Test::Unit::TestCase
+    include Web::Unit
+
+    def setup
+      setup_webunit
+      Cookies::clear
+    end
+
+    def test_Cookies
+      do_request( "webunit/cookie.rb")
+
+      assert_equals( { }, Web::cookie )
+      
+      do_submit( 'key' => 'name1', 'value' => 'value1' )
+      
+      assert_title( 'WebUnit::Cookies' )
+      assert_equals( %w( name1 ), Web::cookie.keys )
+
+      do_submit
+
+      assert_title( 'WebUnit::Cookies' )
+      
+      table = response.table
+      assert_equals( "name1", table.at(1,1).data )
+      assert_equals( "value1", table.at(1,2).data )
+
+      Web::cookie.clear
+      Web::cookie['NAME'] = 'AAA'
+
+      do_submit
+
+      assert_title( 'WebUnit::Cookies' )
+
+      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=/"
+      Web::cookie.update_by_addcookie( line )
+      assert_equals( %w( name1 ), Web::cookie.keys )
+      Web::cookie::clear
+      assert_equals( [], Web::cookie::keys )
+
+    end
+
+    def test_s_add # and instance method 'add'
+
+      Web::cookie['name1'] = 'value1'
+      assert_equals( 'value1', Web::cookie['name1'] )
+
+    end
+
+    def test_s_list # and instance method 'list'
+
+      line = "name1=value1; path=/"
+      Web::cookie::update_by_addcookie( line )
+      assert_equals( %w( name1 ), Web::cookie::keys )
+
+      line = "name2=value2; path=/aaa"
+      Web::cookie::update_by_addcookie( line )
+      assert_equals( [], %w( name1 name2 ) - Web::cookie::keys )
+
+    end
+
+    def test_s_has? # and instance method 'has?'
+
+      line = "name1=value1; path=/"
+      Web::cookie::update_by_addcookie( line )
+      assert_equals( true, Web::cookie::key?( 'name1' ) )
+      assert_equals( false, Web::cookie::key?( 'name2' ) )
+
+    end
+
+    def test_s_update # and instance method 'update'
+
+      line = "name1=value1; path=/"
+      Web::cookie::update_by_addcookie( line )
+      assert_equals( ['value1'], Web::cookie['name1'] )
+
+    end
+
+    # ooo, have to track this
+    def test_s_header_FIXME # and instance method 'header'
+
+      line = "name1=value1; path=/aaa"
+      Web::cookie::update_by_addcookie( line )
+      Cookies::update( line )
+
+      header = Cookies::header( '/aaa' )
+      assert_equals( {'Cookie'=>'name1=value1'}, header )
+
+      header = Cookies::header( '/' )
+      assert_equals( {}, header )
+
+    end
+
+    def test_accessor
+      assert_kind_of( Hash, Web::cookie )
+      Web::cookie = {}
+      assert_exception( ArgumentError ){
+        Web::cookie = nil
+      }
+    end
+
+end

data/test/unit/test_domwalker.rb

@@ -0,0 +1,77 @@
+=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
+
+  class TestXml < Test::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 = WebUnit::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( WebUnit::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( WebUnit::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
+

data/test/unit/test_form.rb

@@ -0,0 +1,42 @@
+=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
+
+class TestForm < Test::Unit::TestCase
+  include Web::Unit
+
+  def setup
+    setup_webunit
+  end
+  
+  def test_accessor
+  end
+  
+  def test_Form__store_test_data
+    url = 'webunit/stock.rb'
+    url_clear = url + '?clear'
+    
+    do_request( url_clear )
+    assert_urls( url, response.form.action )
+    
+    do_request( url )
+    form = response.form
+    form.store_test_data( %w( name title ), <<-EOF )
+        yuichi,leader
+        tadaya,member
+      EOF
+    
+    do_request( url )
+    parameters = response.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 )
+    
+    do_request( url_clear )
+    
+  end
+  
+end

data/test/unit/test_frame.rb

@@ -0,0 +1,40 @@
+=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
+
+  class TestFrame < Test::Unit::TestCase
+    include Web::Unit
+    def setup
+      setup_webunit
+    end
+
+    def test_Response
+
+      url = @urlbase + "webunit/frame.html"
+      do_request( url )
+      assert_title( 'WebUnit:frame' )
+      assert_equals( response.frame, response.frames[0] )
+
+      frames = response.frames
+      assert_urls( 'webunit/frame-0.html', frames[0].src )
+      assert_equals( 'f0', frames[0].name )
+      assert_urls( 'webunit/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 + 'webunit/frame-0.html'
+      frame = Frame::new( 'src'=>url, 'name'=>'fx' )
+      assert_title( 'WebUnit::frame-0', frame.read )
+    end
+
+  end

data/test/unit/test_htmlelem.rb

@@ -0,0 +1,74 @@
+=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 'webunit/webunit'
+require 'runit/cui/testrunner'
+
+module WebUnit
+
+  class TestHtmlElem < WebUnit::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
+

data/test/unit/test_image.rb

@@ -0,0 +1,45 @@
+=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 'webunit/webunit'
+require 'runit/cui/testrunner'
+
+module WebUnit
+
+  class TestImage < WebUnit::TestCase
+
+    def test_Image
+
+      url = @urlbase + "webunit/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

data/test/unit/test_jscript.rb

@@ -0,0 +1,57 @@
+=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 'webunit/webunit'
+require 'runit/cui/testrunner'
+
+module WebUnit
+
+  class TestJSciriptOpenObject < WebUnit::TestCase
+
+    def test_JSciriptOpenObject
+
+      url = @urlbase + "webunit/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( 'webunit/jscript-0.html', opens[0].url )
+      assert_equals( 'jscript-0.html', opens[0].file )
+      assert_equals( 'j0', opens[0].target )
+
+      assert_urls( 'webunit/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 + 'webunit/x' ) }
+      open = JSciriptOpenObject::new( hash )
+
+      assert_urls( 'webunit/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 + 'webunit/x' ) }
+      open = JSciriptOpenObject::new( hash )
+      assert_title( 'WebUnit::jscript-1', open.read )
+    end
+
+  end
+
+end