qwik2md 0.1.0

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

data/vendor/qwik/lib/qwik/check-htree-rexml.rb

@@ -0,0 +1,77 @@
+# 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 << 'compat' unless $LOAD_PATH.include? 'compat'
+require 'htree'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/testunit'
+
+class CheckHTree < Test::Unit::TestCase
+  def test_htree_to_rexml
+    str = '<p>あ</p>'
+    ok_eq("\202\240", 'あ') # Kanji code is SJIS.
+    h = HTree(str)
+
+    x = ''
+    h.display_xml(x)
+    ok_eq("<p\n>\202\240</p\n>", x)
+
+    r = h.to_rexml
+    ok_eq("<p>\202\240</p>", r.to_s)
+    #ok_eq("  <p>\202\240</p>", r.to_s(1))
+
+    html = <<'EOT'
+<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><html><head id='header'><title>新規作成</title><link href="/.theme/base.css" rel='stylesheet' media="screen,tv" type="text/css"/><link href="/.theme/qwiksystem/qwiksystem.css" rel='stylesheet' media="screen,tv" type="text/css"/><meta name='ROBOTS' content="NOINDEX,NOFOLLOW"/><meta content="0; url=FirstPage.edit" http-equiv='Refresh'/></head><body><div class='container'><div class='header'><div><div><h1 id="view_title">新規作成</h1></div></div></div><div class="update day"><div class='form'><div class='msg' id='msg'><h2>新規作成</h2><p>新規ページを作成しました</p><p><a href="FirstPage.edit">新規ページを編集</a>してください。</p><p><a href="FirstPage.edit">FirstPage.edit</a></p></div></div></div><div class="update day"><div class='comment'></div></div></div></body></html>
+EOT
+    h = HTree(html)
+    r = h.to_rexml
+    e = <<'EOT'
+<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><html xmlns='http://www.w3.org/1999/xhtml'><head id='header'><title>新規作成</title><link href='/.theme/base.css' rel='stylesheet' type='text/css' media='screen,tv'/><link href='/.theme/qwiksystem/qwiksystem.css' rel='stylesheet' type='text/css' media='screen,tv'/><meta name='ROBOTS' content='NOINDEX,NOFOLLOW'/><meta content='0; url=FirstPage.edit' http-equiv='Refresh'/></head><body><div class='container'><div class='header'><div><div><h1 id='view_title'>新規作成</h1></div></div></div><div class='update day'><div class='form'><div class='msg' id='msg'><h2>新規作成</h2><p>新規ページを作成しました</p><p><a href='FirstPage.edit'>新規ページを編集</a>してください。</p><p><a href='FirstPage.edit'>FirstPage.edit</a></p></div></div></div><div class='update day'><div class='comment'/></div></div></body></html>
+EOT
+    ok_eq(e, r.to_s)
+
+    e = <<'EOT'
+<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
+<html xmlns='http://www.w3.org/1999/xhtml'>
+  <head id='header'>
+    <title>新規作成</title>
+    <link href='/.theme/base.css' rel='stylesheet' type='text/css' media='screen,tv'/>
+    <link href='/.theme/qwiksystem/qwiksystem.css' rel='stylesheet' type='text/css' media='screen,tv'/>
+    <meta name='ROBOTS' content='NOINDEX,NOFOLLOW'/>
+    <meta content='0; url=FirstPage.edit' http-equiv='Refresh'/>
+  </head>
+  <body>
+    <div class='container'>
+      <div class='header'>
+        <div>
+          <div>
+            <h1 id='view_title'>新規作成</h1>
+          </div>
+        </div>
+      </div>
+      <div class='update day'>
+        <div class='form'>
+          <div class='msg' id='msg'>
+            <h2>新規作成</h2>
+            <p>新規ページを作成しました</p>
+            <p>
+              <a href='FirstPage.edit'>新規ページを編集</a>してください。</p>
+            <p>
+              <a href='FirstPage.edit'>FirstPage.edit</a>
+            </p>
+          </div>
+        </div>
+      </div>
+      <div class='update day'>
+        <div class='comment'/>
+      </div>
+    </div>
+  </body>
+</html>
+
+EOT
+    #ok_eq(e, r.to_s(0))
+  end
+end

data/vendor/qwik/lib/qwik/check-htree.rb

@@ -0,0 +1,51 @@
+# 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 << 'compat' unless $LOAD_PATH.include? 'compat'
+require 'htree'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/testunit'
+
+class CheckHTree < Test::Unit::TestCase
+  def assert_xhtml(expected, template, message=nil)	# from htree/test
+    prefix = "<html\n>"
+    suffix = "</html\n>"
+    result = HTree.expand_template(''){"<html>#{template}</html>"}
+    assert_match(/\A#{Regexp.quote prefix}/, result)
+    assert_match(/#{Regexp.quote suffix}\z/, result)
+    result = result[prefix.length..(-suffix.length-1)]
+    ok_eq(expected, result, message)
+  end
+
+  def test_htree
+    return	# do not test.
+
+    assert_xhtml("<b\n>t</b\n>", '<b>t</b>')
+    assert_xhtml("<e\n>1</e\n>", '<e _text=1>d</e>')
+    str = '<html><e _text=1>d</e></html>'
+
+    doc = HTree(str)	# doc is a template
+    assert_instance_of(HTree::Doc, doc)
+    assert_instance_of(HTree::Elem, doc.root)
+    ok_eq('{http://www.w3.org/1999/xhtml}html', doc.root.name)
+    assert_instance_of(HTree::Elem, doc.root.children[0])
+    assert_instance_of(HTree::Elem, doc.root.children[0])
+    assert_instance_of(HTree::Text, doc.root.children[0].children[0])
+    assert_instance_of(String, doc.root.children[0].children[0].rcdata)
+    ok_eq('d', doc.root.children[0].children[0].rcdata)
+
+    doc = HTree{str}	# doc is a document. the template is evaluated.
+    assert_instance_of(HTree::Doc, doc)
+    assert_instance_of(HTree::Elem, doc.root)
+    assert_instance_of(HTree::Elem, doc.root.children[0])
+    assert_instance_of(HTree::Text, doc.root.children[0].children[0])
+    ok_eq('1', doc.root.children[0].children[0].rcdata)
+
+    str = "<html>\n  <body _text=\"body\"></body>\n</html>"
+    body = 'b'
+    result = HTree.expand_template(''){str}
+    ok_eq("<html\n><body\n>b</body\n></html\n>", result)
+  end
+end

data/vendor/qwik/lib/qwik/check-libxml.rb

@@ -0,0 +1,135 @@
+# 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'
+
+begin
+  require 'xml/libxml'
+  $have_libxml_so = true
+rescue LoadError
+  $have_libxml_so = false
+end
+
+if $0 == __FILE__
+  $test = true
+end
+
+class TestLibXml < Test::Unit::TestCase
+  def test_parser
+    str = <<'EOT'
+<html><head id='header'><title>FrontPage - example.com/test</title><link href="/.theme/qwikgreen/qwikgreen.css" rel='stylesheet' media="screen,tv,print" type="text/css"/><link href="/.theme/base.css" rel='stylesheet' media="screen,tv,print" type="text/css"/></head><body><div class='container'><div class='main'><div class='adminmenu' id='adminmenu'><p><span class='loginstatus'>user | <em>user@e.com</em> (<a href=".logout">.logout</a>)</span></p>
+<ul><li><a href=".new">新規作成</a></li>
+<li><a href="FrontPage.edit">編集</a></li>
+</ul>
+</div><h1 id="view_title">FrontPage</h1><div id='body'><div class='day'><h2>FrontPage</h2><div class='body'><div class='section'>
+<p>これは新規qwikWebサイトの入口となるページです。</p>
+<h3>使い方</h3>
+<p>ページの上の方にある「編集」というリンクをたどると、このページの編集モードになります。</p>
+<p>表示されたテキストの内容を変更し、「Save」ボタンをクリックすると、このページの内容が変更されます。</p>
+<h3>記述方法</h3>
+<p>ページの内容はテキストで書かれており、いくつかの記号によって見出しなどの指定をします。詳しい情報は、<a href="/test/TextFormat.html">TextFormat</a>をご覧下さい。</p>
+<h3>qwikWeb</h3>
+<p>詳しくは、<a href="http://example.com/" class='external'>qwikWeb</a>ホームページをご覧ください。</p>
+<h3>QuickML</h3>
+<p>メーリングリスト機能の使い方は、<a href="http://www.quickml.com/" class='external'>QuickML</a>ホームページをご覧ください。</p>
+</div></div></div></div><div id="body_leave"><div class='day'><div class='comment'><div class='caption'><div class="page_attribute"><p><div class='qrcode'><a href="http://example.com/test/" class='external'><img src=".attach/qrcode-test.png" alt="http://example.com/test/"/><br/>http://example.com/test/</a></div><div>last modified: 2004-05-20</div></p>
+</div></div></div><div class="body_leave"></div></div></div></div><div class='sidebar' id='sidemenu'><h2>menu</h2>
+<ul><li><a href="/test/FrontPage.html">FrontPage</a></li>
+<li><a href="/test/TitleList.html">TitleList</a></li>
+<li><a href="/test/RecentList.html">RecentList</a></li>
+<li><a href="/test/TextFormat.html">TextFormat</a></li>
+<li><a href="/test/_SiteMenu.html">_SiteMenu</a></li>
+</ul>
+<h2>recent change</h2>
+<p><h3>2004-09-09</h3>
+<ul><li><a href="/test/_SiteMember.html">_SiteMember</a></li>
+</ul>
+</p>
+</div><div class='footer' id='footer'><p>powered by <a href="http://example.com/" class='external'>qwikWeb</a></p>
+</div></div></body></html>
+EOT
+
+    if $have_libxml_so
+      ok_eq('2.6.11', XML::Parser::LIBXML_VERSION)
+      ok_eq(28, XML::Parser::VERNUM)
+      xp = XML::Parser.new
+      xp.string = str.page_to_xml
+      doc = xp.parse
+      assert_instance_of(XML::Document, doc)
+      e = nil
+      doc.find('//a'){|ee|
+	e = ee
+      }
+    end
+  end
+
+  def test_text
+    if $have_libxml_so
+      xp = XML::Parser.new
+      xp.string = '<html><p><b>a</b></p></html>'
+      doc = xp.parse
+      assert_instance_of(XML::Document, doc)
+      e = nil
+      doc.find('//title'){|e|
+	e = ee
+      }
+    end
+  end
+end
+
+class TestAssertXPath < Test::Unit::TestCase
+  include TestSession
+
+  def test_ok_xp
+    t_add_user
+    session('/test/')
+    ok_in(['FrontPage'], '//h1')
+    ok_xp([:a, {:href=>'.logout'}, 'Logout'], '//a')
+    ok_in(['Logout'], '//a')
+  end
+end
+
+class CheckLibXml_OriginalTest < Test::Unit::TestCase
+  def make_sample_xml
+    str = "<nodes>\n"
+    10000.times {|i|
+      str << '<node sum="1" avg="'+i.to_s+'">Node sample text</node>'+"\n"
+    }
+    str << "</nodes>\n"
+    str
+  end
+
+  def nutest_rexml #9.851 seconds.
+    require 'rexml/document'
+    xmlStr = make_sample_xml
+    doc = REXML::Document.new xmlStr
+    sum = avgSum = count = 0
+    doc.elements.each('/nodes/node') { |e|
+      count += 1
+      sum += e.attributes['sum'].to_i
+      avgSum += e.attributes['avg'].to_i
+    }
+    puts "count(node): #{count}, sum(sum): #{sum}, avg(avg): #{avgSum/count}"
+  end
+
+  def nutest_libxml #4.685 seconds
+    require 'xml/libxml'
+    xmlStr = make_sample_xml
+    xp = XML::Parser.new
+    xp.string = xmlStr
+    doc = xp.parse
+    sum = avgSum = count = 0
+    doc.find('/nodes/node').each { |e|
+      count += 1
+      sum += e['sum'].to_i
+      avgSum += e['avg'].to_i
+    }
+    puts "count(node): #{count}, sum(sum): #{sum}, avg(avg): #{avgSum/count}"
+  end
+
+  def test_dummy #0.117 seconds.
+    xmlStr = make_sample_xml
+  end
+end

data/vendor/qwik/lib/qwik/check-many-pages.rb

@@ -0,0 +1,47 @@
+# 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? '..'
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class CheckManyPages < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      t_add_user
+
+#      page = @site.create_new
+#      page.store("* t")
+#      res = session('/test/1.html')
+#      ok_title('t')
+#      page = @site['1']
+
+#      num = 200
+      num = 10
+      (1..num).each {|n|
+	page = @site.create_new
+	page.store("* t#{n}")
+      }
+      (1..num).each {|n|
+	res = session("/test/#{n}.html")
+	ok_title("t#{n}")
+      }
+
+#100 Finished in 28.170425 seconds.
+
+#100  Finished in 9.680146 seconds.
+#200  Finished in 28.170425 seconds.
+#1000 Finished in 603.93911 seconds.
+
+#100 Finished in 4.67007 seconds.
+#200 Finished in 9.030136 seconds.
+#1000 Finished in 47.230712 seconds.
+    end
+  end
+end