qwik2md 0.1.0

data/vendor/qwik/lib/qwik/act-mdlb.rb

@@ -0,0 +1,741 @@
+# -*- 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.
+
+# special mode for modulobe.com
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/modulobe'
+require 'qwik/act-metadata'
+require 'qwik/act-files'
+
+module Qwik
+  class Action
+    # ============================== model
+    MODULOBE_MODEL_STYLE = '
+
+/* ==================== modulobe model */
+div.modulobe_model {
+  margin: 1em 0;
+  padding: 10px;
+  border: 1px solid #999;
+  background-color: #fff;
+}
+
+div.modulobe_model table {
+  margin: 0;
+  width: 100%;
+  border: 0;
+}
+
+div.modulobe_model td {
+  margin: 0;
+  padding: 0;
+  border: 0;
+  line-height: 1.0;
+}
+
+div.modulobe_model td.img {
+  margin: 0;
+  border: 0;
+  text-align: center;
+}
+
+div.modulobe_model td.img a {
+  text-decoration: none;
+  border-bottom: 0;
+}
+
+div.modulobe_model td.img img {
+  border: 0;
+}
+
+div.modulobe_model td.desc {
+  border: 0;
+}
+
+div.modulobe_model td.desc h3 {
+  border-bottom: 0;
+  margin: 0;
+  padding: 0;
+  left: 0;
+  color: #393;
+}
+
+div.modulobe_model td.desc p {
+  margin: 0;
+  padding: 0;
+  line-height: 1.33;
+}
+
+div.modulobe_model td.desc strong {
+  color: #060;
+  font-weight: normal;
+}
+
+'
+
+    def plg_modulobe_model(model)
+      div = [:div, {:class=>'modulobe_model'}]
+
+      # image
+      files = @site.files(@req.base)
+      file = files.path(model)
+
+      return [:div, 'No file exist.'] if ! file.exist?
+      model = Modulobe::ModelFile.new(file)
+
+      href, url, img = model.prepare_link(self, "#{@req.base}.files")
+
+      # description
+      content = yield
+      #tokens = c_tokenize(content)
+      tokens = TextTokenizer.tokenize(content)
+
+      author = 'anonymous'
+      title = 'no title'
+      comment = 'no comment'
+      tokens.each {|token|
+	if token[0] == :dl
+	  author  = token[2] if token[1] == 'author'
+	  title   = token[2] if token[1] == 'title'
+	  comment = token[2] if token[1] == 'comment'
+	end
+      }
+
+      comment.gsub!(/\\n/, "\n")
+      comment = c_res(comment)
+
+      desc = [[:h3, [:a, {:href=>href}, title]],
+	[:p, _('Author'), ': ', [:strong, author]],
+	[:p, comment]]
+
+      table = [:table, [:tr,
+	  [:td, {:class=>'img'}, img],
+	  [:td, {:class=>'desc'}, desc]]]
+
+      div << table
+
+      if ! defined?(@modulobe_model_style)
+	@modulobe_model_style = true
+	div << [:style, MODULOBE_MODEL_STYLE]
+      end
+
+      return div
+    end
+
+    # ============================== list
+    def plg_modulobe_model_list
+      pagename = @req.base
+      page = @site[pagename]
+      return if page.nil?
+
+      files = @site.files(pagename)
+      page.cache[:modellist] ||= Modulobe::ModelList.new(files)
+      modellist = page.cache[:modellist]
+      return if modellist.empty?
+
+      div = [:div, {:class=>'files'}]
+      path = c_relative_to_root(pagename+'.files')
+      div << modellist.get_table(self, path)
+      div << modellist.get_style
+      return div
+    end
+
+    # ============================== rss
+    # Called from act-metadata.rb
+    def metadata_model_xml
+      # Check pages that has .mdlb file.
+      page_keys = Hash.new(0)
+      @site.each {|page|
+	files = @site.files(page.key)
+	files.each {|filename|
+	  if /\.mdlb\z/ =~ filename
+	    page_keys[page.key] += 1
+	  end
+	}
+      }
+
+      # Collect model files and check last_time.
+      last_time = nil
+      models = []
+      page_keys.keys.sort.each {|key|
+	page = @site[key]
+	str = page.load
+	tokens = TextTokenizer.tokenize(str)
+	tokens.each {|token|
+	  if token[0] == :plugin && token[1] == 'modulobe_model'
+	    filename = token[2]
+	    files = @site.files(page.key)
+	    file = files.path(filename)
+	    mtime = file.mtime
+	    last_time = mtime if last_time.nil? || last_time < mtime
+
+	    content = token[3]
+	    content_tokens = TextTokenizer.tokenize(content)
+	    title = author = comment = nil
+	    content_tokens.each {|ctoken|
+	      next if ctoken[0] != :dl
+	      title   = ctoken[2] if ctoken[1] == 'title'
+	      author  = ctoken[2] if ctoken[1] == 'author'
+	      comment = ctoken[2] if ctoken[1] == 'comment'
+	    }
+
+	    title   ||= 'no title'
+	    author  ||= 'no name'
+	    comment ||= 'no comment'
+	    models << [mtime, page, file, title, author, comment]
+	  end
+	}
+      }
+
+      xml = []
+      xml << [:'?xml', '1.0', 'utf-8']
+      rss = [:rss, {:version=>'2.0', :'xmlns:creativeCommons'=>
+	  'http://backend.userland.com/creativeCommonsRssModule'}]
+
+      top_url = c_relative_to_absolute('/')
+      channel = [:channel,
+	[:title, 'Modulobe model gallery'],
+	[:link, top_url],
+	[:description, 'This is a model list of Modulobe Wiki.'],
+	[:language, 'ja'],
+	[:managingEditor, 'modulobe@qwik.jp'],
+	[:webMaster, 'modulobe@qwik.jp'],
+	[:lastBuildDate, last_time.rfc1123_date],
+	[:ttl, '60']]
+
+      models.sort.each {|mtime, page, file, title, author, comment|
+	basename = file.basename
+	url = c_relative_to_absolute(page.key+'.files/'+basename)
+
+	# Check thumb is exist.
+	thumb_file = file.dirname+'.thumb'+(file.basename('.mdlb').to_s+'.gif')
+	if ! thumb_file.exist?
+	  # make it.
+	end
+
+	thumb = page.key+'.files/.thumb/'+file.basename('.mdlb').to_s+'.gif'
+	thumb_url = c_relative_to_absolute(thumb)
+	html = "<p><img src=\"#{thumb_url}\" alt=\"#{title}\" width=\"100\" height=\"75\"/><p>#{comment}</p>"
+
+	length = file.size
+
+	item = [:item,
+	  [:title, title],
+	  [:link, url],
+	  [:description, html],
+	  [:author, author],
+	  [:pubDate, mtime.rfc1123_date],
+	  [:enclosure,
+	    {:url=>url, :length=>length, :type=>'application/xml'}],
+	  [:'creativeCommons:license',
+	    'http://creativecommons.org/licenses/by/2.1/jp/']]
+	channel << item
+      }
+
+      rss << channel
+      xml << rss
+
+      return xml
+    end
+
+    def pre_ext_mdlbrss
+      xml = []
+      xml << [:'?xml', '1.0', 'utf-8']
+      rss = [:rss, {:version=>'2.0'}]
+
+      moved_url = c_relative_to_absolute('/model.xml')
+      channel = [:channel,
+	[:title, 'moved'],
+	[:link, moved_url],
+	[:description, 'moved.'],
+	[:lastBuildDate, Time.at(0).rfc1123_date],
+	[:ttl, '60']]
+
+      item = [:item,
+	[:title, 'moved'],
+	[:link, moved_url],
+	[:description, 'moved'],
+	[:pubDate, Time.at(0).rfc1123_date]]
+      channel << item
+
+      rss << channel
+
+      xml << rss
+
+      @res['Content-Type'] = 'application/xml'
+      @res.body = xml
+      @res.body = @res.body.format_xml.page_to_xml if ! @config.test
+      return nil
+    end
+
+    # ============================== upload
+    def plg_modulobe_files_form(pagename=nil)
+      base = @req.base
+      base = pagename if pagename
+      ar = []
+      ar << [:style, '
+div.modulobe_uploader {
+  margin: 10px 0;
+  padding: 10px;
+  border: 1px solid #ccc;
+  background-color: #fff;
+}
+div.modulobe_uploader table {
+  margin: 0;
+  padding: 0;
+  border: 0;
+  width: 100%;
+}
+div.modulobe_uploader td,
+div.modulobe_uploader th {
+  margin: 0;
+  padding: 2px 10px;
+  border: 0;
+}
+div.modulobe_uploader th {
+  text-align: right;
+}
+div.modulobe_uploader td input {
+  font-size: small;
+}
+']
+      ar << [:div, {:class=>'modulobe_uploader'},
+	[:form, {:method=>'POST', :action=>base+'.modulobe_files_upload',
+	    :enctype=>'multipart/form-data'},
+	  [:table,
+	    [:tr, [:th, _('Model file'), ' : '],
+	      [:td, [:input, {:type=>'file', :name=>'content', :size=>'30'}]]],
+	    [:tr, [:th, _('Image file'), ' : '],
+	      [:td, [:input, {:type=>'file', :name=>'image', :size=>'30'}]]],
+	    [:tr, [:td, ''],
+	      [:td, [:input, {:type=>'submit', :value=>_('Attach')}]]]]]]
+      return ar
+    end
+
+    def ext_modulobe_files_upload
+      content = @req.query['content']	# WEBrick::HTTPUtils::FormData
+      image   = @req.query['image']
+      return modulobe_files_put(content, image) if content
+      return modulobe_files_error(_('Please specify file.'))
+    end
+
+    def modulobe_files_put(content, image)
+      c_require_post
+
+      files = @site.files(@req.base)
+
+      fullfilename = content.filename
+      if fullfilename.empty?
+	return modulobe_files_error(_('Please contact the administrator.'))
+      end
+
+      # Get basename.
+      filename = fullfilename.sub(/\A.*[\/\\]([^\/\\]+)\z/) { $1 }
+
+      result_filename = files.fput(filename, content)
+
+      list = []
+      if filename == result_filename
+	list << [:p, [:strong, filename], ' : ', _('The file is saved.')]
+      else
+	list << [:p, [:strong, filename], ' -> ', [:strong, result_filename],
+	  ' : ', _('The file is saved with this filename.')]
+      end
+
+      if image
+	img_fullfilename = image.filename
+	if img_fullfilename && ! img_fullfilename.empty?
+	  img_filename = img_fullfilename.sub(/\A.*[\/\\]([^\/\\]+)\z/) { $1 }
+	  ext = Filename.extname(img_filename)
+	  if ext == 'gif'
+	    img_filename = File.basename(result_filename, '.mdlb')+'.gif'
+	    files.put(img_filename, image)
+	    list << [:p, _('The image is also saved.')]
+	  end
+	end
+      end
+
+      c_make_log('modulobe file attach')	# Modulobe FILE ATTACH
+
+      files = @site.files(@req.base)
+      file = files.path(result_filename)
+      model = Modulobe::ModelFile.new(file)
+      model.get_internal_info
+      name = model.name
+      author = model.author
+      comment = model.comment
+      comment ||= ''
+      comment.gsub!(/\n/, "\\n")
+
+      page = @site[@req.base]
+      v = page.load
+      page.add("
+* #{name}
+{{modulobe_model(#{result_filename})
+:title:		#{name}
+:author:	#{author}
+:comment:	#{comment}
+}}
+{{mcomment}}
+
+")
+
+      list << [:hr]
+      url = @req.base+'.html'
+      list << [:p,_('Go next'),' : ',[:a,{:href=>url},url]]
+      return c_surface(_('File attachment completed')){list}
+    end
+
+    def modulobe_files_error(msg)
+      return c_surface(_('Error')){
+	[[:h2, {:style=>'margin:2em;text-align:center;'},
+	    msg],
+	  [:p, {:style=>'margin:2em;text-align:center;'},
+	    [:a, {:href=>@req.base+'.html'}, _('Go back')]]]
+      }
+    end
+
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActModulobe < Test::Unit::TestCase
+    include TestSession
+    include Modulobe::Sample
+
+    # ============================== model
+    def test_model
+      t_add_user
+
+      # test_modulobe_model
+      page = @site.create('c')
+      page.store('{{modulobe_model(test1.mdlb)
+:author:	Modulobe Project
+:title:		Test1 Model
+:comment:	This is a sample model by Modulobe Project.
+
+http://www.modulobe.com/ 
+
+}}
+{{hcomment}}
+')
+
+      model = MODULOBE_TEST_MODEL
+      @site.files('c').put('test1.mdlb', model, nil, 0)
+      image = TEST_PNG_DATA
+      @site.files('c').put('test1.gif', image, nil, 1)
+
+      res = session('/test/c.html')
+      ok_xp([:table,
+	      [:tr,
+		[:td, {:class=>'img'},
+		  [:a, {:href=>'c.files/test1.mdlb'},
+		    [:img, {:src=>'c.files/.thumb/test1.gif'}]]],
+		[:td, {:class=>'desc'},
+		  [[:h3, [:a, {:href=>'c.files/test1.mdlb'}, 'Test1 Model']],
+		    [:p, 'Author', ': ', [:strong, 'Modulobe Project']],
+		    [:p, [[:p,
+			  'This is a sample model by Modulobe Project.']]]]]]],
+	    "//div[@class='modulobe_model']/table")
+    end
+
+    def test_with_minus
+      t_add_user
+
+      page = @site.create('c')
+      page.store('{{modulobe_model(test-2.mdlb)
+:author:	Modulobe Project
+:title:		Test-2 Model
+:comment:	This is a sample.
+}}
+{{hcomment}}
+')
+
+      model = MODULOBE_TEST_MODEL
+      @site.files('c').put('test-2.mdlb', model, nil, 0)
+      image = TEST_PNG_DATA
+      @site.files('c').put('test-2.gif', image, nil, 1)
+
+      res = session('/test/c.html')
+      ok_xp([:table,
+	      [:tr,
+		[:td, {:class=>'img'},
+		  [:a, {:href=>'c.files/test-2.mdlb'},
+		    [:img, {:src=>'c.files/.thumb/test-2.gif'}]]],
+		[:td, {:class=>'desc'},
+		  [[:h3, [:a, {:href=>'c.files/test-2.mdlb'}, 'Test-2 Model']],
+		    [:p, 'Author', ': ', [:strong, 'Modulobe Project']],
+		    [:p, [[:p,
+			  'This is a sample.']]]]]]],
+	    "//div[@class='modulobe_model']/table")
+    end
+
+    # ============================== list
+    def test_modulobe_list
+      t_add_user
+
+      # test_modulobe_model_list
+      page = @site.create('c')
+
+      model = MODULOBE_TEST_MODEL1
+      @site.files('c').put('test1.mdlb', model, nil, 0)
+      image = TEST_PNG_DATA
+      @site.files('c').put('test1.gif', image, nil, 1)
+
+      page.store("{{modulobe_model_list}}")
+      res = session('/test/c.html')
+      list = res.body.get_path("//div[@class='files']")
+      ok_xp([:tr, {:class=>'model'},
+	      [:td, [:a, {:href=>'c.files/test1.mdlb'},
+		  [:img, {:src=>'c.files/.thumb/test1.gif'}]]],
+	      [:td, [:div, {:class=>'author'}, 'Alice'],
+		[:div, {:class=>'name'},
+		  [:a, {:href=>'c.files/test1.mdlb'}, 't1 model']],
+		[:pre, {:class=>'comment'}, "This is a comment.\n"]]],
+	    "//div[@class='files']/table/tr[2]")
+    end
+
+    # ============================== rss
+    def setup_models
+      t_add_user
+
+      # Prepare a page.
+      page = @site.create('a')
+      page.store("* a
+* t1 model
+{{modulobe_model(test1.mdlb)
+:title:		t1 model
+:author:	Alice
+:comment:	This is a comment.\n
+}}
+{{hcomment}}
+")
+      files = @site.files('a')
+      files.put('test1.mdlb', MODULOBE_TEST_MODEL1, nil, 0)
+      files.put('test1.gif', TEST_PNG_DATA, nil, 1)
+
+      # Prepare another page.
+      page = @site.create('b')
+      page.store("* b
+* t2 model
+{{modulobe_model(test2.mdlb)
+:title:		t2 model
+:author:	Bob
+:comment:	This is a comment, too.\n
+}}
+{{hcomment}}
+")
+      files = @site.files('b')
+      files.put('test2.mdlb', MODULOBE_TEST_MODEL2, nil, 2)
+      files.put('test2.gif', TEST_PNG_DATA, nil, 3)
+    end
+
+    def test_ext_mdlbrss
+      setup_models
+      res = session('/test/nosuch.mdlbrss')
+      ok_xp([:title, 'moved'], '//title')
+      res = session('/test/a.mdlbrss')
+      ok_eq([[:'?xml', '1.0', 'utf-8'],
+	      [:rss,
+		{:version=>'2.0'},
+		[:channel,
+		  [:title, 'moved'],
+		  [:link, 'http://example.com/model.xml'],
+		  [:description, 'moved.'],
+		  [:lastBuildDate, 'Thu, 01 Jan 1970 09:00:00 GMT'],
+		  [:ttl, '60'],
+		  [:item,
+		    [:title, 'moved'],
+		    [:link, 'http://example.com/model.xml'],
+		    [:description, 'moved'],
+		    [:pubDate, 'Thu, 01 Jan 1970 09:00:00 GMT']]]]],
+	    res.body)
+    end
+
+    def nu_test_metadata_model_xml
+      setup_models
+      res = session('/test/model.xml')
+      ok_eq([[:'?xml', '1.0', 'utf-8'],
+	      [:rss, {:'xmlns:creativeCommons'=>
+		  'http://backend.userland.com/creativeCommonsRssModule',
+		  :version=>'2.0'},
+		[:channel,
+		  [:title, 'Modulobe model gallery'],
+		  [:link, 'http://example.com/'],
+		  [:description, 'This is a model list of Modulobe Wiki.'],
+		  [:language, 'ja'],
+		  [:managingEditor, 'modulobe@qwik.jp'],
+		  [:webMaster, 'modulobe@qwik.jp'],
+		  [:lastBuildDate, 'Thu, 01 Jan 1970 09:00:02 GMT'],
+		  [:ttl, '60'],
+		  [:item,
+		    [:title, 't1 model'],
+		    [:link, 'http://example.com/test/a.files/test1.mdlb'],
+		    [:description,
+		      "<p><img src=\"http://example.com/test/a.files/.thumb/test1.gif\" alt=\"t1 model\" width=\"100\" height=\"75\"/><p>This is a comment.</p>"],
+		    [:author, 'Alice'],
+		    [:pubDate, 'Thu, 01 Jan 1970 09:00:00 GMT'],
+		    [:enclosure,
+		      {:url=>'http://example.com/test/a.files/test1.mdlb',
+			:length=>563, :type=>'application/xml'}],
+		    [:'creativeCommons:license',
+		      'http://creativecommons.org/licenses/by/2.1/jp/']],
+		  [:item,
+		    [:title, 't2 model'],
+		    [:link, 'http://example.com/test/b.files/test2.mdlb'],
+		    [:description,
+		      "<p><img src=\"http://example.com/test/b.files/.thumb/test2.gif\" alt=\"t2 model\" width=\"100\" height=\"75\"/><p>This is a comment, too.</p>"],
+		    [:author, 'Bob'],
+		    [:pubDate, 'Thu, 01 Jan 1970 09:00:02 GMT'],
+		    [:enclosure,
+		      {:url=>'http://example.com/test/b.files/test2.mdlb',
+			:length=>1395, :type=>'application/xml'}],
+		    [:'creativeCommons:license',
+		      'http://creativecommons.org/licenses/by/2.1/jp/']]]]],
+	    res.body)
+    end
+
+    # ============================== upload
+    def prepare(con, im)
+      content = WEBrick::HTTPUtils::FormData.new(MODULOBE_TEST_MODEL)
+      content.filename = con
+      image = WEBrick::HTTPUtils::FormData.new(TEST_PNG_DATA)
+      image.filename = im
+      return content, image
+    end
+
+    def test_upload
+      t_add_user
+
+      # test_modulobe_files_form
+      page = @site.create('c')
+      page.store('{{modulobe_files_form}}')
+      res = session('/test/c.html')	# See the form.
+      form = @res.body.get_path("//div[@class='section']/form")
+      ok_eq({:method=>'POST', :action=>'c.modulobe_files_upload',
+	      :enctype=>'multipart/form-data'}, form[1])
+      ok_eq([:form, {:enctype=>'multipart/form-data',
+		:method=>'POST', :action=>'c.modulobe_files_upload'},
+	      [:table,
+		[:tr,
+		  [:th, 'Model file', ' : '],
+		  [:td, [:input,
+		      {:size=>'30', :type=>'file', :name=>'content'}]]],
+		[:tr,
+		  [:th, 'Image file', ' : '],
+		  [:td, [:input,
+		      {:size=>'30', :type=>'file', :name=>'image'}]]],
+		[:tr,
+		  [:td, ''],
+		  [:td, [:input, {:value=>'Attach', :type=>'submit'}]]]]],
+	    form)
+
+      # test_upload
+      content, image = prepare('test1.mdlb', 'test1.gif')
+      session('POST /test/c.modulobe_files_upload') {|req|	# Put a file.
+	req.query.update({'content'=>content, 'image'=>image})
+      }
+      ok_title('File attachment completed')
+      sitelog = @site.sitelog	# Check log.
+      ok_eq(",0.000000,user@e.com,modulobe file attach,c\n",
+	    @site['_SiteLog'].load)
+
+      # The model is attached.
+      ok_eq("{{modulobe_files_form}}
+
+* 
+{{modulobe_model(test1.mdlb)
+:title:\t\t
+:author:\t
+:comment:\t
+}}
+{{mcomment}}
+
+", page.load)
+
+      # Get the file.
+      res = session('/test/c.files/test1.mdlb')
+      assert_match(/\A<\?xml version="1\.0" encoding="utf-8"\?>/, res.body)
+      ok_eq('application/x-modulobe', res['Content-Type'])
+
+      # Get the image file.
+      res = session('/test/c.files/test1.gif')
+      ok_eq('image/gif', res['Content-Type'])
+    end
+
+    def test_with_invalid_character
+      t_add_user
+
+      page = @site.create('c')
+
+      content, image = prepare('test 2.mdlb', 'test 2.gif')
+      res = session('POST /test/c.modulobe_files_upload') {|req| # Put a file.
+	req.query.update({'content'=>content, 'image'=>image})
+      }
+      ok_title('File attachment completed')
+      ok_xp([:p, [:strong, 'test 2.mdlb'], ' : ', 'The file is saved.'],
+	    "//div[@class='body_main']/p")
+
+      # test_modulobe_files_upload_with_invalid_character
+      content, image = prepare('test+2.mdlb', 'test 2.gif')
+      res = session('POST /test/c.modulobe_files_upload') {|req|
+	req.query.update({'content'=>content, 'image'=>image})
+      }
+      ok_title('File attachment completed')
+      ok_xp([:p, [:strong, 'test+2.mdlb'], ' : ', 'The file is saved.'],
+	    "//div[@class='body_main']/p")
+
+      # Get the file.
+      res = session('/test/c.files/test+2.mdlb')
+      assert_match(/\A<\?xml version="1\.0" encoding="utf-8"\?>/, res.body)
+      ok_eq('application/x-modulobe', res['Content-Type'])
+
+      # Get the image file.
+      res = session('/test/c.files/test+2.gif')
+      ok_eq('image/gif', res['Content-Type'])
+    end
+
+    def test_with_japanese_character
+      t_add_user
+      page = @site.create('c')
+
+      # Put files.
+      content, image = prepare('c:\い\あ.mdlb', 'c:\い\あ.gif')
+      res = session('POST /test/c.modulobe_files_upload') {|req|
+	req.query.update({'content'=>content, 'image'=>image})
+      }
+      ok_title('File attachment completed')
+      ok_xp([:p, [:strong, 'あ.mdlb'], ' : ', 'The file is saved.'],
+	    "//div[@class='body_main']/p")
+
+      # Get the file.
+      res = session('/test/c.files/=E3=81=82.mdlb')
+      assert_match(/\A<\?xml version="1\.0" encoding="utf-8"\?>/, res.body)
+      ok_eq('application/x-modulobe', res['Content-Type'])
+
+      # Put files again.
+      # content and image are same.
+      res = session('POST /test/c.modulobe_files_upload') {|req|
+	req.query.update({'content'=>content, 'image'=>image})
+      }
+      ok_title('File attachment completed')
+      ok_xp([:p, [:strong, 'あ.mdlb'], ' -> ', [:strong, '1-あ.mdlb'], ' : ',
+	      'The file is saved with this filename.'],
+	    "//div[@class='body_main']/p")
+
+      # Get the file.
+      res = session('/test/c.files/1-=E3=81=82.mdlb')
+      assert_match(/\A<\?xml version="1\.0" encoding="utf-8"\?>/, res.body)
+      ok_eq('application/x-modulobe', res['Content-Type'])
+    end
+
+  end
+end