qwikdoc 0.0.1

data/vendor/qwik/catalog-ml-ja.rb

@@ -0,0 +1,145 @@
+# -*- coding: shift_jis -*-
+# 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.
+
+module QuickML
+  class CatalogFactory
+    def self.catalog_ja
+      {
+	# Code convert setting.
+	:charset => 'iso-2022-jp',
+	:codeconv_method => :tojis,
+
+	# for test
+	'hello' => "����ɂ���",
+
+	# Original QuickML messages.
+	"<%s> was removed from the mailing list:\n<%s>\n" =>
+	"<%s> ��\n���[�����O���X�g <%s> ����폜����܂����B\n",
+
+	"because the address was unreachable.\n" =>
+	"���[�����͂��Ȃ����߂ł��B\n",
+
+	"ML will be closed if no article is posted for %d days.\n\n" =>
+	"���̃��[�����O���X�g�� %d���ȓ��ɓ��e���Ȃ��Ə��ł��܂��B\n\n",
+
+	"Time to close: %s.\n\n" =>
+	"���ŗ\�����: %s\n\n",
+
+	'%Y-%m-%d %H:%M' =>
+	"%Y�N%m��%d�� %H��%M��",
+
+	"You are not a member of the mailing list:\n<%s>\n" =>
+	"���Ȃ��� <%s> ���[�����O���X�g�̃����o�[�ł͂���܂���B\n",
+
+	"The original body is omitted to avoid spam trouble.\n" =>
+	"���[���{�̂̓X�p���΍�̂��ߏȗ�����܂����B\n",
+
+	"You are removed from the mailing list:\n<%s>\n" =>
+	"���Ȃ��� <%s> ���[�����O���X�g����폜����܂����B\n",
+
+	"by the request of <%s>.\n" =>
+	"<%s> ���폜�����肢�������߂ł��B\n",
+
+	"You have unsubscribed from the mailing list:\n<%s>.\n" =>
+	"���Ȃ��� <%s> ���[�����O���X�g����މ�܂����B",
+
+
+	"The following addresses cannot be added because <%s> mailing list reaches the maximum number of members (%d persons)\n\n" =>
+	"<%s> ���[�����O���X�g�̓����o�[�̍ő�l�� (%d�l)\n�ɒB�����̂ňȉ��̃A�h���X�͒lj��ł��܂���ł����B\n\n",
+
+	"Invalid mailing list name: <%s>\n" =>
+	"<%s> �͐������Ȃ����[�����O���X�g���ł��B\n",
+
+	"You can only use 0-9, a-z, A-Z,  `-' for mailing list name\n" =>
+	"���[�����O���X�g���ɂ� 0-9, a-z, A-Z, �u-�v�������g���܂��B\n",
+
+	"Sorry, your mail exceeds the length limitation.\n" =>
+	"�\���󂠂�܂���B���Ȃ��̃��[���̃T�C�Y�͐����𒴂��܂����B\n",
+
+	"The max length is %s bytes.\n\n" =>
+	"���[���̃T�C�Y�̐����� %s �o�C�g�ł��B\n\n",
+
+	"[%s] Unsubscribe: %s" =>
+	"[%s] �މ�: %s",
+
+	"[%s] ML will be closed soon" =>
+	"[%s] ���[�����O���X�g��~�̂��ē�",
+
+	"[%s] Removed: <%s>" =>
+	"[%s] �����o�[�폜: <%s>",
+
+	"Members of <%s>:\n" =>
+	"<%s> �̃����o�[:\n",
+
+	"How to unsubscribe from the ML:\n" =>
+	"����ML��މ����@:\n",
+
+	"- Just send an empty message to <%s>.\n" =>
+	"- �{������̃��[���� <%s> �ɑ����Ă�������\n",
+
+	"- Alternatively, if you cannot send an empty message for some reason,\n" =>
+	"- �{������̃��[���𑗂�Ȃ��ꍇ�́A\n",
+
+	"  please send a message just saying 'unsubscribe' to <%s>.\n" =>
+	"  �{���Ɂu�މ�v�Ƃ������������[���� <%s> �ɑ����Ă�������\n",
+
+	"  (e.g., hotmail's advertisement, signature, etc.)\n" =>
+	"  (������hotmail�̍L���Ȃǂ��‚��ċ󃁁[���𑗂�Ȃ��ꍇ�Ȃ�)\n",
+
+	"[QuickML] Error: %s" =>
+	"[QuickML] �G���[: %s",
+
+	"New Member: %s\n" =>
+	"�V�����o�[: %s\n",
+
+	"Did you send a mail with a different address from the address registered in the mailing list?\n" =>
+	"���[�����O���X�g�ɓo�^�������[���A�h���X�ƈقȂ�A�h���X���烁�[���𑗐M���Ă��܂���?\n",
+
+	"Please check your 'From:' address.\n" =>
+	"���o�l�̃��[���A�h���X���m�F���Ă��������B\n",
+
+	"Info: %s\n" => 
+	"�g����: %s\n",
+
+	"----- Original Message -----\n" =>
+	"----- ���̃��b�Z�[�W -----\n",
+
+	"[%s] Confirmation: %s" =>
+	"[%s] �m�F: %s",
+
+	# qwikWeb messages.
+	"First, please read the agreement of this service.\n" =>
+	"�܂����L�̗��p�K������ǂ݉������B\n",
+
+	"http://qwik.jp/qwikjpAgreementE.html\n" =>
+	"http://qwik.jp/qwikjpAgreementJ.html\n",
+
+	"You must agree with this agreement to use the service.\n" =>
+	"���̃T�[�r�X�𗘗p����ɂ́A���p�K������F���Ă��������K�v������܂��B\n",
+
+	"If you agree, then,\n" =>
+	"�������F����ꍇ�A\n",
+
+	"Please simply reply to this mail to create ML <%s>.\n" =>
+	"���̃��[���ɕԐM����� <%s> ���[�����O���X�g������܂��B\n",
+
+	"WARNING: Total attached file size exceeded." =>
+	"�x��: �Y�t�t�@�C���̍��v�T�C�Y���ő�e�ʂ𒴂��Ă��܂��B",
+
+	'Files are not attached on the web.' =>
+	"�Y�t�t�@�C����Web�ɕۑ�����܂���B",
+
+	"WARNING: Total attached file size is reaching to the limit." =>
+	"�x��: �Y�t�t�@�C���̍��v�T�C�Y���ő�e�ʂɋ߂Â��Ă��܂��B",
+
+	"%s left" =>
+	"�c��%s",
+
+	"\nFile '%s' was not attached.\n" =>
+	"\n�t�@�C�� '%s' �͕ۑ�����܂���ł����B\n",
+      }
+    end
+  end
+end

data/vendor/qwik/check-act-monitor.rb

@@ -0,0 +1,112 @@
+# 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/test-module-server'
+
+if $0 == __FILE__
+  $test = true
+end
+
+module TestMonitorModule
+  include TestServerSetupModule
+  include TestServerModule
+
+  def setup_monitor
+    Thread.abort_on_exception = true
+
+    server, config, memory, wreq, wres = setup_server
+    server_thread = Thread.new { server.start }
+
+    write_page('_SiteMember', ",user@e.com\n")
+    write_page('1', "*t\np")
+
+    return server
+  end
+end
+
+if defined?($test) && $test
+  class CheckActMonitor < Test::Unit::TestCase
+    include TestMonitorModule
+
+    # http://colinux:9190/HelloQwik/ActMonitor.html
+    def test_act_monitor
+      return if $0 != __FILE__		# Only for unit test.
+
+      server = setup_monitor
+
+      str = get_path('1.html')
+      ok_in(['t'], '//title', str)
+      ok_in([:p, 'p'], "//div[@class='section']", str)
+
+      t = Thread.new {
+	sleep 0.1
+	str = get_path("1.save?contents=*t2%0Ap2")	# Save to the page.
+	ok_in(['Page is saved.'], '//title', str)
+	ok_eq("*t2\np2", read_page('1'))
+      }
+
+      str = get_path('1.monitor')		# Wait for update.
+      ok_in([:p, 'p2'], "//div[@class='section']", str)
+
+      t.join	# Wait for the thread.
+
+      teardown_server(server)
+    end
+
+    def test_monitor_in_thread
+      return if $0 != __FILE__		# Only for unit test.
+
+      server = setup_monitor
+
+      str = get_path('1.html')
+      ok_in(['t'], '//title', str)
+      ok_in([:p, 'p'], "//div[@class='section']", str)
+
+      t = Thread.new {
+	str = get_path('1.monitor')		# Wait for update.
+	ok_in([:p, 'p2'], "//div[@class='section']", str)
+      }
+
+      sleep 0.1
+      str = get_path("1.save?contents=*t2%0Ap2")	# Save to the page.
+      ok_in(['Page is saved.'], '//title', str)
+      ok_eq("*t2\np2", read_page('1'))
+
+      t.join	# Wait for the thread.
+
+      teardown_server(server)
+    end
+
+    def test_several_monitors
+      return if $0 != __FILE__		# Only for unit test.
+
+      server = setup_monitor
+
+      str = get_path('1.html')
+      ok_in(['t'], '//title', str)
+      ok_in([:p, 'p'], "//div[@class='section']", str)
+
+      t1 = Thread.new {
+	str1 = get_path('1.monitor')		# Wait for update.
+	ok_in([:p, 'p2'], "//div[@class='section']", str1)
+      }
+
+      t2 = Thread.new {
+	str2 = get_path('1.monitor')		# Wait for update.
+	ok_in([:p, 'p2'], "//div[@class='section']", str2)
+      }
+
+      sleep 0.1
+      str = get_path("1.save?contents=*t2%0Ap2")	# Save to the page.
+      ok_in(['Page is saved.'], '//title', str)
+      ok_eq("*t2\np2", read_page('1'))
+
+      t1.join	# Wait for the thread.
+      t2.join	# Wait for the thread.
+
+      teardown_server(server)
+    end
+  end
+end

data/vendor/qwik/check-act-monitor2.rb

@@ -0,0 +1,46 @@
+# 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/check-act-monitor'
+
+if $0 == __FILE__
+  require 'qwik/server'
+  $test = true
+end
+
+if defined?($test) && $test
+  class CheckActMonitor2 < Test::Unit::TestCase
+    include TestMonitorModule
+
+    def test_many_monitors
+      return if $0 != __FILE__		# Only for unit test.
+
+      server = setup_monitor
+
+      ts = []
+      res = []
+      max = 15	# OK.
+      #max = 10	# Not OK.
+      (0..max).each {|i|
+	ts[i] = Thread.new {
+	  res[i] = get_path('1.monitor')		# Wait for update.
+	  p res[i]
+	  #ok_in([:p, 'p2'], "//div[@class='section']", res[i])
+	}
+      }
+
+      sleep 0.1
+      str = get_path('1.save?contents=*t2%0Ap2')	# Save to the page.
+      ok_in(['Page is saved.'], '//title', str)
+      ok_eq("*t2\np2", read_page('1'))
+
+      (0..max).each {|i|
+	ts[i].join	# Wait for the thread.
+      }
+
+      teardown_server(server)
+    end
+  end
+end

data/vendor/qwik/check-act-theme.rb

@@ -0,0 +1,27 @@
+# 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/test-common'
+require 'qwik/act-theme'
+
+class CheckExternalCss < Test::Unit::TestCase
+  include TestSession
+
+  def test_all
+    return if $0 != __FILE__		# Only for separated test.
+
+    # test_extcss_nosuch
+    res = session '/.css/http://nosuchhostname/q.css'
+    ok_title 'Access Failed'
+
+    # test_extcss_hatena
+    res = session '/.css/http://d.hatena.ne.jp/theme/clover/clover.css'
+    if @res.body.is_a?(Array)
+      ok_title 'Access Failed'
+    else
+      #eq true, 1000 < @res.body.length
+    end
+  end
+end

data/vendor/qwik/check-event.rb

@@ -0,0 +1,112 @@
+# 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/test-module-server'
+
+if $0 == __FILE__
+  $test = true
+end
+
+module CheckEventModule
+  include TestServerSetupModule
+  include TestServerModule
+
+  def setup_event
+    Thread.abort_on_exception = true
+
+    server, config, memory, wreq, wres = setup_server
+    server_thread = Thread.new { server.start }
+
+    write_page('_SiteMember', ",user@e.com\n")
+    write_page('1', "*t\np")
+
+    return server
+  end
+end
+
+if defined?($test) && $test
+  class CheckEvent < Test::Unit::TestCase
+    include CheckEventModule
+
+    # http://colinux:9190/HelloQwik/ActMonitor.html
+    def test_1
+      return if $0 != __FILE__		# Only for unit test.
+
+      server = setup_event
+
+      str = get_path('1.html')
+      ok_in(['t'], '//title', str)
+      ok_in([:p, 'p'], "//div[@class='section']", str)
+
+      t = Thread.new {
+	sleep 0.1
+	str = get_path("1.save?contents=*t2%0Ap2")	# Save to the page.
+	ok_in(['Page is saved.'], '//title', str)
+	ok_eq("*t2\np2", read_page('1'))
+      }
+
+      str = get_path('1.event')		# Wait for update.
+      #ok_eq(",0,user@e.com,1,save,save\n", str)
+      #ok_in([:p, 'p2'], "//div[@class='section']", str)
+
+      t.join	# Wait for the thread.
+
+      teardown_server(server)
+    end
+
+    def test_2
+      return if $0 != __FILE__		# Only for unit test.
+
+      server = setup_event
+
+      str = get_path('1.html')
+      ok_in(['t'], '//title', str)
+      ok_in([:p, 'p'], "//div[@class='section']", str)
+
+      t = Thread.new {
+	str = get_path('1.event')		# Wait for update.
+	ok_eq(",0,user@e.com,1,save,save\n", str)
+      }
+
+      sleep 0.1
+      str = get_path("1.save?contents=*t2%0Ap2")	# Save to the page.
+      ok_in(['Page is saved.'], '//title', str)
+      ok_eq("*t2\np2", read_page('1'))
+
+      t.join	# Wait for the thread.
+
+      teardown_server(server)
+    end
+
+    def test_3
+      return if $0 != __FILE__		# Only for unit test.
+
+      server = setup_event
+
+      str = get_path('1.html')
+      ok_in(['t'], '//title', str)
+      ok_in([:p, 'p'], "//div[@class='section']", str)
+
+      t1 = Thread.new {
+	str1 = get_path('1.event')	# Wait for update.
+	ok_eq(",0,user@e.com,1,save,save\n", str1)
+      }
+      t2 = Thread.new {
+	str2 = get_path('1.event')	# Wait for update.
+	ok_eq(",0,user@e.com,1,save,save\n", str2)
+      }
+
+      sleep 0.1
+      str = get_path("1.save?contents=*t2%0Ap2")	# Save to the page.
+      ok_in(['Page is saved.'], '//title', str)
+      ok_eq("*t2\np2", read_page('1'))
+
+      t1.join	# Wait for the thread.
+      t2.join	# Wait for the thread.
+
+      teardown_server(server)
+    end
+  end
+end

data/vendor/qwik/check-event2.rb

@@ -0,0 +1,55 @@
+# 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/check-event'
+
+if $0 == __FILE__
+  $test = true
+end
+
+if defined?($test) && $test
+  class CheckEvent2 < Test::Unit::TestCase
+    include CheckEventModule
+
+    def test_many
+      return if $0 != __FILE__		# Only for unit test.
+
+      server = setup_event
+
+      ts = []
+      res = []
+      max = 15	# OK.
+      #max = 10	# Not OK.
+      (0..max).each {|i|
+	ts[i] = Thread.new {
+	  res[i] = get_path('1.event')		# Wait for update.
+	  #ok_in([:p, 'p2'], "//div[@class='section']", res[i])
+	}
+      }
+
+      loop {
+	str = get_path("1.save?contents=*t2%0Ap2")	# Save to the page.
+	ok_in(['Page is saved.'], '//title', str)
+	ok_eq("*t2\np2", read_page('1'))
+
+	sleep 0.1
+
+	endok = true
+	(0..max).each {|i|
+	  if ts[i].status != false
+	    endok = false
+	  end
+	}
+	break if endok
+      }
+
+      (0..max).each {|i|
+	ts[i].join	# Wait for the thread.
+      }
+
+      teardown_server(server)
+    end
+  end
+end