RubyGems - narf - Versions diffs - 0.6.3 → 0.7.1 - Mend

@@ -3,72 +3,71 @@
 <title>test for multipart/formdata</title>
 </head>
 <body>
-<form method="post" enctype="multipart/form-data" action= "multipart.cgi">
+<form method="post" enctype="multipart/form-data" action="test_install.cgi">
+<input type="hidden" name="test" value="multipart">
 <ul>
-<li>files
-	<ul>
-	<li><input type="file" name="file1"></li>
-	<li><input type="file" name="file2"></li>
-	</ul>
-</li>
-<li>textinput
-	<ul>
-	<li><input type="text" name="text1" value="Text 1"></li>
-	<li><input type="text" name="text2" value="Text 2"></li>
-	</ul>
-</li>
-<li>checkbox
-	<ul>
-	<li><input type="checkbox" name="checkbox1" value="Checkbox 1">1</li>
-	<li><input type="checkbox" name="checkbox1" value="Checkbox 2">2</li>
-	<li><input type="checkbox" name="checkbox1" value="Checkbox 3" checked>3</li>
-	</ul>
-</li>
-<li>radio button
-	<ul>
-	<li><input type="radio" name="radio1" value="Radio 1-1">1-1</li>
-	<li><input type="radio" name="radio1" value="Radio 1-2" checked>1-2</li>
-	<li><input type="radio" name="radio1" value="Radio 1-3">1-3</li>
-	<li><input type="radio" name="radio2" value="Radio 2-1">2-1</li>
-	<li><input type="radio" name="radio2" value="Radio 2-2">2-2</li>
-	<li><input type="radio" name="radio2" value="Radio 2-3" checked>2-3</li>
-	</ul>
-</li>
-<li>text area
-<ul>
-<li><textarea name="textarea1">Text Area 1</textarea></li>
-<li><textarea name="textarea2">Text Area 2</textarea></li>
-</ul>
-<li>selections
-	<ul>
-	<li>
+<li>files
+	<ul>
+	<li><input type="file" name="file1"></li>
+	<li><input type="file" name="file2"></li>
+	</ul>
+</li>
+<li>textinput
+	<ul>
+	<li><input type="text" name="text1" value="Text 1"></li>
+	<li><input type="text" name="text2" value="Text 2"></li>
+	</ul>
+</li>
+<li>checkbox
+	<ul>
+	<li><input type="checkbox" name="checkbox1" value="Checkbox 1">1</li>
+	<li><input type="checkbox" name="checkbox1" value="Checkbox 2">2</li>
+	<li><input type="checkbox" name="checkbox1" value="Checkbox 3" checked>3</li>
+	</ul>
+</li>
+<li>radio button
+	<ul>
+	<li><input type="radio" name="radio1" value="Radio 1-1">1-1</li>
+	<li><input type="radio" name="radio1" value="Radio 1-2" checked>1-2</li>
+	<li><input type="radio" name="radio1" value="Radio 1-3">1-3</li>
+	<li><input type="radio" name="radio2" value="Radio 2-1">2-1</li>
+	<li><input type="radio" name="radio2" value="Radio 2-2">2-2</li>
+	<li><input type="radio" name="radio2" value="Radio 2-3" checked>2-3</li>
+	</ul>
+</li>
+<li>text area
+<ul>
+<li><textarea name="textarea1">Text Area 1</textarea></li>
+<li><textarea name="textarea2">Text Area 2</textarea></li>
+</ul>
+<li>selections
+	<ul>
+	<li>
 	<select name="select1">
 	  <option value="a">A</option>
 	  <option>B</option>
 	</select>
-	</li>
-	<li>
+	</li>
+	<li>
 	<select name="select2">
 	  <option value="aa">AA</option>
 	  <option selected>BB</option>
 	</select>
-	</li>
-	</ul>
-</li>
-</ul>
-<div>
-<input type="submit" name="submit" value="submit">
-</div>
-</form>
-</body>
+	</li>
+	</ul>
+</li>
+</ul>
+<div>
+<input type="submit" name="submit" value="submit">
+</div>
+</form>
+</body>
 </html>

data/test/installation/htdocs/test_error.cgi ADDED Viewed

@@ -0,0 +1,3 @@
+#!/usr/bin/env narf
+<? raise "this is a test error" ?>

data/test/installation/htdocs/test_error.cgi~ ADDED Viewed

@@ -0,0 +1,7 @@
+#!/usr/local/bin/ruby
+require 'web'
+Web::process do
+  raise "this is a test error"
+end

data/test/installation/htdocs/test_install.cgi ADDED Viewed

@@ -0,0 +1,3 @@
+#!/usr/local/bin/narf
+<? Web::info ?>

data/test/installation/htdocs/test_install.cgi~ ADDED Viewed

@@ -0,0 +1,3 @@
+#!/usr/bin/env narf
+<? Web::info ?>

data/test/installation/htdocs/test_install.narf ADDED Viewed

@@ -0,0 +1,3 @@
+#!/usr/local/bin/narf
+<? Web::info ?>

data/test/installation/htdocs/test_install.narf~ ADDED Viewed

@@ -0,0 +1,3 @@
+#!/usr/local/bin/narf
+Web::info

data/test/installation/htdocs/test_install.rb ADDED Viewed

@@ -0,0 +1,3 @@
+#!/usr/local/bin/narf
+Web::info

data/test/installation/htdocs/test_install.rb~ ADDED Viewed

@@ -0,0 +1,3 @@
+#!/usr/local/bin/narf
+<? Web::info ?>

data/test/installation/runwebtest.rb ADDED Viewed

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+require 'webunit/runtest'
+WebUnit.runtest(ARGV)

data/test/{webunit → installation}/test_cookie.rb RENAMED Viewed

@@ -4,12 +4,12 @@
   $Id: test_cookie.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
 =end
-require 'web/unit'
+require 'webunit/webunit'
+require 'runit/cui/testrunner'
-module Web
-  module Unit
+module WebUnit
-  class TestCookies < Web::Unit::TestCase
+  class TestCookies < WebUnit::TestCase
     def setup
       super
@@ -18,7 +18,7 @@ module Web
     def test_Cookies
-      url = @urlbase + "cookie.cgi"
+      url = @urlbase + "?test=cookie"
       response = Response::get( url )
       assert_equals( ["_session_id"], Cookies::list )
@@ -124,5 +124,5 @@ module Web
     end
   end
-end
 end

data/test/installation/test_cookie.rb~ ADDED Viewed

@@ -0,0 +1,128 @@
+=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 'webunit/webunit'
+require 'runit/cui/testrunner'
+module WebUnit
+  class TestCookies < WebUnit::TestCase
+    def setup
+      super
+      Cookies::clear
+    end
+    def test_Cookies
+      url = @urlbase + "?test=cookie"
+      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

data/test/installation/test_form.rb ADDED Viewed

@@ -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 'webunit/webunit'
+require 'runit/cui/testrunner'
+module WebUnit
+  class TestForm < WebUnit::TestCase
+    def test_accessor
+    end
+    def 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/{webunit/test_form.rb → installation/test_form.rb~} RENAMED Viewed

@@ -4,23 +4,23 @@
   $Id: test_form.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
 =end
-require 'web/unit'
+require 'webunit/webunit'
+require 'runit/cui/testrunner'
-module Web
-  module Unit
+module WebUnit
-  class TestForm < Web::Unit::TestCase
+  class TestForm < WebUnit::TestCase
     def test_accessor
     end
     def test_Form__store_test_data
-      url = 'stock.cgi'
-      url_clear = url + '?clear'
+      url = '?test=stock'
+      url_clear = url + '&clear=yes'
       form = Response::get( url_clear ).form
-      assert_urls( url, form.action )
+      assert_urls( 'test_install.cgi', form.action )
       form = Response::get( url ).form
       form.store_test_data( %w( name title ), <<-EOF )
@@ -29,15 +29,15 @@ module Web
       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 )
+      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
 end