qwik2md 0.1.0

data/vendor/qwik/lib/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/lib/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/lib/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/lib/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

data/vendor/qwik/lib/qwik/test-module-suite.rb

@@ -0,0 +1,91 @@
+# 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 'optparse'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+$test = true	# Set $test before require 'qwik/test-common'
+require 'qwik/test-common'
+
+class TestSuite
+  def self.main(argv)
+    testsuite = self.new
+    testsuite.run(argv)
+  end
+
+  def run(argv)
+    @suite = 'basic'
+
+    optionparser = OptionParser.new {|opts|
+      opts.banner = 'Usage: test-suite.rb [options]'
+      opts.separator ''
+      opts.separator 'Specific options:'
+      opts.on('-b', '--[no-]basic', 'Run basic test suite.') {|a|
+	@suite = 'basic'
+      }
+      opts.on('-a', '--[no-]all', 'Run all test suite.') {|a|
+	@suite = 'all'
+      }
+      opts.separator ''
+      opts.separator 'Common options:'
+      opts.on_tail('-h', '--help', 'Show this message') {
+	puts opts
+	exit
+      }
+    }
+    optionparser.parse!(argv)
+
+    case @suite
+    when 'basic'
+      test_suite_basic
+    when 'ml'
+      test_suite_ml
+    when 'all'
+      test_suite_all
+    end
+  end
+
+  def test_suite_basic
+    load_by_loadlib('qwik/test-module-*.rb')
+    test_suite_ml
+    test_suite_web
+  end
+
+  def test_suite_web
+    load_by_loadlib('qwik/common-*.rb')
+    load_by_loadlib('qwik/act-*.rb')
+  end
+
+  def test_suite_ml
+    load_by_loadlib('qwik/test-module-ml.rb')
+    load_by_loadlib('qwik/ml-*.rb')
+    load_by_loadlib('qwik/group-*.rb')
+    load_by_loadlib('qwik/mail-*.rb')
+    load_by_loadlib('qwik/test-ml-*.rb')
+    load_by_loadlib('qwik/test-submit-*.rb')
+    load_by_loadlib('qwik/test-ms-*.rb')
+  end
+
+  def test_suite_all
+    test_suite_basic
+    test_suite_extra
+  end
+
+  def test_suite_extra
+    load_by_loadlib('qwik/check-*.rb')
+  end
+
+  def test_suite_benchmark
+    #load_files('bench')
+    load_by_loadlib('qwik/bench-*.rb')
+  end
+
+  def load_by_loadlib(arg)
+    Qwik::LoadLibrary.load_libs_here(arg)
+  end
+end
+
+if $0 == __FILE__
+  TestSuite.main(ARGV)
+end

data/vendor/qwik/lib/qwik/test-ms-applemail.rb

@@ -0,0 +1,59 @@
+# 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/ml-session'
+require 'qwik/test-module-ml'
+
+if $0 == __FILE__
+  $test = true
+end
+
+class TestMSAppleMail < Test::Unit::TestCase
+  include TestModuleML
+
+  def test_all
+    send_normal_mail('bob@example.net')		# Bob creates a new ML.
+    sendmail('bob@example.net', 'test@q.example.com', 'Apple Mail') {
+"Mime-Version: 1.0 (Apple Message framework v623)
+Content-Type: multipart/mixed; boundary=Apple-Mail-1-134582006
+Subject: Apple Mail
+
+--Apple-Mail-1-134582006
+Content-Transfer-Encoding: 7bit
+Content-Type: text/plain;
+	charset=ISO-2022-JP;
+	format=flowed
+
+I attach a file using Apple Mail.
+--Apple-Mail-1-134582006
+Content-Transfer-Encoding: base64
+Content-Type: application/zip;
+	x-mac-type=5A495020;
+	x-unix-mode=0755;
+	x-mac-creator=53495421;
+	name=\"sounds.zip\"
+Content-Disposition: attachment;
+	filename=sounds.zip
+
+UEsDBBQAAAAAAHiWSDMAAAAAAAAAAAAAAAANAAAAMDUxMDA3c291bmRzL1BLAwQUAAAACAB4lkgz
+dW5kcy91bnJlYWwvZ25kX3YzLmFpZlBLBQYAAAAAEQARAMEEAACdHAYAAAA=
+
+--Apple-Mail-1-134582006--
+"
+    }
+    eq 'Apple Mail', @site['1'].get_title
+    eq "* Apple Mail
+{{mail(bob@example.net,0)
+I attach a file using Apple Mail.
+
+{{file(sounds.zip)}}
+}}
+",
+	  @site['1'].load
+
+    files = @site.files('1')
+    eq true, files.exist?('sounds.zip')
+  end
+end