incubator-heraldry-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ket...@apache.org
Subject svn commit: r462998 [6/7] - in /incubator/heraldry/libraries/ruby/openid: ./ trunk/ trunk/admin/ trunk/examples/ trunk/examples/rails_active_record_store/ trunk/examples/rails_active_record_store/models/ trunk/examples/rails_openid_login_generator/ tru...
Date Wed, 11 Oct 2006 22:13:10 GMT
Added: incubator/heraldry/libraries/ruby/openid/trunk/setup.rb
URL: http://svn.apache.org/viewvc/incubator/heraldry/libraries/ruby/openid/trunk/setup.rb?view=auto&rev=462998
==============================================================================
--- incubator/heraldry/libraries/ruby/openid/trunk/setup.rb (added)
+++ incubator/heraldry/libraries/ruby/openid/trunk/setup.rb Wed Oct 11 15:13:01 2006
@@ -0,0 +1,1551 @@
+#
+# setup.rb
+#
+# Copyright (c) 2000-2005 Minero Aoki
+#
+# This program is free software.
+# You can distribute/modify this program under the terms of
+# the GNU LGPL, Lesser General Public License version 2.1.
+#
+
+unless Enumerable.method_defined?(:map)   # Ruby 1.4.6
+  module Enumerable
+    alias map collect
+  end
+end
+
+unless File.respond_to?(:read)   # Ruby 1.6
+  def File.read(fname)
+    open(fname) {|f|
+      return f.read
+    }
+  end
+end
+
+unless Errno.const_defined?(:ENOTEMPTY)   # Windows?
+  module Errno
+    class ENOTEMPTY
+      # We do not raise this exception, implementation is not needed.
+    end
+  end
+end
+
+def File.binread(fname)
+  open(fname, 'rb') {|f|
+    return f.read
+  }
+end
+
+# for corrupted Windows' stat(2)
+def File.dir?(path)
+  File.directory?((path[-1,1] == '/') ? path : path + '/')
+end
+
+
+class ConfigTable
+
+  include Enumerable
+
+  def initialize(rbconfig)
+    @rbconfig = rbconfig
+    @items = []
+    @table = {}
+    # options
+    @install_prefix = nil
+    @config_opt = nil
+    @verbose = true
+    @no_harm = false
+    @libsrc_pattern = '*.rb'
+  end
+
+  attr_accessor :install_prefix
+  attr_accessor :config_opt
+
+  attr_writer :verbose
+
+  def verbose?
+    @verbose
+  end
+
+  attr_writer :no_harm
+
+  def no_harm?
+    @no_harm
+  end
+
+  attr_accessor :libsrc_pattern
+
+  def [](key)
+    lookup(key).resolve(self)
+  end
+
+  def []=(key, val)
+    lookup(key).set val
+  end
+
+  def names
+    @items.map {|i| i.name }
+  end
+
+  def each(&block)
+    @items.each(&block)
+  end
+
+  def key?(name)
+    @table.key?(name)
+  end
+
+  def lookup(name)
+    @table[name] or setup_rb_error "no such config item: #{name}"
+  end
+
+  def add(item)
+    @items.push item
+    @table[item.name] = item
+  end
+
+  def remove(name)
+    item = lookup(name)
+    @items.delete_if {|i| i.name == name }
+    @table.delete_if {|name, i| i.name == name }
+    item
+  end
+
+  def load_script(path, inst = nil)
+    if File.file?(path)
+      MetaConfigEnvironment.new(self, inst).instance_eval File.read(path), path
+    end
+  end
+
+  def savefile
+    '.config'
+  end
+
+  def load_savefile
+    begin
+      File.foreach(savefile()) do |line|
+        k, v = *line.split(/=/, 2)
+        self[k] = v.strip
+      end
+    rescue Errno::ENOENT
+      setup_rb_error $!.message + "\n#{File.basename($0)} config first"
+    end
+  end
+
+  def save
+    @items.each {|i| i.value }
+    File.open(savefile(), 'w') {|f|
+      @items.each do |i|
+        f.printf "%s=%s\n", i.name, i.value if i.value? and i.value
+      end
+    }
+  end
+
+  def load_standard_entries
+    standard_entries(@rbconfig).each do |ent|
+      add ent
+    end
+  end
+
+  def standard_entries(rbconfig)
+    c = rbconfig
+
+    rubypath = c['bindir'] + '/' + c['ruby_install_name']
+
+    major = c['MAJOR'].to_i
+    minor = c['MINOR'].to_i
+    teeny = c['TEENY'].to_i
+    version = "#{major}.#{minor}"
+
+    # ruby ver. >= 1.4.4?
+    newpath_p = ((major >= 2) or
+                 ((major == 1) and
+                  ((minor >= 5) or
+                   ((minor == 4) and (teeny >= 4)))))
+
+    if c['rubylibdir']
+      # V > 1.6.3
+      libruby         = "#{c['prefix']}/lib/ruby"
+      librubyver      = c['rubylibdir']
+      librubyverarch  = c['archdir']
+      siteruby        = c['sitedir']
+      siterubyver     = c['sitelibdir']
+      siterubyverarch = c['sitearchdir']
+    elsif newpath_p
+      # 1.4.4 <= V <= 1.6.3
+      libruby         = "#{c['prefix']}/lib/ruby"
+      librubyver      = "#{c['prefix']}/lib/ruby/#{version}"
+      librubyverarch  = "#{c['prefix']}/lib/ruby/#{version}/#{c['arch']}"
+      siteruby        = c['sitedir']
+      siterubyver     = "$siteruby/#{version}"
+      siterubyverarch = "$siterubyver/#{c['arch']}"
+    else
+      # V < 1.4.4
+      libruby         = "#{c['prefix']}/lib/ruby"
+      librubyver      = "#{c['prefix']}/lib/ruby/#{version}"
+      librubyverarch  = "#{c['prefix']}/lib/ruby/#{version}/#{c['arch']}"
+      siteruby        = "#{c['prefix']}/lib/ruby/#{version}/site_ruby"
+      siterubyver     = siteruby
+      siterubyverarch = "$siterubyver/#{c['arch']}"
+    end
+    parameterize = lambda {|path|
+      path.sub(/\A#{Regexp.quote(c['prefix'])}/, '$prefix')
+    }
+
+    if arg = c['configure_args'].split.detect {|arg| /--with-make-prog=/ =~ arg }
+      makeprog = arg.sub(/'/, '').split(/=/, 2)[1]
+    else
+      makeprog = 'make'
+    end
+
+    [
+      ExecItem.new('installdirs', 'std/site/home',
+                   'std: install under libruby; site: install under site_ruby; home: install under $HOME')\
+          {|val, table|
+            case val
+            when 'std'
+              table['rbdir'] = '$librubyver'
+              table['sodir'] = '$librubyverarch'
+            when 'site'
+              table['rbdir'] = '$siterubyver'
+              table['sodir'] = '$siterubyverarch'
+            when 'home'
+              setup_rb_error '$HOME was not set' unless ENV['HOME']
+              table['prefix'] = ENV['HOME']
+              table['rbdir'] = '$libdir/ruby'
+              table['sodir'] = '$libdir/ruby'
+            end
+          },
+      PathItem.new('prefix', 'path', c['prefix'],
+                   'path prefix of target environment'),
+      PathItem.new('bindir', 'path', parameterize.call(c['bindir']),
+                   'the directory for commands'),
+      PathItem.new('libdir', 'path', parameterize.call(c['libdir']),
+                   'the directory for libraries'),
+      PathItem.new('datadir', 'path', parameterize.call(c['datadir']),
+                   'the directory for shared data'),
+      PathItem.new('mandir', 'path', parameterize.call(c['mandir']),
+                   'the directory for man pages'),
+      PathItem.new('sysconfdir', 'path', parameterize.call(c['sysconfdir']),
+                   'the directory for system configuration files'),
+      PathItem.new('localstatedir', 'path', parameterize.call(c['localstatedir']),
+                   'the directory for local state data'),
+      PathItem.new('libruby', 'path', libruby,
+                   'the directory for ruby libraries'),
+      PathItem.new('librubyver', 'path', librubyver,
+                   'the directory for standard ruby libraries'),
+      PathItem.new('librubyverarch', 'path', librubyverarch,
+                   'the directory for standard ruby extensions'),
+      PathItem.new('siteruby', 'path', siteruby,
+          'the directory for version-independent aux ruby libraries'),
+      PathItem.new('siterubyver', 'path', siterubyver,
+                   'the directory for aux ruby libraries'),
+      PathItem.new('siterubyverarch', 'path', siterubyverarch,
+                   'the directory for aux ruby binaries'),
+      PathItem.new('rbdir', 'path', '$siterubyver',
+                   'the directory for ruby scripts'),
+      PathItem.new('sodir', 'path', '$siterubyverarch',
+                   'the directory for ruby extentions'),
+      PathItem.new('rubypath', 'path', rubypath,
+                   'the path to set to #! line'),
+      ProgramItem.new('rubyprog', 'name', rubypath,
+                      'the ruby program using for installation'),
+      ProgramItem.new('makeprog', 'name', makeprog,
+                      'the make program to compile ruby extentions'),
+      SelectItem.new('shebang', 'all/ruby/never', 'ruby',
+                     'shebang line (#!) editing mode'),
+      BoolItem.new('without-ext', 'yes/no', 'no',
+                   'does not compile/install ruby extentions')
+    ]
+  end
+  private :standard_entries
+
+  def load_multipackage_entries
+    multipackage_entries().each do |ent|
+      add ent
+    end
+  end
+
+  def multipackage_entries
+    [
+      PackageSelectionItem.new('with', 'name,name...', '', 'ALL',
+                               'package names that you want to install'),
+      PackageSelectionItem.new('without', 'name,name...', '', 'NONE',
+                               'package names that you do not want to install')
+    ]
+  end
+  private :multipackage_entries
+
+  ALIASES = {
+    'std-ruby'         => 'librubyver',
+    'stdruby'          => 'librubyver',
+    'rubylibdir'       => 'librubyver',
+    'archdir'          => 'librubyverarch',
+    'site-ruby-common' => 'siteruby',     # For backward compatibility
+    'site-ruby'        => 'siterubyver',  # For backward compatibility
+    'bin-dir'          => 'bindir',
+    'bin-dir'          => 'bindir',
+    'rb-dir'           => 'rbdir',
+    'so-dir'           => 'sodir',
+    'data-dir'         => 'datadir',
+    'ruby-path'        => 'rubypath',
+    'ruby-prog'        => 'rubyprog',
+    'ruby'             => 'rubyprog',
+    'make-prog'        => 'makeprog',
+    'make'             => 'makeprog'
+  }
+
+  def fixup
+    ALIASES.each do |ali, name|
+      @table[ali] = @table[name]
+    end
+    @items.freeze
+    @table.freeze
+    @options_re = /\A--(#{@table.keys.join('|')})(?:=(.*))?\z/
+  end
+
+  def parse_opt(opt)
+    m = @options_re.match(opt) or setup_rb_error "config: unknown option #{opt}"
+    m.to_a[1,2]
+  end
+
+  def dllext
+    @rbconfig['DLEXT']
+  end
+
+  def value_config?(name)
+    lookup(name).value?
+  end
+
+  class Item
+    def initialize(name, template, default, desc)
+      @name = name.freeze
+      @template = template
+      @value = default
+      @default = default
+      @description = desc
+    end
+
+    attr_reader :name
+    attr_reader :description
+
+    attr_accessor :default
+    alias help_default default
+
+    def help_opt
+      "--#{@name}=#{@template}"
+    end
+
+    def value?
+      true
+    end
+
+    def value
+      @value
+    end
+
+    def resolve(table)
+      @value.gsub(%r<\$([^/]+)>) { table[$1] }
+    end
+
+    def set(val)
+      @value = check(val)
+    end
+
+    private
+
+    def check(val)
+      setup_rb_error "config: --#{name} requires argument" unless val
+      val
+    end
+  end
+
+  class BoolItem < Item
+    def config_type
+      'bool'
+    end
+
+    def help_opt
+      "--#{@name}"
+    end
+
+    private
+
+    def check(val)
+      return 'yes' unless val
+      unless /\A(y(es)?|n(o)?|t(rue)?|f(alse))\z/i =~ val
+        setup_rb_error "config: --#{@name} accepts only yes/no for argument"
+      end
+      (/\Ay(es)?|\At(rue)/i =~ value) ? 'yes' : 'no'
+    end
+  end
+
+  class PathItem < Item
+    def config_type
+      'path'
+    end
+
+    private
+
+    def check(path)
+      setup_rb_error "config: --#{@name} requires argument"  unless path
+      path[0,1] == '$' ? path : File.expand_path(path)
+    end
+  end
+
+  class ProgramItem < Item
+    def config_type
+      'program'
+    end
+  end
+
+  class SelectItem < Item
+    def initialize(name, selection, default, desc)
+      super
+      @ok = selection.split('/')
+    end
+
+    def config_type
+      'select'
+    end
+
+    private
+
+    def check(val)
+      unless @ok.include?(val.strip)
+        setup_rb_error "config: use --#{@name}=#{@template} (#{val})"
+      end
+      val.strip
+    end
+  end
+
+  class ExecItem < Item
+    def initialize(name, selection, desc, &block)
+      super name, selection, nil, desc
+      @ok = selection.split('/')
+      @action = block
+    end
+
+    def config_type
+      'exec'
+    end
+
+    def value?
+      false
+    end
+
+    def resolve(table)
+      setup_rb_error "$#{name()} wrongly used as option value"
+    end
+
+    undef set
+
+    def evaluate(val, table)
+      v = val.strip.downcase
+      unless @ok.include?(v)
+        setup_rb_error "invalid option --#{@name}=#{val} (use #{@template})"
+      end
+      @action.call v, table
+    end
+  end
+
+  class PackageSelectionItem < Item
+    def initialize(name, template, default, help_default, desc)
+      super name, template, default, desc
+      @help_default = help_default
+    end
+
+    attr_reader :help_default
+
+    def config_type
+      'package'
+    end
+
+    private
+
+    def check(val)
+      unless File.dir?("packages/#{val}")
+        setup_rb_error "config: no such package: #{val}"
+      end
+      val
+    end
+  end
+
+  class MetaConfigEnvironment
+    def intiailize(config, installer)
+      @config = config
+      @installer = installer
+    end
+
+    def config_names
+      @config.names
+    end
+
+    def config?(name)
+      @config.key?(name)
+    end
+
+    def bool_config?(name)
+      @config.lookup(name).config_type == 'bool'
+    end
+
+    def path_config?(name)
+      @config.lookup(name).config_type == 'path'
+    end
+
+    def value_config?(name)
+      @config.lookup(name).config_type != 'exec'
+    end
+
+    def add_config(item)
+      @config.add item
+    end
+
+    def add_bool_config(name, default, desc)
+      @config.add BoolItem.new(name, 'yes/no', default ? 'yes' : 'no', desc)
+    end
+
+    def add_path_config(name, default, desc)
+      @config.add PathItem.new(name, 'path', default, desc)
+    end
+
+    def set_config_default(name, default)
+      @config.lookup(name).default = default
+    end
+
+    def remove_config(name)
+      @config.remove(name)
+    end
+
+    # For only multipackage
+    def packages
+      raise '[setup.rb fatal] multi-package metaconfig API packages() called for single-package; contact application package vendor' unless @installer
+      @installer.packages
+    end
+
+    # For only multipackage
+    def declare_packages(list)
+      raise '[setup.rb fatal] multi-package metaconfig API declare_packages() called for single-package; contact application package vendor' unless @installer
+      @installer.packages = list
+    end
+  end
+
+end   # class ConfigTable
+
+
+# This module requires: #verbose?, #no_harm?
+module FileOperations
+
+  def mkdir_p(dirname, prefix = nil)
+    dirname = prefix + File.expand_path(dirname) if prefix
+    $stderr.puts "mkdir -p #{dirname}" if verbose?
+    return if no_harm?
+
+    # Does not check '/', it's too abnormal.
+    dirs = File.expand_path(dirname).split(%r<(?=/)>)
+    if /\A[a-z]:\z/i =~ dirs[0]
+      disk = dirs.shift
+      dirs[0] = disk + dirs[0]
+    end
+    dirs.each_index do |idx|
+      path = dirs[0..idx].join('')
+      Dir.mkdir path unless File.dir?(path)
+    end
+  end
+
+  def rm_f(path)
+    $stderr.puts "rm -f #{path}" if verbose?
+    return if no_harm?
+    force_remove_file path
+  end
+
+  def rm_rf(path)
+    $stderr.puts "rm -rf #{path}" if verbose?
+    return if no_harm?
+    remove_tree path
+  end
+
+  def remove_tree(path)
+    if File.symlink?(path)
+      remove_file path
+    elsif File.dir?(path)
+      remove_tree0 path
+    else
+      force_remove_file path
+    end
+  end
+
+  def remove_tree0(path)
+    Dir.foreach(path) do |ent|
+      next if ent == '.'
+      next if ent == '..'
+      entpath = "#{path}/#{ent}"
+      if File.symlink?(entpath)
+        remove_file entpath
+      elsif File.dir?(entpath)
+        remove_tree0 entpath
+      else
+        force_remove_file entpath
+      end
+    end
+    begin
+      Dir.rmdir path
+    rescue Errno::ENOTEMPTY
+      # directory may not be empty
+    end
+  end
+
+  def move_file(src, dest)
+    force_remove_file dest
+    begin
+      File.rename src, dest
+    rescue
+      File.open(dest, 'wb') {|f|
+        f.write File.binread(src)
+      }
+      File.chmod File.stat(src).mode, dest
+      File.unlink src
+    end
+  end
+
+  def force_remove_file(path)
+    begin
+      remove_file path
+    rescue
+    end
+  end
+
+  def remove_file(path)
+    File.chmod 0777, path
+    File.unlink path
+  end
+
+  def install(from, dest, mode, prefix = nil)
+    $stderr.puts "install #{from} #{dest}" if verbose?
+    return if no_harm?
+
+    realdest = prefix ? prefix + File.expand_path(dest) : dest
+    realdest = File.join(realdest, File.basename(from)) if File.dir?(realdest)
+    str = File.binread(from)
+    if diff?(str, realdest)
+      verbose_off {
+        rm_f realdest if File.exist?(realdest)
+      }
+      File.open(realdest, 'wb') {|f|
+        f.write str
+      }
+      File.chmod mode, realdest
+
+      File.open("#{objdir_root()}/InstalledFiles", 'a') {|f|
+        if prefix
+          f.puts realdest.sub(prefix, '')
+        else
+          f.puts realdest
+        end
+      }
+    end
+  end
+
+  def diff?(new_content, path)
+    return true unless File.exist?(path)
+    new_content != File.binread(path)
+  end
+
+  def command(*args)
+    $stderr.puts args.join(' ') if verbose?
+    system(*args) or raise RuntimeError,
+        "system(#{args.map{|a| a.inspect }.join(' ')}) failed"
+  end
+
+  def ruby(*args)
+    command config('rubyprog'), *args
+  end
+  
+  def make(task = nil)
+    command(*[config('makeprog'), task].compact)
+  end
+
+  def extdir?(dir)
+    File.exist?("#{dir}/MANIFEST") or File.exist?("#{dir}/extconf.rb")
+  end
+
+  def files_of(dir)
+    Dir.open(dir) {|d|
+      return d.select {|ent| File.file?("#{dir}/#{ent}") }
+    }
+  end
+
+  DIR_REJECT = %w( . .. CVS SCCS RCS CVS.adm .svn )
+
+  def directories_of(dir)
+    Dir.open(dir) {|d|
+      return d.select {|ent| File.dir?("#{dir}/#{ent}") } - DIR_REJECT
+    }
+  end
+
+end
+
+
+# This module requires: #srcdir_root, #objdir_root, #relpath
+module HookScriptAPI
+
+  def get_config(key)
+    @config[key]
+  end
+
+  alias config get_config
+
+  # obsolete: use metaconfig to change configuration
+  def set_config(key, val)
+    @config[key] = val
+  end
+
+  #
+  # srcdir/objdir (works only in the package directory)
+  #
+
+  def curr_srcdir
+    "#{srcdir_root()}/#{relpath()}"
+  end
+
+  def curr_objdir
+    "#{objdir_root()}/#{relpath()}"
+  end
+
+  def srcfile(path)
+    "#{curr_srcdir()}/#{path}"
+  end
+
+  def srcexist?(path)
+    File.exist?(srcfile(path))
+  end
+
+  def srcdirectory?(path)
+    File.dir?(srcfile(path))
+  end
+  
+  def srcfile?(path)
+    File.file?(srcfile(path))
+  end
+
+  def srcentries(path = '.')
+    Dir.open("#{curr_srcdir()}/#{path}") {|d|
+      return d.to_a - %w(. ..)
+    }
+  end
+
+  def srcfiles(path = '.')
+    srcentries(path).select {|fname|
+      File.file?(File.join(curr_srcdir(), path, fname))
+    }
+  end
+
+  def srcdirectories(path = '.')
+    srcentries(path).select {|fname|
+      File.dir?(File.join(curr_srcdir(), path, fname))
+    }
+  end
+
+end
+
+
+class ToplevelInstaller
+
+  Version   = '3.4.0'
+  Copyright = 'Copyright (c) 2000-2005 Minero Aoki'
+
+  TASKS = [
+    [ 'all',      'do config, setup, then install' ],
+    [ 'config',   'saves your configurations' ],
+    [ 'show',     'shows current configuration' ],
+    [ 'setup',    'compiles ruby extentions and others' ],
+    [ 'install',  'installs files' ],
+    [ 'test',     'run all tests in test/' ],
+    [ 'clean',    "does `make clean' for each extention" ],
+    [ 'distclean',"does `make distclean' for each extention" ]
+  ]
+
+  def ToplevelInstaller.invoke
+    config = ConfigTable.new(load_rbconfig())
+    config.load_standard_entries
+    config.load_multipackage_entries if multipackage?
+    config.fixup
+    klass = (multipackage?() ? ToplevelInstallerMulti : ToplevelInstaller)
+    klass.new(File.dirname($0), config).invoke
+  end
+
+  def ToplevelInstaller.multipackage?
+    File.dir?(File.dirname($0) + '/packages')
+  end
+
+  def ToplevelInstaller.load_rbconfig
+    if arg = ARGV.detect {|arg| /\A--rbconfig=/ =~ arg }
+      ARGV.delete(arg)
+      load File.expand_path(arg.split(/=/, 2)[1])
+      $".push 'rbconfig.rb'
+    else
+      require 'rbconfig'
+    end
+    ::Config::CONFIG
+  end
+
+  def initialize(ardir_root, config)
+    @ardir = File.expand_path(ardir_root)
+    @config = config
+    # cache
+    @valid_task_re = nil
+  end
+
+  def config(key)
+    @config[key]
+  end
+
+  def inspect
+    "#<#{self.class} #{__id__()}>"
+  end
+
+  def invoke
+    run_metaconfigs
+    case task = parsearg_global()
+    when nil, 'all'
+      parsearg_config
+      init_installers
+      exec_config
+      exec_setup
+      exec_install
+    else
+      case task
+      when 'config', 'test'
+        ;
+      when 'clean', 'distclean'
+        @config.load_savefile if File.exist?(@config.savefile)
+      else
+        @config.load_savefile
+      end
+      __send__ "parsearg_#{task}"
+      init_installers
+      __send__ "exec_#{task}"
+    end
+  end
+  
+  def run_metaconfigs
+    @config.load_script "#{@ardir}/metaconfig"
+  end
+
+  def init_installers
+    @installer = Installer.new(@config, @ardir, File.expand_path('.'))
+  end
+
+  #
+  # Hook Script API bases
+  #
+
+  def srcdir_root
+    @ardir
+  end
+
+  def objdir_root
+    '.'
+  end
+
+  def relpath
+    '.'
+  end
+
+  #
+  # Option Parsing
+  #
+
+  def parsearg_global
+    while arg = ARGV.shift
+      case arg
+      when /\A\w+\z/
+        setup_rb_error "invalid task: #{arg}" unless valid_task?(arg)
+        return arg
+      when '-q', '--quiet'
+        @config.verbose = false
+      when '--verbose'
+        @config.verbose = true
+      when '--help'
+        print_usage $stdout
+        exit 0
+      when '--version'
+        puts "#{File.basename($0)} version #{Version}"
+        exit 0
+      when '--copyright'
+        puts Copyright
+        exit 0
+      else
+        setup_rb_error "unknown global option '#{arg}'"
+      end
+    end
+    nil
+  end
+
+  def valid_task?(t)
+    valid_task_re() =~ t
+  end
+
+  def valid_task_re
+    @valid_task_re ||= /\A(?:#{TASKS.map {|task,desc| task }.join('|')})\z/
+  end
+
+  def parsearg_no_options
+    unless ARGV.empty?
+      setup_rb_error "#{task}: unknown options: #{ARGV.join(' ')}"
+    end
+  end
+
+  alias parsearg_show       parsearg_no_options
+  alias parsearg_setup      parsearg_no_options
+  alias parsearg_test       parsearg_no_options
+  alias parsearg_clean      parsearg_no_options
+  alias parsearg_distclean  parsearg_no_options
+
+  def parsearg_config
+    evalopt = []
+    set = []
+    @config.config_opt = []
+    while i = ARGV.shift
+      if /\A--?\z/ =~ i
+        @config.config_opt = ARGV.dup
+        break
+      end
+      name, value = *@config.parse_opt(i)
+      if @config.value_config?(name)
+        @config[name] = value
+      else
+        evalopt.push [name, value]
+      end
+      set.push name
+    end
+    evalopt.each do |name, value|
+      @config.lookup(name).evaluate value, @config
+    end
+    # Check if configuration is valid
+    set.each do |n|
+      @config[n] if @config.value_config?(n)
+    end
+  end
+
+  def parsearg_install
+    @config.no_harm = false
+    @config.install_prefix = ''
+    while a = ARGV.shift
+      case a
+      when '--no-harm'
+        @config.no_harm = true
+      when /\A--prefix=/
+        path = a.split(/=/, 2)[1]
+        path = File.expand_path(path) unless path[0,1] == '/'
+        @config.install_prefix = path
+      else
+        setup_rb_error "install: unknown option #{a}"
+      end
+    end
+  end
+
+  def print_usage(out)
+    out.puts 'Typical Installation Procedure:'
+    out.puts "  $ ruby #{File.basename $0} config"
+    out.puts "  $ ruby #{File.basename $0} setup"
+    out.puts "  # ruby #{File.basename $0} install (may require root privilege)"
+    out.puts
+    out.puts 'Detailed Usage:'
+    out.puts "  ruby #{File.basename $0} <global option>"
+    out.puts "  ruby #{File.basename $0} [<global options>] <task> [<task options>]"
+
+    fmt = "  %-24s %s\n"
+    out.puts
+    out.puts 'Global options:'
+    out.printf fmt, '-q,--quiet',   'suppress message outputs'
+    out.printf fmt, '   --verbose', 'output messages verbosely'
+    out.printf fmt, '   --help',    'print this message'
+    out.printf fmt, '   --version', 'print version and quit'
+    out.printf fmt, '   --copyright',  'print copyright and quit'
+    out.puts
+    out.puts 'Tasks:'
+    TASKS.each do |name, desc|
+      out.printf fmt, name, desc
+    end
+
+    fmt = "  %-24s %s [%s]\n"
+    out.puts
+    out.puts 'Options for CONFIG or ALL:'
+    @config.each do |item|
+      out.printf fmt, item.help_opt, item.description, item.help_default
+    end
+    out.printf fmt, '--rbconfig=path', 'rbconfig.rb to load',"running ruby's"
+    out.puts
+    out.puts 'Options for INSTALL:'
+    out.printf fmt, '--no-harm', 'only display what to do if given', 'off'
+    out.printf fmt, '--prefix=path',  'install path prefix', ''
+    out.puts
+  end
+
+  #
+  # Task Handlers
+  #
+
+  def exec_config
+    @installer.exec_config
+    @config.save   # must be final
+  end
+
+  def exec_setup
+    @installer.exec_setup
+  end
+
+  def exec_install
+    @installer.exec_install
+  end
+
+  def exec_test
+    @installer.exec_test
+  end
+
+  def exec_show
+    @config.each do |i|
+      printf "%-20s %s\n", i.name, i.value if i.value?
+    end
+  end
+
+  def exec_clean
+    @installer.exec_clean
+  end
+
+  def exec_distclean
+    @installer.exec_distclean
+  end
+
+end   # class ToplevelInstaller
+
+
+class ToplevelInstallerMulti < ToplevelInstaller
+
+  include FileOperations
+
+  def initialize(ardir_root, config)
+    super
+    @packages = directories_of("#{@ardir}/packages")
+    raise 'no package exists' if @packages.empty?
+    @root_installer = Installer.new(@config, @ardir, File.expand_path('.'))
+  end
+
+  def run_metaconfigs
+    @config.load_script "#{@ardir}/metaconfig", self
+    @packages.each do |name|
+      @config.load_script "#{@ardir}/packages/#{name}/metaconfig"
+    end
+  end
+
+  attr_reader :packages
+
+  def packages=(list)
+    raise 'package list is empty' if list.empty?
+    list.each do |name|
+      raise "directory packages/#{name} does not exist"\
+              unless File.dir?("#{@ardir}/packages/#{name}")
+    end
+    @packages = list
+  end
+
+  def init_installers
+    @installers = {}
+    @packages.each do |pack|
+      @installers[pack] = Installer.new(@config,
+                                       "#{@ardir}/packages/#{pack}",
+                                       "packages/#{pack}")
+    end
+    with    = extract_selection(config('with'))
+    without = extract_selection(config('without'))
+    @selected = @installers.keys.select {|name|
+                  (with.empty? or with.include?(name)) \
+                      and not without.include?(name)
+                }
+  end
+
+  def extract_selection(list)
+    a = list.split(/,/)
+    a.each do |name|
+      setup_rb_error "no such package: #{name}"  unless @installers.key?(name)
+    end
+    a
+  end
+
+  def print_usage(f)
+    super
+    f.puts 'Inluded packages:'
+    f.puts '  ' + @packages.sort.join(' ')
+    f.puts
+  end
+
+  #
+  # Task Handlers
+  #
+
+  def exec_config
+    run_hook 'pre-config'
+    each_selected_installers {|inst| inst.exec_config }
+    run_hook 'post-config'
+    @config.save   # must be final
+  end
+
+  def exec_setup
+    run_hook 'pre-setup'
+    each_selected_installers {|inst| inst.exec_setup }
+    run_hook 'post-setup'
+  end
+
+  def exec_install
+    run_hook 'pre-install'
+    each_selected_installers {|inst| inst.exec_install }
+    run_hook 'post-install'
+  end
+
+  def exec_test
+    run_hook 'pre-test'
+    each_selected_installers {|inst| inst.exec_test }
+    run_hook 'post-test'
+  end
+
+  def exec_clean
+    rm_f @config.savefile
+    run_hook 'pre-clean'
+    each_selected_installers {|inst| inst.exec_clean }
+    run_hook 'post-clean'
+  end
+
+  def exec_distclean
+    rm_f @config.savefile
+    run_hook 'pre-distclean'
+    each_selected_installers {|inst| inst.exec_distclean }
+    run_hook 'post-distclean'
+  end
+
+  #
+  # lib
+  #
+
+  def each_selected_installers
+    Dir.mkdir 'packages' unless File.dir?('packages')
+    @selected.each do |pack|
+      $stderr.puts "Processing the package `#{pack}' ..." if verbose?
+      Dir.mkdir "packages/#{pack}" unless File.dir?("packages/#{pack}")
+      Dir.chdir "packages/#{pack}"
+      yield @installers[pack]
+      Dir.chdir '../..'
+    end
+  end
+
+  def run_hook(id)
+    @root_installer.run_hook id
+  end
+
+  # module FileOperations requires this
+  def verbose?
+    @config.verbose?
+  end
+
+  # module FileOperations requires this
+  def no_harm?
+    @config.no_harm?
+  end
+
+end   # class ToplevelInstallerMulti
+
+
+class Installer
+
+  FILETYPES = %w( bin lib ext data conf man )
+
+  include FileOperations
+  include HookScriptAPI
+
+  def initialize(config, srcroot, objroot)
+    @config = config
+    @srcdir = File.expand_path(srcroot)
+    @objdir = File.expand_path(objroot)
+    @currdir = '.'
+  end
+
+  def inspect
+    "#<#{self.class} #{File.basename(@srcdir)}>"
+  end
+
+  #
+  # Hook Script API base methods
+  #
+
+  def srcdir_root
+    @srcdir
+  end
+
+  def objdir_root
+    @objdir
+  end
+
+  def relpath
+    @currdir
+  end
+
+  #
+  # Config Access
+  #
+
+  # module FileOperations requires this
+  def verbose?
+    @config.verbose?
+  end
+
+  # module FileOperations requires this
+  def no_harm?
+    @config.no_harm?
+  end
+
+  def verbose_off
+    begin
+      save, @config.verbose = @config.verbose?, false
+      yield
+    ensure
+      @config.verbose = save
+    end
+  end
+
+  #
+  # TASK config
+  #
+
+  def exec_config
+    exec_task_traverse 'config'
+  end
+
+  def config_dir_bin(rel)
+  end
+
+  def config_dir_lib(rel)
+  end
+
+  def config_dir_man(rel)
+  end
+
+  def config_dir_ext(rel)
+    extconf if extdir?(curr_srcdir())
+  end
+
+  def extconf
+    ruby "#{curr_srcdir()}/extconf.rb", *@config.config_opt
+  end
+
+  def config_dir_data(rel)
+  end
+
+  def config_dir_conf(rel)
+  end
+
+  #
+  # TASK setup
+  #
+
+  def exec_setup
+    exec_task_traverse 'setup'
+  end
+
+  def setup_dir_bin(rel)
+    files_of(curr_srcdir()).each do |fname|
+      adjust_shebang "#{curr_srcdir()}/#{fname}"
+    end
+  end
+
+  def adjust_shebang(path)
+    return if no_harm?
+    tmpfile = File.basename(path) + '.tmp'
+    begin
+      File.open(path, 'rb') {|r|
+        first = r.gets
+        return unless File.basename(first.sub(/\A\#!/, '').split[0].to_s) == 'ruby'
+        $stderr.puts "adjusting shebang: #{File.basename(path)}" if verbose?
+        File.open(tmpfile, 'wb') {|w|
+          w.print first.sub(/\A\#!\s*\S+/, '#! ' + config('rubypath'))
+          w.write r.read
+        }
+      }
+      move_file tmpfile, File.basename(path)
+    ensure
+      File.unlink tmpfile if File.exist?(tmpfile)
+    end
+  end
+
+  def setup_dir_lib(rel)
+  end
+
+  def setup_dir_man(rel)
+  end
+
+  def setup_dir_ext(rel)
+    make if extdir?(curr_srcdir())
+  end
+
+  def setup_dir_data(rel)
+  end
+
+  def setup_dir_conf(rel)
+  end
+
+  #
+  # TASK install
+  #
+
+  def exec_install
+    rm_f 'InstalledFiles'
+    exec_task_traverse 'install'
+  end
+
+  def install_dir_bin(rel)
+    install_files targetfiles(), "#{config('bindir')}/#{rel}", 0755
+  end
+
+  def install_dir_lib(rel)
+    install_files rubyscripts(), "#{config('rbdir')}/#{rel}", 0644
+  end
+
+  def install_dir_ext(rel)
+    return unless extdir?(curr_srcdir())
+    install_files rubyextentions('.'),
+                  "#{config('sodir')}/#{File.dirname(rel)}",
+                  0555
+  end
+
+  def install_dir_data(rel)
+    install_files targetfiles(), "#{config('datadir')}/#{rel}", 0644
+  end
+
+  def install_dir_conf(rel)
+    # FIXME: should not remove current config files
+    # (rename previous file to .old/.org)
+    install_files targetfiles(), "#{config('sysconfdir')}/#{rel}", 0644
+  end
+
+  def install_dir_man(rel)
+    install_files targetfiles(), "#{config('mandir')}/#{rel}", 0644
+  end
+
+  def install_files(list, dest, mode)
+    mkdir_p dest, @config.install_prefix
+    list.each do |fname|
+      install fname, dest, mode, @config.install_prefix
+    end
+  end
+
+  def rubyscripts
+    glob_select(@config.libsrc_pattern, targetfiles())
+  end
+
+  def rubyextentions(dir)
+    ents = glob_select("*.#{@config.dllext}", targetfiles())
+    if ents.empty?
+      setup_rb_error "no ruby extention exists: 'ruby #{$0} setup' first"
+    end
+    ents
+  end
+
+  def targetfiles
+    mapdir(existfiles() - hookfiles())
+  end
+
+  def mapdir(ents)
+    ents.map {|ent|
+      if File.exist?(ent)
+      then ent                         # objdir
+      else "#{curr_srcdir()}/#{ent}"   # srcdir
+      end
+    }
+  end
+
+  # picked up many entries from cvs-1.11.1/src/ignore.c
+  JUNK_FILES = %w( 
+    core RCSLOG tags TAGS .make.state
+    .nse_depinfo #* .#* cvslog.* ,* .del-* *.olb
+    *~ *.old *.bak *.BAK *.orig *.rej _$* *$
+
+    *.org *.in .*
+  )
+
+  def existfiles
+    glob_reject(JUNK_FILES, (files_of(curr_srcdir()) | files_of('.')))
+  end
+
+  def hookfiles
+    %w( pre-%s post-%s pre-%s.rb post-%s.rb ).map {|fmt|
+      %w( config setup install clean ).map {|t| sprintf(fmt, t) }
+    }.flatten
+  end
+
+  def glob_select(pat, ents)
+    re = globs2re([pat])
+    ents.select {|ent| re =~ ent }
+  end
+
+  def glob_reject(pats, ents)
+    re = globs2re(pats)
+    ents.reject {|ent| re =~ ent }
+  end
+
+  GLOB2REGEX = {
+    '.' => '\.',
+    '$' => '\$',
+    '#' => '\#',
+    '*' => '.*'
+  }
+
+  def globs2re(pats)
+    /\A(?:#{
+      pats.map {|pat| pat.gsub(/[\.\$\#\*]/) {|ch| GLOB2REGEX[ch] } }.join('|')
+    })\z/
+  end
+
+  #
+  # TASK test
+  #
+
+  TESTDIR = 'test'
+
+  def exec_test
+    unless File.directory?('test')
+      $stderr.puts 'no test in this package' if verbose?
+      return
+    end
+    $stderr.puts 'Running tests...' if verbose?
+    require 'test/unit'
+    runner = Test::Unit::AutoRunner.new(true)
+    runner.to_run << TESTDIR
+    runner.run
+  end
+
+  #
+  # TASK clean
+  #
+
+  def exec_clean
+    exec_task_traverse 'clean'
+    rm_f @config.savefile
+    rm_f 'InstalledFiles'
+  end
+
+  def clean_dir_bin(rel)
+  end
+
+  def clean_dir_lib(rel)
+  end
+
+  def clean_dir_ext(rel)
+    return unless extdir?(curr_srcdir())
+    make 'clean' if File.file?('Makefile')
+  end
+
+  def clean_dir_data(rel)
+  end
+
+  def clean_dir_conf(rel)
+  end
+
+  #
+  # TASK distclean
+  #
+
+  def exec_distclean
+    exec_task_traverse 'distclean'
+    rm_f @config.savefile
+    rm_f 'InstalledFiles'
+  end
+
+  def distclean_dir_bin(rel)
+  end
+
+  def distclean_dir_lib(rel)
+  end
+
+  def distclean_dir_ext(rel)
+    return unless extdir?(curr_srcdir())
+    make 'distclean' if File.file?('Makefile')
+  end
+
+  def distclean_dir_data(rel)
+  end
+
+  def distclean_dir_conf(rel)
+  end
+
+  #
+  # lib
+  #
+
+  def exec_task_traverse(task)
+    run_hook "pre-#{task}"
+    FILETYPES.each do |type|
+      if config('without-ext') == 'yes' and type == 'ext'
+        $stderr.puts 'skipping ext/* by user option' if verbose?
+        next
+      end
+      traverse task, type, "#{task}_dir_#{type}"
+    end
+    run_hook "post-#{task}"
+  end
+
+  def traverse(task, rel, mid)
+    dive_into(rel) {
+      run_hook "pre-#{task}"
+      __send__ mid, rel.sub(%r[\A.*?(?:/|\z)], '')
+      directories_of(curr_srcdir()).each do |d|
+        traverse task, "#{rel}/#{d}", mid
+      end
+      run_hook "post-#{task}"
+    }
+  end
+
+  def dive_into(rel)
+    return unless File.dir?("#{@srcdir}/#{rel}")
+
+    dir = File.basename(rel)
+    Dir.mkdir dir unless File.dir?(dir)
+    prevdir = Dir.pwd
+    Dir.chdir dir
+    $stderr.puts '---> ' + rel if verbose?
+    @currdir = rel
+    yield
+    Dir.chdir prevdir
+    $stderr.puts '<--- ' + rel if verbose?
+    @currdir = File.dirname(rel)
+  end
+
+  def run_hook(id)
+    path = [ "#{curr_srcdir()}/#{id}",
+             "#{curr_srcdir()}/#{id}.rb" ].detect {|cand| File.file?(cand) }
+    return unless path
+    begin
+      instance_eval File.read(path), path, 1
+    rescue
+      raise if $DEBUG
+      setup_rb_error "hook #{path} failed:\n" + $!.message
+    end
+  end
+
+end   # class Installer
+
+
+class SetupError < StandardError; end
+
+def setup_rb_error(msg)
+  raise SetupError, msg
+end
+
+if $0 == __FILE__
+  begin
+    ToplevelInstaller.invoke
+  rescue SetupError
+    raise if $DEBUG
+    $stderr.puts $!.message
+    $stderr.puts "Try 'ruby #{$0} --help' for detailed usage."
+    exit 1
+  end
+end

Added: incubator/heraldry/libraries/ruby/openid/trunk/test/assoc.rb
URL: http://svn.apache.org/viewvc/incubator/heraldry/libraries/ruby/openid/trunk/test/assoc.rb?view=auto&rev=462998
==============================================================================
--- incubator/heraldry/libraries/ruby/openid/trunk/test/assoc.rb (added)
+++ incubator/heraldry/libraries/ruby/openid/trunk/test/assoc.rb Wed Oct 11 15:13:01 2006
@@ -0,0 +1,38 @@
+require 'test/unit'
+require 'openid/association'
+
+class AssociationTestCase < Test::Unit::TestCase
+
+  def _get_assoc
+    issued = Time.now.to_i
+    lifetime = 600
+    OpenID::Association.new('handle', 'secret', issued, lifetime, 'HMAC-SHA1')
+  end
+
+  def test_assoc
+    assoc = _get_assoc
+    s = OpenID::Association.serialize(assoc)
+    assert_equal(assoc, OpenID::Association.deserialize(s))    
+  end
+
+  def test_sign
+    assoc = _get_assoc
+
+    h = {
+      'openid.a' => 'b',
+      'openid.c' => 'd',
+    }
+
+    assoc.add_signature(['a','c'], h)
+    assert_not_nil(h['openid.signed'])
+    assert_not_nil(h['openid.sig'])
+    assert_equal(h['openid.signed'], 'a,c')
+    
+    sig = OpenID::Util.to_base64( \
+           OpenID::Util.hmac_sha1(assoc.secret, "a:b\nc:d\n"))
+
+    assert_equal(h['openid.sig'], sig)
+  end
+
+end
+

Added: incubator/heraldry/libraries/ruby/openid/trunk/test/consumer.rb
URL: http://svn.apache.org/viewvc/incubator/heraldry/libraries/ruby/openid/trunk/test/consumer.rb?view=auto&rev=462998
==============================================================================
--- incubator/heraldry/libraries/ruby/openid/trunk/test/consumer.rb (added)
+++ incubator/heraldry/libraries/ruby/openid/trunk/test/consumer.rb Wed Oct 11 15:13:01 2006
@@ -0,0 +1,376 @@
+require 'cgi'
+require 'uri'
+require 'test/unit'
+
+require 'openid/util'
+require 'openid/dh'
+require 'openid/stores'
+require 'openid/consumer'
+require 'openid/service'
+require 'openid/association'
+
+ASSOCS = [
+          ['another 20-byte key.', 'Snarky'],
+          ["\x00" * 20, 'Zeros']
+         ]
+
+HTTP_SERVER_URL = 'http://server.example.com/'
+HTTPS_SERVER_URL = 'https://server.example.com/'
+CONSUMER_URL = 'http://consumer.example.com/'
+
+
+# extract a hash from an application/x-www-form-urlencoded string
+def parse_query(qs)
+  query = {}
+  CGI::parse(qs).each {|k,v| query[k] = v[0]}
+  return query
+end
+
+# do the server side associate using the given secret and handle
+def associate(qs, assoc_secret, assoc_handle)
+  q = parse_query(qs)
+  raise ArgumentError unless q['openid.mode'] == 'associate' 
+  raise ArgumentError unless q['openid.assoc_type'] == 'HMAC-SHA1' 
+
+  if q['openid.session_type'] == 'DH-SHA1'
+    raise ArgumentError unless [4,6].member?(q.length)
+    d = OpenID::DiffieHellman.from_base64(q['openid.dh_modulus'],
+                                          q['openid.dh_gen'])
+    composite = OpenID::Util.base64_to_num(q['openid.dh_consumer_public'])
+    enc_mac_key = OpenID::Util.to_base64(d.xor_secrect(composite,
+                                                       assoc_secret))
+    reply = {
+      'assoc_type' => 'HMAC-SHA1',
+      'assoc_handle' => assoc_handle,
+      'expires_in' => '600',
+      'session_type' => 'DH-SHA1',
+      'dh_server_public' => OpenID::Util.num_to_base64(d.public),
+      'enc_mac_key' => enc_mac_key
+    }
+  else
+    # dumb mode
+    raise ArgumentError unless q.length == 2
+    mac_key = OpenID::Util.to_base64(assoc_secret)
+    reply = {
+      'assoc_type' => 'HMAC-SHA1',
+      'assoc_handle' => assoc_handle,
+      'expires_in' => '600',
+      'mac_key' => mac_key
+    }
+  end
+
+  return OpenID::Util.kvform(reply)
+end
+
+
+class TestFetcher
+  
+  attr_accessor :get_responses, :assoc_secret, :assoc_handle, :num_assocs
+
+  def initialize(assoc_secret, assoc_handle)
+    @get_responses = {}
+    @assoc_secret = assoc_secret
+    @assoc_handle = assoc_handle
+    @num_assocs = 0
+  end
+  
+  def response(url, status, body)
+    return [url, body]
+  end
+
+  def fetch(url, body=nil, headers=nil)
+    if body.nil?
+      return @get_responses[url] if @get_responses.has_key?(url)
+
+    else
+      if body.include?('openid.mode=associate')
+        response = associate(body, @assoc_secret, @assoc_handle)
+        @num_assocs += 1
+        return [url, response]
+      end
+    end
+    
+    return [url, 'not found']
+  end
+
+  def get(url)
+    return self.fetch(url)
+  end
+
+  def post(url, body)
+    return self.fetch(url, body)
+  end
+
+end
+
+class SuccessFlowTest < Test::Unit::TestCase
+
+  def _test_success(service, immediate=false)
+    store = OpenID::MemoryStore.new
+    mode = immediate ? 'checkid_immediate' : 'checkid_setup'
+
+    assoc_secret, assoc_handle = ASSOCS[0]
+    fetcher = TestFetcher.new(assoc_secret, assoc_handle)
+    
+    run = Proc.new {
+      trust_root = CONSUMER_URL
+      return_to = CONSUMER_URL
+      session = {}
+      
+      consumer = OpenID::Consumer.new(session, store, fetcher)
+      req = consumer.begin_without_discovery(service)
+
+      # need to extract the return_to url
+      
+      return_to = req.return_to(return_to)
+
+      assert_equal(OpenID::SUCCESS, req.status)
+
+      redirect_url = req.redirect_url(trust_root, return_to, immediate)
+      assert redirect_url.starts_with?(service.server_url)
+
+      # make sure the query in the redirect URL is what we want
+      q = parse_query(URI.parse(redirect_url).query)
+
+      assert_equal(mode, q['openid.mode'])
+      assert_equal(service.server_id, q['openid.identity'])
+      assert_equal(trust_root, q['openid.trust_root'])
+      assert_equal(fetcher.assoc_handle, q['openid.assoc_handle'])
+
+      # make sure the return_to has the nonce in it
+      return_to_query = parse_query(URI.parse(q['openid.return_to']).query)
+      assert return_to_query.has_key?('nonce')
+
+      # build a fake response from the OpenID server
+      query = {
+        'openid.mode' => 'id_res',
+        'openid.return_to' => 'return_to',
+        'openid.identity' => service.server_id,
+        'openid.assoc_handle' => fetcher.assoc_handle,
+        'nonce' => return_to_query['nonce']
+      }
+      
+      # sign the fake response with our assoc
+      assoc = store.get_association(service.server_url, fetcher.assoc_handle)
+      assoc.add_signature(['mode','return_to','identity'], query)
+      
+      # complete the auth
+      resp = consumer.complete(query)
+
+      if resp.status == OpenID::FAILURE
+        p 'Failure Message', resp.msg
+      end
+
+      # we're testing success here, so make sure we have a success response
+      assert_equal(OpenID::SUCCESS, resp.status)
+      
+      # make sure we've got the right identity url
+      assert_equal(service.consumer_id, resp.identity_url)
+    }
+
+    assert_equal(0, fetcher.num_assocs)
+    run.call
+    assert_equal(1, fetcher.num_assocs)
+    
+    # make sure we use the same association
+    run.call
+    assert_equal(1, fetcher.num_assocs)
+
+    # another assoc is created if we remove the existing one
+    store.remove_association(service.server_url, fetcher.assoc_handle)
+    run.call
+    assert_equal(2, fetcher.num_assocs)
+    run.call
+    assert_equal(2, fetcher.num_assocs)
+  end
+
+  def test_no_delegate
+    service = OpenID::FakeOpenIDServiceEndpoint.new(
+                      'http://example.com/user.html',
+                      'http://example.com/user.html',
+                       HTTP_SERVER_URL)
+    self._test_success(service)    
+  end
+
+  def test_nodelegate_immediate
+    service = OpenID::FakeOpenIDServiceEndpoint.new(
+                      'http://example.com/user.html',
+                      'http://example.com/user.html',
+                       HTTP_SERVER_URL)
+    self._test_success(service, true)    
+  end
+
+  def test_delegate
+    s = OpenID::FakeOpenIDServiceEndpoint.new(
+                      'http://example.com/user.html',
+                      'http://server.com/user.html',
+                      HTTP_SERVER_URL)
+    self._test_success(s)
+  end
+
+  def test_delegate_immediate
+    s = OpenID::FakeOpenIDServiceEndpoint.new(
+                      'http://example.com/user.html',
+                      'http://server.com/user.html',
+                      HTTP_SERVER_URL)
+    self._test_success(s, true)
+  end
+
+  def test_https
+    service = OpenID::FakeOpenIDServiceEndpoint.new(
+                      'http://example.com/user.html',
+                      'http://example.com/user.html',
+                       HTTPS_SERVER_URL)
+    self._test_success(service)    
+  end
+
+end
+
+
+class TestIdRes < Test::Unit::TestCase
+  
+  def test_setup_needed
+    store = OpenID::MemoryStore.new
+    consumer = OpenID::GenericConsumer.new(store)
+    return_to = "nonny"
+    server_id = "sirod"
+    server_url = "serlie"
+    consumer_id = "consu"
+    setup_url = "http://example.com/setup-here"
+    
+    query = {
+      'openid.mode' => 'id_res',
+      'openid.user_setup_url' => setup_url
+    }
+
+    nonce = consumer.create_nonce
+    ret = consumer.do_id_res(nonce, consumer_id, server_id, server_url, query)
+
+    assert_equal(OpenID::SETUP_NEEDED, ret.status)
+    assert_equal(setup_url, ret.setup_url)    
+  end
+
+end
+
+
+class CheckAuthHappened < Exception; end
+
+class CheckAuthDetectingConsumer < OpenID::GenericConsumer
+  
+  def check_auth(nonce, query, server_url)
+    raise CheckAuthHappened
+  end
+
+end
+
+class TestCheckAuth < Test::Unit::TestCase
+
+  def setup
+    @store = OpenID::MemoryStore.new
+    @consumer = CheckAuthDetectingConsumer.new(@store)
+    @return_to = "nonny"
+    @server_id = "sirod"
+    @server_url = "http://server.com/url"
+    @consumer_id = "consu"
+    @nonce = @consumer.create_nonce
+    @setup_url = "http://example.com/setup-here"
+  end
+
+
+  def _do_id_res(query)
+    return @consumer.do_id_res(@nonce, @consumer_id, @server_id, @server_url,
+                               query)
+  end
+
+  def test_chech_auth_triggered
+    query = {
+      'openid.return_to' => @return_to,
+      'openid.identity' => @server_id,
+      'openid.assoc_handle' => 'not_found'
+    }
+    begin
+      self._do_id_res(query)
+    rescue CheckAuthHappened
+      assert true
+    else
+      raise 'CheckAuthDidntHappen'
+    end
+  end
+
+  def test_check_auth_triggered_with_assoc
+    issued = Time.now.to_i
+    lifetime = 1000
+    assoc = OpenID::Association.new('handle',
+                                    'secret',
+                                    issued,
+                                    lifetime, 'HMAC-SHA1')
+
+    @store.store_association(@server_url, assoc)
+
+    query = {
+      'openid.return_to' => @return_to,
+      'openid.identity' => @server_id,
+      'openid.assoc_handle' => 'bad_assoc_handle_for_assoc!'
+    }
+
+    begin
+      result = self._do_id_res(query)
+    rescue CheckAuthHappened
+      assert true
+    else
+      raise ArgumentError.new(result.msg)
+    end
+  end
+
+  def test_expired_assoc
+    issued = Time.now.to_i - 10
+    lifetime = 0
+    handle = 'handle'
+    assoc = OpenID::Association.new(handle, 'secret', issued, lifetime,
+                                    'HMAC-SHA1')
+    assert assoc.expires_in <= 0
+    @store.store_association(@server_url, assoc)
+
+    query = {
+      'openid.return_to' => @return_to,
+      'openid.identity' => @server_id,
+      'openid.assoc_handle' => handle
+    }
+
+    info = self._do_id_res(query)
+    assert_equal(OpenID::FAILURE, info.status)
+    assert_equal(@consumer_id, info.identity_url)
+  end
+
+  def test_newer_assoc   
+    lifetime = 1000
+    good_issued = Time.now.to_i - 10
+    good_handle = 'handle'
+    good_assoc = OpenID::Association.new(good_handle, 'secret',
+                                         good_issued, lifetime, 'HMAC-SHA1')
+    @store.store_association(@server_url, good_assoc)
+    
+    bad_issued = Time.now.to_i - 5
+    bad_handle = 'handle2'
+    bad_assoc = OpenID::Association.new(bad_handle, 'secret',
+                                        bad_issued, lifetime, 'HMAC-SHA1')
+    @store.store_association(@server_url, bad_assoc)
+    
+    query = {
+      'openid.return_to' => @return_to,
+      'openid.identity' => @server_id,
+      'openid.assoc_handle' => good_handle
+    }
+
+    good_assoc.add_signature(['return_to','identity'], query)
+    info = self._do_id_res(query)
+
+    if info.status != OpenID::SUCCESS
+      p 'Failure Message', info.msg
+    end
+
+    assert_equal(OpenID::SUCCESS, info.status)
+    assert_equal(@consumer_id, info.identity_url)    
+  end
+
+end

Added: incubator/heraldry/libraries/ruby/openid/trunk/test/data/brian.xrds
URL: http://svn.apache.org/viewvc/incubator/heraldry/libraries/ruby/openid/trunk/test/data/brian.xrds?view=auto&rev=462998
==============================================================================
--- incubator/heraldry/libraries/ruby/openid/trunk/test/data/brian.xrds (added)
+++ incubator/heraldry/libraries/ruby/openid/trunk/test/data/brian.xrds Wed Oct 11 15:13:01 2006
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xrds:XRDS
+    xmlns:xrds="xri://$xrds"
+    xmlns:openid="http://openid.net/xmlns/1.0"
+    xmlns="xri://$xrd*($v*2.0)">
+  <XRD>
+
+    <Service priority="0">
+      <Type>http://openid.net/signon/1.0</Type>
+      <URI>http://www.myopenid.com/server</URI>
+      <openid:Delegate>http://brian.myopenid.com/</openid:Delegate>
+    </Service>
+
+  </XRD>
+</xrds:XRDS>
+

Added: incubator/heraldry/libraries/ruby/openid/trunk/test/data/urinorm.txt
URL: http://svn.apache.org/viewvc/incubator/heraldry/libraries/ruby/openid/trunk/test/data/urinorm.txt?view=auto&rev=462998
==============================================================================
--- incubator/heraldry/libraries/ruby/openid/trunk/test/data/urinorm.txt (added)
+++ incubator/heraldry/libraries/ruby/openid/trunk/test/data/urinorm.txt Wed Oct 11 15:13:01 2006
@@ -0,0 +1,79 @@
+Already normal form
+http://example.com/
+http://example.com/
+
+Add a trailing slash
+http://example.com
+http://example.com/
+
+Remove an empty port segment
+http://example.com:/
+http://example.com/
+
+Remove a default port segment
+http://example.com:80/
+http://example.com/
+
+Capitalization in host names
+http://wWw.exaMPLE.COm/
+http://www.example.com/
+
+Capitalization in scheme names
+htTP://example.com/
+http://example.com/
+
+Capitalization in percent-escaped reserved characters
+http://example.com/foo%2cbar
+http://example.com/foo%2Cbar
+
+Unescape percent-encoded unreserved characters
+http://example.com/foo%2Dbar%2dbaz
+http://example.com/foo-bar-baz
+
+remove_dot_segments example 1
+http://example.com/a/b/c/./../../g
+http://example.com/a/g
+
+remove_dot_segments example 2
+http://example.com/mid/content=5/../6
+http://example.com/mid/6
+
+remove_dot_segments: single-dot
+http://example.com/a/./b
+http://example.com/a/b
+
+remove_dot_segments: double-dot
+http://example.com/a/../b
+http://example.com/b
+
+remove_dot_segments: leading double-dot
+http://example.com/../b
+http://example.com/b
+
+remove_dot_segments: trailing single-dot
+http://example.com/a/.
+http://example.com/a/
+
+remove_dot_segments: trailing double-dot
+http://example.com/a/..
+http://example.com/
+
+remove_dot_segments: trailing single-dot-slash
+http://example.com/a/./
+http://example.com/a/
+
+remove_dot_segments: trailing double-dot-slash
+http://example.com/a/../
+http://example.com/
+
+Test of all kinds of syntax-based normalization
+hTTPS://a/./b/../b/%63/%7bfoo%7d
+https://a/b/c/%7Bfoo%7D
+
+Unsupported scheme
+ftp://example.com/
+fail
+
+Non-absolute URI
+http:/foo
+fail
\ No newline at end of file

Added: incubator/heraldry/libraries/ruby/openid/trunk/test/dh.rb
URL: http://svn.apache.org/viewvc/incubator/heraldry/libraries/ruby/openid/trunk/test/dh.rb?view=auto&rev=462998
==============================================================================
--- incubator/heraldry/libraries/ruby/openid/trunk/test/dh.rb (added)
+++ incubator/heraldry/libraries/ruby/openid/trunk/test/dh.rb Wed Oct 11 15:13:01 2006
@@ -0,0 +1,20 @@
+require 'test/unit'
+
+require "openid/dh"
+require "openid/util"
+
+# Diffie Hellman test case
+
+class DiffieHellmanTestCase < Test::Unit::TestCase
+
+  def test_dh    
+    dh1 = OpenID::DiffieHellman.new
+    dh2 = OpenID::DiffieHellman.new
+    
+    secret1 = dh1.get_shared_secret(dh2.public)
+    secret2 = dh2.get_shared_secret(dh1.public)
+    assert(secret1 == secret2)
+  end
+
+end
+

Added: incubator/heraldry/libraries/ruby/openid/trunk/test/extensions.rb
URL: http://svn.apache.org/viewvc/incubator/heraldry/libraries/ruby/openid/trunk/test/extensions.rb?view=auto&rev=462998
==============================================================================
--- incubator/heraldry/libraries/ruby/openid/trunk/test/extensions.rb (added)
+++ incubator/heraldry/libraries/ruby/openid/trunk/test/extensions.rb Wed Oct 11 15:13:01 2006
@@ -0,0 +1,30 @@
+require "test/unit"
+
+require "openid/extensions"
+require "openid/sreg"
+require "openid/util"
+
+class UtilTestCase < Test::Unit::TestCase
+
+  def test_sreg 
+    secret = 'foo'
+    openid_sig = 'xxx'
+
+    ext_content = "openid.sig:xxx\nsreg.dob:0000-00-00\nsreg.email:foo@bar.com\n"
+    ext_sig = OpenID::Util.to_base64(OpenID::Util.hmac_sha1(secret, ext_content))    
+    query = {
+      'openid.sig' => openid_sig,
+      'sreg.email' => 'foo@bar.com',
+      'sreg.dob' => '0000-00-00',
+      'sreg.sig' => ext_sig
+    }
+
+    sreg = OpenID::SREG.create(secret, query)
+    assert_not_nil(sreg)
+    assert_equal(ext_content, sreg.ext_content)
+    assert_equal(ext_sig, sreg.gen_sig)
+    assert_equal(true, sreg.check_sig)
+    assert_equal(true, OpenID::SREG.check(secret, query))
+  end
+
+end

Added: incubator/heraldry/libraries/ruby/openid/trunk/test/linkparse.rb
URL: http://svn.apache.org/viewvc/incubator/heraldry/libraries/ruby/openid/trunk/test/linkparse.rb?view=auto&rev=462998
==============================================================================
--- incubator/heraldry/libraries/ruby/openid/trunk/test/linkparse.rb (added)
+++ incubator/heraldry/libraries/ruby/openid/trunk/test/linkparse.rb Wed Oct 11 15:13:01 2006
@@ -0,0 +1,305 @@
+require 'test/unit'
+
+require "openid/parse"
+
+class LinkParseTestCase < Test::Unit::TestCase
+
+  def test_bad
+    cases = <<EOF
+    <foo>
+
+    <><barf
+
+    not even html
+
+    <link>
+
+    <html>
+    <link>
+
+    <head>
+    <link>
+
+    <html>
+    <head>
+    </head>
+    <link>
+
+    <html>
+    <link>
+    <head>
+
+    <link>
+    <html>
+    <head>
+
+    <html>
+    <head>
+    </head>
+    </html>
+    <link>
+
+    <html>
+    <head>
+    <html>
+    <link>
+
+    <head>
+    <html>
+    <link>
+
+    <html>
+    <head>
+    <body>
+    <link>
+
+    <html>
+    <head>
+    <head>
+    <link>
+
+    <html>
+    <head>
+    <script>
+    <link>
+    </script>
+
+    <html>
+    <head>
+    <!--
+    <link>
+    -->
+
+    <html>
+    <head>
+    <![CDATA[
+    <link>
+    ]]>
+
+    <html>
+    <head>
+    <![cDaTa[
+    <link>
+    ]]>
+
+    <htmlx>
+    <head>
+    <link>
+
+    <html:summer>
+    <head>
+    <link>
+
+    <html>
+    <head:zucchini>
+    <link>
+
+    <html/>
+    <head>
+    <link>
+
+    <html/>
+    <html>
+    <head>
+    <link>
+
+    <html>
+    <head/>
+    <link>
+
+    <html>
+    <head/>
+    <head>
+    <link>
+
+    <!-- Plain vanilla -->
+    <html>
+    <head>
+    <link>
+
+    <!-- Ignore tags in the <script:... > namespace -->
+    <html>
+    <head>
+    <script:paddypan>
+    <link>
+    </script:paddypan>
+
+    <!-- Short link tag -->
+    <html>
+    <head>
+    <link/>
+
+    <!-- Spaces in the HTML tag -->
+    <html >
+    <head>
+    <link>
+
+    <!-- Spaces in the head tag -->
+    <html>
+    <head >
+    <link>
+
+    <html>
+    <head>
+    <link >
+
+    <html><head><link>
+
+    <html>
+    <head>
+    <link>
+    </head>
+
+    <html>
+    <head>
+    <link>
+    </head>
+    <link>
+
+    <html>
+    <head>
+    <link>
+    <body>
+    <link>
+
+    <html>
+    <head>
+    <link>
+    </html>
+
+    <html>
+    <head>
+    <link>
+    </html>
+    <link>
+
+    <html>
+    <delicata>
+    <head>
+    <title>
+    <link>
+
+    <HtMl>
+    <hEaD>
+    <LiNk>
+
+    <butternut>
+    <html>
+    <summer>
+    <head>
+    <turban>
+    <link>
+
+    <html>
+    <head>
+    <script>
+    <link>
+
+    <html><head><script><link>
+
+    <html>
+    <head>
+    <!--
+    <link>
+
+    <html>
+    <head>
+    <![CDATA[
+    <link>
+
+    <html>
+    <head>
+    <![ACORN[
+    <link>
+    ]]>
+
+    <html>
+    <head>
+    <link>
+
+    <html>
+    <head>
+    <link>
+    <link>
+
+    <html>
+    <gold nugget>
+    <head>
+    <link>
+    <link>
+
+    <html>
+    <head>
+    <link>
+    <LiNk>
+    <body>
+    <link>
+EOF
+
+
+    results = []
+    cases.split("\n\n").each do |c|
+      parse_link_attrs(c){ |x| results << x }
+    end
+
+    results.each {|r| assert(r == {}, r.to_s)}
+  end
+
+  def test_good_rel
+    cases = [
+             "<html><head><link rel=openid.server>",             
+             "<html><head><link rel=openid.server />",
+             "<html><head><link hubbard rel=openid.server>",
+             "<html><head><link hubbard rel=openid.server></link>",
+             "<html><head><link hubbard rel=openid.server />",
+             "<html><head><link / rel=openid.server>",
+             "<html><head><link rel='openid.server'>"
+            ]
+    
+    results = []
+    cases.each do |c|
+      parse_link_attrs(c) { |x| results << x }
+    end
+
+    assert_equal(cases.length, results.length)
+    results.each { |x| assert(x["rel"] == "openid.server", x["rel"]) }
+  end
+
+  def test_good
+    lj_test = <<EOF
+<!DOCTYPE html
+          PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+                 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+                 <html xmlns="http://www.w3.org/1999/xhtml">
+                   <head>
+                     <link rel="stylesheet" href="http://www.livejournal.com/~serotta/res/319998/stylesheet?1130478711" type="text/css" />
+         <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
+ <meta name="foaf:maker" content="foaf:mbox_sha1sum '12f8abdacb5b1a806711e23249da592c0d316260'" />
+ <meta name="robots" content="noindex, nofollow, noarchive" />
+ <meta name="googlebot" content="nosnippet" />
+ <link rel="openid.server" href="http://www.livejournal.com/openid/server.bml" />
+                   <title>Brian</title>
+         </head>
+EOF
+    cases = [
+             ["<html><head><link rel=\"openid.server\" href=\"http://www.myopenid.com/server\" /></head></html>", [{"rel"=>"openid.server","href"=>"http://www.myopenid.com/server"}]],
+###
+             ["<html><head><link rel='openid.server' href='http://www.myopenid.com/server' /><link rel='openid.delegate' href='http://example.myopenid.com/' /></head></html>",
+              [{"rel"=>"openid.server","href"=>"http://www.myopenid.com/server"},
+               {"rel"=>"openid.delegate","href"=>"http://example.myopenid.com/"}]],
+###
+             [lj_test,
+              [{"rel"=>"stylesheet","type"=>"text/css","href"=>"http://www.livejournal.com/~serotta/res/319998/stylesheet?1130478711"},
+               {"rel"=>"openid.server","href"=>"http://www.livejournal.com/openid/server.bml"}]]
+
+         ]
+
+    cases.each do |unparsed, expected|
+      actual = []
+      parse_link_attrs(unparsed) {|x| actual << x}
+      assert_equal(expected, actual)
+    end
+
+  end
+
+end

Added: incubator/heraldry/libraries/ruby/openid/trunk/test/runtests.rb
URL: http://svn.apache.org/viewvc/incubator/heraldry/libraries/ruby/openid/trunk/test/runtests.rb?view=auto&rev=462998
==============================================================================
--- incubator/heraldry/libraries/ruby/openid/trunk/test/runtests.rb (added)
+++ incubator/heraldry/libraries/ruby/openid/trunk/test/runtests.rb Wed Oct 11 15:13:01 2006
@@ -0,0 +1,22 @@
+#!/usr/bin/ruby
+
+# the tests exploit some corner cases which generate warning messages
+# on stderr.  try and silence those messages to avoid unnecessarily concerning
+# the library user.
+begin
+  STDERR.reopen('/dev/null', 'w')
+rescue
+  puts "\nPlease ignore the non Test::Unit error messages generated below.\n"
+end
+
+require "teststore"
+require "assoc"
+require "dh"
+require "util"
+require "linkparse"
+require "trustroot"
+require "assoc"
+require "server2"
+require "consumer"
+require "service"
+require "urinorm"

Propchange: incubator/heraldry/libraries/ruby/openid/trunk/test/runtests.rb
------------------------------------------------------------------------------
    svn:executable = *



Mime
View raw message