narf 0.5.1

data/scripts/urireg.rb

@@ -0,0 +1,174 @@
+# urireg.rb:  generates Regexps for uri.rb
+# $Id: urireg.rb,v 1.1.1.1 2002/11/29 04:34:24 patsplat Exp $
+
+# CAUTION: Some regexps generated by this cannot be compiled.
+#          In ruby v1.4.3, /\//.source() generates "/".
+
+=begin
+rfc2396
+      URI-reference = [ absoluteURI | relativeURI ] [ "#" fragment ]
+      absoluteURI   = scheme ":" ( hier_part | opaque_part )
+      relativeURI   = ( net_path | abs_path | rel_path ) [ "?" query ]
+
+      hier_part     = ( net_path | abs_path ) [ "?" query ]
+      opaque_part   = uric_no_slash *uric
+
+      uric_no_slash = unreserved | escaped | ";" | "?" | ":" | "@" |
+                      "&" | "=" | "+" | "$" | ","
+
+      net_path      = "//" authority [ abs_path ]
+      abs_path      = "/"  path_segments
+      rel_path      = rel_segment [ abs_path ]
+
+      rel_segment   = 1*( unreserved | escaped |
+                          ";" | "@" | "&" | "=" | "+" | "$" | "," )
+
+      scheme        = alpha *( alpha | digit | "+" | "-" | "." )
+
+      authority     = server | reg_name
+
+      reg_name      = 1*( unreserved | escaped | "$" | "," |
+                          ";" | ":" | "@" | "&" | "=" | "+" )
+
+      server        = [ [ userinfo "@" ] hostport ]
+      userinfo      = *( unreserved | escaped |
+                         ";" | ":" | "&" | "=" | "+" | "$" | "," )
+
+      hostport      = host [ ":" port ]
+      host          = hostname | IPv4address
+      hostname      = *( domainlabel "." ) toplabel [ "." ]
+      domainlabel   = alphanum | alphanum *( alphanum | "-" ) alphanum
+      toplabel      = alpha | alpha *( alphanum | "-" ) alphanum
+      IPv4address   = 1*digit "." 1*digit "." 1*digit "." 1*digit
+      port          = *digit
+
+      path          = [ abs_path | opaque_part ]  # path is dangling
+      path_segments = segment *( "/" segment )
+      segment       = *pchar *( ";" param )
+      param         = *pchar
+      pchar         = unreserved | escaped |
+                      ":" | "@" | "&" | "=" | "+" | "$" | ","
+
+      query         = *uric
+
+      fragment      = *uric
+
+      uric          = reserved | unreserved | escaped
+      reserved      = ";" | "/" | "?" | ":" | "@" | "&" | "=" | "+" |
+                      "$" | ","
+      unreserved    = alphanum | mark
+      mark          = "-" | "_" | "." | "!" | "~" | "*" | "'" |
+                      "(" | ")"
+
+      escaped       = "%" hex hex
+      hex           = digit | "A" | "B" | "C" | "D" | "E" | "F" |
+                              "a" | "b" | "c" | "d" | "e" | "f"
+
+      alphanum      = alpha | digit
+      alpha         = lowalpha | upalpha
+
+      lowalpha = "a" | "b" | "c" | "d" | "e" | "f" | "g" | "h" | "i" |
+                 "j" | "k" | "l" | "m" | "n" | "o" | "p" | "q" | "r" |
+                 "s" | "t" | "u" | "v" | "w" | "x" | "y" | "z"
+      upalpha  = "A" | "B" | "C" | "D" | "E" | "F" | "G" | "H" | "I" |
+                 "J" | "K" | "L" | "M" | "N" | "O" | "P" | "Q" | "R" |
+                 "S" | "T" | "U" | "V" | "W" | "X" | "Y" | "Z"
+      digit    = "0" | "1" | "2" | "3" | "4" | "5" | "6" | "7" |
+                 "8" | "9"
+=end
+
+require 'regman'
+
+# pchar = unreserved | escaped | ":" | "@" | "&" | "=" | "+" | "$" | ","
+PCHAR = /[0-9A-Za-z\-_.!~*'():@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f]/
+
+# param = *pchar
+PARAM = /(?:[0-9A-Za-z\-_.!~*'():@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*/
+
+# segment = *pchar *( ";" param )
+SEGMENT = /(?:[0-9A-Za-z\-_.!~*'():@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*(?:;(?:[0-9A-Za-z\-_.!~*'():@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*)*/
+
+# IPv4address = 1*digit "." 1*digit "." 1*digit "." 1*digit
+IPV4ADDRESS = /\d+\.\d+\.\d+\.\d+/
+
+# toplabel = alpha | alpha *( alphanum | "-" ) alphanum
+TOPLABEL = /[A-Za-z]|[A-Za-z][0-9A-Za-z\-]*[0-9A-Za-z]/
+
+# domainlabel = alphanum | alphanum *( alphanum | "-" ) alphanum
+DOMAINLABEL = /[0-9A-Za-z]|[0-9A-Za-z][0-9A-Za-z\-]*[0-9A-Za-z]/
+
+# hostname = *( domainlabel "." ) toplabel [ "." ]
+HOSTNAME = RM.cat(RM.star(RM.cat(DOMAINLABEL, /\./)), TOPLABEL, /\.?/)
+
+# path_segments = segment *( "/" segment )
+tmp = RM.cat(SEGMENT, RM.star(RM.cat(/\//, SEGMENT)))
+PATH_SEGMENTS = /\A#{tmp.source}\z/
+
+# abs_path = "/" path_segments
+#  equals
+# abs_path = "/" segment *( "/" segment )
+#  equals
+# abs_path = 1*( "/" segment )
+tmp = RM.plus(RM.cat(/\//, SEGMENT))
+ABS_PATH = /\A#{tmp.source}\z/
+
+# rel_segment = 1*( unreserved | escaped |
+#                   ";" | "@" | "&" | "=" | "+" | "$" | "," )
+REL_SEGMENT = /\A(?:[0-9A-Za-z\-_.!~*'();@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])+\z/
+
+# host = hostname | IPv4address
+tmp = RM.bar(HOSTNAME, /\d+\.\d+\.\d+\.\d+/)
+HOST = /\A(?:#{tmp.source})\z/
+
+# userinfo = *( unreserved | escaped |
+#               ";" | ":" | "&" | "=" | "+" | "$" | "," )
+USERINFO = /\A(?:[0-9A-Za-z\-_.!~*'();:&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*\z/
+
+# reg_name = 1*( unreserved | escaped | "$" | "," |
+#                ";" | ":" | "@" | "&" | "=" | "+" )
+REG_NAME = /\A(?:[0-9A-Za-z\-_.!~*'()$,;:@&=+]|%[0-9A-Fa-f][0-9A-Fa-f])+\z/
+
+# query = *uric
+# uric  = reserved | unreserved | escaped
+QUERY = /\A(?:[0-9A-Za-z\-_.!~*'();\/?:@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*\z/
+
+# scheme = alpha *( alpha | digit | "+" | "-" | "." )
+SCHEME = /\A[A-Za-z][0-9A-Za-z+\-.]*\z/
+
+# fragment = *uric
+FRAGMENT = QUERY
+
+puts 'FRAGMENT (invalid source)'
+puts FRAGMENT.source
+puts
+
+puts 'SCHEME'
+puts SCHEME.source
+puts
+
+puts 'QUERY (invalid source)'
+puts QUERY.source
+puts
+
+puts 'REG_NAME'
+puts REG_NAME.source
+puts
+
+puts 'USERINFO'
+puts USERINFO.source
+puts
+
+puts 'HOST'
+puts HOST.source
+puts
+
+puts 'REL_SEGMENT'
+puts REL_SEGMENT.source
+puts
+
+puts 'PATH_SEGMENTS (invalid source)'
+puts PATH_SEGMENTS.source
+puts
+
+puts 'ABS_PATH (invalid source)'
+puts ABS_PATH.source

data/test/bufferedtestrunner.rb

@@ -0,0 +1,112 @@
+# :nodoc:
+#
+# Author:: Nathaniel Talbott.
+# Copyright:: Copyright (c) 2000-2002 Nathaniel Talbott. All rights reserved.
+# License:: Ruby license.
+#
+# modified by Patrick May to create more reasonable output.
+#
+
+require 'test/unit/ui/testrunnermediator'
+require 'test/unit/ui/testrunnerutilities'
+require 'test/stringio'
+
+module Test
+	module Unit
+		module UI
+			module Console # :nodoc:
+
+				# Runs a Test::Unit::TestSuite on the console.
+				class BufferedTestRunner
+					extend TestRunnerUtilities
+
+					# Creates a new TestRunner and runs the suite.
+					def TestRunner.run(suite)
+						return new(suite).start
+					end
+
+					# Creates a new TestRunner for running the passed
+					# suite. If quiet_mode is true, the output while
+					# running is limited to progress dots, errors and
+					# failures, and the final result. io specifies
+					# where runner output should go to; defaults to
+					# STDERR.
+					def initialize(suite, quiet_mode=false, io=$stderr)
+						if (suite.respond_to?(:suite))
+							@suite = suite.suite
+						else
+							@suite = suite
+						end
+						@quiet_mode = quiet_mode
+						@io = io
+					        @buffer = StringIO.new
+						@result = TestResult.new
+					end
+
+					# Begins the test run.
+					def start
+					    begin
+						setup_mediator
+						attach_to_mediator
+						return start_mediator
+					    rescue Exception => error
+						Kernel.puts error.to_s
+						Kernel.puts error.backtrace
+					    end
+					end
+
+					private
+					def setup_mediator # :nodoc:
+						@mediator = create_mediator(@suite)
+						suite_name = @suite.to_s
+						if ( @suite.kind_of?(Module) )
+							suite_name = @suite.name
+						end
+						@io.puts("Loaded suite #{suite_name}") if (!@quiet_mode)
+					end
+					def create_mediator(suite) # :nodoc:
+						return TestRunnerMediator.new(suite)
+					end
+					def attach_to_mediator # :nodoc:
+						@mediator.add_listener(TestRunnerMediator::FAULT_ADDED, &method(:add_fault))
+						@mediator.add_listener(TestRunnerMediator::RESULT_CHANGED, &method(:result_changed))
+						@mediator.add_listener(TestRunnerMediator::STATUS_CHANGED, &method(:update_status))
+					end
+					def start_mediator # :nodoc:
+						return @mediator.run_suite
+					end
+					def add_fault(fault) # :nodoc:
+					        if (fault.kind_of? Test::Unit::Failure)
+						    @io.write "F"
+						else
+						    @io.write "E"
+						end
+
+						@buffer.puts ""
+						@buffer.puts(fault.long_display)
+					end
+					def result_changed(result) # :nodoc:
+						@result = result
+					end
+					def update_status(status) # :nodoc:
+						if ( status.type == Status::STARTED_RUNNING )
+							@io.puts( status.message ) if (!@quiet_mode)
+						elsif ( status.type == Status::FINISHED_TEST )
+							@io.write(".")
+						elsif ( status.type == Status::FINISHED_RUNNING )
+						        @io.puts
+							@io.puts( status.message ) if (!@quiet_mode)
+							@io.puts( @result )
+							@io.puts
+						        @io.puts @buffer.string
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if __FILE__ == $0
+	Test::Unit::UI::Console::TestRunner.start_command_line_test
+end

data/test/mod_ruby_stub.rb

@@ -0,0 +1,39 @@
+class Apache
+    class Request
+	attr_reader :status_line, :content_type, :content_encoding, :headers_out, :headers_in
+	attr_writer :status_line, :content_type, :content_encoding
+	
+	def initialize
+	    @headers_out = {}
+	    eval <<-EVAL
+	    def @headers_out.add( k, v )
+		self[k] ||= []
+		self[k].push v
+	    end
+	    EVAL
+            @headers_in = {}
+	end
+
+	def sent?
+	    @sent
+	end
+
+	def send_http_header
+	    @sent = true
+	end
+
+	def args
+	    "key=some%20value&anotherKey=someother%20value"
+	end
+    end
+
+    def Apache.reset
+	@@request = nil
+    end
+
+    @@request = nil
+    def Apache::request
+	@@request ||= Request.new
+	@@request
+    end
+end

data/test/mod_ruby_stub.rb~

@@ -0,0 +1,38 @@
+class Apache
+    class Request
+	attr_reader :status_line, :content_type, :content_encoding, :headers_out
+	attr_writer :status_line, :content_type, :content_encoding
+	
+	def initialize
+	    @headers_out = {}
+	    eval <<-EVAL
+	    def @headers_out.add( k, v )
+		self[k] ||= []
+		self[k].push v
+	    end
+	    EVAL
+	end
+
+	def sent?
+	    @sent
+	end
+
+	def send_http_header
+	    @sent = true
+	end
+
+	def args
+	    "key=some%20value&anotherKey=someother%20value"
+	end
+    end
+
+    def Apache.reset
+	@@request = nil
+    end
+
+    @@request = nil
+    def Apache::request
+	@@request ||= Request.new
+	@@request
+    end
+end

data/test/stringio.rb

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

data/test/test.action.rb

@@ -0,0 +1,142 @@
+module Web
+    class Action
+	def Action.clear_actions
+	    @@all_actions = []
+	end
+    end
+end
+
+class TestAction < Test::Unit::TestCase
+    def set_up
+    end
+    
+    def teardown
+	@output = @cgi = @action = @stored_pattern = nil
+	Web::Action.clear_actions
+    end
+
+    def output
+	@output ||= ""
+    end
+
+    def cgi params={}
+	Web::CGI.new( :out => output, :params => params )
+    end
+
+    def stored_pattern pattern={}
+	@stored_pattern ||= pattern
+    end
+
+    def action( pattern=stored_pattern, &function )
+	@action ||= Web::Action.new( pattern, &function )
+    end
+
+    def test_failed_match_on_blank_cgi
+	action( "name" => // )
+	assert_equal( false, action.applies?(cgi) )
+    end
+
+    def test_fails_with_different_params
+	action "name" => //
+	assert_equal( false, action.applies?(cgi( {"not" => "me"} )) )
+    end
+
+    def test_matchs_by_param_present
+	action "name" => //
+	assert action.applies?(cgi( {"name" => "something"}) )
+    end
+    
+    def test_matches_exact_param
+	action "name" => "patrick"
+	assert action.applies?(cgi( {"name" => "patrick" } ))
+	assert_equal( false, action.applies?(cgi( {"name" => "patrick.may"} ) ))
+    end
+
+    def test_matches_pattern
+	action "name" => /patrick|tom/
+	assert action.applies?(cgi( {"name" => "patrick the great" } ))
+	assert action.applies?(cgi( {"name" => "tom the silly" } ))
+    end
+	
+    def test_match_is_not_anal
+	action "name" => //
+	assert action.applies?(cgi( {"name" => "something", "ignore" => "me"} ))
+    end
+
+    def test_runs_block
+	action_ran_flag = false
+	action( "name" => // ) {
+	    action_ran_flag = true
+	}
+
+	action.run
+
+	assert action_ran_flag
+    end
+
+    def test_guards_block
+	Web::Action.new.run
+    end
+
+    def test_passes_cgi_in_with_run
+	action_ran_flag = false
+	action( "name" => // ){ |cgi|
+	    action_ran_flag = cgi.key? "flag"
+	}
+
+	action.run cgi( "flag" => "it ran" )
+
+	assert action_ran_flag
+    end
+
+    def test_pick_action_picks_the_most_specific_action
+	one = Web::Action.new( "name" => // )
+	second = Web::Action.new( "name" => "patrick" )
+	third = Web::Action.new( "name" => /patrick|tom/ )
+
+	assert_equal( second, Web::Action.pick( cgi({ "name" => "patrick"}) ) )
+    end
+
+    def test_set_default_action
+	default = Web::Action.new
+	another = Web::Action.new( "this" => "that", "here" => "there" )
+	assert_equal( default, Web::Action.pick( cgi ) )
+    end
+
+# this test causes no initial default action
+#    def test_raises_exception_if_no_action_is_found
+#	assert_raises(Web::Exception){ 
+#	    Web::Action.pick cgi
+#	}
+#    end
+
+    def test_doesnt_raise_exception_if_no_exception_is_found
+	Web::Action.pick(cgi).run
+    end
+
+    def test_blank_action_doesnt_mask_default
+	Web::Action.pick(cgi).run
+
+	default = Web::Action.new
+
+	assert_equal( default, Web::Action.pick(cgi) )
+    end
+
+    def test_run
+	cgi_params = { "name" => "patrick" }
+	test_params = {}
+
+	Web::Action.new { |cgi|
+	    test_params = cgi.multiple_params
+	}
+
+	Web::Action.run :params => cgi_params, :out => ""
+
+	assert_equal( cgi_params, test_params )
+    end
+
+    def todo_test_subclassing_action
+
+    end
+    
+end