qwikdoc 0.0.1

data/vendor/qwik/act-search.rb

@@ -0,0 +1,180 @@
+# 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/site-search'
+require 'qwik/site-index'
+
+module Qwik
+  class Action
+    D_PluginSearch = {
+      :dt => 'Search plugin',
+      :dd => 'You can show a search form.',
+      :dc => '* Example
+ {{search}}
+{{search}}
+'
+    }
+
+    D_PluginSearch_ja = {
+      :dt => '�����v���O�C��',
+      :dd => '�����������܂��B',
+      :dc => '* ��
+ {{search}}
+{{search}}
+'
+    }
+
+    # ============================== search
+    def plg_side_search_form
+      return [
+	[:h2, _('Search')],
+	plg_search_form,
+#	plg_search_word_cloud
+      ]
+    end
+
+    def plg_search_form(focus = false)
+      return search_form(focus)
+    end
+    alias plg_search plg_search_form
+
+    def search_form(focus = false, query = nil)
+      query_attr = {:name=>'q'}
+      query_attr[:class] = 'focus' if focus
+      query_attr[:value] = query if query
+      return [:form, {:action=>'.search'},
+	[:input, query_attr],
+	[:input, {:type=>'submit', :value=>_('Search')}]]
+    end
+
+    def act_search
+      query = search_get_query
+      if query.nil?
+	return search_form_page
+      end
+
+      ar = @site.search(query)
+      if ar.empty?
+	return search_notfound_page(query)
+      end
+
+      return search_result(@site, ar, query)
+    end
+    alias ext_search act_search
+
+    def search_get_query
+      query = @req.query['q']
+      return query if query && ! query.empty?
+
+      query = @req.base
+      return query if query && ! query.empty? && query != "FrontPage"
+      #return query if query && ! query.empty?
+
+      return nil
+    end
+
+    def search_form_page(title = _('Search'), notice = nil, query = nil)
+      body = []
+      body << [:h2, notice] if notice
+      body << [:div, {:class => 'form'}, search_form(true, query)]
+      return c_notice(title) { body }
+    end
+
+    # called also from act-isearch.rb
+    def search_notfound_page(query)
+      return search_form_page(_('Search result'), _('No match.'), query)
+    end
+
+    def search_result(site, ar, query = nil)
+      ul = [:ul]
+      ar.each {|key, line, i|
+	page = site[key]
+	url = page.url
+	ul << [:li,
+	  [:h3, [:a, {:href => url}, page.get_title]], 
+	  [:span, {:class => 'content'}, line],
+	  [:div, [:a, {:href => url}, url]]]
+      }
+      div = []
+      div << [:div, {:class => 'day'},
+	[:div, {:class => 'section'},
+          [:div, {:class=>'form'}, search_form(true, query)]]]
+      div << [:div, {:class => 'day'},
+	[:div, {:class => 'section'},
+	  [:div, {:class => 'search_result'}, ul]]]
+      title = _('Search result') + ": " + query
+      return c_plain(title) { div }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActSearch < Test::Unit::TestCase
+    include TestSession
+
+    def test_plg_search_form
+      ok_wi([:form, {:action=>'.search'},
+	      [:input, {:name=>'q'}],
+	      [:input, {:value=>'Search', :type=>'submit'}]],
+	    "{{search_form}}")
+      ok_wi([:form, {:action=>'.search'},
+	      [:input, {:name=>'q', :class=>'focus'}],
+	      [:input, {:value=>'Search', :type=>'submit'}]],
+	    "{{search_form(true)}}")
+    end
+
+    def test_search
+      t_add_user
+
+      # test_act_search
+      res = session('/test/.search')
+      ok_xp([:form, {:action=>'.search'},
+	      [:input, {:class=>'focus', :name=>'q'}],
+	      [:input, {:value=>'Search', :type=>'submit'}]],
+	    '//form')
+
+      res = session("/test/.search?q=nosuchkey")
+      assert_text('Search result', 'h1')
+      ok_in(['No match.'], '//h2')
+
+      page = @site.create_new
+      page.store('This is a keyword.')
+      res = session("/test/.search?q=keyword")
+      ok_in([:ul, [:li,
+		[:h3, [:a, {:href=>'1.html'}, '1']], 
+		[:span, {:class=>'content'}, 'This is a keyword.'],
+		[:div, [:a, {:href=>'1.html'},"1.html"]]]],
+	    "//div[@class='search_result']")
+
+      res = session("/test/keyword.search")	# Both OK.
+      ok_in([:ul, [:li,
+		[:h3, [:a, {:href=>'1.html'}, '1']],
+		[:span, {:class=>'content'}, 'This is a keyword.'],
+		[:div, [:a, {:href => '1.html'},"1.html"]]]],
+	    "//div[@class='search_result']")
+
+      page = @site.create_new	# 2.txt
+      page.store("����")
+      res = session("/test/.search?q=��")
+      ok_in([:ul, [:li,
+		[:h3, [:a, {:href=>'2.html'}, '2']], 
+		[:span, {:class=>'content'}, "����"],
+		[:div, [:a, {:href=>'2.html'}, '2.html']]]],
+	    "//div[@class='search_result']")
+
+      res = session("/test/��.search")		# Both OK.
+      ok_in([:ul, [:li,
+		[:h3, [:a, {:href=>'2.html'}, '2']],
+		[:span, {:class=>'content'}, "����"],
+		[:div, [:a, {:href=>'2.html'}, '2.html']]]],
+	    "//div[@class='search_result']")
+    end
+  end
+end

data/vendor/qwik/act-searchwords.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.unshift '..' unless $LOAD_PATH.include? '..'
+require "qwik/act-search"
+
+module Qwik
+  class Action
+    def plg_search_word_cloud
+      list = @site.get_search_words
+      [:span] + list.map{|em| 
+        w = em.word.to_s.escape
+	if em.nil?
+	  em = Word.new(w, 1, Time.new)
+	end
+        [[:span, {:class => "search_word#{em.count}"},
+          [:a, {:href => ".search?q=#{w}"}, em.word]],
+	 [:span, {:class => "search_word_delete"},
+          [:a, {:href => ".delete?q=#{w}"},
+           [:img, {:src => ".theme/css/delete.png",:border =>"0",
+              :alt => "del"}]]]]
+      }
+    end
+
+    # search word delete action
+    def act_delete
+      query = search_get_query
+      if query
+        @site.delete_search_word(query)
+      end
+      return c_notice("Deleted",@req.header["referer"]) { "deleted" }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActSearchWords < Test::Unit::TestCase
+    include TestSession
+
+    def test_dummy
+    end
+  end
+end
+
+

data/vendor/qwik/act-sendpass.rb

@@ -0,0 +1,83 @@
+# 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/act-getpass'
+require 'qwik/mailaddress'
+
+module Qwik
+  class Action
+    def act_sendpass
+      c_require_member
+
+      return sendpass_show_form if ! @req.is_post?
+
+      status = {}
+      members = @site.member.list
+      @req.query.each {|mail, v|
+	if ! MailAddress.valid?(mail) || v != 'on'
+	  status[mail] = _('Wrong format.')
+	  next
+	end
+
+	if ! members.include?(mail)
+	  status[mail] = _('Not a member.')
+	  next
+	end
+
+	passmail = generate_password_mail(mail)
+	sendmail = Sendmail.new(@config.smtp_host, @config.smtp_port,
+				@config.test)
+	begin
+	  sendmail.send(passmail)
+	  status[mail] = _('Succeeded.')
+	rescue
+	  status[mail] = _('Failed.')
+	end
+      }
+
+      ar = []
+      status.each {|mail, result|
+	ar << [:li, mail, ' : ', result.to_s]
+      }
+      return c_notice(_('Send Password done')) {
+	[:ul, ar]
+      }
+    end
+
+    def sendpass_show_form
+      members = @site.member.list.sort
+      return c_notice(_('Send Password')) {
+	[[:h2, _('You can send password for the members.')],
+	  [:p, _('Please select members to send password.')],
+	  [:form, {:action=>'.sendpass', :method=>'post',
+	      :style=>'text-align: center; margin: 32px 0 48px;'},
+	    [:ul, members.map {|member|
+		[:li, [:input, {:type=>'checkbox', :name=>member}, ' '+member]]
+	      }
+	    ],
+	    [:input, {:type=>'submit', :value=>_('Send Password')}]]]
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  require 'qwik/test-module-public'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActSendPass < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      t_add_user
+
+      res = session '/test/.sendpass'
+      ok_title 'Send Password'
+    end
+  end
+end

data/vendor/qwik/act-site.rb

@@ -0,0 +1,89 @@
+# Copyright (C) 2003-2009 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/act-status"
+
+module Qwik
+  class Action
+    def site_delete_unused_config_files
+      files1 = %w{
+,members
+,count
+,config
+,charset
+,alerted
+,forward
+,permanent
+,unlimited
+,waiting-members
+,waiting-message
+}
+
+        files1.each {|f1, i|
+          p1 = (sitepath + f1)
+          if p1.exist?
+            p1.unlink
+            li << "deleted. "
+            li << [:a, {:href=>"/#{sitename}/"}, "/#{sitename}/"]
+            ul << li
+          end
+        }
+    end
+
+    def act_site
+      c_require_login
+      return c_nerror("You are not administrator.") if ! is_administrator?
+
+      farm = @memory.farm
+      ul = [:ul]
+
+      farm.list.each {|sitename|
+#        next unless /\A[0-9]/ =~ sitename
+
+#        site = farm.get_site(sitename)
+        sitepath = "#{@config.sites_dir}/#{sitename}".path
+
+        li = [:li]
+        li << [:a, {:href=>"/#{sitename}/"}, "/#{sitename}/"]
+        ul << li
+      }
+
+      div = [:div, {:class => 'day'},
+	[:div, {:class => 'section'}, 
+          [:h2, _("Site list.")], ul]]
+
+      return c_plain(_("Site list. __qwik_page_generate_time__ sec. past.")) {
+	div
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require "pp"
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActSite < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      t_add_user
+
+      file = @config.etc_dir.path + "administrator.txt"
+      file.write("")
+
+      res = session("/test/.site")
+      ok_title("You are not administrator.")
+
+      file.write("user@e.com\n")
+
+      res = session("/test/.site")
+      ok_title "Site list. __qwik_page_generate_time__ sec. past."
+    end
+  end
+end

data/vendor/qwik/act-sitebackup.rb

@@ -0,0 +1,419 @@
+# -*- coding: shift_jis -*-
+# Copyright (C) 2008 National Institute of
+#                    Advanced Industrial Science and Technology (AIST)
+# 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.
+
+module Qwik
+  class Site
+    def lastmod_of_all
+      ar = []
+      self.path.find do |p|
+	Find.prune if p.basename.to_s == '.cache' or p.basename.to_s == '.svn'
+	ar << p.mtime
+      end
+      ar.max
+    end
+  end
+
+  class Action
+    D_SiteBackup = {
+      :dt => 'Site backup',
+      :dd => 'You can get a tgz(tar.gz) archive of the whole site content.',
+      :dc => '* Example
+{{sitebackup}}
+
+You can get a zip archive with all text data of the Wiki site.
+You can get a tgz(tar and gziped) archive of the whole site content.
+
+You can move your site by getting the archive and placing them on your
+qwikWeb data directory.
+
+At the first click, it only shows the progress of archiving.
+After the archiving is finished, you can download the archive file.
+
+If you change anything on the site, it\'ll recreate the archive.
+'
+    }
+
+    D_SiteBackup_ja = {
+      :dt => '�T�C�g�E�o�b�N�A�b�v',
+      :dd => '�T�C�g�E�o�b�N�A�b�v���擾�ł��܂��B',
+      :dc => '* �g����
+{{sitebackup}}
+
+���̃����N����A�T�C�g�̓��e���ׂĂ�tar.gz�`���̃A�[�J�C�u�ɂ��ă_�E�����[�h�ł��܂��B
+
+�W�J����qwikWeb��data�f�B���N�g���ɒu���΁C�T�C�g�����̂܂܈ڍs���邱�Ƃ��ł��܂��D
+
+�ŏ��̈��ڂ́A�A�[�J�C�u�쐬�̂��߂̃v���Z�X�����s����܂��B
+�쐬���I����Ă��烊���[�h���邩�A�u���E�U���猳�̃y�[�W�ɖ߂���
+������x�����N���N���b�N����ƁA�A�[�J�C�u���_�E�����[�h���邱�Ƃ��ł��܂��B
+
+�T�C�g�̓��e���X�V���ꂽ��A���̃����N���ēx�N���b�N����ƁA�A�[�J�C�u���č쐬����܂��B
+'
+    }
+
+    def plg_sitebackup
+      return "no tar command" if ! SiteBackup.command_exist?
+      return page_attribute('sitebackup', _('Site backup'), @site.sitename)
+    end
+
+    def ext_sitebackup
+      return c_nerror("no tar command") if ! SiteBackup.command_exist?
+      c_require_member
+      c_require_base_is_sitename
+
+      backup = SiteBackup.new(@site, @config)
+      if backup.latest?
+	return c_notice("Download archive", "#{@site.sitename}.tgz", 200, 2) {
+	  [:p, "Backup process is complete. download ",
+	   [:a, {:href=>"#{@site.sitename}.tgz"}, "archive"],
+	   "."
+	  ]
+	}
+      end
+
+      if backup.generating?
+	return c_notice("in progress", "#{@site.sitename}.sitebackup", 200, 5) {
+	  [:p, "Backup process is running."]
+	}
+      end
+
+      backup.generate
+      return c_notice("starting", "#{@site.sitename}.sitebackup", 200, 5) {
+	[:p, "Backup process is starting"]
+      }
+    end
+
+    # only for download archive
+    def ext_tgz
+      c_require_member
+      c_require_base_is_sitename
+
+      backup = SiteBackup.new(@site, @config)
+      if backup.latest?
+	return c_simple_send(backup.archive_path, "application/gzip")
+      else
+	return c_notfound { "no latest backup" }
+      end
+    end
+  end
+
+  class SiteBackup
+    TAR_CMD = '/bin/tar'	# path to tar command (GNU version is required)
+    def self.command_exist?
+      TAR_CMD.path.executable?
+    end
+
+    def initialize(site, config)
+      @site = site
+      @config = config
+      @archive_path = site.cache_path + "#{@site.sitename}.tgz"
+      @tmpfile_path = site.cache_path + "sitebackup.tmp"
+    end
+    attr_reader :archive_path
+    attr_reader :tmpfile_path
+
+    def _site_lastmod
+      @site.lastmod_of_all
+    end
+
+    def _archive_mtime
+      result = nil
+      result = @archive_path.mtime if @archive_path.exist?
+      return result
+    end
+
+    def _tmpfile_mtime
+      result = nil
+      result = @tmpfile_path.mtime if @tmpfile_path.exist?
+      return result
+    end
+
+    def latest?(site_lastmod = _site_lastmod, archive_mtime = _archive_mtime,
+		       tmpfile_mtime = _tmpfile_mtime) # explicit arguments for test
+      return false if archive_mtime.nil?
+      if tmpfile_mtime.nil?
+	archive_mtime >= site_lastmod
+      else
+	archive_mtime >= site_lastmod && archive_mtime > tmpfile_mtime
+      end
+    end
+
+    def generating?(site_lastmod = _site_lastmod, archive_mtime = _archive_mtime,
+		  tmpfile_mtime = _tmpfile_mtime) # explicit arguments for test
+      return false if tmpfile_mtime.nil?
+      if archive_mtime.nil?
+	tmpfile_mtime > site_lastmod
+      else
+	tmpfile_mtime >= archive_mtime && tmpfile_mtime > site_lastmod
+      end
+    end
+
+    def invoke(cmd)
+      system(cmd)
+      child_process = $?
+      child_process.exitstatus == 0 ? :success : :failure
+    end
+
+    def command
+      "#{TAR_CMD} zcf #{@tmpfile_path} -C #{@config.sites_dir} " +
+	"--exclude .cache --exclude .svn -h #{@site.sitename}"
+    end
+
+    def generate
+      if defined?($test) && $test
+	_generate
+      else
+	do_concurrent { _generate }
+      end
+    end
+
+    def _generate
+      cleanup
+      result = invoke(command)
+      if result == :success && @tmpfile_path.exist?
+	@tmpfile_path.rename(@archive_path)
+      else
+	@tmpfile_path.unlink if @tmpfile_path.exist?
+      end
+    end
+
+    def do_concurrent
+      Thread.new {
+	yield
+      }
+    end
+
+    def cleanup
+      @tmpfile_path.unlink if @tmpfile_path.exist?
+      @archive_path.unlink if @archive_path.exist?
+    end
+
+  end
+end
+
+if $0 == __FILE__
+  $LOAD_PATH << '..' unless $LOAD_PATH.include? '..'
+  require 'qwik/test-common'
+  require 'qwik/util-pathname'
+  $test = true
+end
+
+if defined?($test) && $test
+  class MockSite
+    def cache_path; ".test/data/test/.cache/".path; end
+    def sitename; "test"; end
+  end
+
+  class MockConfig
+    def sites_dir; ".test/data/"; end
+  end
+
+  class TestSiteBackup < Test::Unit::TestCase
+    include TestSession
+
+    def setup
+      site = MockSite.new
+      config = MockConfig.new
+      @backup = Qwik::SiteBackup.new(site, config)
+    end
+
+    def test_archive_path
+      expected = ".test/data/test/.cache/test.tgz".path
+      actual = @backup.archive_path
+      is expected, actual
+    end
+
+    def test_tmpfile_path
+      expected = ".test/data/test/.cache/sitebackup.tmp".path
+      actual = @backup.tmpfile_path
+      is expected, actual
+    end
+
+    def test_command_exist
+      ok Qwik::SiteBackup.command_exist?
+    end
+
+    def test_backup_is_latest
+      site_lastmod = Time.at(0)
+      archive_mtime = Time.at(1)
+      tmpfile_mtime = nil
+      excepted = true
+      actual = @backup.latest?(site_lastmod, archive_mtime, tmpfile_mtime)
+      is excepted, actual
+    end
+
+    def test_backup_is_latest2
+      site_lastmod = Time.at(0)
+      archive_mtime = Time.at(0)
+      tmpfile_mtime = nil
+      excepted = true
+      actual = @backup.latest?(site_lastmod, archive_mtime, tmpfile_mtime)
+      is excepted, actual, "archive and site-lastmod is same"
+    end
+
+    def test_backup_is_not_latest2
+      site_lastmod = Time.at(0)
+      archive_mtime = Time.at(1)
+      tmpfile_mtime = Time.at(1)
+      excepted = false
+      actual = @backup.latest?(site_lastmod, archive_mtime, tmpfile_mtime)
+      is excepted, actual, "tmpfile is latest"
+    end
+
+    def test_backup_is_not_latest3
+      site_lastmod = Time.at(0)
+      archive_mtime = nil
+      tmpfile_mtime = nil
+      excepted = false
+      actual = @backup.latest?(site_lastmod, archive_mtime, tmpfile_mtime)
+      is excepted, actual, "backup is not exist"
+    end
+
+    def test_backup_is_creating
+      site_lastmod = Time.at(0)
+      archive_mtime = Time.at(0)
+      tmpfile_mtime = Time.at(1)
+      excepted = true
+      actual = @backup.generating?(site_lastmod, archive_mtime, tmpfile_mtime)
+      is excepted, actual
+    end
+
+    def test_backup_is_creating2
+      site_lastmod = Time.at(0)
+      archive_mtime = nil
+      tmpfile_mtime = Time.at(1)
+      excepted = true
+      actual = @backup.generating?(site_lastmod, archive_mtime, tmpfile_mtime)
+      is excepted, actual, "at first: backup is not exist"
+    end
+
+    def test_backup_is_creating3
+      site_lastmod = Time.at(0)
+      archive_mtime = Time.at(1)
+      tmpfile_mtime = Time.at(1)
+      excepted = true
+      actual = @backup.generating?(site_lastmod, archive_mtime, tmpfile_mtime)
+      is excepted, actual, "tmp and backup is same"
+    end
+
+    def test_backup_is_not_creating
+      site_lastmod = Time.at(0)
+      archive_mtime = Time.at(0)
+      tmpfile_mtime = nil
+      excepted = false
+      actual = @backup.generating?(site_lastmod, archive_mtime, tmpfile_mtime)
+      is excepted, actual, "tmp is absent"
+    end
+
+    def test_backup_is_not_creating2
+      site_lastmod = Time.at(1)
+      archive_mtime = Time.at(1)
+      tmpfile_mtime = Time.at(1)
+      excepted = false
+      actual = @backup.generating?(site_lastmod, archive_mtime, tmpfile_mtime)
+      is excepted, actual, "site is modified"
+    end
+
+    def test_invoke
+      expected = :success
+      input = "ruby -e 'true'"
+      actual = @backup.invoke(input)
+      is expected, actual
+    end
+
+    def test_invoke_fail
+      expected = :failure
+      input = "ruby -e 'exit 1'"
+      actual = @backup.invoke(input)
+      is expected, actual, "exit status sould be 1"
+    end
+
+    def test_invoke_unavailable
+      expected = :failure
+      input = "never-seen-command"
+      actual = @backup.invoke(input)
+      is expected, actual, "command should not found"
+    end
+
+    def test_command
+      expected = "#{Qwik::SiteBackup::TAR_CMD} zcf .test/data/test/.cache/sitebackup.tmp -C .test/data/ " +
+	"--exclude .cache --exclude .svn -h test"
+      actual = @backup.command
+      is expected, actual
+    end
+
+    def test_do_concurrent
+      t1 = t2 = nil
+      thread = @backup.do_concurrent {
+	Thread.pass
+	sleep 0.1
+	t1 = Time.now
+      }
+      t2 = Time.now
+      thread.join
+      assert_not_equal t1.to_f, t2.to_f
+    end
+
+  end
+
+  class TestActSiteBackup < Test::Unit::TestCase
+    include TestSession
+    
+    def test_plg_tgz
+      ok_wi [:p, [:a, {:href=>'test.sitebackup'}, 'test.sitebackup']], '[[test.sitebackup]]'
+      ok_wi [:span, {:class=>'attribute'},
+	     [:a, {:href=>'test.sitebackup'}, 'Site backup']], '{{sitebackup}}'
+    end
+
+    def test_ext_tgz
+      t_add_user
+
+      # Add a page
+      page = @site.create_new
+      page.store '* Test'
+
+      # Wait to make time-lag between archive and site data
+      sleep 1
+
+      # Create backup
+      res = session '/test/test.sitebackup'
+      ok_title 'starting'
+
+      res = session '/test/test.sitebackup'
+      ok_title 'Download archive'
+
+      res = session '/test/test.tgz'
+      ok_eq 'application/gzip', res['Content-Type']
+
+      # Compare with cache file
+      content = (@site.cache_path + "test.tgz").read
+      ok_eq(content, res.body)
+
+      # Wait to make time-lag between archive and site data
+      sleep 1
+
+      # Attach a file
+      res = session('POST /test/1.files') {|req|
+	req.query.update('content'=>t_make_content('t.txt', 't'))
+      }
+      ok_title('File attachment completed')
+
+      # Remake backup
+      res = session '/test/test.sitebackup'
+      ok_title 'starting'
+
+      # Download again
+      res = session '/test/test.tgz'
+      ok_eq 'application/gzip', res['Content-Type']
+
+      # Compare with cache file
+      content = (@site.cache_path + "test.tgz").read
+      ok_eq(content, res.body)
+    end
+
+  end
+end