ruby-web 1.1.1

data/test/installation/test_form.rb

@@ -0,0 +1,47 @@
+=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 'webunit/webunit'
+require 'runit/cui/testrunner'
+
+module WebUnit
+
+  class TestForm < WebUnit::TestCase
+
+    def test_accessor
+    end
+
+    # this test is strange, and I don't see
+    # how this is a problem with ruby-web
+    #     ~ patrick
+    def hide_test_Form__store_test_data
+
+      url = '?test=stock'
+      url_clear = url + '&clear=yes'
+
+      form = Response::get( url_clear ).form
+      #assert_urls( 'test_install.cgi', 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[4].value )
+      assert_equals( 'leader', parameters[5].value )
+      assert_equals( 'tadaya', parameters[6].value )
+      assert_equals( 'member', parameters[7].value )
+
+      Response::get( url_clear )
+
+    end
+
+  end
+
+end

data/test/installation/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 + "?test=multipart.html"
+      response = Response::get( url )
+      assert_title( 'test for multipart/formdata', response )
+      
+      res = response.form.set_params( {
+        'file1' => 'uploadfile1.txt',
+        'file2' => 'uploadfile2.txt',
+      } ).submit
+      
+      table = res.tables[0]
+      assert_equals( 'uploadfile1.txt', table.at(1, 2).data)
+      assert_equals( '### Upload File 1', table.at(2, 2).data)
+      assert_equals( 'text/plain', table.at(3, 2).data)
+      
+      table = res.tables[1]
+      assert_equals( 'uploadfile2.txt', table.at(1, 2).data)
+      assert_equals( '### Upload File 2', table.at(2, 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/installation/test_request.rb

@@ -0,0 +1,24 @@
+require 'webunit/webunit'
+require 'runit/cui/testrunner'
+
+module WebUnit
+
+  class TestRequest < WebUnit::TestCase
+
+    def test_request_should_have_independent_namespace
+      url = @urlbase + "?test=counter.rb"
+      
+      Response::get( url + "&count=0")
+      
+      response = Response::get( url )
+      assert_title( "Count: 1", response )
+      
+      ### TODO: de-couple requests from each other
+      #response = Response::get( url )
+      #assert_title( "Count: 1", response )
+      #
+      #response = Response::get( url )
+      #assert_title( "Count: 1", response )
+    end
+  end
+end

data/test/installation/test_response.rb

@@ -0,0 +1,35 @@
+=begin
+= test for WebUnit::Response
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: test_response.rb,v 1.3 2004/02/11 04:41:53 yuichi Exp $
+=end
+
+require 'webunit/webunit'
+require 'runit/cui/testrunner'
+
+#module WebUnit
+
+ # class TestResponse < WebUnit::TestCase
+
+   # test_click => test_link.rb
+
+#    def todo_test_redirect
+#      url = @urlbase + "redirect.cgi"
+#      to = @urlbase + "response.html"
+
+#      response = Response::post( url, "test=redirect&redirect=#{to}" )
+
+#      assert_equals( 'POST', response.method )
+#      assert_equals( '302', response.code )
+#      p response
+#      assert_equals( to, response.link.href )
+
+#      response = response.redirect
+#      assert_equals( 'WebUnit::response', response.title )
+#      assert_exception( Web::Unit::BadOperation ){
+#        response = response.redirect
+#      }
+#
+#    end
+#  end
+#end

data/test/unit/htdocs/cookie.rb

@@ -0,0 +1,32 @@
+require 'web/shim/cgi'
+cgi = CGI::new( "html3" )
+
+cookie = nil
+if cgi.key?( 'key' ) && cgi.params['key'][0] != '' && cgi.key?( 'value' )
+  cookie = CGI::Cookie::new( cgi.params['key'][0], cgi.params['value'][0] )
+  cookie.path = '/'
+end
+
+cgi.out( "cookie" => [cookie] ){
+  '<html><head><title>WebUnit::Cookies</title></head>' +
+  '<body><h1>WebUnit::Cookies</h1><table border=1>' +
+  cgi.cookies.keys.collect{|key|
+    if key == ''
+      nil
+    else
+      "<tr><td>#{key}</td><td>#{cgi.cookies[key].value[0]}</td></tr>"
+    end
+  }.compact.to_s +
+  '</table><br>' +
+  'Params<table border=1>' +
+  cgi.keys.collect{|key|
+    "<tr><td>#{key}</td><td>#{cgi.params[key][0]}</td></tr>"
+  }.to_s +
+  '</table>' +
+  cgi.form(){
+    'key = ' + cgi.text_field( 'key','',20 ) + '<br>' +
+    'value = ' + cgi.text_field( 'value','',20 ) + '<br>' +
+    cgi.submit
+  } +
+  '</body></html>'
+}

data/test/unit/htdocs/multipart.rb

@@ -0,0 +1,28 @@
+#!/usr/bin/env ruby
+
+require 'web/shim/cgi'
+
+print "Content-Type: text/html\n\n<body>"
+
+def fileinfo( file)
+	lines = '<table border>'
+	%w!original_filename local_path read content_type!.each { |m|
+		lines << "<tr><td>#{m}</td><td>#{file.send(m)}</td></tr>"
+	}
+	lines << '</table>'
+end
+
+begin
+	cgi = CGI.new( "html3" )
+	print '<h1>result</h1>'
+	print fileinfo( cgi.params['file1'][0]) + '<hr>'
+	print fileinfo( cgi.params['file2'][0]) + '<hr>'
+	print '<table border>'
+	%w!text1 text2 checkbox1 radio1 radio2 textarea1 textarea2 select1 select2!.each { |k|
+		print "<tr><td>#{k}</td><td>#{cgi.params[k][0].read}</td></tr>"
+	}
+	print '</table>'
+rescue Exception
+	print 'error:'
+	print $!.to_s
+end

data/test/unit/htdocs/redirect.rb

@@ -0,0 +1,12 @@
+require 'web/shim/cgi'
+cgi = CGI::new( "html3" )
+if cgi.key?( 'redirect' )
+  puts "Location: #{cgi.params['redirect'][0]}\n\n"
+else
+  cgi.out(){
+    "<html><body>" +
+    "Use redirect=http://... <br>" +
+    "<b>" + CGI::escapeHTML( cgi.env_table['QUERY_STRING'] ) + "</b>" +
+    "</body></html>"
+  }
+end

data/test/unit/htdocs/simple.rb

@@ -0,0 +1,13 @@
+require 'web/shim/cgi'
+cgi = CGI::new( "html3" )
+cgi.out(){
+  html = "<html><head><title>simple.cgi</title></head><body>"
+  html << "<b>" + CGI::escapeHTML( cgi.env_table['QUERY_STRING'] ) + "</b><br>"
+  ENV.each do |k,v|
+    html << "<b>#{k}:#{v}</b><br>"
+  end
+  cgi.keys.each do |key|
+    html << "<b>#{key}:#{cgi.params[key][0]}</b><br>"
+  end
+  html + "</body></html>"
+}

data/test/unit/htdocs/stock.rb

@@ -0,0 +1,33 @@
+require 'web/shim/cgi'
+cgi = CGI::new( "html3" )
+
+stock = ''
+
+TMPFILE = "/tmp/stock.cgi"
+
+if cgi.key?( 'clear' )
+  File::delete( TMPFILE ) if File::exist?( TMPFILE )
+else
+  if cgi.key?( 'name' ) && cgi.key?( 'title' )
+    open( TMPFILE, "a" ){ |f|
+      f.puts "#{cgi.params['name'][0]},#{cgi.params['title'][0]}"
+    }
+  end
+  if File::exist?( TMPFILE )
+    open( TMPFILE ).each do |line|
+      line.chop!
+      stock << cgi.text_field( 'name', line.split( ',' )[0] )
+      stock << cgi.text_field( 'title', line.split( ',' )[1] )
+      stock << "<br>\n"
+    end
+  end
+end
+
+cgi.out(){
+  "<html><head><title>stock.cgi</title></head><body>" +
+  "<form method='POST'>" +
+  cgi.text_field( 'name' ) + cgi.text_field( 'title' ) +
+  cgi.submit( 'add' ) + "<br>\n" +
+  stock +
+  "</form></body></html>"
+}

data/test/unit/test_assert.rb

@@ -0,0 +1,162 @@
+=begin
+= test for WebUnit::assert
+  Copyright(C) 2001 yuichi TAKAHASHI
+  $Id: test_assert.rb,v 1.2 2004/02/11 04:26:40 yuichi Exp $
+=end
+
+class TestAssert < Test::Unit::TestCase
+  include Web::Unit
+
+    def setup
+      setup_webunit
+      url = @urlbase + "webunit/assert.html"
+      do_request( url )
+      assert_title( 'WebUnit:assert' )
+    end
+
+    def test_assert_urls
+      assert_exception( WebUnit::AssertionFailedError ){
+        assert_urls( nil, "webunit/xxxxx.html" )
+      }
+      assert_exception( WebUnit::AssertionFailedError ){
+        assert_urls( "webunit/xxxxx.html", nil )
+      }
+      url = @urlbase + "webunit/test_assert.html"
+      assert_urls( @urlbase + "webunit/test_assert.html", url )
+      assert_urls( "webunit/test_assert.html", url )
+      assert_exception( WebUnit::AssertionFailedError ){
+        assert_urls( "webunit/xxxxx.html", url )
+      }
+      assert_exception( WebUnit::AssertionFailedError ){
+        assert_urls( @urlbase + "webunit/xxxxx.html", url )
+      }
+      url = 'http://test/webunit/test_assert.html'
+      assert_urls( 'http://test:80/webunit/test_assert.html', url )
+      assert_urls( url, 'http://test:80/webunit/test_assert.html' )
+    end
+
+    def test_assert_title
+      assert_title( 'WebUnit:assert' )
+      assert_exception( WebUnit::AssertionFailedError ){
+        assert_title( 'xxxxx' )
+      }
+    end
+
+    def test_assert_input
+
+      # text, password, file, textarea, hidden
+      # submit, reset
+      form = @response.forms[0]
+      i = -1
+      assert_input( 'name_text', 'text', 'TEXT', form.parameters[i+=1] )
+      assert_exception( WebUnit::AssertionFailedError ){
+        assert_input( 'xname_text', 'text', 'TEXT', form.parameters[i] )
+      }
+      assert_exception( WebUnit::AssertionFailedError ){
+        assert_input( 'name_text', 'xtext', 'TEXT', form.parameters[i] )
+      }
+      assert_exception( WebUnit::AssertionFailedError ){
+        assert_input( 'name_text', 'text', 'xTEXT', form.parameters[i] )
+      }
+
+      assert_input( 'name_pass', 'password', 'PASS', form.parameters[i+=1] )
+      assert_input( 'name_file', 'file', nil, form.parameters[i+=1] )
+      assert_input( 'name_hidden', 'hidden', 'HIDDEN', form.parameters[i+=1] )
+      assert_input( 'name_area', 'textarea', "T\nA", form.parameters[i+=1] )
+
+      assert_input( 'name_submit', 'submit', nil, form.parameters[i+=1] )
+      assert_input( 'name_reset', 'reset', nil, form.parameters[i+=1] )
+
+      # checkbox, radio
+      # submit, reset
+      form = @response.forms[1]
+      i = -1
+      assert_input( 'name_check', 'checkbox', "a", form.parameters[i+=1] )
+      assert_equals( 'off', form.parameters[i].stat )
+      assert_input( 'name_check', 'checkbox', "b", form.parameters[i+=1] )
+      assert_equals( 'on', form.parameters[i].stat )
+
+      assert_input( 'name_radio', 'radio', "a", form.parameters[i+=1] )
+      assert_equals( 'off', form.parameters[i].stat )
+      assert_input( 'name_radio', 'radio', "b", form.parameters[i+=1] )
+      assert_equals( 'on', form.parameters[i].stat )
+
+      assert_input( 'name_submit', 'submit', 'SUBMIT', form.parameters[i+=1] )
+      assert_input( 'name_reset', 'reset', 'RESET', form.parameters[i+=1] )
+
+    end
+
+    def test_assert_select_option
+
+      form = @response.forms[2]
+      i = -1
+      assert_input( 'name_select', 'select', 'bbb', form.parameters[i+=1] )
+
+      options = form.params['name_select'].options
+
+      assert_select_option( 'aaa', 'AAA', false, options[0] )
+      assert_exception( WebUnit::AssertionFailedError ){
+        assert_select_option( 'aaa', 'AAA', true, options[0] )
+      }
+
+      assert_select_option( 'bbb', 'BBB', true, options[1] )
+      assert_exception( WebUnit::AssertionFailedError ){
+        assert_select_option( 'aaa', 'BBB', true, options[1] )
+      }
+      assert_exception( WebUnit::AssertionFailedError ){
+        assert_select_option( 'bbb', 'AAA', true, options[1] )
+      }
+      assert_exception( WebUnit::AssertionFailedError ){
+        assert_select_option( 'bbb', 'BBB', false, options[1] )
+      }
+
+      assert_select_option( 'CCC', 'CCC', false, options[2] )
+      assert_select_option( 'CCC', nil, false, options[2] )
+
+      options = form.params['no_selection'].options
+      assert_select_option( 'aaa', 'AAA', true, options[0] )
+
+    end
+
+    def test_assert_include
+
+      elem = HtmlElem::new 'tag'
+      elem.append 'xxxxx'
+      assert_equals( 'xxxxx', elem.data )
+      assert_include( 'xxxxx', elem )
+
+      table = @response.tables[3]
+
+      assert_equals( 'aaaaa', table.at(1,1).data )
+      assert_include( 'aaaaa', table.at(1,1) )
+      assert_exception( WebUnit::AssertionFailedError ){
+        assert_include( 'aaaa', table.at(1,1) )
+      }
+      assert_exception( WebUnit::AssertionFailedError ){
+        assert_include( 'aaaaa', table.at(1,2) )
+      }
+
+      assert_exception( WebUnit::AssertionFailedError ){
+        assert_equals( 'bbbbb', table.at(1,2).data )
+      }
+      assert_include( 'bbbbb', table.at(1,2) )
+      assert_exception( WebUnit::AssertionFailedError ){
+        assert_equals( 'bbbb', table.at(1,2) )
+      }
+
+    end
+
+    def test_assert_attrs
+
+      hash = { 'name'=>'name1', 'size'=>'30' }
+      elem = HtmlElem::new( 'tag', hash )
+      assert_attrs( hash, elem )
+
+      hash = { 'size'=>'25' }
+      assert_exception( WebUnit::AssertionFailedError ){
+        assert_attrs( hash, elem )
+      }
+
+    end
+
+  end