narf 0.6.3 → 0.7.1

data/lib/web/unit/testcase.rb

@@ -1,49 +0,0 @@
-=begin
-= Web::Unit::TestCase
-  Copyright(C) 2001 yuichi TAKAHASHI
-  $Id: testcase.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
-=end
-
-require 'web/unit/converter'
-
-module Web
-  module Unit #:nodoc: all
-
-  class TestCase
-
-    include Web::Unit
-    include Utils
-
-    def initialize( method, name=self.class.name )
-      case USING_FRAMEWORK
-      when 'Test::Unit'
-        super(method)
-      when 'RubyUnit'
-        super
-      else
-        super
-        # raise??
-      end
-      @urlbase = ENV['URLBASE'] ? ENV['URLBASE'] : 'http://localhost/'
-      @urlbase = orthop_url( @urlbase )
-      @urlbase << '/' unless @urlbase =~ %r!/$!
-      $stderr.puts "URLBASE is #{@urlbase}" if $DEBUG
-    end
-
-    def setup
-      $URLBASE = @urlbase
-      Response::reset
-      @cookies_kept = Cookies::instance.cookies
-    end
-
-    def teardown
-      Response::reset
-      Cookies::instance.cookies = @cookies_kept
-    end
-
-    def test_make_testunit_stop_complaining_about_no_tests
-
-    end
-  end
-end
-end

data/lib/web/unit/ui/cui/testrunner.rb

@@ -1,52 +0,0 @@
-require 'web/unit/converter'
-
-module Web
-  module Unit #:nodoc: all
-    module UI
-      module CUI
-        class TestRunner
-          
-          def initialize(quiet_mode=true)
-            case USING_FRAMEWORK
-            when 'Test::Unit'
-              require 'test/unit/ui/console/testrunner'
-              @runner = Test::Unit::UI::Console::TestRunner
-            when 'RubyUnit'
-              require 'runit/cui/testrunner'
-              @runner = RUNIT::CUI::TestRunner.new
-            end
-            quiet_mode(quiet_mode)
-          end
-          
-          def quiet_mode(boolean)
-            case USING_FRAMEWORK
-            when 'RubyUnit'
-              @runner.class.quiet_mode = boolean
-            end
-          end
-          
-          def all_suite
-            case USING_FRAMEWORK
-            when 'Test::Unit'
-              suite_name = $0.sub(/\.rb$/, '')
-              suite = TestSuite.new(suite_name)
-              test_classes = []
-              ObjectSpace.each_object(Class) do |klass|
-                test_classes << klass if TestCase > klass
-              end
-              test_classes.each {|klass| suite << klass.suite}
-              suite
-            when 'RubyUnit'
-              TestCase.all_suite
-            end
-          end
-          
-          def run(suite=all_suite)
-            @runner.run(suite)
-          end
-          
-        end
-      end
-    end
-  end
-end

data/lib/web/unit/utils.rb

@@ -1,70 +0,0 @@
-=begin
-= Web::Unit::Utils
-  Copyright(C) 2001 yuichi TAKAHASHI
-  $Id: utils.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
-
-=end
-
-module Web
-  module Unit #:nodoc: all
-
-  module Utils
-
-=begin
---- Utils#parse_url(url)
-      return an Array of protocol, hostname, port, and path.
-
-=end
-
-    def parse_url( url )
-      if url =~ %r!^([a-z]+)://([-0-9A-Aa-z_.]+):?([0-9]*)(/.*)?$!
-        [ $1, $2, $3 == "" ? 80 : $3.to_i, $4 ? $4 : '' ]
-      elsif url =~ %r!^file:(/.*)$!
-        [ 'file', nil, nil, $1 ]
-      else
-        [ nil, nil, nil, url ]
-      end
-    end
-
-=begin
---- Utils#orthop_url(url)
-      return url, is orthopped by Utils#parse_url.
-
-=end
-
-    def orthop_url( url )
-      prot, host, port, path = parse_url url
-      path.gsub!( %r![^/]*/\.\./!, '/' )
-      path.gsub!( %r!/\.*/!, '/' )
-      "#{prot}://#{host}:#{port}#{path}"
-    end
-
-=begin
---- Utils#complete_url(url,base)
-      return url, is completed with ((|base||).
-=end
-
-    def complete_url( url, base )
-      if base
-        prot,host,port,path = parse_url( base )
-        prefix = prot + "://" + host + ":" + port.to_s
-        case url
-        when nil then
-          url = base.sub( /\?.*/, '' )
-        when %r!^http://! then
-          url
-        when %r!^/! then
-          url = prefix + url
-        else
-          url = prefix + File::dirname( path ) + "/" + url
-        end
-        orthop_url( url )
-      else
-        url
-      end
-    end
-
-  end
-
-end
-end

data/lib/web/unit/webunit.rb

@@ -1,28 +0,0 @@
-=begin
-= Web::Unit
-  Copyright(C) 2001 yuichi TAKAHASHI
-  $Id: webunit.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
-=end
-
-require 'web/unit/converter'
-require 'web/unit/utils'
-require 'web/unit/exception'
-require 'web/unit/assert'
-require 'web/unit/htmlelem'
-require 'web/unit/link'
-require 'web/unit/frame'
-require 'web/unit/image'
-require 'web/unit/jscript'
-require 'web/unit/testcase'
-require 'web/unit/cookie'
-require 'web/unit/params'
-require 'web/unit/form'
-require 'web/unit/parser'
-require 'web/unit/response'
-require 'web/unit/table'
-begin
-  require 'web/unit/domwalker'
-rescue LoadError
-end
-
-#Web::Unit::TestCase::new( 'nil?' ).setup

data/sapi/apache_cgi/src/narf.c

@@ -1,13 +0,0 @@
-#include <stdlib.h>
-
-int main(int argc,char *argv[]) {
-  char command[1024];
-  command[0] = 0;
-  strncat(command,"ruby -r web/runner -e '' ",1024);
-
-  if ( argc > 1 ) {
-    strncat(command,argv[1], 1024-sizeof("ruby -r web/runner -e '' ") );
-  }
-
-  system(command);
-}

data/test/stringio.rb

@@ -1,2 +0,0 @@
-require 'delegate'
-

data/test/webunit/dont_get_it.test_webunit.rb

@@ -1,27 +0,0 @@
-=begin
-= test for WebUnit
-  Copyright(C) 2001 yuichi TAKAHASHI
-  $Id: test_webunit.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 TestWebUnit < WebUnit::TestCase
-  end
-
-end
-
-if $0 == __FILE__
-  if ARGV.size == 0
-    suite = WebUnit::TestWebUnit::suite
-  else
-    suite = RUNIT::TestSuite.new
-    ARGV.each do |testmethod|
-      suite.add_test( WebUnit::TestWebUnit::new( testmethod ) )
-    end
-  end
-  RUNIT::CUI::TestRunner.run( suite )
-end

data/test/webunit/ref

@@ -1,38 +0,0 @@
-#! /usr/bin/env ruby
-=begin
-= ref - make list of methods
-  Copyright(C) 2001 yuichi TAKAHASHI
-  $Id: ref,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
-=end
-    
-if ARGV.size == 0 then
-  files = []
-  command = File::expand_path( __FILE__ )
-  pat = File::dirname( File::dirname( command ) ) + '/*.rb'
-  Dir::glob( pat ).each do |file|
-    files << file unless file =~ %r!/test_!
-  end
-  files.sort!
-else
-  files = ARGV
-end
-
-files.each do |file|
-  open( file ).each do |line|
-    if line =~ /^ *class *(\w*)/ then
-      puts "  #{$1}"
-      priv = false
-    end
-    next if priv
-    case line
-      when /^ *private *(\w*)/ then priv = true
-      when /^ *module *(\w*)/ then puts "#{$1}(#{File::basename( file )})"
-      when /^ *def *(.*)/ then puts "    #{$1}" unless $1 == 'initialize'
-      when /^ *attr_(\w*) *:(.*)/ then
-        typ= $1
-        $2.gsub('[ ,]','').split(':').each do |attr|
-          puts "    #{attr}(#{typ})"
-        end
-    end
-  end
-end

data/test/webunit/test_assert.rb

@@ -1,169 +0,0 @@
-=begin
-= test for WebUnit::assert
-  Copyright(C) 2001 yuichi TAKAHASHI
-  $Id: test_assert.rb,v 1.1.1.1 2003/01/21 11:50:40 yuichi Exp $
-=end
-
-require 'web/unit'
-
-module Web
-  module Unit
-
-  class TestAssert < Web::Unit::TestCase
-
-    def initialize( method, name=self.class.name )
-      super
-      url = @urlbase + "assert.html"
-      @response = Response::get( url )
-      assert_title( 'WebUnit:assert', @response )
-    end
-
-    def test_assert_urls
-      assert_exception( Web::Unit::AssertionFailedError ){
-        assert_urls( nil, "webunit/xxxxx.html" )
-      }
-      assert_exception( Web::Unit::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( Web::Unit::AssertionFailedError ){
-        assert_urls( "webunit/xxxxx.html", url )
-      }
-      assert_exception( Web::Unit::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', @response )
-      assert_exception( Web::Unit::AssertionFailedError ){
-        assert_title( 'xxxxx', @response )
-      }
-    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( Web::Unit::AssertionFailedError ){
-        assert_input( 'xname_text', 'text', 'TEXT', form.parameters[i] )
-      }
-      assert_exception( Web::Unit::AssertionFailedError ){
-        assert_input( 'name_text', 'xtext', 'TEXT', form.parameters[i] )
-      }
-      assert_exception( Web::Unit::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( Web::Unit::AssertionFailedError ){
-        assert_select_option( 'aaa', 'AAA', true, options[0] )
-      }
-
-      assert_select_option( 'bbb', 'BBB', true, options[1] )
-      assert_exception( Web::Unit::AssertionFailedError ){
-        assert_select_option( 'aaa', 'BBB', true, options[1] )
-      }
-      assert_exception( Web::Unit::AssertionFailedError ){
-        assert_select_option( 'bbb', 'AAA', true, options[1] )
-      }
-      assert_exception( Web::Unit::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( Web::Unit::AssertionFailedError ){
-        assert_include( 'aaaa', table.at(1,1) )
-      }
-      assert_exception( Web::Unit::AssertionFailedError ){
-        assert_include( 'aaaaa', table.at(1,2) )
-      }
-
-      assert_exception( Web::Unit::AssertionFailedError ){
-        assert_equals( 'bbbbb', table.at(1,2).data )
-      }
-      assert_include( 'bbbbb', table.at(1,2) )
-      assert_exception( Web::Unit::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( Web::Unit::AssertionFailedError ){
-        assert_attrs( hash, elem )
-      }
-
-    end
-
-  end
-
-end
-end