gettalong-webgen 0.5.5.20081001 → 0.5.5.20081010

data/lib/webgen/tag/langbar.rb

@@ -1,6 +1,3 @@
-require 'webgen/tag'
-require 'webgen/websiteaccess'
-
 module Webgen::Tag
 
   # Generates a list with all the languages of the page.
@@ -41,7 +38,7 @@ module Webgen::Tag
         lang_nodes = all_lang_nodes(node.tree[acn, :acn]) rescue nil
         if !lang_nodes || lang_nodes.length != clang_nodes.length ||
             lang_nodes.any? {|n| n.meta_info_changed?}
-          node.dirty = true
+          node.flag(:dirty)
           break
         end
       end

data/lib/webgen/tag/menu.rb

@@ -1,6 +1,3 @@
-require 'webgen/websiteaccess'
-require 'webgen/tag'
-
 module Webgen::Tag
 
   # Generates a menu that can be configured extensively.
@@ -90,7 +87,7 @@ module Webgen::Tag
             (tree_list && tree_list.flatten.any? do |alcn|
                (n = node.tree[alcn]) && (r = n.routing_node(cn.lang)) && r != node && r.meta_info_changed?
              end)
-          node.dirty = true
+          node.flag(:dirty)
           break
         end
       end

data/lib/webgen/tag/metainfo.rb

@@ -1,5 +1,3 @@
-require 'webgen/tag'
-
 module Webgen::Tag
 
   # Provides easy access to the meta information of a node.

data/lib/webgen/tag/relocatable.rb

@@ -1,4 +1,3 @@
-require 'webgen/tag'
 require 'uri'
 
 module Webgen::Tag
@@ -27,11 +26,11 @@ module Webgen::Tag
           end
           if result.empty?
             log(:error) { "Could not resolve path '#{uri_string}' in <#{context.ref_node.absolute_lcn}>" }
-            context.dest_node.dirty = true
+            context.dest_node.flag(:dirty)
           end
         rescue URI::InvalidURIError => e
           log(:error) { "Error while parsing path for tag relocatable in <#{context.ref_node.absolute_lcn}>: #{e.message}" }
-          context.dest_node.dirty = true
+          context.dest_node.flag(:dirty)
         end
       end
       result

data/lib/webgen/tag/sitemap.rb

@@ -1,6 +1,3 @@
-require 'webgen/websiteaccess'
-require 'webgen/tag'
-
 module Webgen::Tag
 
   # Generates a sitemap. The sitemap contains the hierarchy of all pages on the web site.

data/lib/webgen/tag/tikz.rb

@@ -0,0 +1,117 @@
+require 'erb'
+require 'tempfile'
+require 'fileutils'
+
+module Webgen::Tag
+
+  # This tag allows the creation and inclusion of complex graphics using the PGF/TikZ library of
+  # LaTeX. You will need a current LaTeX distribution and the +convert+ utility from ImageMagick.
+  class TikZ
+
+    include Webgen::Tag::Base
+    include Webgen::WebsiteAccess
+
+    LATEX_TEMPLATE = <<EOF
+\\nonstopmode \\documentclass{article} \\usepackage{tikz} \\pagestyle{empty}
+<% if param('tag.tikz.libraries') %>
+\\usetikzlibrary{<%= param('tag.tikz.libraries').join(',') %>}
+<% end %>
+\\begin{document}
+<% if param('tag.tikz.opts') %>
+\\begin{tikzpicture}[<%= param('tag.tikz.opts') %>]
+<% else %>
+\\begin{tikzpicture}
+<% end %>
+<%= body %>
+\\end{tikzpicture}
+\\end{document}
+EOF
+
+    # Create a graphic from the commands in the body of the tag.
+    def call(tag, body, context)
+      path = param('tag.tikz.path')
+      path = Pathname.new(path =~ /^\// ? path : File.join(context.ref_node.parent.absolute_lcn, path)).cleanpath.to_s
+
+      mem_handler = website.cache.instance('Webgen::SourceHandler::Memory')
+      src_path = context.ref_node.node_info[:src]
+      parent = website.blackboard.invoke(:create_directories, context.ref_node.tree.root, File.dirname(path), src_path)
+      params = @params
+
+      node = website.blackboard.invoke(:create_nodes, parent.tree, parent.absolute_lcn,
+                                       Webgen::Path.new(path, src_path), mem_handler) do |node_parent, node_path|
+        mem_handler.create_node(node_parent, node_path, context.ref_node.absolute_lcn) do |pic_node|
+          set_params(params)
+          document = ERB.new(LATEX_TEMPLATE).result(binding)
+          pic_path = compile(document, File.extname(path), context)
+          set_params(nil)
+          if pic_path
+            io = Webgen::Path::SourceIO.new { File.open(pic_path, 'rb') }
+          else
+            pic_node.flag(:dirty)
+            nil
+          end
+        end
+      end.first
+      attrs = param('tag.tikz.img_attr').collect {|name,value| "#{name.to_s}=\"#{value}\"" }.sort.unshift('').join(' ')
+      "<img src=\"#{context.dest_node.route_to(node)}\"#{attrs} />"
+    end
+
+    #######
+    private
+    #######
+
+    # Compile the LaTeX +document+ and convert the resulting PDF to the correct output image format
+    # specified by +ext+ (the extension needs to include the dot).
+    def compile(document, ext, context)
+      file = Tempfile.new('webgen-tikz')
+      file.write(document)
+      file.close
+
+      FileUtils.mv(file.path, file.path + '.tex')
+      cmd_prefix = "cd #{File.dirname(file.path)}; "
+      output = `#{cmd_prefix} pdflatex --shell-escape -interaction=batchmode #{File.basename(file.path)}.tex`
+      if $?.exitstatus != 0
+        errors = output.scan(/^!(.*\n.*)/).join("\n")
+        log(:error) { "There was an error creating a TikZ picture in <#{context.ref_node.absolute_lcn}>: #{errors}"}
+        context.dest_node.flag(:dirty)
+        nil
+      else
+        cmd = cmd_prefix + "pdfcrop #{File.basename(file.path)}.pdf #{File.basename(file.path)}.pdf; "
+        return unless run_command(cmd, context)
+
+        render_res, output_res = param('tag.tikz.resolution').split(' ')
+        if param('tag.tikz.transparent') && ext =~ /\.png/i
+          cmd = cmd_prefix +
+            "gs -dSAFER -dBATCH -dNOPAUSE -r#{render_res} -sDEVICE=pngalpha -dGraphicsAlphaBits=4 -dTextAlphaBits=4 " +
+            "-sOutputFile=#{File.basename(file.path)}#{ext} #{File.basename(file.path)}.pdf"
+        else
+          cmd = cmd_prefix + "convert -density #{render_res} #{File.basename(file.path)}.pdf #{File.basename(file.path)}#{ext}"
+        end
+        return unless run_command(cmd, context)
+
+        if render_res != output_res
+          cmd = cmd_prefix + "identify #{File.basename(file.path)}#{ext}"
+          return unless (output = run_command(cmd, context))
+          width, height = output.scan(/\s\d+x\d+\s/).first.strip.split('x').collect {|s| s.to_f * output_res.to_f / render_res.to_f }
+          cmd = cmd_prefix + "convert -resize #{width}x#{height} #{File.basename(file.path)}#{ext} #{File.basename(file.path)}#{ext}"
+          return unless run_command(cmd, context)
+        end
+        file.path + ext
+      end
+    end
+
+    # Runs the command +cmd+ and returns it's output if successful or +nil+ otherwise.
+    def run_command(cmd, context)
+      output = `#{cmd}`
+      if $?.exitstatus != 0
+        log(:error) { "There was an error running a command for a TikZ picture in <#{context.ref_node.absolute_lcn}>: #{output}"}
+        context.dest_node.flag(:dirty)
+        nil
+      else
+        output
+      end
+    end
+
+  end
+
+end

data/lib/webgen/tag.rb

@@ -17,6 +17,7 @@ module Webgen
     autoload :Coderay, 'webgen/tag/coderay'
     autoload :Date, 'webgen/tag/date'
     autoload :Sitemap, 'webgen/tag/sitemap'
+    autoload :TikZ, 'webgen/tag/tikz'
 
   end
 

data/lib/webgen/tree.rb

@@ -51,6 +51,11 @@ module Webgen
         @node_access[:alcn][node.absolute_lcn] = node
       end
       (@node_access[:acn][node.absolute_cn] ||= []) << node
+      register_path(node)
+    end
+
+    # A utility method called by Node#reinit. This method should not be used directly!
+    def register_path(node)
       if @node_access[:path].has_key?(node.path)
         raise "Can't have two nodes with same output path: #{node.path}" unless node['no_output']
       else
@@ -58,13 +63,12 @@ module Webgen
       end
     end
 
-    # Delete the node identified by +node_or_alcn+ and all of its children from the
-    # tree. Directories are only deleted if +delete_dir+ is +true+.
-    def delete_node(node_or_alcn, delete_dir = false)
+    # Delete the node identified by +node_or_alcn+ and all of its children from the tree.
+    def delete_node(node_or_alcn)
       n = node_or_alcn.kind_of?(Node) ? node_or_alcn : @node_access[:alcn][node_or_alcn]
-      return if n.nil? || n == @dummy_root || (n.is_directory? && !delete_dir)
+      return if n.nil? || n == @dummy_root
 
-      n.children.dup.each {|child| delete_node(child, delete_dir)}
+      n.children.dup.each {|child| delete_node(child)}
 
       website.blackboard.dispatch_msg(:before_node_deleted, n)
       n.parent.children.delete(n)

data/test/test_common_sitemap.rb

@@ -44,13 +44,13 @@ class TestCommonSitemap < Test::Unit::TestCase
     do_assert(@nodes[:file1_de], 'de', false, true, ['page'],
               [:dir1, :file11_en, :file1_de, :index_en])
 
-    @nodes[:file11_en].dirty = false
+    @nodes[:file11_en].unflag(:dirty)
     @website.blackboard.dispatch_msg(:node_changed?, @nodes[:file11_en])
-    assert(!@nodes[:file11_en].dirty)
+    assert(!@nodes[:file11_en].flagged(:dirty))
 
-    @nodes[:file11_en].dirty_meta_info = true
+    @nodes[:file11_en].flag(:dirty_meta_info)
     @website.blackboard.dispatch_msg(:node_changed?, @nodes[:file11_en])
-    assert(@nodes[:file11_en].dirty)
+    assert(@nodes[:file11_en].flagged(:dirty))
   end
 
 end

data/test/test_contentprocessor_context.rb

@@ -1,6 +1,6 @@
 require 'test/unit'
 require 'helper'
-require 'webgen/contentprocessor/context'
+require 'webgen/contentprocessor'
 
 class TestContentProcessorContext < Test::Unit::TestCase
 

data/test/test_contentprocessor_redcloth.rb

@@ -1,4 +1,5 @@
 require 'test/unit'
+require 'webgen/websiteaccess'
 require 'webgen/contentprocessor'
 
 class TestContentProcessorRedCloth < Test::Unit::TestCase

data/test/test_contentprocessor_tags.rb

@@ -1,7 +1,7 @@
 require 'test/unit'
 require 'helper'
 require 'webgen/tree'
-require 'webgen/contentprocessor/tags'
+require 'webgen/contentprocessor'
 
 class TestContentProcessorTags < Test::Unit::TestCase
 

data/test/test_node.rb

@@ -31,7 +31,7 @@ class TestNode < Test::Unit::TestCase
     }
   end
 
-  def test_initialize
+  def test_initialize_and_reinit
     check_proc = proc do |node, parent, path, cn, lcn, alcn, lang, mi|
       assert_equal(parent, node.parent)
       assert_equal(path, node.path)
@@ -39,8 +39,8 @@ class TestNode < Test::Unit::TestCase
       assert_equal(lcn, node.lcn)
       assert_equal(alcn, node.absolute_lcn)
       assert_equal(lang, node.lang)
-      assert(node.dirty)
-      assert(node.created)
+      assert(node.flagged(:dirty))
+      assert(node.flagged(:created))
       assert_equal(mi, node.meta_info)
       assert_equal({:used_nodes => Set.new, :used_meta_info_nodes => Set.new}, node.node_info)
       mi.each {|k,v| assert_equal(v, node[k])}
@@ -55,9 +55,13 @@ class TestNode < Test::Unit::TestCase
 
     ['http://webgen.rubyforge.org', 'c:\\test'].each_with_index do |abspath, index|
       cn = 'test' + index.to_s + '.html'
-      child = Webgen::Node.new(node, abspath, cn)
-      check_proc.call(child, node, abspath, cn, cn, '/test/' + cn, nil, {})
+      c = Webgen::Node.new(node, abspath, cn)
+      check_proc.call(c, node, abspath, cn, cn, '/test/' + cn, nil, {})
     end
+
+    child.reinit('somename.en.html', {'lang' => 'de', 'title' => 'test'})
+    check_proc.call(child, node, 'somename.en.html', 'somename.page', 'somename.de.page',
+                    '/test/somename.de.page', 'de', {'title' => 'test'})
   end
 
   def test_type_checkers
@@ -77,6 +81,22 @@ class TestNode < Test::Unit::TestCase
     assert_equal(:value, node[:other])
   end
 
+  def test_flags
+    node = Webgen::Node.new(@tree.dummy_root, 'test/', 'test', {'lang' => 'de', :test => :value})
+    assert(node.flagged(:created))
+    assert(node.flagged(:dirty))
+    node.unflag(:dirty)
+    assert(!node.flagged(:dirty))
+    node.flag(:a, :b, :c)
+    assert(node.flagged(:a))
+    assert(node.flagged(:b))
+    assert(node.flagged(:c))
+    node.unflag(:a, :b, :c)
+    assert(!node.flagged(:a))
+    assert(!node.flagged(:b))
+    assert(!node.flagged(:c))
+  end
+
   def test_in_lang
     nodes = create_default_nodes
 
@@ -143,16 +163,16 @@ class TestNode < Test::Unit::TestCase
 
   def test_changed
     node = Webgen::Node.new(@tree.dummy_root, 'test/', 'test', {'lang' => 'de', :test => :value})
-    node.dirty = node.created = false
+    node.unflag(:dirty, :created)
 
     calls = 0
-    @website.blackboard.add_listener(:node_changed?) {|n| assert(node, n); node.dirty = true; calls += 1}
+    @website.blackboard.add_listener(:node_changed?) {|n| assert(node, n); node.flag(:dirty); calls += 1}
     node.changed?
     assert_equal(1, calls)
     node.changed?
     assert_equal(1, calls)
 
-    node.dirty = false
+    node.unflag(:dirty)
     node.node_info[:used_nodes] << node.absolute_lcn
     node.node_info[:used_nodes] << 'unknown alcn'
     node.node_info[:used_nodes] << @tree.dummy_root.absolute_lcn
@@ -161,8 +181,8 @@ class TestNode < Test::Unit::TestCase
 
     # Test circular depdendence
     other_node = Webgen::Node.new(@tree.dummy_root, '/other', 'test.l', {'lang' => 'de', :test => :value})
-    other_node.dirty = node.created = false
-    node.dirty = false
+    other_node.flag(:dirty, :created)
+    node.flag(:dirty)
     other_node.node_info[:used_nodes] = [node.absolute_lcn]
     node.node_info[:used_nodes] = [other_node.absolute_lcn]
     node.changed?
@@ -170,16 +190,16 @@ class TestNode < Test::Unit::TestCase
 
   def test_meta_info_changed
     node = Webgen::Node.new(@tree.dummy_root, '/', '/')
-    node.dirty = node.created = false
+    node.unflag(:dirty, :created)
 
     calls = 0
-    @website.blackboard.add_listener(:node_meta_info_changed?) {|n| assert(node, n); node.dirty_meta_info = true; calls += 1}
+    @website.blackboard.add_listener(:node_meta_info_changed?) {|n| assert(node, n); node.flag(:dirty_meta_info); calls += 1}
     assert(node.meta_info_changed?)
     assert_equal(1, calls)
     assert(node.meta_info_changed?)
     assert_equal(1, calls)
 
-    node.dirty_meta_info = false
+    node.unflag(:dirty_meta_info)
     node.node_info[:used_meta_info_nodes] << node.absolute_lcn
     node.node_info[:used_meta_info_nodes] << 'unknown alcn'
     node.node_info[:used_meta_info_nodes] << @tree.dummy_root.absolute_lcn

data/test/test_output_filesystem.rb

@@ -1,6 +1,6 @@
 require 'test/unit'
 require 'helper'
-require 'webgen/output/filesystem'
+require 'webgen/output'
 require 'tmpdir'
 require 'fileutils'
 

data/test/test_page.rb

@@ -118,7 +118,7 @@ class TestPage < Test::Unit::TestCase
       content: "content\\n----------- some block start???\\nthings"
 EOF
 
-  INVALID=<<EOF
+  INVALID_MI=<<EOF
 # invalid meta info: none specified
 - "---\\n---"
 
@@ -136,7 +136,9 @@ EOF
   : * [ }
   ---
   asdf kadsfakl
+EOF
 
+  INVALID_BLOCKS=<<EOF
 # two blocks with same name
 - |
   aasdf
@@ -155,16 +157,23 @@ EOF
 EOF
 
   def test_invalid_pagefiles
-    testdata = YAML::load(INVALID)
+    testdata = YAML::load(INVALID_MI)
+    testdata.each_with_index do |data, index|
+      assert_raise(Webgen::WebgenPageFormatError, "test mi item #{index}") { Webgen::Page.from_data(data) }
+      assert_raise(Webgen::WebgenPageFormatError, "test mi item #{index}") { Webgen::Page.meta_info_from_data(data) }
+    end
+    testdata = YAML::load(INVALID_BLOCKS)
     testdata.each_with_index do |data, index|
-      assert_raise(Webgen::WebgenPageFormatError, "test item #{index}") { Webgen::Page.from_data(data) }
+      assert_raise(Webgen::WebgenPageFormatError, "test blocks item #{index}") { Webgen::Page.from_data(data) }
     end
   end
 
   def test_valid_pagefiles
     YAML::load(VALID).each_with_index do |data, oindex|
+      mi = Webgen::Page.meta_info_from_data(data['in'])
+      assert_equal(data['meta_info'], mi, "test item #{oindex} - meta info directly")
       d = Webgen::Page.from_data(data['in'])
-      assert_equal(data['meta_info'], d.meta_info, "test item #{oindex} - meta info")
+      assert_equal(data['meta_info'], d.meta_info, "test item #{oindex} - meta info all")
       assert_equal(data['blocks'].length*2, d.blocks.length)
       data['blocks'].each_with_index do |b, index|
         index += 1

data/test/test_path.rb

@@ -7,6 +7,7 @@ class TestPath < Test::Unit::TestCase
   def test_initialize
     check_proc = proc do |o, path, dir, bn, lang, ext, cn, oi, title|
       assert_equal(path, o.path)
+      assert_equal(path, o.source_path)
       assert_equal(dir, o.directory)
       assert_equal(bn, o.cnbase)
       assert_equal(lang, o.meta_info['lang'])
@@ -38,17 +39,23 @@ class TestPath < Test::Unit::TestCase
                     '/', '/', '/', nil, '', '/', nil, '/')
     check_proc.call(Webgen::Path.new('/dir/'),
                     '/dir/', '/', 'dir', nil, '', 'dir', nil, 'Dir')
+
+    path = Webgen::Path.new('/test/', '/other.path')
+    assert_equal('/other.path', path.source_path)
+    assert_equal('/test/', path.path)
   end
 
   def test_mount_at
     p = Webgen::Path.new('test.de.page')
     p = p.mount_at('/somedir')
     assert_equal('/somedir/test.de.page', p.path)
+    assert_equal('/somedir/test.de.page', p.source_path)
     assert_equal('/somedir/', p.directory)
 
     p = Webgen::Path.new('/')
     p = p.mount_at('/somedir')
     assert_equal('/somedir/', p.path)
+    assert_equal('/somedir/', p.source_path)
     assert_equal('/', p.directory)
     assert_equal('somedir', p.cn)
     assert_equal('Somedir', p.meta_info['title'])
@@ -56,6 +63,7 @@ class TestPath < Test::Unit::TestCase
     p = Webgen::Path.new('/source/test.rb')
     p = p.mount_at('/', '/source/')
     assert_equal('/test.rb', p.path)
+    assert_equal('/test.rb', p.source_path)
     assert_equal('/', p.directory)
     assert_equal('test.rb', p.cn)
     assert_equal('Test', p.meta_info['title'])
@@ -63,9 +71,18 @@ class TestPath < Test::Unit::TestCase
     p = Webgen::Path.new('/source/')
     p = p.mount_at('/', '/source')
     assert_equal('/', p.path)
+    assert_equal('/', p.source_path)
     assert_equal('/', p.directory)
     assert_equal('/', p.cn)
     assert_equal('/', p.meta_info['title'])
+
+    p = Webgen::Path.new('/test.rb', '/other.rb')
+    p = p.mount_at('/source/')
+    assert_equal('/source/test.rb', p.path)
+    assert_equal('/other.rb', p.source_path)
+    assert_equal('/source/', p.directory)
+    assert_equal('test.rb', p.cn)
+    assert_equal('Test', p.meta_info['title'])
   end
 
   def test_dup
@@ -110,11 +127,26 @@ class TestPath < Test::Unit::TestCase
   end
 
   def test_matching
-    path = Webgen::Path.new('/dir/to/file.de.page')
-    assert(path =~ '**/*')
-    assert(path =~ '**/file.de.PAGE')
-    assert(path =~ '/dir/*/file.*.page')
-    assert(path !~ '**/*.test')
+    path = '/dir/to/file.de.page'
+    assert(Webgen::Path.match(path, '**/*'))
+    assert(Webgen::Path.match(path, '**/file.de.PAGE'))
+    assert(Webgen::Path.match(path, '/dir/*/file.*.page'))
+    assert(!Webgen::Path.match(path, '**/*.test'))
+
+    path = '/dir/'
+    assert(Webgen::Path.match(path, '/dir/'))
+    assert(Webgen::Path.match(path, '/dir'))
+
+    path = '/dir'
+    assert(Webgen::Path.match(path, '/dir/'))
+    assert(Webgen::Path.match(path, '/dir'))
+
+    path = '/'
+    assert(Webgen::Path.match(path, '/'))
+    assert(!Webgen::Path.match(path, ''))
+
+    path = ''
+    assert(!Webgen::Path.match(path, '/'))
   end
 
   def test_introspection

data/test/test_source_filesystem.rb

@@ -1,6 +1,6 @@
 require 'test/unit'
 require 'helper'
-require 'webgen/source/filesystem'
+require 'webgen/source'
 
 class TestSourceFileSystemPath < Test::Unit::TestCase
 

data/test/test_source_stacked.rb

@@ -1,6 +1,6 @@
 require 'test/unit'
 require 'helper'
-require 'webgen/source/stacked'
+require 'webgen/source'
 
 class TestSourceFileSystemStacked < Test::Unit::TestCase
 

data/test/test_sourcehandler_base.rb

@@ -3,11 +3,13 @@ require 'helper'
 require 'webgen/tree'
 require 'webgen/node'
 require 'webgen/path'
-require 'webgen/sourcehandler/base'
+require 'webgen/sourcehandler'
 require 'time'
 
 class TestSourceHandlerBase < Test::Unit::TestCase
 
+  class TestSH; include Webgen::SourceHandler::Base; end
+
   include Test::WebsiteHelper
 
   def setup
@@ -16,6 +18,33 @@ class TestSourceHandlerBase < Test::Unit::TestCase
     @obj.extend(Webgen::SourceHandler::Base)
   end
 
+  def test_create_node
+    tree = Webgen::Tree.new
+    path = path_with_meta_info('/path.html')
+    count = 0
+
+    path.instance_eval { @source_path = '/path'}
+    node = @obj.create_node(tree.dummy_root, path) {|n| count +=1 }
+    assert_equal('/path', node.node_info[:src])
+    assert_equal('Object', node.node_info[:processor])
+    assert_kind_of(Time, node['modified_at'])
+    assert_equal(1, count)
+
+    other_node = @obj.create_node(tree.dummy_root, path) {|n| count +=1 }
+    assert_equal(node, other_node)
+    assert_equal(1, count)
+
+    node.flag(:reinit)
+    other_node = @obj.create_node(tree.dummy_root, path) {|n| count +=1 }
+    assert_equal(node, other_node)
+    assert_equal(2, count)
+
+    path.instance_eval { @source_path = '/other' }
+    other_node = @obj.create_node(tree.dummy_root, path) {|n| count +=1 }
+    assert_equal(node, other_node)
+    assert_equal(2, count)
+  end
+
   def test_node_exists
     @tree = Webgen::Tree.new
     node = Webgen::Node.new(@tree.dummy_root, 'test/', 'test', {'lang' => 'de', :test => :value})

data/test/test_sourcehandler_copy.rb

@@ -1,6 +1,6 @@
 require 'test/unit'
 require 'helper'
-require 'webgen/sourcehandler/copy'
+require 'webgen/sourcehandler'
 require 'stringio'
 
 class TestSourceHandlerCopy < Test::Unit::TestCase

data/test/test_sourcehandler_directory.rb

@@ -1,6 +1,6 @@
 require 'test/unit'
 require 'helper'
-require 'webgen/sourcehandler/directory'
+require 'webgen/sourcehandler'
 require 'stringio'
 
 class TestSourceHandlerDirectory < Test::Unit::TestCase
@@ -14,10 +14,25 @@ class TestSourceHandlerDirectory < Test::Unit::TestCase
     assert_not_nil(node)
     assert_equal(:value, node[:key])
 
+    node.flag(:reinit)
     assert_equal(node, @obj.create_node(root, path_with_meta_info('/dir/', {:key => :other}) {StringIO.new('')}))
     assert_equal(:other, node[:key])
   end
 
+  def test_create_directories
+    @obj = Webgen::SourceHandler::Directory.new
+    shm = Webgen::SourceHandler::Main.new # for using service :create_nodes
+    root = Webgen::Node.new(Webgen::Tree.new.dummy_root, 'test/', 'test')
+    dir = @obj.create_node(root, path_with_meta_info('/dir/'))
+
+    assert_equal(dir, @obj.create_directories(root, '/dir/', path_with_meta_info('/test')))
+    assert_equal(dir, @obj.create_directories(root, 'dir/', path_with_meta_info('/test')))
+    assert_equal(dir, @obj.create_directories(root, 'dir', path_with_meta_info('/test')))
+
+    which = @obj.create_directories(root, 'dir/under/which', path_with_meta_info('/test'))
+    assert_equal(which, @obj.create_directories(root, 'dir/under/which', path_with_meta_info('/test')))
+  end
+
   def test_content
     assert_equal('', Webgen::SourceHandler::Directory.new.content(nil))
   end