qwik2md 0.1.0

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

@@ -0,0 +1,174 @@
+# 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 TestMSAttach < Test::Unit::TestCase
+  include TestModuleML
+
+  def test_submit_multipart
+    send_normal_mail('bob@example.net')		# Bob creates a new ML.
+    sendmail('bob@example.net', 'test@q.example.com', 'multipart test') {
+"MIME-Version: 1.0
+Content-Type: multipart/mixed; boundary=\"boundary\"
+Content-Transfer-Encoding: 7bit
+
+--boundary
+Content-Type: text/plain; charset=\"ascii\"
+Content-Transfer-Encoding: 7bit
+
+test1
+
+--boundary
+Content-Type: text/plain; charset=\"ascii\"
+Content-Transfer-Encoding: 7bit
+
+test2
+
+--boundary--
+" }
+    eq 'multipart test', @site['1'].get_title
+    eq "* multipart test
+{{mail(bob@example.net,0)
+test1
+
+test2
+}}
+", @site["1"].load
+  end
+
+  def test_submit_with_text
+    send_normal_mail('bob@example.net')		# Bob creates a new ML.
+    str =
+"Message-Id: <nosuchmessageid@example.com>
+MIME-Version: 1.0
+Content-Type: multipart/mixed; boundary=\"------_4119D7487CCF04869008_MULTIPART_MIXED_\"
+Content-Transfer-Encoding: 7bit
+
+--------_4119D7487CCF04869008_MULTIPART_MIXED_
+Content-Type: text/plain; charset='ISO-2022-JP'
+Content-Transfer-Encoding: 7bit
+
+test
+--------_4119D7487CCF04869008_MULTIPART_MIXED_
+Content-Type: application/octet-stream; name=\"t.txt\"
+Content-Disposition: attachment;
+ filename=\"t.txt\"
+Content-Transfer-Encoding: base64
+
+dGVzdA0K
+
+--------_4119D7487CCF04869008_MULTIPART_MIXED_
+"
+    sm('text file attach test') { str }
+    page = @site.get_by_title('text file attach test')
+    eq 'text file attach test', page.get_title
+    eq '1', page.key
+    eq "* text file attach test
+{{mail(bob@example.net,0)
+test
+
+{{file(t.txt)}}
+}}
+", page.load
+    files = @site.files('1')
+    eq true, files.exist?('t.txt')
+    #eq './test/1.files/t.txt', files.path('t.txt').to_s
+    eq '.test/data/test/1.files/t.txt', files.path('t.txt').to_s
+    str = files.path('t.txt').read
+    eq "test\r\n", str
+
+    # The same mail is sent to the ML again.
+    sm('text file attach test') { str }
+  end
+
+  # FIXME: abandon...
+  def nu
+    eq "* text file attach test
+{{mail(bob@example.net,0)
+test
+
+{{file(t.txt)}}
+}}
+{{mail(bob@example.net,0)
+test
+
+{{file(1-t.txt)}}
+}}
+", page.load
+    eq true, @site.files(page.key).exist?('1-t.txt')
+
+    # Once again.
+    group.site_post(mail, true)
+    page = @site.get_by_title('text file attach test')
+    eq "* text file attach test
+{{mail(bob@example.net,0)
+test
+
+{{file(t.txt)}}
+}}
+{{mail(bob@example.net,0)
+test
+
+{{file(1-t.txt)}}
+}}
+{{mail(bob@example.net,0)
+test
+
+{{file(2-t.txt)}}
+}}
+", page.load
+    eq true, @site.files(page.key).exist?('2-t.txt')
+  end
+
+  def nutest_submit_with_image
+    group = QuickML::Group.new(@ml_config, 'test@example.com')
+    group.setup_test_config
+
+    mail = QuickML::Mail.generate {
+"Date: Sun, 01 Aug 2004 12:34:56 +0900
+From: Test User <bob@example.net>
+To: test@example.com
+Subject: Attach Test
+Cc: guest@example.com
+MIME-Version: 1.0
+Content-Type: multipart/mixed; boundary=\"------_410DDC04C7AD046D3600_MULTIPART_MIXED_\"
+Content-Transfer-Encoding: 7bit
+
+--------_410DDC04C7AD046D3600_MULTIPART_MIXED_
+Content-Type: text/plain; charset=\"ascii\"
+Content-Transfer-Encoding: 7bit
+
+This is a test.
+--------_410DDC04C7AD046D3600_MULTIPART_MIXED_
+Content-Type: image/png; name=\"1x1.png\"
+Content-Disposition: attachment;
+ filename=\"1x1.png\"
+Content-Transfer-Encoding: base64
+
+iVBORw0KGgoAAAANSUhEUgAAAAEAAAABCAIAAACQd1PeAAAADElEQVR42mP4//8/AAX+Av4zEpUU
+AAAAAElFTkSuQmCC
+
+--------_410DDC04C7AD046D3600_MULTIPART_MIXED_--
+" }
+
+    group.site_post(mail, true)
+    eq 'Attach Test', @site['1'].get_title
+    eq "* Attach Test
+{{mail(bob@example.net,0)
+This is a test.
+
+{{file(1x1.png)}}
+}}
+",
+	  @site['1'].load
+    eq true, @site.files('1').exist?('1x1.png')
+  end
+end

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

@@ -0,0 +1,40 @@
+# 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 TestMSBasic < Test::Unit::TestCase
+  include TestModuleML
+
+  def test_all
+    logs = @ml_config.logger.get_log
+
+    # Bob send a mail to create a new ML.
+    send_normal_mail('bob@example.net')
+    ok_log(['[test]: New ML by bob@example.net',
+	 '[test]: Add: bob@example.net',
+	 '[test]: QwikPost: test',
+	 '[test:1]: Send:'])
+
+    # Bob send a mail.
+    send_normal_mail('bob@example.net')
+    ok_log(['[test]: QwikPost: test', '[test:2]: Send:'])
+
+    # Alice send a mail, but the mail is rejected.
+    send_normal_mail('alice@example.net')
+    ok_log(['[test]: Reject: alice@example.net'])
+
+    # The ML is closed.
+    unsubscribe('bob@example.net')
+    ok_log(['[test]: Remove: bob@example.net',
+	 '[test]: ML Closed',
+	 '[test]: Unsubscribe: bob@example.net'])
+  end
+end

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

@@ -0,0 +1,35 @@
+#
+# 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 General Public License version 2.
+#
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/ml-session'
+require 'qwik/test-module-ml'
+
+if $0 == __FILE__
+  $test = true
+end
+
+class TestMSClose < Test::Unit::TestCase
+  include TestModuleML
+
+  def test_close
+    # Alice create a new ML.
+    send_normal_mail('alice@example.net')
+    ok_log(["[test]: New ML by alice@example.net",
+	     "[test]: Add: alice@example.net",
+	     "[test]: QwikPost: test",
+	     "[test:1]: Send:"])
+
+    # Alice unsubscrive from the ML.  The ML will be closed.
+    unsubscribe('alice@example.net')
+    ok_log(["[test]: Remove: alice@example.net",
+	     "[test]: ML Closed",
+	     "[test]: Unsubscribe: alice@example.net"])
+  end
+end

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

@@ -0,0 +1,75 @@
+# 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 TestMSConfirm < Test::Unit::TestCase
+  include TestModuleML
+
+  def test_session_with_confirm
+    $quickml_config.instance_eval {
+      @config[:confirm_ml_creation] = true
+    }
+
+    # Bob tries to create a new ML.
+    send_normal_mail('bob@example.net')
+    logs = @ml_config.logger.get_log
+    ok_eq("[test]: New ML by bob@example.net", logs[0])
+    if Regexp.new(Regexp.escape("[test]: Send confirmation: ")+
+		  "(confirm\\+\\d+\\+test@q\\.example\\.com)"+
+		  Regexp.escape(' bob@example.net')) =~ logs[1]
+      confirmation_to = $1
+    end
+
+    ok_eq(true, @site.unconfirmed?, 'Before reply, unconfirmed? must be true.')
+
+    # Bob replies the confirmation mail.
+    send_confirmation_mail('bob@example.net', confirmation_to)
+    ok_log(["[test]: Add: bob@example.net",
+	     "[test]: QwikPost: test",
+	     "[test:1]: Send:",
+	     "[test]: Accept confirmation:  test@q.example.com"])
+
+    ok_eq(false, @site.unconfirmed?, 'After reply, unconfirmed? must be false.')
+
+    # Bob send a mail.
+    send_normal_mail('bob@example.net')
+    ok_log(["[test]: QwikPost: test", "[test:2]: Send:"])
+
+    page = @site['test']
+    ok_eq("* test
+{{mail(bob@example.net,0)
+test
+}}
+{{mail(bob@example.net,0)
+test
+}}
+",
+	  page.load)
+
+    # Alice send a mail, but the mail is rejected.
+    send_normal_mail('alice@example.net')
+    ok_log(["[test]: Reject: alice@example.net"])
+
+    # The ML is closed.
+    unsubscribe('bob@example.net')
+    ok_log(["[test]: Remove: bob@example.net",
+	     "[test]: ML Closed",
+	     "[test]: Unsubscribe: bob@example.net"])
+
+    $quickml_config.instance_eval {
+      @config[:confirm_ml_creation] = false
+    }
+  end
+
+  def send_confirmation_mail(from, to)
+    sendmail(from, to, 'confirm') { 'confirm' }
+  end
+end

data/vendor/qwik/lib/qwik/test-ms-ignore-spam.rb

@@ -0,0 +1,57 @@
+# 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 TestMSIgnoreSpam < Test::Unit::TestCase
+  include TestModuleML
+
+  def test_all
+    send_normal_mail('bob@example.net')		# Bob creates a new ML.
+
+    # normail mail
+    sendmail('bob@example.net', 'test@q.example.com', 'test mail') {
+"This is a test."
+    }
+    eq true, @site.exist?('1')
+    eq 'test mail', @site['1'].get_title
+    eq "* test mail\n{{mail(bob@example.net,0)\nThis is a test.\n}}\n",
+      @site['1'].load
+
+    # spammer's mail
+    res = sendmail('spammer@example.org', 'test@q.example.com', 'spam mail') {
+"This is a spam mail."
+    }
+
+    eq ["spammer@example.org"], $quickml_sendmail[3]
+    eq "To: spammer@example.org
+From: test@q.example.com
+Subject: [QuickML] Error: spam mail
+
+You are not a member of the mailing list:
+<test@q.example.com>
+
+Did you send a mail with a different address from the address registered in the mailing list?
+Please check your 'From:' address.
+
+-- 
+Info: http://example.com/
+
+----- Original Message -----
+Subject: spam mail
+To: test@q.example.com
+From: spammer@example.org
+Date: 
+
+The original body is omitted to avoid spam trouble.
+", $quickml_sendmail[4]
+
+  end
+end

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

@@ -0,0 +1,97 @@
+# -*- 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.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/ml-session'
+require 'qwik/test-module-ml'
+
+if $0 == __FILE__
+  require 'qwik/password'
+  $test = true
+end
+
+class TestMSJapanese < Test::Unit::TestCase
+  include TestModuleML
+
+  def test_submit_1
+    send_normal_mail('bob@example.net')
+    ok_log(["[test]: New ML by bob@example.net",
+	     "[test]: Add: bob@example.net",
+	     "[test]: QwikPost: test"], 0..2)
+
+    sm("テスト") { 'テ。' }
+    ok_log("[test]: QwikPost: 1
+[test:2]: Send:")
+    eq "テスト", @site['1'].get_title
+    eq "* テスト
+{{mail(bob@example.net,0)
+テ。
+}}
+", @site['1'].load
+
+    sm("テスト") { 'これもテ。' }
+    ok_log("[test]: QwikPost: 1
+[test:3]: Send:")
+    eq "テスト", @site['1'].get_title
+    # The new mail is added.
+    eq "* テスト
+{{mail(bob@example.net,0)
+テ。
+}}
+{{mail(bob@example.net,0)
+これもテ。
+}}
+", @site['1'].load
+
+    unsubscribe('bob@example.net')		# close ML
+    ok_log("[test]: Remove: bob@example.net
+[test]: ML Closed
+[test]: Unsubscribe: bob@example.net")
+  end
+
+  def test_submit_with_attach_image
+    send_normal_mail('bob@example.net')
+    ok_log(["[test]: New ML by bob@example.net",
+	     "[test]: Add: bob@example.net",
+	     "[test]: QwikPost: test"], 0..2)
+
+    sm("テスト") {
+"MIME-Version: 1.0
+Content-Type: multipart/mixed; boundary=\"------_410DDC04C7AD046D3600_MULTIPART_MIXED_\"
+Content-Transfer-Encoding: 7bit
+
+--------_410DDC04C7AD046D3600_MULTIPART_MIXED_
+Content-Type: text/plain; charset='ISO-2022-JP'
+Content-Transfer-Encoding: 7bit
+
+テ。
+--------_410DDC04C7AD046D3600_MULTIPART_MIXED_
+Content-Type: image/png; name=\"1x1.png\"
+Content-Disposition: attachment;
+ filename=\"1x1.png\"
+Content-Transfer-Encoding: base64
+
+iVBORw0KGgoAAAANSUhEUgAAAAEAAAABCAIAAACQd1PeAAAADElEQVR42mP4//8/AAX+Av4zEpUU
+AAAAAElFTkSuQmCC
+
+--------_410DDC04C7AD046D3600_MULTIPART_MIXED_--
+" }
+    page = @site['1']
+    eq "テスト", page.get_title
+    eq true, @site.files('1').exist?('1x1.png')
+  end
+
+  def nu
+    eq "* テスト
+{{mail(bob@example.net,0)
+
+テ。
+
+{{file(1x1.png)}}
+
+}}
+", page.load
+  end
+end

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

@@ -0,0 +1,82 @@
+# 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 TestMailSubmitWithJapaneseFilename < Test::Unit::TestCase
+  include TestModuleML
+
+  def test_all
+    send_normal_mail 'bob@example.net'
+    ok_log(['[test]: New ML by bob@example.net',
+	     '[test]: Add: bob@example.net',
+	     '[test]: QwikPost: test'], 0..2)
+
+    sm('テスト') {
+"Date: Fri, 20 May 2005 15:21:55 +0900
+From: bob@example.net
+To: test@q.example.com
+Subject: Attach a file with japanese file name
+MIME-Version: 1.0
+Content-Type: multipart/mixed; boundary=\"------_428D7194605E049A05F8_MULTIPART_MIXED_\"
+Content-Transfer-Encoding: 7bit
+
+--------_428D7194605E049A05F8_MULTIPART_MIXED_
+Content-Type: text/plain; charset='ISO-2022-JP'
+Content-Transfer-Encoding: 7bit
+
+test.
+--------_428D7194605E049A05F8_MULTIPART_MIXED_
+Content-Type: application/octet-stream;
+ name=\"=?ISO-2022-JP?B?MTdmeRskQk09OzslMyE8JUkkTjtYRGokSxsoQg==?=
+ =?ISO-2022-JP?B?GyRCJEQkJCRGGyhCLmRvYw==?=\"
+Content-Disposition: attachment;
+ filename=\"=?ISO-2022-JP?B?MTdmeRskQk09OzslMyE8JUkkTjtYRGokSxsoQg==?=
+ =?ISO-2022-JP?B?GyRCJEQkJCRGGyhCLmRvYw==?=\"
+Content-Transfer-Encoding: base64
+
+0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAMAAAAAAAAAAA
+AAAAAA==
+--------_428D7194605E049A05F8_MULTIPART_MIXED_
+Content-Type: application/octet-stream;
+ name=\"=?ISO-2022-JP?B?GyRCPnBKc04uJUclNiUkJXMlMCVrITwlVxsoQg==?=
+ =?ISO-2022-JP?B?Lnhscw==?=\"
+Content-Disposition: attachment;
+ filename=\"=?ISO-2022-JP?B?GyRCPnBKc04uJUclNiUkJXMlMCVrITwlVxsoQg==?=
+ =?ISO-2022-JP?B?Lnhscw==?=\"
+Content-Transfer-Encoding: base64
+
+0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAHAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAEwAAAAAQAAAAAAAA
+--------_428D7194605E049A05F8_MULTIPART_MIXED_--
+" }
+    page = @site['1']
+    eq 'テスト', page.get_title
+    eq '* テスト
+{{mail(bob@example.net,0)
+test.
+
+{{file(17fy予算コードの指定について.doc)}}
+
+
+{{file(情報流デザイングループ.xls)}}
+}}
+',
+	  page.get
+
+    files = @site.files '1'
+    # The files.list are encoded in UTF-8
+    eq ["17fy\344\272\210\347\256\227\343\202\263\343\203\274\343\203\211\343\201\256\346\214\207\345\256\232\343\201\253\343\201\244\343\201\204\343\201\246.doc", "\346\203\205\345\240\261\346\265\201\343\203\207\343\202\266\343\202\244\343\203\263\343\202\260\343\203\253\343\203\274\343\203\227.xls"], files.list
+    eq true, files.exist?('17fy予算コードの指定について.doc')
+    eq true, files.exist?('17fy予算コードの指定について.doc'.set_sourcecode_charset.to_filename_charset)	# UTF-8 is allowed.
+    eq true, files.exist?('17fy予算コードの指定について.doc'.set_sourcecode_charset.to_mail_charset)	# Any charsets are allowed.
+    eq true, files.exist?('情報流デザイングループ.xls')
+  end
+end

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

@@ -0,0 +1,58 @@
+# 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 TestMSLarge < Test::Unit::TestCase
+  include TestModuleML
+
+  def test_session_large_mail
+    $quickml_config.instance_eval {
+      @config[:max_mail_length] = 10 * 1024
+    }
+
+    logs = @ml_config.logger.get_log
+
+    # Alice create a new ML.
+    send_normal_mail 'alice@example.net'
+    ok_log '[test]: New ML by alice@example.net
+[test]: Add: alice@example.net
+[test]: QwikPost: test
+[test:1]: Send:'
+
+    # send_large_mail
+    sendmail('alice@example.net', 'test@q.example.com', 'large') {
+      ('o' * 62 + "\n") * 16 * 10
+    }
+    ok_log 'Too Large Mail: alice@example.net'
+
+    # send_longline_mail
+    sendmail('alice@example.net', 'test@q.example.com', 'longline') {
+      'o' * 2000 + "\n"
+    }
+    ok_log 'Too Long Line: alice@example.net'
+
+    send_normal_mail 'alice@example.net'
+    ok_log '[test]: QwikPost: test
+[test:2]: Send:'
+
+    # send_japanese_large_mail
+    sendmail('alice@example.net', 'test@q.example.com',
+	     '=?iso-2022-jp?B?GyRCJEckKyQkGyhC?=') {
+      "Content-Type: text/plain; charset=ISO-2022-JP\n\n" +
+	('o' * 62 + "\n") * 16 * 10
+    }
+    ok_log 'Too Large Mail: alice@example.net'
+
+    $quickml_config.instance_eval {
+      @config[:max_mail_length] = 100 * 1024
+    }
+  end
+end