qwikdoc 0.0.1

data/vendor/qwik/test-module-ml.rb

@@ -0,0 +1,142 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+require 'pp'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/testunit'
+require 'qwik/test-module-path'
+require 'qwik/test-module-session'
+require 'qwik/test-module-public'
+require 'qwik/mock-logger'
+require 'qwik/mock-socket'
+require 'qwik/mock-sendmail'
+require 'qwik/config'
+require 'qwik/ml-memory'
+
+$quickml_debug = true
+
+module QuickML
+  class Group
+    def setup_test_config
+      # setup config
+      raise 'config not defined' if !defined?($test_config)
+      @qwikconfig = $test_config
+
+      # setup memory
+      raise 'memory not defined' if !defined?($test_memory)
+      @qwikmemory = $test_memory
+    end
+  end
+end
+
+module TestModuleML
+  include TestSession
+  include TestModulePublic
+
+  # ============================== setup
+  def setup
+    web_setup
+    ml_setup
+  end
+
+  def ml_setup
+    # setup quickml config
+    if ! defined?($quickml_config) || $quickml_config.nil?
+      config = Qwik::Config.new
+      config[:logger] = QuickML::MockLogger.new
+      config.update(Qwik::Config::DebugConfig)
+      config.update(Qwik::Config::TestConfig)
+      QuickML::ServerMemory.init_mutex(config)
+      QuickML::ServerMemory.init_catalog(config)
+
+      $quickml_config = config
+    end
+    @ml_config = $quickml_config
+    dummy = @ml_config.logger.get_log	# clear log
+
+    @ml_dir = @ml_config.sites_dir.path+'test'
+    @ml_dir.teardown
+
+    @ml_catalog = @ml_config.catalog
+    @ml_message_charset = 'iso-2022-jp'
+
+    t_make_public(QuickML::Group, :site_post)
+  end
+
+  # ============================== teardown
+  def teardown
+    ml_teardown
+    web_teardown
+  end
+
+  def ml_teardown
+    @ml_dir.teardown if @ml_dir
+  end
+
+  # ============================== session
+  def sendmail(from, to, subject, cc=nil)
+    message = yield
+
+    cc_line = ''
+    cc_line = "Cc: #{cc}\n" if cc
+    separator_line = ''
+    separator_line = "\n" unless /\n\z/ =~ message
+
+    contents = ''
+    contents << "To: #{to}\n"
+    contents << "From: #{from}\n"
+    contents << "Subject: #{subject}\n"
+    contents << cc_line
+    contents << separator_line
+    contents << message
+
+    inputs = "HELO localhost
+MAIL FROM: #{from}
+RCPT TO: #{to}
+DATA
+#{contents}
+.
+QUIT
+"
+    inputs = inputs.set_sourcecode_charset.to_mail_charset
+    socket = QuickML::MockSocket.new(inputs)
+    c = @ml_config
+    session = QuickML::Session.new(c, c.logger, c.catalog, socket)
+    session.start
+    return socket.result
+  end
+
+  def send_normal_mail(from)
+    sendmail(from, 'test@q.example.com', 'test') { 'test' }
+  end
+
+  def unsubscribe(from)
+    sendmail(from, 'test@q.example.com', 'unsubscribe') { '' }
+  end
+
+  def sm(sub, &b)
+    sendmail('bob@example.net', 'test@q.example.com', sub, &b)
+  end
+
+  # ============================== assert
+  def ok_log(e, range=nil)
+    logs = @ml_config.logger.get_log
+    logs = logs[range] if range
+    return ok_eq(e, logs) if e.is_a?(Array)
+    return ok_eq(e, logs.join("\n"))
+  end
+  alias ok ok_log
+
+  # ==================== backward compatibility
+#  def gen_mail(&b)
+#    return QuickML::Mail.generate(&b)
+#  end
+
+  def post_mail(group, &b)
+    mail = QuickML::Mail.generate(&b)
+    group.site_post(mail, true)
+    return mail
+  end
+end

data/vendor/qwik/test-module-path.rb

@@ -0,0 +1,110 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/util-pathname'
+
+module Qwik
+  class Site
+    def erase_all
+      @pages.erase_all
+    end
+  end
+
+  class Pages
+    def erase_all
+      @db.erase_all
+      @pages = {}
+    end
+  end
+
+  class FileSystemDB
+    def erase_all
+      # do nothing
+    end
+  end
+
+  # test-module-bdb
+  module BDBEraseAllModule
+    def bdb_erase_all(db)
+      begin
+	db.each {|k, v|
+	  db[k] = nil
+	}
+      rescue Fatal => e
+	return if e.message == 'closed DB'
+	raise e
+      end
+    end
+  end
+
+  class BerkeleyDB
+    include BDBEraseAllModule
+
+    def erase_all
+      @backupdb.erase_all
+      bdb_erase_all(@db)
+      @mtime_db.erase_all
+    end
+  end
+
+  class BackupBDB
+    include BDBEraseAllModule
+
+    def erase_all
+      bdb_erase_all(@db)
+    end
+  end
+end
+
+class Pathname
+  def erase_all_for_test
+    self.each_entry {|file|
+      base = file.to_s
+      next if base == '.' || base == '..'
+
+      f = self + file
+
+      if f.directory?
+	f.erase_all_for_test	# Recursive.
+	next
+      end
+
+      if f.exist?
+	f.unlink
+      end
+    }
+  end
+
+  def setup
+    self.teardown if self.directory?
+    self.check_directory
+  end
+
+  def teardown
+    unless self.directory?
+      return
+    end
+    self.erase_all_for_test
+  end
+
+  # test-module-bdb
+  def erase_db(f)
+    begin
+      erase_all_db(f)
+    rescue => e
+      return
+    end
+  end
+
+  def erase_all_db(f)
+    return unless f.exist?
+    db = BDB::Hash.new(f.to_s, nil, 0)
+    db.each {|k, v|
+      db[k] = nil
+    }
+    db.close
+  end
+  private :erase_db, :erase_all_db
+end

data/vendor/qwik/test-module-public.rb

@@ -0,0 +1,70 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module TestModulePublic
+  def t_make_public(klass, *args)
+    args.each {|method_name|
+      klass.instance_eval {
+	public method_name
+      }
+    }
+  end
+
+  def t_make_readable(klass, *args)
+    args.each {|variable_name|
+      klass.instance_eval {
+	attr_reader variable_name
+      }
+    }
+  end
+
+  def t_make_writable(klass, *args)
+    args.each {|variable_name|
+      klass.instance_eval {
+	attr_writer variable_name
+      }
+    }
+  end
+end
+
+if $0 == __FILE__
+  require 'test/unit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestModulePublicDummyClass
+    def initialize
+      @var = 't'
+    end
+
+    private
+
+    def hello
+      return 'hello'
+    end
+  end
+
+  class TestTestModulePublic < Test::Unit::TestCase
+    include TestModulePublic
+
+    def test_all
+      dc = TestModulePublicDummyClass.new
+
+      # test_t_make_public
+      assert_equal true,  dc.private_methods.include?('hello')
+      assert_equal false, dc.public_methods.include?('hello')
+      t_make_public(TestModulePublicDummyClass, :hello)
+      assert_equal 'hello', dc.hello
+      assert_equal false, dc.private_methods.include?('hello')
+      assert_equal true,  dc.public_methods.include?('hello')
+
+      # test_t_make_readable
+      t_make_readable(TestModulePublicDummyClass, :var)
+      assert_equal 't', dc.var
+    end
+  end
+end

data/vendor/qwik/test-module-server.rb

@@ -0,0 +1,98 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+require 'open-uri'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/testunit'
+require 'qwik/config'
+require 'qwik/htree-to-wabisabi'
+require 'qwik/test-module-path'
+
+module TestServerSetupModule
+  def setup
+    @dir = '.test/data/test'.path
+    @dir.setup
+  end
+
+  def teardown
+    @dir.teardown
+  end
+end
+
+module TestServerModule
+  def setup_server(bind_address = '127.0.0.1')
+    config = Qwik::Config.new
+    config.update Qwik::Config::DebugConfig
+    config.update Qwik::Config::TestConfig
+    config[:bind_address] = bind_address
+
+    server = Qwik::Server.new(config)
+
+    memory = server.memory
+
+    wreq = Qwik::WEBrickRequest.new(server.config)
+    wreq.request_uri = URI.parse('http://example.com/test/')
+    wreq.peeraddr = [nil, nil, nil, '127.0.0.1']
+
+    wres = Qwik::WEBrickResponse.new(server.config)
+    wres.set_config
+
+    return server, config, memory, wreq, wres
+  end
+
+  def session(config, memory, wreq, wres)
+    req = Qwik::Request.new(config)
+    req.parse_webrick(wreq)
+
+    res = Qwik::Response.new(config)
+    res.set_webrick(wres)
+
+    action = Qwik::Action.new
+    action.init(config, memory, req, res)
+    action.run
+
+    res.setback(wres)
+
+    return wres
+  end
+
+  def teardown_server(server)
+    server.shutdown
+  end
+
+  def write_page(pagekey, content)
+    file = @dir+"#{pagekey}.txt"
+    file.put(content+"\n")
+  end
+
+  def read_page(pagekey)
+    file = @dir+"#{pagekey}.txt"
+    str = file.read
+    return str
+  end
+
+  def get_uri(uri)
+    hash = {
+      'Cookie' => "userpass=user@e.com,95988593; path=/;",
+    }
+    str = ''
+    open(uri, hash) {|f|
+      str = f.read
+    }
+    return str
+  end
+
+  def get_path(path)
+    return get_uri("http://127.0.0.1:9190/test/#{path}")
+  end
+
+  def ok_xp(e, path, str)
+    ok_eq(e, HTree(str).to_wabisabi.get_path(path))
+  end
+
+  def ok_in(e, path, str)
+    ok_eq(e, HTree(str).to_wabisabi.get_path(path).inside.get_single)
+  end
+end

data/vendor/qwik/test-module-session.rb

@@ -0,0 +1,264 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+require 'webrick/log'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/testunit'
+require 'qwik/test-module-path'
+require 'qwik/test-module-public'
+require 'qwik/request'
+require 'qwik/response'
+require 'qwik/loadlib'
+require 'qwik/qp'
+require 'logger'
+
+module TestSession
+  include TestModulePublic
+
+  DEFAULT_USER = 'user@e.com'
+
+  TEST_PNG_DATA = "\211PNG\r\n\032\n\000\000\000\rIHDR\000\000\000\001\000\000\000\001\010\002\000\000\000\220wS\336\000\000\000\fIDATx\332c\370\377\377?\000\005\376\002\3763\022\225\024\000\000\000\000IEND\256B`\202"
+
+  # ============================== setup
+  def setup
+    web_setup
+  end
+
+  def web_setup
+    # setup config
+    if ! defined?($test_config)
+      config = Qwik::Config.new
+      $test_org_sites_dir = config[:sites_dir].dup
+      config.update(Qwik::Config::DebugConfig)
+      config.update(Qwik::Config::TestConfig)
+      $test_config = config
+    end
+    @config = $test_config
+    @org_sites_dir = $test_org_sites_dir
+
+    @config.sites_dir.path.check_directory
+    @config.grave_dir.path.check_directory
+    @config.cache_dir.path.check_directory
+    @config.etc_dir.path.check_directory
+    @config.log_dir.path.check_directory
+
+    # setup memory
+    if ! defined?($test_memory)
+      memory = Qwik::ServerMemory.new(@config)
+      logfile = '.test/testlog.txt'
+      loglevel = WEBrick::Log::INFO
+      logger = WEBrick::Log::new(logfile, loglevel)
+      memory[:logger] = logger
+
+      burylogfile = '.test/testburylog.txt'
+      log = ::Logger.new(burylogfile)
+      log.level = ::Logger::INFO
+      memory[:bury_log] = log
+
+      $test_memory = memory
+    end
+    @memory = $test_memory
+
+    # setup dir
+    @wwwdir = @config.sites_dir.path + 'www'
+    @wwwdir.setup
+    @dir = @config.sites_dir.path + 'test'
+    @dir.setup
+
+    # setup site
+    @site = @memory.farm.get_site('test')
+  end
+
+  # ============================== teardown
+  def teardown
+    web_teardown
+  end
+
+  def web_teardown
+    @site.erase_all if defined?(@site) && @site
+    @wwwdir.teardown if @wwwdir
+    #assert_equal false, (@dir+"test").exist?
+    @dir.teardown if @dir
+  end
+
+  # ============================== session
+  def session(path = '/test/')
+    # setup_req
+    req = Qwik::Request.new(@config)
+
+    # setup user
+    t_setup_user(@memory, req, DEFAULT_USER)
+
+    # parse_host
+    req.instance_eval {
+      @fromhost = 'example.com'
+    }
+
+    if /\APOST / =~ path
+      req.instance_eval {
+	@request_method = 'POST'
+      }
+      path.sub!(/\APOST /, "")
+    end
+
+    if path.include?("?")
+      path, query_str = path.split("?", 2)
+      query = WEBrick::HTTPUtils.parse_query(query_str)
+      req.query.clear
+      req.query.update(query)
+    end
+
+    req.parse_path(path)
+    req.accept_language = ['en']
+    req.instance_eval {
+      @fromhost = 'localhost'
+    }
+
+    # setup_res
+    res = Qwik::Response.new(@config)
+    res.make_mimetypes(WEBrick::HTTPUtils::DefaultMimeTypes)
+
+    # setup_action
+    @action = Qwik::Action.new
+    @action.init(@config, @memory, req, res)
+    site = @site
+    @action.instance_eval {
+      @site = site;
+    }
+
+    # Setup request by block.
+    yield(req) if block_given?
+
+    action = Qwik::Action.new
+    action.init(@config, @memory, req, res)
+    action.run
+
+    dummy_str = res.setback_body(res.body)
+
+    @res = res
+    # Since @res is not thread safe, return res instead of @res.
+    return res
+  end
+
+  def t_setup_user(memory, req, user)
+    req.cookies['user'] = user
+    req.cookies['pass'] = memory.passgen.generate(user)
+  end
+  private :t_setup_user
+
+  # ==================== test common
+  def t_site_open
+    page = @site['_SiteConfig']
+    page.put_with_time(':open:true', 0)
+  end
+
+  def t_add_user(user = DEFAULT_USER)
+    @site.member.add(user) unless @site.member.exist?(user)
+  end
+
+  def t_without_testmode
+    org_test  = @config.test
+    org_debug = @config.debug
+    @config[:test]  = false
+    @config[:debug] = false
+    yield
+    @config[:test]  = org_test
+    @config[:debug] = org_debug
+  end
+
+  def t_with_site(sitename)
+    dir = ("#{sitename}/").path
+    dir.setup
+    yield
+    dir.teardown
+  end
+
+  def t_make_content(filename, data)
+    content = WEBrick::HTTPUtils::FormData.new(data)
+    content.filename = filename
+    return content
+  end
+
+  def t_with_path
+    org_public_url = @config[:public_url]
+    @config[:public_url] = "http://www.example.org/qwik/"
+    yield
+    @config[:public_url] = org_public_url
+  end
+
+  def t_with_siteurl(url='http://example.org/q/')
+    siteconfig = @site['_SiteConfig']
+    siteconfig.store ":siteurl:#{url}\n"
+    yield
+    siteconfig.store ""
+  end
+
+  # ==================== assert xpath module
+  def assert_path(e, w, user=DEFAULT_USER, path="//div[@class='section']", &b)
+    t_add_user if user
+
+    page = @site['1']
+    page = @site.create('1') if page.nil?
+    page.store(w)
+    res = session('/test/1.html') {|req|
+      yield(req) if block_given?
+      t_setup_user(@memory, req, user)
+    }
+    div = res.body.get_path(path)
+
+    if e.is_a? Array
+      return assert_equal(e, div.inside.remove_comment.get_single)
+    end
+    return assert_equal_or_match(e, div.inside.rb_format_xml(-1, -1).chomp)
+  end
+
+  def ok_wi(e, w, &b)
+    return assert_path(e, w, DEFAULT_USER, "//div[@class='section']", &b)
+  end
+
+  # ==================== show
+  # Get element by XPath and show it in pretty print mode.
+  def pw(xpath=nil, res=@res)
+    pp res.body.get_path(xpath)
+  end
+
+  # ==================== assert module
+  def assert_equal_or_match(e, s)
+    return assert_match(e, s) if e.is_a? Regexp
+    return assert_equal(e, s)
+  end
+
+  def ok_xp(e, path, res=@res)
+    elem = res.body.get_path(path)
+    return assert_equal(e, nil) if elem.nil?
+    return assert_equal(e, elem.remove_comment)
+  end
+
+  def ok_in(e, path, res=@res)
+    elem = res.body.get_path(path)
+    return assert_equal(e, nil) if elem.nil?
+    return assert_equal(e, elem.inside.get_single)
+  end
+  
+  def ok_title(e, res=@res)
+    elem = res.body.get_path('//title')
+    return assert_equal(e, nil) if elem.nil?
+    return assert_equal(e, elem.inside.get_single[0])
+  end
+  
+  def assert_text(e, tag, res=@res)
+    elem = res.body.get_tag(tag)
+    return assert_equal(e, nil) if elem.nil?
+    return assert_equal_or_match(e, elem.text)
+  end
+
+  def ok_attr(e, s, res=@res)
+    elem = (/\A\/\// =~ s) ? res.body.get_path(s) : res.body.get_tag(s)
+    return assert_equal(e, nil) if elem.nil?
+    return assert_equal(e, elem.attr)
+  end
+  alias assert_attr ok_attr
+  alias assert_rattr ok_attr
+end