narf 0.5.1

data/test/webunit/test_domwalker.rb

@@ -0,0 +1,83 @@
+=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_form.rb

@@ -0,0 +1,43 @@
+=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 = '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_form.rb~

@@ -0,0 +1,43 @@
+=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_frame.rb

@@ -0,0 +1,43 @@
+=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

@@ -0,0 +1,75 @@
+=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

@@ -0,0 +1,46 @@
+=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

@@ -0,0 +1,58 @@
+=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

@@ -0,0 +1,87 @@
+=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