qwikdoc 0.0.1

data/vendor/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/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("�e�X�g") { '�e�B' }
+    ok_log("[test]: QwikPost: 1
+[test:2]: Send:")
+    eq "�e�X�g", @site['1'].get_title
+    eq "* �e�X�g
+{{mail(bob@example.net,0)
+�e�B
+}}
+", @site['1'].load
+
+    sm("�e�X�g") { '������e�B' }
+    ok_log("[test]: QwikPost: 1
+[test:3]: Send:")
+    eq "�e�X�g", @site['1'].get_title
+    # The new mail is added.
+    eq "* �e�X�g
+{{mail(bob@example.net,0)
+�e�B
+}}
+{{mail(bob@example.net,0)
+������e�B
+}}
+", @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("�e�X�g") {
+"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
+
+�e�B
+--------_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 "�e�X�g", page.get_title
+    eq true, @site.files('1').exist?('1x1.png')
+  end
+
+  def nu
+    eq "* �e�X�g
+{{mail(bob@example.net,0)
+
+�e�B
+
+{{file(1x1.png)}}
+
+}}
+", page.load
+  end
+end

data/vendor/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('�e�X�g') {
+"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 '�e�X�g', page.get_title
+    eq '* �e�X�g
+{{mail(bob@example.net,0)
+test.
+
+{{file(17fy�\�Z�R�[�h�̎w��ɂ‚���.doc)}}
+
+
+{{file(��񗬃f�U�C���O���[�v.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�\�Z�R�[�h�̎w��ɂ‚���.doc')
+    eq true, files.exist?('17fy�\�Z�R�[�h�̎w��ɂ‚���.doc'.set_sourcecode_charset.to_filename_charset)	# UTF-8 is allowed.
+    eq true, files.exist?('17fy�\�Z�R�[�h�̎w��ɂ‚���.doc'.set_sourcecode_charset.to_mail_charset)	# Any charsets are allowed.
+    eq true, files.exist?('��񗬃f�U�C���O���[�v.xls')
+  end
+end

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

data/vendor/qwik/test-ms-member.rb

@@ -0,0 +1,103 @@
+# 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 TestMSMember < Test::Unit::TestCase
+  include TestModuleML
+
+  def test_all
+    @ml_config.instance_eval {
+      @config[:max_members] = 2
+    }
+
+    # 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"], 0..2)
+
+    # Mail from is case-insensitive.
+    send_normal_mail('ALICE@EXAMPLE.NET')
+    ok_log(["[test]: QwikPost: test", "[test:2]: Send:"])
+
+    # Bob send a mail, but is rejected.
+    send_normal_mail 'bob@example.net'
+    ok_log(["[test]: Reject: bob@example.net"])
+
+    # Add a member Charlie.
+    add_member 'charlie@example.net'
+    ok_log(["[test]: Add: charlie@example.net",
+	     "[test]: QwikPost: addmember", "[test:3]: Send:"])
+
+    # Max exceeds.  :max_members
+    add_member 'bob@example.net'
+    ok_log(["[test]: Too Many Members: bob@example.net",
+	     "[test]: QwikPost: addmember",
+	     "[test:4]: Send:"])
+
+    # Remove a member, alice.
+    remove_member 'ALICE@EXAMPLE.NET', 'charlie@example.net'
+    ok_log(["[test]: Remove: charlie@example.net",
+	     "[test]: Unsubscribe: charlie@example.net"])
+
+    # Bob joined to the ml.
+    join_ml('bob@example.net')
+    ok_log(["[test]: Add: bob@example.net",
+	     "[test]: QwikPost: join", "[test:5]: Send:"])
+
+    # Bob removed Alice.
+    remove_member 'bob@example.net', 'Alice@Example.Net'
+    ok_log(["[test]: Remove: Alice@example.net",
+	     "[test]: Unsubscribe: Alice@example.net"])
+
+    # Alice returned to the ml.
+    send_normal_mail 'alice@example.net'
+    ok_log(["[test]: Add: alice@example.net",
+	     "[test]: QwikPost: test", "[test:6]: Send:"])
+
+    # Alice removed Bob.
+    remove_member 'alice@example.net', 'bob@example.net'
+    ok_log(["[test]: Remove: bob@example.net",
+	     "[test]: Unsubscribe: bob@example.net"])
+
+    # Try to add nonexistent mail address.
+    add_member 'nonexistent'
+    ok_log(["[test]: QwikPost: addmember", "[test:7]: Send:"])
+
+    send_normal_mail 'alice@example.net'
+    ok_log(["[test]: QwikPost: test", "[test:8]: Send:"])
+
+    send_normal_mail 'Alice@Example.Net'
+    ok_log(["[test]: QwikPost: test", "[test:9]: Send:"])
+
+    send_normal_mail 'ALICE@EXAMPLE.NET' # exceeds :auto_unsubscribe_count
+    ok_log(["[test]: QwikPost: test", "[test:10]: Send:"])
+
+    unsubscribe 'alice@example.net'		# close ML
+    ok_log(["[test]: Remove: alice@example.net",
+	     "[test]: ML Closed",
+	     "[test]: Unsubscribe: alice@example.net"])
+  end
+
+  def add_member(cc)
+    sendmail('alice@example.net', 'test@q.example.com', 'addmember', cc) {
+      'add'
+    }
+  end
+
+  def remove_member(from, member)
+    sendmail(from, 'test@q.example.com', 'remove', member) { '' }
+  end
+
+  def join_ml(from)
+    sendmail(from, 'test@q.example.com', 'join', 'alice@example.net') { 'join' }
+  end
+end

data/vendor/qwik/test-ms-multipart.rb

@@ -0,0 +1,84 @@
+# 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 TestMSMultipart < Test::Unit::TestCase
+  include TestModuleML
+
+  def test_all
+    # 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"], 0..2
+
+    # Send a multipart mail.
+    sendmail('alice@example.net', 'test@q.example.com', 'multipart') {
+"Mime-Version: 1.0
+Content-Transfer-Encoding: 7bit
+Content-Type: Multipart/Mixed;
+ boundary=\"--Next_Part(Wed_Oct_16_19:21:12_2002_747)--\"
+
+----Next_Part(Wed_Oct_16_19:21:12_2002_747)--
+Content-Type: Text/Plain; charset=us-ascii
+Content-Transfer-Encoding: 7bit
+
+test
+----Next_Part(Wed_Oct_16_19:21:12_2002_747)--
+Content-Type: Text/Plain; charset=us-ascii
+Content-Transfer-Encoding: 7bit
+Content-Disposition: attachment; filename=\"foobar.txt\"
+
+foobar
+
+----Next_Part(Wed_Oct_16_19:21:12_2002_747)----
+" }
+    ok_log ["[test]: QwikPost: multipart", "[test:2]: Send:"]
+
+    # Send a Japanese mail.
+    sendmail('alice@example.net', 'test@q.example.com',
+	     "=?iso-2022-jp?B?GyRCJEYkOSRIGyhC?=") {
+'Content-Type: text/plain; charset=ISO-2022-JP
+
+���{��ł���
+' }
+    ok_log ["[test]: QwikPost: 1", "[test:3]: Send:"]
+
+    # Send a Japanese multipart mail.
+    sendmail('alice@example.net', 'test@q.example.com',
+	     "=?iso-2022-jp?B?GyRCJF4kayRBJFEhPCRIGyhC?=") {
+"Mime-Version: 1.0
+Content-Transfer-Encoding: 7bit
+Content-Type: Multipart/Mixed;
+ boundary=\"--Next_Part(Wed_Oct_16_19:21:12_2002_747)--\"
+
+----Next_Part(Wed_Oct_16_19:21:12_2002_747)--
+Content-Type: Text/Plain; charset=iso-2022-jp
+Content-Transfer-Encoding: 7bit
+
+����
+----Next_Part(Wed_Oct_16_19:21:12_2002_747)--
+Content-Type: Text/Plain; charset=us-ascii
+Content-Transfer-Encoding: 7bit
+Content-Disposition: attachment; filename=\"foobar.txt\"
+
+foobar
+
+----Next_Part(Wed_Oct_16_19:21:12_2002_747)----
+" }
+    ok_log ["[test]: QwikPost: 2", "[test:4]: Send:"]
+
+    unsubscribe 'alice@example.net'		# close ML
+    ok_log ["[test]: Remove: alice@example.net",
+	     "[test]: ML Closed",
+	     "[test]: Unsubscribe: alice@example.net"]
+  end
+end