rd2odt 0.1.0

data/test/unit/rd2odt-spec.rb

@@ -0,0 +1,831 @@
+# -*- coding: utf-8 -*-
+
+require File.join(File.dirname(__FILE__), "..", "test-helper")
+
+describe RD2ODT, "ah_to_xml" do
+  # not supported.
+  # it "returns empty string if empty array" do
+  #   RD2ODT.ah_to_xml([]).should == nil
+  # end
+
+  it "returns xml document" do
+    RD2ODT.ah_to_xml([:br]).should == "<br />"
+    RD2ODT.ah_to_xml([:text__p]).should == "<text:p />"
+    RD2ODT.ah_to_xml([:text__style_name]).should == "<text:style-name />"
+    RD2ODT.ah_to_xml([:text__sequence_decl,
+                      {
+                        :text__display_outline_level => "0",
+                        :text__name => "Table",
+                      },
+                     ]).should ==
+      '<text:sequence-decl text:display-outline-level="0" text:name="Table" />'
+    RD2ODT.ah_to_xml([:text__p, "this is a pen."]).should ==
+      "<text:p>this is a pen.</text:p>"
+    RD2ODT.ah_to_xml([:text__p, '&"><']).should ==
+      "<text:p>&amp;&quot;&gt;&lt;</text:p>"
+    RD2ODT.ah_to_xml([:text__p,
+                      %Q'Lo<text:s text:c="2" />ok&gt;'.to_sym]).should ==
+      %Q'<text:p>Lo<text:s text:c="2" />ok&gt;</text:p>'
+    RD2ODT.ah_to_xml([:text__p,
+                      {:text__style_name => "Text_20_body"},
+                      "this is a pen.",
+                     ]).should ==
+      '<text:p text:style-name="Text_20_body">this is a pen.</text:p>'
+    RD2ODT.ah_to_xml([:office__text,
+                      [:text__p,
+                       {:text__style_name => "Text_20_body"},
+                       "this is a pen.",
+                      ],
+                     ]).should ==
+      <<EOF.gsub(/\n\z/, "")
+<office:text>
+ <text:p text:style-name="Text_20_body">this is a pen.</text:p>
+</office:text>
+EOF
+    RD2ODT.ah_to_xml([:office__body,
+                      {
+                        :abc__def_ghi => "123",
+                        :jkl_mno__pqr => "456",
+                      },
+                      [:office__text,
+                       [:text__p,
+                        {:text__style_name => "Text_20_body"},
+                        "this is a pen.",
+                       ],
+                      ],
+                     ]).should ==
+      <<EOF.gsub(/\n\z/, "")
+<office:body abc:def-ghi="123" jkl-mno:pqr="456">
+ <office:text>
+  <text:p text:style-name="Text_20_body">this is a pen.</text:p>
+ </office:text>
+</office:body>
+EOF
+    RD2ODT.ah_to_xml([
+                      [:text__p,
+                       {:text__style_name => "Preformatted_20_Text"},
+                       "text-1",
+                      ],
+                      [:text__p,
+                       {:text__style_name => "Preformatted_20_Text"},
+                       "text-2",
+                      ],
+                     ]).should ==
+      <<EOF.gsub(/\n\z/, "")
+<text:p text:style-name="Preformatted_20_Text">text-1</text:p>
+<text:p text:style-name="Preformatted_20_Text">text-2</text:p>
+EOF
+  end
+end
+
+def str_to_treat_input_ary(s)
+  ary = s.split("\n").map { |l|
+    l + "\n"
+  }
+
+  # last line does not have "\n" case.
+  if !/\n\z/.match(s)
+    ary.last.chomp!
+  end
+
+  return ary
+end
+
+describe RD2ODT, "treat_input" do
+  it "adds '=begin' to first line and adds '=end' to last line if both lines is
+  not exist." do
+    actual_str = <<ACTUAL
+foo
+bar
+ACTUAL
+    expected = str_to_treat_input_ary(<<EXPECTED)
+=begin
+foo
+bar
+=end
+EXPECTED
+
+    actual_1 = str_to_treat_input_ary(actual_str)
+    RD2ODT.treat_input(actual_1).should == expected
+
+    actual_2 = str_to_treat_input_ary(actual_str.chomp)
+    RD2ODT.treat_input(actual_2).should == expected
+  end
+
+  it "does not add '=begin' to first line if it is exist." do
+    ary = str_to_treat_input_ary(<<EOF)
+foo
+=begin
+bar
+EOF
+    RD2ODT.treat_input(ary.dup).should == ary.dup
+  end
+
+  it "does not add '=end' to last line if it is exist." do
+    ary = str_to_treat_input_ary(<<EOF)
+foo
+=end
+bar
+EOF
+    RD2ODT.treat_input(ary.dup).should == ary.dup
+  end
+end
+
+describe RD2ODT::RD2ODTVisitor, "apply_to_DocumentElement" do
+  before do
+    @visitor = RD2ODT::RD2ODTVisitor.new
+  end
+
+  it "returns top level document structure" do
+    sub_content = [:text__p,
+                   {:text__style_name => "Text_20_body"},
+                   "本文",
+                  ]
+    result = @visitor.apply_to_DocumentElement(nil,
+                                               [sub_content,
+                                                sub_content])
+    result.should ==
+      [:office__document_content,
+       {
+         :xmlns__office => "urn:oasis:names:tc:opendocument:xmlns:office:1.0",
+         :xmlns__style => "urn:oasis:names:tc:opendocument:xmlns:style:1.0",
+         :xmlns__text => "urn:oasis:names:tc:opendocument:xmlns:text:1.0",
+         :xmlns__table => "urn:oasis:names:tc:opendocument:xmlns:table:1.0",
+         :xmlns__draw => "urn:oasis:names:tc:opendocument:xmlns:drawing:1.0",
+         :xmlns__fo =>
+         "urn:oasis:names:tc:opendocument:xmlns:xsl-fo-compatible:1.0",
+         :xmlns__xlink => "http://www.w3.org/1999/xlink",
+         :xmlns__dc => "http://purl.org/dc/elements/1.1/",
+         :xmlns__meta => "urn:oasis:names:tc:opendocument:xmlns:meta:1.0",
+         :xmlns__number =>
+         "urn:oasis:names:tc:opendocument:xmlns:datastyle:1.0",
+         :xmlns__svg =>
+         "urn:oasis:names:tc:opendocument:xmlns:svg-compatible:1.0",
+         :xmlns__chart => "urn:oasis:names:tc:opendocument:xmlns:chart:1.0",
+         :xmlns__dr3d => "urn:oasis:names:tc:opendocument:xmlns:dr3d:1.0",
+         :xmlns__math => "http://www.w3.org/1998/Math/MathML",
+         :xmlns__form => "urn:oasis:names:tc:opendocument:xmlns:form:1.0",
+         :xmlns__script => "urn:oasis:names:tc:opendocument:xmlns:script:1.0",
+         :xmlns__ooo => "http://openoffice.org/2004/office",
+         :xmlns__ooow => "http://openoffice.org/2004/writer",
+         :xmlns__oooc => "http://openoffice.org/2004/calc",
+         :xmlns__dom => "http://www.w3.org/2001/xml-events",
+         :xmlns__xforms => "http://www.w3.org/2002/xforms",
+         :xmlns__xsd => "http://www.w3.org/2001/XMLSchema",
+         :xmlns__xsi => "http://www.w3.org/2001/XMLSchema-instance",
+         :xmlns__field =>
+         "urn:openoffice:names:experimental:ooxml-odf-interop:xmlns:field:1.0",
+         :office__version => "1.1",
+       },
+       [:office__scripts],
+       [:office__font_face_decls,
+        [:style__font_face,
+         {
+           :style__name => "さざなみ明朝",
+           :svg__font_family => "さざなみ明朝",
+           :style__font_family_generic => "roman",
+           :style__font_pitch => "variable",
+         }],
+        [:style__font_face,
+         {
+           :style__name => "IPAゴシック",
+           :svg__font_family => "IPAゴシック",
+           :style__font_family_generic => "swiss",
+           :style__font_pitch => "variable",
+         }],
+        [:style__font_face,
+         {
+           :style__name => "IPAゴシック1",
+           :svg__font_family => "IPAゴシック",
+           :style__font_family_generic => "system",
+           :style__font_pitch => "variable",
+         }],
+       ], # :office__font_face_decls
+       [:office__automatic_styles],
+       [:office__body,
+        [:office__text,
+         [:text__sequence_decls,
+          [:text__sequence_decl,
+           {
+             :text__display_outline_level => "0",
+             :text__name => "Illustration",
+           }],
+          [:text__sequence_decl,
+           {
+             :text__display_outline_level => "0",
+             :text__name => "Table",
+           }],
+          [:text__sequence_decl,
+           {
+             :text__display_outline_level => "0",
+             :text__name => "Text",
+           }],
+          [:text__sequence_decl,
+           {
+             :text__display_outline_level => "0",
+             :text__name => "Drawing",
+           }],
+         ], # :text__sequence_decls
+         sub_content,
+         sub_content,
+        ], # :office__text
+       ], # :office__body
+      ] # :office__document_content
+  end
+
+  it "returns top level document structure with office:automatic-styles" do
+    sub_content = [:text__p,
+                   {:text__style_name => "Text_20_body"},
+                   "本文",
+                  ]
+    styles = []
+    styles << "<a><b/></a>"
+    styles << "<c d='e'><f/></c>"
+    styles.each do |s|
+      @visitor.automatic_styles << REXML::Document.new(s)
+    end
+    result = @visitor.apply_to_DocumentElement(nil,
+                                               [sub_content,
+                                                sub_content])
+    result.should ==
+      [:office__document_content,
+       {
+         :xmlns__office => "urn:oasis:names:tc:opendocument:xmlns:office:1.0",
+         :xmlns__style => "urn:oasis:names:tc:opendocument:xmlns:style:1.0",
+         :xmlns__text => "urn:oasis:names:tc:opendocument:xmlns:text:1.0",
+         :xmlns__table => "urn:oasis:names:tc:opendocument:xmlns:table:1.0",
+         :xmlns__draw => "urn:oasis:names:tc:opendocument:xmlns:drawing:1.0",
+         :xmlns__fo =>
+         "urn:oasis:names:tc:opendocument:xmlns:xsl-fo-compatible:1.0",
+         :xmlns__xlink => "http://www.w3.org/1999/xlink",
+         :xmlns__dc => "http://purl.org/dc/elements/1.1/",
+         :xmlns__meta => "urn:oasis:names:tc:opendocument:xmlns:meta:1.0",
+         :xmlns__number =>
+         "urn:oasis:names:tc:opendocument:xmlns:datastyle:1.0",
+         :xmlns__svg =>
+         "urn:oasis:names:tc:opendocument:xmlns:svg-compatible:1.0",
+         :xmlns__chart => "urn:oasis:names:tc:opendocument:xmlns:chart:1.0",
+         :xmlns__dr3d => "urn:oasis:names:tc:opendocument:xmlns:dr3d:1.0",
+         :xmlns__math => "http://www.w3.org/1998/Math/MathML",
+         :xmlns__form => "urn:oasis:names:tc:opendocument:xmlns:form:1.0",
+         :xmlns__script => "urn:oasis:names:tc:opendocument:xmlns:script:1.0",
+         :xmlns__ooo => "http://openoffice.org/2004/office",
+         :xmlns__ooow => "http://openoffice.org/2004/writer",
+         :xmlns__oooc => "http://openoffice.org/2004/calc",
+         :xmlns__dom => "http://www.w3.org/2001/xml-events",
+         :xmlns__xforms => "http://www.w3.org/2002/xforms",
+         :xmlns__xsd => "http://www.w3.org/2001/XMLSchema",
+         :xmlns__xsi => "http://www.w3.org/2001/XMLSchema-instance",
+         :xmlns__field =>
+         "urn:openoffice:names:experimental:ooxml-odf-interop:xmlns:field:1.0",
+         :office__version => "1.1",
+       },
+       [:office__scripts],
+       [:office__font_face_decls,
+        [:style__font_face,
+         {
+           :style__name => "さざなみ明朝",
+           :svg__font_family => "さざなみ明朝",
+           :style__font_family_generic => "roman",
+           :style__font_pitch => "variable",
+         }],
+        [:style__font_face,
+         {
+           :style__name => "IPAゴシック",
+           :svg__font_family => "IPAゴシック",
+           :style__font_family_generic => "swiss",
+           :style__font_pitch => "variable",
+         }],
+        [:style__font_face,
+         {
+           :style__name => "IPAゴシック1",
+           :svg__font_family => "IPAゴシック",
+           :style__font_family_generic => "system",
+           :style__font_pitch => "variable",
+         }],
+       ], # :office__font_face_decls
+       [:office__automatic_styles,
+        *styles.map { |s|
+          s.to_sym
+        }
+       ],
+       [:office__body,
+        [:office__text,
+         [:text__sequence_decls,
+          [:text__sequence_decl,
+           {
+             :text__display_outline_level => "0",
+             :text__name => "Illustration",
+           }],
+          [:text__sequence_decl,
+           {
+             :text__display_outline_level => "0",
+             :text__name => "Table",
+           }],
+          [:text__sequence_decl,
+           {
+             :text__display_outline_level => "0",
+             :text__name => "Text",
+           }],
+          [:text__sequence_decl,
+           {
+             :text__display_outline_level => "0",
+             :text__name => "Drawing",
+           }],
+         ], # :text__sequence_decls
+         sub_content,
+         sub_content,
+        ], # :office__text
+       ], # :office__body
+      ] # :office__document_content
+  end
+end
+
+describe RD2ODT::RD2ODTVisitor, "apply_to_StringElement" do
+  before do
+    @visitor = RD2ODT::RD2ODTVisitor.new
+  end
+
+  it "returns text:p element" do
+    element = RD::StringElement.new("本文\n")
+    result = @visitor.apply_to_StringElement(element)
+    result.should == "本文"
+  end
+
+  it "remove \\r and \\n charactor" do
+    element = RD::StringElement.new("本文1\n本文2\n本文3\n")
+    result = @visitor.apply_to_StringElement(element)
+    result.should == "本文1本文2本文3"
+
+    element = RD::StringElement.new("本文1\r\n本文2\r\n本文3\r\n")
+    result = @visitor.apply_to_StringElement(element)
+    result.should == "本文1本文2本文3"
+  end
+end
+
+describe RD2ODT::RD2ODTVisitor, "apply_to_TextBlock" do
+  before do
+    @visitor = RD2ODT::RD2ODTVisitor.new
+  end
+
+  it "returns text:p element" do
+    sub_content = "本文"
+    result = @visitor.apply_to_TextBlock(nil, [sub_content])
+    result.should == [:text__p,
+                      {:text__style_name => "Text_20_body"},
+                      sub_content,
+                     ]
+  end
+end
+
+describe RD2ODT::RD2ODTVisitor, "apply_to_Headline" do
+  before do
+    @visitor = RD2ODT::RD2ODTVisitor.new
+  end
+
+  it "returns text:list element in '=' level without text:continue-numbering when first '='" do
+    level = 1
+    title = "見出し1"
+    element = RD::Headline.new(level)
+    element.title << title
+    result = @visitor.apply_to_Headline(element, element.title)
+    result.should == [:text__list,
+                      {:text__style_name => "Numbering_20_2"},
+                      [:text__list_item,
+                       [:text__p,
+                        {:text__style_name => "Heading_20_1"},
+                        "見出し1"
+                       ],
+                      ],
+                     ]
+    @visitor.continue_numbering_headline.should == true
+  end
+
+  it "returns text:list element in '=' level with text:continue-numbering when not first '='" do
+    level = 1
+    title = "見出し2"
+    element = RD::Headline.new(level)
+    element.title << title
+    @visitor.continue_numbering_headline = true
+    result = @visitor.apply_to_Headline(element, element.title)
+    result.should == [:text__list,
+                      {
+                        :text__style_name => "Numbering_20_2",
+                        :text__continue_numbering => "true",
+                      },
+                      [:text__list_item,
+                       [:text__p,
+                        {:text__style_name => "Heading_20_1"},
+                        "見出し2"
+                       ],
+                      ],
+                     ]
+    @visitor.continue_numbering_headline.should == true
+  end
+
+  it "returns text:list element in '==' level" do
+    level = 2
+    title = "見出し2"
+    element = RD::Headline.new(level)
+    element.title << title
+    result = @visitor.apply_to_Headline(element, element.title)
+    result.should == [:text__list,
+                      {
+                        :text__style_name => "Numbering_20_2",
+                        :text__continue_numbering => "true",
+                      },
+                      [:text__list_item,
+                       [:text__list,
+                        {:text__continue_numbering => "true"},
+                        [:text__list_item,
+                         [:text__p,
+                          {:text__style_name => "Heading_20_2"},
+                          "見出し2",
+                         ],
+                        ],
+                       ],
+                      ],
+                     ]
+  end
+
+  it "returns text:list element in '===' level" do
+    level = 3
+    title = "見出し3"
+    element = RD::Headline.new(level)
+    element.title << title
+    result = @visitor.apply_to_Headline(element, element.title)
+    result.should == [:text__list,
+                      {
+                        :text__style_name => "Numbering_20_2",
+                        :text__continue_numbering => "true",
+                      },
+                      [:text__list_item,
+                       [:text__list,
+                        {:text__continue_numbering => "true"},
+                        [:text__list_item,
+                         [:text__list,
+                          {:text__continue_numbering => "true"},
+                          [:text__list_item,
+                           [:text__p,
+                            {:text__style_name => "Heading_20_3"},
+                            "見出し3",
+                           ],
+                          ],
+                         ],
+                        ],
+                       ],
+                      ],
+                     ]
+  end
+end
+
+describe RD2ODT::RD2ODTVisitor, "apply_to_EnumListItem" do
+  before do
+    @visitor = RD2ODT::RD2ODTVisitor.new
+  end
+
+  it "returns text:list-item element" do
+    result = @visitor.apply_to_EnumListItem(nil, [:sub_content_1,
+                                                  :sub_content_2])
+    result.should == [:text__list_item,
+                      :sub_content_1,
+                      :sub_content_2,
+                     ]
+  end
+end
+
+describe RD2ODT::RD2ODTVisitor, "apply_to_EnumList" do
+  before do
+    @visitor = RD2ODT::RD2ODTVisitor.new
+  end
+
+  it "returns text:list element" do
+    result = @visitor.apply_to_EnumList(nil, [:sub_content_1,
+                                              :sub_content_2])
+    result.should == [:text__list,
+                      {
+                        :text__style_name => "Numbering_20_1",
+                        :text__continue_numbering => "false",
+                      },
+                      :sub_content_1,
+                      :sub_content_2,
+                     ]
+  end
+end
+
+describe RD2ODT::RD2ODTVisitor, "apply_to_ItemListItem" do
+  before do
+    @visitor = RD2ODT::RD2ODTVisitor.new
+  end
+
+  # same as apply_to_EnumListItem
+  it "returns text:list-item element" do
+    result = @visitor.apply_to_ItemListItem(nil, [:sub_content_1,
+                                                  :sub_content_2])
+    result.should == [:text__list_item,
+                      :sub_content_1,
+                      :sub_content_2,
+                     ]
+  end
+end
+
+describe RD2ODT::RD2ODTVisitor, "apply_to_ItemList" do
+  before do
+    @visitor = RD2ODT::RD2ODTVisitor.new
+  end
+
+  it "returns text:list element" do
+    result = @visitor.apply_to_ItemList(nil, [:sub_content_1,
+                                              :sub_content_2])
+    result.should == [:text__list,
+                      {:text__style_name => "List_20_1"},
+                      :sub_content_1,
+                      :sub_content_2,
+                     ]
+  end
+end
+
+describe RD2ODT::RD2ODTVisitor, "apply_to_Verbatim" do
+  before do
+    @visitor = RD2ODT::RD2ODTVisitor.new
+  end
+
+  it "returns text:list element" do
+    content_strings = [
+                       "This is verbatim element.\n",
+                       " " * 2 + "Lo" + " " * 5 + "ok!\n",
+                       "\tLo" + "\t\t" + "ok!\n",
+                       "In the last line, text:line-break is not exist.\n",
+                      ]
+    element = RD::Verbatim.new(content_strings)
+    result = @visitor.apply_to_Verbatim(element)
+    result.should == [:text__p,
+                      {:text__style_name => "Preformatted_20_Text"},
+                      [
+                       "This is verbatim element.",
+                       '<text:s text:c="2" />Lo<text:s text:c="5" />ok!<text:line-break /><text:tab />Lo<text:tab /><text:tab />ok!',
+                       "In the last line, text:line-break is not exist.",
+                      ].join("<text:line-break />").to_sym,
+                     ]
+  end
+end
+
+describe RD2ODT::RD2ODTVisitor, "apply_to_Include" do
+  include XmlMatchers
+
+  before do
+    class ::Time
+      class << self
+        alias orig_now now
+
+        def now
+          return Time.mktime(2008, 12, 30, 12, 34, 56, 78901)
+        end
+      end
+    end
+
+    @name_prefix = sprintf("rd2odt:%d:%06d:%d:",
+                           Time.now.tv_sec, Time.now.tv_usec, 1)
+
+    @visitor = RD2ODT::RD2ODTVisitor.new
+
+    sample_dir_path = File.join($top_srcdir, "doc", "sample")
+    tree_mock = Struct.new(:include_paths).new([sample_dir_path])
+    @parent_element = Struct.new(:tree).new(tree_mock)
+  end
+
+  after do
+    class ::Time
+      class << self
+        alias now orig_now
+      end
+    end
+  end
+
+  it "includes other document" do
+    element = RD::Include.new("include-file-simple-text.odt")
+    element.parent = @parent_element
+    result = @visitor.apply_to_Include(element)
+    result[0].should == <<EOF.chomp.to_sym
+<text:p text:style-name='#{@name_prefix}Standard'>これは&lt;&lt;&lt;のサンプルです．</text:p>
+EOF
+    result[1].should == <<EOF.chomp.to_sym
+<text:p text:style-name='#{@name_prefix}Standard'>単純なテキストのincludeサンプルです．</text:p>
+EOF
+    result[2].should == <<EOF.chomp.to_sym
+<text:p text:style-name='#{@name_prefix}Standard'/>
+EOF
+    result.length.should == 3
+    result.class.should == Array
+    @visitor.number_of_include_files.should == 1
+    @visitor.additional_styles[0].to_s.should be_same_as_this_xml(<<EOF.chomp)
+<style:style style:name='#{@name_prefix}Standard' style:class='text' style:family='paragraph'/>
+EOF
+    @visitor.additional_styles[1].to_s.should be_same_as_this_xml(<<EOF.chomp)
+<style:style style:name='#{@name_prefix}Text_20_body' style:class='text' style:parent-style-name='#{@name_prefix}Standard' style:display-name='#{@name_prefix}Text body' style:family='paragraph'>
+   <style:paragraph-properties fo:margin-bottom='0.212cm' fo:margin-top='0cm'/>
+  </style:style>
+EOF
+    # additional_styles[2..6] test is omitted.
+    @visitor.additional_styles.length.should == 7
+    @visitor.additional_styles.class == Array
+  end
+
+=begin
+  it "includes other document" do
+    element = RD::Include.new("include-file-simple-styled-text.odt")
+    element.parent = @parent_element
+    result = @visitor.apply_to_Include(element)
+    result[0].should == <<EOF.chomp.to_sym
+<text:p text:style-name='Standard'>これは&lt;&lt;&lt;のサンプルです．</text:p>
+EOF
+    result[1].should == <<EOF.chomp.to_sym
+<text:p text:style-name='Standard'>標準: 単純なテキストのincludeサンプルです．</text:p>
+EOF
+    result[2].should == <<EOF.chomp.to_sym
+<text:p text:style-name='Standard'/>
+EOF
+    result[3].should == <<EOF.chomp.to_sym
+<text:h text:outline-level='1' text:style-name='Heading_20_1'>見出し1</text:h>
+EOF
+    result[4].should == <<EOF.chomp.to_sym
+<text:h text:outline-level='2' text:style-name='Heading_20_2'>見出し1.1</text:h>
+EOF
+    result[5].should == <<EOF.chomp.to_sym
+<text:p text:style-name='Text_20_body'>本文</text:p>
+EOF
+    result[6].should == <<EOF.chomp.to_sym
+<text:p text:style-name='Standard'/>
+EOF
+    result[7].should == <<EOF.chomp.to_sym
+<text:p text:style-name='Preformatted_20_Text'>書式設定前テキスト</text:p>
+EOF
+    result[8].should == <<EOF.chomp.to_sym
+<text:p text:style-name='Standard'/>
+EOF
+    result[9].should == <<EOF.chomp.to_sym
+<text:p text:style-name='Standard'>文字用書式スタイルのincludeテスト</text:p>
+EOF
+    result[10].should == <<EOF.chomp.to_sym
+<text:p text:style-name='Standard'><text:span text:style-name='Emphasis'>強調</text:span>標準</text:p>
+EOF
+    result[11].should == <<EOF.chomp.to_sym
+<text:p text:style-name='Standard'><text:span text:style-name='Variable'>変数</text:span>標準</text:p>
+EOF
+    result[12].should == <<EOF.chomp.to_sym
+<text:p text:style-name='Standard'><text:span text:style-name='Teletype'>等幅フォント</text:span>標準</text:p>
+EOF
+    result[13].should == <<EOF.chomp.to_sym
+<text:p text:style-name='Standard'/>
+EOF
+    result.length.should == 14
+    result.class.should == Array
+  end
+=end
+
+  it "includes other document which containts table:table" do
+    element = RD::Include.new("include-file-table.odt")
+    element.parent = @parent_element
+    result = @visitor.apply_to_Include(element)
+    result[0].should == <<EOF.chomp.to_sym
+<text:p text:style-name='#{@name_prefix}Standard'>これは&lt;&lt;&lt;のサンプルです．</text:p>
+EOF
+    result[1].should be_same_as_this_xml(<<EOF.chomp.to_sym)
+<table:table table:name='#{@name_prefix}表1' table:style-name='#{@name_prefix}表1'>
+    <table:table-column table:number-columns-repeated='3' table:style-name='#{@name_prefix}表1.A'/>
+    <table:table-row>
+     <table:table-cell office:value-type='string' table:style-name='#{@name_prefix}表1.A1'>
+      <text:p text:style-name='#{@name_prefix}Table_20_Contents'>表つき文書の</text:p>
+     </table:table-cell>
+     <table:table-cell office:value-type='string' table:style-name='#{@name_prefix}表1.A1'>
+      <text:p text:style-name='#{@name_prefix}Table_20_Contents'>埋め込み</text:p>
+     </table:table-cell>
+     <table:table-cell office:value-type='string' table:style-name='#{@name_prefix}表1.C1'>
+      <text:p text:style-name='#{@name_prefix}Table_20_Contents'>サンプル</text:p>
+     </table:table-cell>
+    </table:table-row>
+    <table:table-row>
+     <table:table-cell office:value-type='string' table:style-name='#{@name_prefix}表1.A2'>
+      <text:p text:style-name='#{@name_prefix}Table_20_Contents'>1</text:p>
+     </table:table-cell>
+     <table:table-cell office:value-type='string' table:style-name='#{@name_prefix}表1.A2'>
+      <text:p text:style-name='#{@name_prefix}Table_20_Contents'>2</text:p>
+     </table:table-cell>
+     <table:table-cell office:value-type='string' table:style-name='#{@name_prefix}表1.C2'>
+      <text:p text:style-name='#{@name_prefix}Table_20_Contents'>3</text:p>
+     </table:table-cell>
+    </table:table-row>
+   </table:table>
+EOF
+    result[2].should == <<EOF.chomp.to_sym
+<text:p text:style-name='#{@name_prefix}Standard'/>
+EOF
+    result.length.should == 3
+    result.class.should == Array
+    @visitor.automatic_styles[0].to_s.should be_same_as_this_xml(<<EOF.chomp)
+<style:style style:name='#{@name_prefix}表1' style:family='table'>
+   <style:table-properties table:align='margins' style:width='16.999cm'/>
+  </style:style>
+EOF
+    @visitor.automatic_styles[1].to_s.should be_same_as_this_xml(<<EOF.chomp)
+<style:style style:name='#{@name_prefix}表1.A' style:family='table-column'>
+   <style:table-column-properties style:column-width='5.666cm' style:rel-column-width='21845*'/>
+  </style:style>
+EOF
+    # automatic_styles[2..5] test is omitted.
+    @visitor.automatic_styles.length.should == 6
+    @visitor.automatic_styles.class.should == Array
+  end
+
+  it "includes other document which containts draw:*" do
+    element = RD::Include.new("include-file-shape.odt")
+    element.parent = @parent_element
+    result = @visitor.apply_to_Include(element)
+    result[0].should == <<EOF.chomp.to_sym
+<text:p text:style-name='#{@name_prefix}Standard'>これは&lt;&lt;&lt;のサンプルです．</text:p>
+EOF
+    result[1].should be_same_as_this_xml(<<EOF.chomp.to_sym)
+<text:p text:style-name='#{@name_prefix}Standard'><draw:g text:anchor-type='paragraph' draw:z-index='0' draw:style-name='#{@name_prefix}gr1'><draw:custom-shape svg:x='3.348cm' svg:y='0.088cm' svg:height='3.911cm' draw:style-name='#{@name_prefix}gr2' svg:width='3.887cm'>
+      <text:p/>
+      <draw:enhanced-geometry draw:glue-points='10800 0 3160 3160 0 10800 3160 18440 10800 21600 18440 18440 21600 10800 18440 3160' draw:type='smiley' draw:enhanced-path='U 10800 10800 10800 10800 0 23592960 Z N U 7305 7515 1165 1165 0 23592960 Z N U 14295 7515 1165 1165 0 23592960 Z N M 4870 ?f1 C 8680 ?f2 12920 ?f2 16730 ?f1 F N' draw:modifiers='17520' draw:text-areas='3200 3200 18400 18400' svg:viewBox='0 0 21600 21600'>
+       <draw:equation draw:name='f0' draw:formula='$0 -15510'/>
+       <draw:equation draw:name='f1' draw:formula='17520-?f0 '/>
+       <draw:equation draw:name='f2' draw:formula='15510+?f0 '/>
+       <draw:handle draw:handle-range-y-maximum='17520' draw:handle-range-y-minimum='15510' draw:handle-position='10800 $0'/>
+      </draw:enhanced-geometry>
+     </draw:custom-shape><draw:custom-shape svg:x='8.225cm' svg:y='0.873cm' draw:text-style-name='P1' svg:height='1.881cm' draw:style-name='#{@name_prefix}gr3' svg:width='3.303cm'>
+      <text:p text:style-name='#{@name_prefix}P1'>Yes,</text:p>
+      <text:p text:style-name='#{@name_prefix}P1'>This is the sample!</text:p>
+      <draw:enhanced-geometry draw:type='round-rectangular-callout' draw:enhanced-path='M 3590 0 X 0 3590 L ?f2 ?f3 0 8970 0 12630 ?f4 ?f5 0 18010 Y 3590 21600 L ?f6 ?f7 8970 21600 12630 21600 ?f8 ?f9 18010 21600 X 21600 18010 L ?f10 ?f11 21600 12630 21600 8970 ?f12 ?f13 21600 3590 Y 18010 0 L ?f14 ?f15 12630 0 8970 0 ?f16 ?f17 Z N' draw:modifiers='-7311.47891083823 20689.0346766635' draw:text-areas='800 800 20800 20800' svg:viewBox='0 0 21600 21600'>
+       <draw:equation draw:name='f0' draw:formula='$0 -10800'/>
+       <draw:equation draw:name='f1' draw:formula='$1 -10800'/>
+       <draw:equation draw:name='f2' draw:formula='if(?f18 ,$0 ,0)'/>
+       <draw:equation draw:name='f3' draw:formula='if(?f18 ,$1 ,6280)'/>
+       <draw:equation draw:name='f4' draw:formula='if(?f23 ,$0 ,0)'/>
+       <draw:equation draw:name='f5' draw:formula='if(?f23 ,$1 ,15320)'/>
+       <draw:equation draw:name='f6' draw:formula='if(?f26 ,$0 ,6280)'/>
+       <draw:equation draw:name='f7' draw:formula='if(?f26 ,$1 ,21600)'/>
+       <draw:equation draw:name='f8' draw:formula='if(?f29 ,$0 ,15320)'/>
+       <draw:equation draw:name='f9' draw:formula='if(?f29 ,$1 ,21600)'/>
+       <draw:equation draw:name='f10' draw:formula='if(?f32 ,$0 ,21600)'/>
+       <draw:equation draw:name='f11' draw:formula='if(?f32 ,$1 ,15320)'/>
+       <draw:equation draw:name='f12' draw:formula='if(?f34 ,$0 ,21600)'/>
+       <draw:equation draw:name='f13' draw:formula='if(?f34 ,$1 ,6280)'/>
+       <draw:equation draw:name='f14' draw:formula='if(?f36 ,$0 ,15320)'/>
+       <draw:equation draw:name='f15' draw:formula='if(?f36 ,$1 ,0)'/>
+       <draw:equation draw:name='f16' draw:formula='if(?f38 ,$0 ,6280)'/>
+       <draw:equation draw:name='f17' draw:formula='if(?f38 ,$1 ,0)'/>
+       <draw:equation draw:name='f18' draw:formula='if($0 ,-1,?f19 )'/>
+       <draw:equation draw:name='f19' draw:formula='if(?f1 ,-1,?f22 )'/>
+       <draw:equation draw:name='f20' draw:formula='abs(?f0 )'/>
+       <draw:equation draw:name='f21' draw:formula='abs(?f1 )'/>
+       <draw:equation draw:name='f22' draw:formula='?f20 -?f21 '/>
+       <draw:equation draw:name='f23' draw:formula='if($0 ,-1,?f24 )'/>
+       <draw:equation draw:name='f24' draw:formula='if(?f1 ,?f22 ,-1)'/>
+       <draw:equation draw:name='f25' draw:formula='$1 -21600'/>
+       <draw:equation draw:name='f26' draw:formula='if(?f25 ,?f27 ,-1)'/>
+       <draw:equation draw:name='f27' draw:formula='if(?f0 ,-1,?f28 )'/>
+       <draw:equation draw:name='f28' draw:formula='?f21 -?f20 '/>
+       <draw:equation draw:name='f29' draw:formula='if(?f25 ,?f30 ,-1)'/>
+       <draw:equation draw:name='f30' draw:formula='if(?f0 ,?f28 ,-1)'/>
+       <draw:equation draw:name='f31' draw:formula='$0 -21600'/>
+       <draw:equation draw:name='f32' draw:formula='if(?f31 ,?f33 ,-1)'/>
+       <draw:equation draw:name='f33' draw:formula='if(?f1 ,?f22 ,-1)'/>
+       <draw:equation draw:name='f34' draw:formula='if(?f31 ,?f35 ,-1)'/>
+       <draw:equation draw:name='f35' draw:formula='if(?f1 ,-1,?f22 )'/>
+       <draw:equation draw:name='f36' draw:formula='if($1 ,-1,?f37 )'/>
+       <draw:equation draw:name='f37' draw:formula='if(?f0 ,?f28 ,-1)'/>
+       <draw:equation draw:name='f38' draw:formula='if($1 ,-1,?f39 )'/>
+       <draw:equation draw:name='f39' draw:formula='if(?f0 ,-1,?f28 )'/>
+       <draw:equation draw:name='f40' draw:formula='$0 '/>
+       <draw:equation draw:name='f41' draw:formula='$1 '/>
+       <draw:handle draw:handle-position='$0 $1'/>
+      </draw:enhanced-geometry>
+     </draw:custom-shape>
+    </draw:g>シェイプ付きのOpen Documentファイルです．</text:p>
+EOF
+    result[2].should == <<EOF.chomp.to_sym
+<text:p text:style-name='#{@name_prefix}Standard'/>
+EOF
+    result.length.should == 3
+    result.class.should == Array
+    @visitor.automatic_styles[0].to_s.should be_same_as_this_xml(<<EOF.chomp)
+<style:style style:name='#{@name_prefix}P1' style:family='paragraph'>
+   <style:paragraph-properties fo:text-align='center'/>
+  </style:style>
+EOF
+    @visitor.automatic_styles[1].to_s.should be_same_as_this_xml(<<EOF.chomp)
+<style:style style:name='#{@name_prefix}gr1' style:family='graphic'>
+   <style:graphic-properties style:flow-with-text='false' style:horizontal-pos='from-left' style:wrap='none' style:vertical-rel='paragraph' draw:wrap-influence-on-position='once-concurrent' style:horizontal-rel='paragraph' style:run-through='foreground' style:vertical-pos='from-top'/>
+  </style:style>
+EOF
+    @visitor.automatic_styles[2].to_s.should be_same_as_this_xml(<<EOF.chomp)
+<style:style style:name='#{@name_prefix}gr2' style:family='graphic'>
+   <style:graphic-properties draw:textarea-vertical-align='middle' draw:auto-grow-height='false' style:run-through='foreground' draw:textarea-horizontal-align='justify'/>
+  </style:style>
+EOF
+    # automatic_styles[3] test is omitted.
+    @visitor.automatic_styles.length.should == 4
+    @visitor.automatic_styles.class.should == Array
+  end
+end