qwik2md 0.1.0

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

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

@@ -0,0 +1,129 @@
+#
+# Copyright (C) 2002-2004 Satoru Takabayashi <satoru@namazu.org> 
+# 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'
+require 'qwik/test-module-path'
+require 'qwik/mock-logger'
+require 'qwik/mock-socket'
+require 'qwik/mock-sendmail'
+$test = true
+
+class TestMLSessionOriginal < Test::Unit::TestCase
+  def setup
+    config = {
+      # Debug.
+      :verbose_mode	=> true,	# *TEST*
+
+      # ML server config.
+      :sweep_interval		=> 10,		# *TEST*
+      :allowable_error_interval	=> 3,		# *TEST*
+      :auto_unsubscribe_count	=> 3,		# *TEST*
+      :confirm_ml_creation	=> false,	# *TEST*
+
+      # Config for each group.
+      :max_members	=> 2,
+      :max_mail_length		=> 10 * 1024,	# *TEST*
+      :ml_life_time	=> 170,		# *TEST*
+      :ml_alert_time	=> 160,		# *TEST*
+
+      # Files and directories.
+      :sites_dir	=> '.',			# *TEST*
+      :ml_pid_file	=> 'quickml.pid',	# *TEST*
+      :log_dir		=> '.',
+    }
+
+    config[:logger] = QuickML::MockLogger.new
+
+    @config = Qwik::Config.new
+    @config.update(config)
+    QuickML::ServerMemory.init_mutex(@config)
+    QuickML::ServerMemory.init_catalog(@config)
+
+    @dir = './test/'.path
+    @dir.teardown
+    @dir.rmtree if @dir.directory?
+    @dir.rmdir  if @dir.directory?
+  end
+
+  def test_dummy
+  end
+
+  def nu_test_basic
+    socket = QuickML::MockSocket.new
+    c = @config
+    session = QuickML::Session.new(c, c.logger, c.catalog, socket)
+    session.start
+    ok_eq(['220 localhost ESMTP QuickML'], socket.result)
+
+    socket = QuickML::MockSocket.new('HELO')
+    c = @config
+    session = QuickML::Session.new(c, c.logger, c.catalog, socket)
+    session.start
+    ok_eq(['220 localhost ESMTP QuickML'], socket.result)
+
+    socket = QuickML::MockSocket.new('HELO localhost')
+    c = @config
+    session = QuickML::Session.new(c, c.logger, c.catalog, socket)
+    session.start
+    ok_eq(['220 localhost ESMTP QuickML',
+	    '250 localhost'], socket.result)
+
+    res = send_normal_mail 'alice@example.net'
+    ok_eq(['220 localhost ESMTP QuickML',
+	    '250 localhost',
+	    '250 ok',
+	    '250 ok',
+	    '354 send the mail data, end with .',
+	    '250 ok',
+	    '221 Bye'], res)
+  end
+
+  def send_normal_mail(from)
+    sendmail(from, 'test@example.com', 'test') { 'test' }
+  end
+
+  def ok_log(ar, range=nil)
+    logs = @config.logger.get_log
+    logs = logs[range] if range
+    ok_eq(ar, logs)
+  end
+
+  def test_session
+    #sleep 180				# automatic ML deletion
+    # finish
+  end
+
+  def sendmail(from, to, subject, cc=nil)
+    message = yield
+    contents = []
+    contents << "To: #{to}\n"
+    contents << "From: #{from}\n"
+    contents << "Subject: #{subject}\n"
+    contents << "Cc: #{cc}\n" if cc
+    contents << "\n" if /\n\z/ !~ message
+    contents << message
+    inputs = <<'EOT'
+HELO localhost
+MAIL FROM: #{from}
+RCPT TO: #{to}
+DATA
+#{contents.join}
+.
+QUIT
+EOT
+    socket = QuickML::MockSocket.new(inputs)
+    c = @config
+    session = QuickML::Session.new(c, c.logger, c.catalog, socket)
+    session.start
+    return socket.result
+  end
+end

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

@@ -0,0 +1,130 @@
+# -*- 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__
+  $test = true
+end
+
+class TestMSPlan < Test::Unit::TestCase
+  include TestModuleML
+
+  def test_plan
+    send_normal_mail 'bob@example.net'
+    logs = @ml_config.logger.get_log
+    eq '[test]: New ML by bob@example.net', logs[0]
+
+    # Bob send a mail with a date tag.
+    #res = sm('[1970-01-15] t') { 't' }
+    res = sm('plan_19700115') { 't' }
+    ok_log '[test]: QwikPost: plan_19700115
+[test:2]: Send:'
+    page = @site['plan_19700115']
+    eq "* plan_19700115
+{{mail(bob@example.net,0)
+t
+}}
+", page.load
+
+    # test_footer
+    eq "* Plan
+- [01-15] plan_19700115
+http://example.com/test/plan_19700115.html
+", @site.get_footer(Time.at(0))
+
+    # Bob send a mail.
+    res = sm('tt') { 't' }
+    ok_log ['[test]: QwikPost: tt', '[test:3]: Send:']
+    eq "-- 
+archive-> http://example.com/test/tt.html 
+ML-> test@q.example.com
+
+* Plan
+- [01-15] plan_19700115
+http://example.com/test/plan_19700115.html", $ml_sm.buffer[-9..-3].join("\n")
+
+    page = @site['tt']
+    eq "* tt
+{{mail(bob@example.net,0)
+t
+}}
+", page.load
+  end
+
+  def test_plan2
+    send_normal_mail('bob@example.net')
+    eq '[test]: New ML by bob@example.net', @ml_config.logger.get_log[0]
+
+    # Bob send a mail with a date tag.
+    res = sm('plan_19700115') { 't' }
+    ok_log("[test]: QwikPost: plan_19700115\n[test:2]: Send:")
+    page = @site['plan_19700115']
+    eq "* plan_19700115
+{{mail(bob@example.net,0)
+t
+}}
+", page.load
+
+    # Bob send the same mail again.msame a same mail with a date tag.
+    res = sm('plan_19700115') { 't' }
+    ok_log "[test]: QwikPost: plan_19700115\n[test:3]: Send:"
+    page = @site['plan_19700115']
+    eq "* plan_19700115
+{{mail(bob@example.net,0)
+t
+}}
+{{mail(bob@example.net,0)
+t
+}}
+", page.load
+
+    # test_footer
+    eq "* Plan
+- [01-15] plan_19700115
+http://example.com/test/plan_19700115.html
+", @site.get_footer(Time.at(0))
+  end
+
+  def test_plan_japanese
+    send_normal_mail('bob@example.net')
+    logs = @ml_config.logger.get_log
+    eq '[test]: New ML by bob@example.net', logs[0]
+
+    # Bob send a mail with a date tag.
+    res = sm('plan_19700115') { 'い' }
+    ok_log "[test]: QwikPost: plan_19700115\n[test:2]: Send:"
+    page = @site['plan_19700115']
+    eq "* plan_19700115
+{{mail(bob@example.net,0)
+い
+}}
+", page.load
+
+    # test_footer
+    eq "* Plan
+- [01-15] plan_19700115
+http://example.com/test/plan_19700115.html
+", @site.get_footer(Time.at(0))
+
+    # Bob send a mail.
+    res = sm('うう') { 'ええ' }
+    ok_log "[test]: QwikPost: 1\n[test:3]: Send:"
+    str = $ml_sm.buffer[-12..-3].join("\n")
+    eq '
+ええ
+
+-- 
+archive-> http://example.com/test/1.html 
+ML-> test@q.example.com
+
+* Plan
+- [01-15] plan_19700115
+http://example.com/test/plan_19700115.html'.set_sourcecode_charset.to_mail_charset,
+      str
+  end
+end

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

@@ -0,0 +1,53 @@
+# 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 TestMSPost < Test::Unit::TestCase
+  include TestModuleML
+
+  def test_post_1
+    logs = @ml_config.logger.get_log
+
+    send_normal_mail 'bob@example.net'		# Bob creates a new ML.
+    logs = @ml_config.logger.get_log
+
+    eq nil, @site['1']
+    send_normal_mail 'bob@example.net'
+    ok_log ['[test]: QwikPost: test', '[test:2]: Send:']
+    eq 'test', @site['test'].get_title
+    eq "* test\n{{mail(bob@example.net,0)\ntest\n}}\n{{mail(bob@example.net,0)\ntest\n}}\n", @site['test'].load
+
+    send_normal_mail 'bob@example.net'
+    eq "* test\n{{mail(bob@example.net,0)\ntest\n}}\n{{mail(bob@example.net,0)\ntest\n}}\n{{mail(bob@example.net,0)\ntest\n}}\n", @site['test'].load
+  end
+
+  def test_submit_3
+    send_normal_mail 'bob@example.net'
+
+    sendmail('bob@example.net', 'test@q.example.com', 'Another mail.') {
+"MIME-Version: 1.0
+Content-Transfer-Encoding: 7bit
+Content-Type: text/plain; charset=\"ISO-2022-JP\"
+
+This is also a test.
+" }
+    eq 'Another mail.', @site['1'].get_title
+    eq "* Another mail.\n{{mail(bob@example.net,0)
+This is also a test.\n}}\n", @site['1'].load
+  end
+
+  def test_submit_4
+    send_normal_mail 'bob@example.net'		# Bob creates a new ML.
+    sendmail('bob@example.net', 'test@q.example.com', 'a') { 'b' }
+    eq 'a', @site['a'].get_title
+    eq "* a\n{{mail(bob@example.net,0)\nb\n}}\n", @site['a'].load
+  end
+end

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

@@ -0,0 +1,76 @@
+# 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 TestMSQuotedPrintable < 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)
+
+    sendmail('[qwik-users:217] Gmail=?iso-2022-jp?B?GyRCJCwbKEJKSVMbJEIlKCVzJTMhPCVHJSMbKEI=?= 
+ =?iso-2022-jp?B?GyRCJXMlMCRLO0VNTUpROTkbKEI=?=',
+       'user@gmail.com', 'test@example.com') {
+'Content-Type: text/plain; charset=ISO-2022-JP
+Content-Transfer-Encoding: quoted-printable
+
+=1B$B$3$s$K$A$O!#=1B(B
+
+--=20
+user
+' }
+
+#    ok_eq('quoted-printable', mail['Content-Transfer-Encoding'])
+#    ok_eq('GmailがJISエンコーディングに仕様変更',
+#		 mail.get_clean_subject)
+#    ok_eq("こんにちは。\n\n-- \nuser\n".set_sourcecode_charset.to_mail_charset, mail.decoded_body)
+=begin
+    page = @site['1']
+    ok_eq('GmailがJISエンコーディングに仕様変更', page.get_title)
+    ok_eq("* GmailがJISエンコーディングに仕様変更\n{{mail(user@gmail.com,0)\nこんにちは。\n\n-- \nuser\n}}\n", page.load)
+
+    page = @site['1']
+    ok_eq('テスト', page.get_title)
+    ok_eq("* テスト\n{{mail(bob@example.net,0)\n}}\n", page.get)
+#    ok_eq(true, @site.files('1').exist?('1x1.png'))
+=end
+  end
+
+  def nutest_all
+    qml = QuickML::Group.new(@ml_config, 'test@example.com')
+    qml.setup_test_config
+    mail = post_mail(qml) {
+'Date: Mon, 3 Feb 2001 12:34:56 +0900
+From: user@gmail.com
+To: test@example.com
+Subject: [qwik-users:217] Gmail=?iso-2022-jp?B?GyRCJCwbKEJKSVMbJEIlKCVzJTMhPCVHJSMbKEI=?= 
+ =?iso-2022-jp?B?GyRCJXMlMCRLO0VNTUpROTkbKEI=?=
+Content-Type: text/plain; charset=ISO-2022-JP
+Content-Transfer-Encoding: quoted-printable
+
+=1B$B$3$s$K$A$O!#=1B(B
+
+--=20
+user
+' }
+    ok_eq('quoted-printable', mail['Content-Transfer-Encoding'])
+    ok_eq('[qwik-users:217] GmailがJISエンコーディングに仕様変更'.set_sourcecode_charset.to_mail_charset, mail['Subject'])
+    ok_eq('GmailがJISエンコーディングに仕様変更',
+	  mail.get_clean_subject)
+    ok_eq("こんにちは。\n\n-- \nuser\n".set_sourcecode_charset.to_mail_charset, mail.decoded_body)
+    page = @site['1']
+    ok_eq('GmailがJISエンコーディングに仕様変更', page.get_title)
+    ok_eq("* GmailがJISエンコーディングに仕様変更\n{{mail(user@gmail.com,0)\nこんにちは。\n\n-- \nuser\n}}\n", page.load)
+  end
+end

data/vendor/qwik/lib/qwik/test-sub-quopri.rb

@@ -0,0 +1,45 @@
+# 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-ml'
+
+if $0 == __FILE__
+  require 'qwik/server-memory'
+  require 'qwik/farm'
+  require 'qwik/group-site'
+  require 'qwik/group'
+  $test = true
+end
+
+class TestSubmitQuotedPrintable < Test::Unit::TestCase
+  include TestModuleML
+
+  def test_all
+    qml = QuickML::Group.new(@ml_config, 'test@example.com')
+    qml.setup_test_config
+    mail = post_mail(qml) {
+'Date: Mon, 3 Feb 2001 12:34:56 +0900
+From: user@gmail.com
+To: test@example.com
+Subject: [qwik-users:217] Gmail=?iso-2022-jp?B?GyRCJCwbKEJKSVMbJEIlKCVzJTMhPCVHJSMbKEI=?= 
+ =?iso-2022-jp?B?GyRCJXMlMCRLO0VNTUpROTkbKEI=?=
+Content-Type: text/plain; charset=ISO-2022-JP
+Content-Transfer-Encoding: quoted-printable
+
+=1B$B$3$s$K$A$O!#=1B(B
+
+--=20
+user
+' }
+    ok_eq('quoted-printable', mail['Content-Transfer-Encoding'])
+    ok_eq('[qwik-users:217] GmailがJISエンコーディングに仕様変更'.set_sourcecode_charset.to_mail_charset, mail['Subject'])
+#    ok_eq('GmailがJISエンコーディングに仕様変更',
+#	  mail.get_clean_subject)
+    ok_eq("こんにちは。\n\n-- \nuser\n".set_sourcecode_charset.to_mail_charset, mail.decoded_body)
+    page = @site['1']
+    ok_eq('GmailがJISエンコーディングに仕様変更', page.get_title)
+#    ok_eq("* GmailがJISエンコーディングに仕様変更\n{{mail(user@gmail.com,0)\nこんにちは。\n\n-- \nuser\n}}\n", page.load)
+  end
+end

data/vendor/qwik/lib/qwik/test-submit-base64.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/test-module-ml'
+
+if $0 == __FILE__
+  $test = true
+end
+
+class TestSubmitBase64 < Test::Unit::TestCase
+  include TestModuleML
+
+  def test_all
+    group = QuickML::Group.new(@ml_config, 'test@example.com')
+    group.setup_test_config
+
+    str =
+"Date: Thu, 14 Apr 2005 21:22:30 +0900
+From: bob@example.net
+To: test@example.com
+User-Agent: Wanderlust/2.10.0 (Venus) SEMI/1.14.4 (Hosorogi) FLIM/1.14.4
+ (=?ISO-8859-4?Q?Kashiharajing=FE-mae?=) APEL/10.4 Emacs/21.3
+ (i386-pc-linux-gnu) MULE/5.0 (SAKAKI)
+MIME-Version: 1.0 (generated by SEMI 1.14.4 - 'Hosorogi')
+Content-Type: multipart/mixed;
+ boundary=\"Multipart_Thu_Apr_14_21:22:30_2005-1\"
+Subject: This is an inline test.
+
+--Multipart_Thu_Apr_14_21:22:30_2005-1
+Content-Type: text/plain; charset=ISO-2022-JP
+
+サンプル.jpgを添付してみます。
+--Multipart_Thu_Apr_14_21:22:30_2005-1
+Content-Type: image/jpeg
+Content-Disposition: inline; filename=\"sample.jpg\"
+Content-Transfer-Encoding: base64
+
+iVBORw0KGgoAAAANSUhEUgAAAAEAAAABCAIAAACQd1PeAAAADElEQVR42mP4//8/AAX+Av4zEpUU
+AAAAAElFTkSuQmCC
+
+"
+    mail = QuickML::Mail.generate { str }
+
+    group.site_post(mail, true)
+    page = @site['1']
+    # $KCODE = 's'
+    ok_eq('This is an inline test.', page.get_title)
+    ok_eq("* This is an inline test.
+{{mail(bob@example.net,0)
+サンプル.jpgを添付してみます。
+
+{{file(sample.jpg)}}
+}}
+", page.load)
+    ok_eq(true, @site.files(page.key).exist?('sample.jpg'))
+  end
+end