qwikdoc 0.0.1

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

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