rttool 1.0.2.0

data/test/test-rt2html-lib.rb

@@ -0,0 +1,65 @@
+require 'rt/rt2html-lib'
+require 'test/unit'
+
+include RT
+class RT2HTMLVisitorTest < Test::Unit::TestCase
+  def setup
+    @x = RT2HTMLVisitor::new
+    @x.visit(RTParser::parse(<<-END))
+    caption = Test Table
+
+         , Human, == , Dog , ==
+     ||  , M  , F ,M,F
+
+      x  , 1.0 , 2.0, 1.1, 1.2
+      y  , 0.4 , 0.5, 0.3, 0.1
+    END
+  end
+
+  def uncomment(str)
+    rep = "\001"
+    #if str =~ /\A<!--\s+.+?\s+-->\n(.+)<!--\s+.+?\s+-->\n\n\Z/p# POSIX
+    if str.gsub(/\n/, rep) =~ /\A<!--\s+.+?\s+-->#{rep}(.+)<!--\s+.+?\s+-->#{rep}#{rep}\Z/
+      #$1
+      $1.gsub(/#{rep}/, "\n")
+    else
+      assert_fail("not RTBlock format")
+    end
+  end
+
+  def test_setup
+    lines =
+      %Q[<table border="1">\n] +
+      %Q[<caption>Test Table</caption>\n]
+    assert_equal(lines, uncomment(@x.setup))
+  end
+
+  def test_teardown
+    assert_equal(%Q[</table>\n], uncomment(@x.teardown))
+  end
+
+  def test_visit_Header
+    lines =
+      %Q[<thead>\n] +
+      %Q[<tr><th rowspan="2"></th><th colspan="2">Human</th><th colspan="2">Dog</th></tr>\n] +
+      %Q[<tr><th>M</th><th>F</th><th>M</th><th>F</th></tr>\n] +
+      %Q[</thead>\n]
+    assert_equal(lines, uncomment(@x.visit_Header))
+  end
+
+  def test_visit_Body
+    lines =
+      %Q[<tbody>\n] +
+      %Q[<tr><td align="left">x</td><td align="right">1.0</td><td align="right">2.0</td><td align="right">1.1</td><td align="right">1.2</td></tr>\n] +
+      %Q[<tr><td align="left">y</td><td align="right">0.4</td><td align="right">0.5</td><td align="right">0.3</td><td align="right">0.1</td></tr>\n] +
+      %Q[</tbody>\n]
+    assert_equal(lines, uncomment(@x.visit_Body))
+  end
+
+  def test0
+    assert_equal(RT::RTCell, RT::RTCell::new("a").class)
+  end
+
+end
+
+

data/test/test-rtparser.rb

@@ -0,0 +1,209 @@
+#!/usr/bin/ruby
+require 'rt/rtparser'
+require 'test/unit'
+require 'nkf'
+
+include RT
+
+class RTCellTest < Test::Unit::TestCase
+  def test_equal
+    assert_equal(RTCell::new(""), RTCell::new("", :left))
+    assert_equal(RTCell::new(""), RTCell::new("", :right))
+    assert_equal(RTCell::new(""), RTCell::new("", :center))
+  end
+  def test_align
+    assert_equal(:left,   RTCell::new("value").align)
+    assert_equal(:left,   RTCell::new("value", :left).align)
+    assert_equal(:left,   RTCell::new("1", :left).align)
+    assert_equal(:center, RTCell::new("value", :center).align)
+    assert_equal(:center, RTCell::new("1.90", :center).align)
+    assert_equal(:right,  RTCell::new("1.1kg").align)
+    assert_equal(:right,  RTCell::new("value", :right).align)
+    assert_raises(RuntimeError){ RTCell::new("value", :error)}
+  end
+end
+
+                 
+module CellShortcut
+  def c(x)
+    RTCell::new(x,:center)
+  end
+
+  def l(x)
+    RTCell::new(x, :left)
+  end
+
+  def r(x)
+    RTCell::new(x, :right)
+  end
+  private :c, :l, :r
+end
+
+class RTParserTest < Test::Unit::TestCase
+  def setup
+    @x = RTParser::new
+  end
+    
+  def test_blocks
+    blocks = lambda{|str| @x.make_blocks(str).blocks}
+
+    # no block
+    assert_equal([[], [], []], blocks.call(""))
+    # 1 block: body
+    assert_equal([[], [], ["body"]], blocks.call("body"))
+    # 2 blocks: config body
+    assert_equal([["config"], [], ["body"]] ,blocks.call("config\n\nbody"))
+    # 3 blocks: config header body
+    assert_equal([["config1", "config2"], ["header"], ["body"]], blocks.call("config1\nconfig2\n\nheader\n\nbody"))
+    assert_raises(RuntimeError){ blocks.call("config\n\nheader\n\nbody\n\nextra")}
+  end
+  
+  def test_parse_config
+    dc = RTParser::DefaultConfig
+    pc = lambda{|config_line| @x.parse_config(config_line).config}
+    assert_equal(dc, pc.call([]))
+    assert_equal(dc.update("p1"=>"v1", "p2"=>"v2", "p3"=>"v3"),
+                 pc.call(["p1 = v1", "#comment", " p2= v2", "p3=v3"]))
+    assert_equal(dc.update("p1"=>"\t"), pc.call(["p1 = \t"]))
+    assert_raises(RuntimeError){ pc.call(["p1 = v1", "error"])}
+  end
+  
+  include CellShortcut
+
+  def test_parse_header
+    ph = lambda{|header_line| @x.parse_header(header_line).header}
+    assert_equal([ [c(""),  c("wide"),   "==",  c("std")],
+                   [c("x"), c("1"),    c("x2"), c("tall")],
+                   [c(""),  c("y1"),   c("y2"),   "||"]],
+                 ph.call([ "    , wide, == , std",
+                           "#comment",
+                           " x  , 1   ,  x2, tall",
+                           "  ,   y1  ,  y2, ||  "]))
+    
+    assert_equal([[c(""), c("x"), c("y"), c("z")]],
+                 ph.call(["\t,x\t ,y \t,z"]))
+    assert_equal([[c(""), c("X"), c("Y"), c("Z")]],
+                 ph.call(["\tX\t\tY\tZ"]))
+    assert_equal([[c(""), c("1999"), c(""), c("2000"), c("")]],
+                 ph.call([",\t1999,\t,\t2000,"]))
+
+    assert_raises(RuntimeError){
+                 ph.call([ "  , wide,  == , std",
+                           "#comment",
+                           "  , x1  ,  differenterror ",
+                           ",   y1  ,  y2,  ==   "])}
+  end
+  
+  def test_parse_body
+    pb = lambda{|body_line| @x.parse_body(body_line).body}
+    assert_equal([ [c(""), l("wide"),    "==",  r("-101")],
+                   [c(""), r("2.2kg"), r("2L"), l("tall")],
+                   [c(""), l("y1"),    l("y2"),   "||"],
+                   [l("a"),l("b"),     c(""),   c("")]],
+                 pb.call([ "#comment-----------",
+                           "  , wide,  == , -101",
+                           "  , 2.2kg,  2L, tall",
+                           ",   y1  ,   y2, ||",
+                           "a, b,,"]))
+  end
+  
+  def test_calc_span
+    tbl = [ [c(""), l("wide"),    "==",    "=="],
+            [c(""), r("2.2kg"), r("2L"), l("tall")],
+            [c(""), l("y1"),    l("y2"),   "||"]]
+
+    @x.calc_span(tbl)
+    assert_equal(1, tbl[0][0].rowspan)
+    assert_equal(1, tbl[0][0].colspan)
+    assert_equal(3, tbl[0][1].colspan)
+    assert_equal(2, tbl[1][3].rowspan)
+  end
+    
+  
+    
+end
+
+class RTParseTest < Test::Unit::TestCase
+  include CellShortcut
+  module CRLF
+    include NKF
+    def to_unix(str)
+      nkf("-Lu", str)
+    end
+
+    def to_dos(str)
+      nkf("-Lw", str)
+    end
+
+    def to_mac(str)
+      nkf("-Lm", str)
+    end
+  end
+
+  def setup
+    @rt = <<-END
+delimiter = ;
+rowspan = @
+
+    ; x ; @
+
+z   ; 1 ; 2
+zz  ; 3 ; 4
+END
+  end
+
+  def check
+    assert_equal(';', @x.config['delimiter'])
+    assert_equal('@', @x.config['rowspan'])
+    assert_equal([[c(""), c("x"), "@"]], @x.header)
+    assert_equal([ [l("z"), r("1"), r("2")],
+                   [l("zz"),r("3"), r("4")],
+                 ], @x.body)
+  end
+                 
+  include CRLF
+
+  def test_unix
+    @x = RTParser::parse(to_unix(@rt))
+    check
+  end
+
+  def test_dos
+    @x = RTParser::parse(to_dos(@rt))
+    check
+  end
+
+  def test_mac
+    @x = RTParser::parse(to_mac(@rt))
+    check
+  end
+
+end
+
+
+class RTParseWithEscapeTest
+  def test__parse__with_escape1
+    x = RTParser::parse <<-'END'
+delimiter = ;
+escape = %
+
+%z   ; %;1 ; 2
+END
+    
+    assert_equal(';', x.config['delimiter'])
+    assert_equal([ [l("%z"), l(";1"), r("2")],], x.body)
+  end
+                 
+  def test__parse__with_escape2
+    x = RTParser::parse <<-'END'
+delimiter = ;
+escape = \
+
+\z   ; \;1 ; 2
+END
+    
+    assert_equal(';', x.config['delimiter'])
+    assert_equal([ [l("\\z"), l(";1"), r("2")],], x.body)
+  end
+                 
+end

data/test/test.rb

@@ -0,0 +1,88 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rttool-sub'
+
+module Chdir
+  def pushd
+    @pwd = Dir.pwd
+    Dir.chdir File.dirname(File.expand_path(__FILE__))
+  end
+
+  def popd
+    Dir.chdir @pwd
+  end
+  def setup
+    pushd
+  end
+end
+
+class TestRTtool < Test::Unit::TestCase
+=begin eev
+= How to make test files
+ (eecd2)
+cd ../examples/; rt2 -r rt/rt2html-lib test1.rt > test1.html
+cd ../examples/; rt2 -r rt/rt2html-lib test2.rt > test2.html
+cd ../examples/; rt2 -r rt/rt2html-lib escape.rt > escape.html
+cd ../examples/; rd2  --with-part=RT:rt rttest.rd > rttest.html
+=end
+  include Chdir
+  def teardown
+    rt2html
+    popd
+  end
+
+  def rt2html
+    @html = "#{@name}.html"
+    @rt = "#{@name}.rt"
+    AssertFile.basedir = "../examples"
+    AssertFile.transaction(@html) do |html|
+      system_safe "cd ../examples; ruby -I../lib ../bin/rt/rt2 -r rt/rt2html-lib #{@rt} > #{html}"
+    end
+  end
+
+#
+  def test__test1
+    # (find-filez "test1.rt test1.html" "../examples/")
+    @name = "test1"
+  end
+#
+
+  def test__test2
+    # (find-filez "test2.rt test2.html" "../examples/")
+    @name = "test2"
+  end
+
+  def test__escape
+    # (find-filez "escape.rt escape.html" "../examples/")
+    @name = "escape"
+  end
+
+end
+
+
+class TestRDRT2 < Test::Unit::TestCase
+
+  include Chdir
+
+  def teardown
+    rdrt2
+    popd
+  end
+
+  def rdrt2
+    ENV['RUBYLIB'] = "../lib"
+    @html = "#{@name}.html"
+    @rd = "#{@name}.rd"
+    AssertFile.basedir = "../examples"
+    AssertFile.transaction(@html) do |html|
+      system_safe "cd ../examples; ruby ../bin/rt/rdrt2  #{@rd} > #{html}"
+    end
+  end
+
+  def test_rttest
+    # (find-filez "rttest.rd rttest.html" "../examples/")
+    @name = "rttest"
+  end
+  
+  
+end

metadata

@@ -0,0 +1,75 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.2
+specification_version: 1
+name: rttool
+version: !ruby/object:Gem::Version 
+  version: 1.0.2.0
+date: 2007-02-21 00:00:00 +09:00
+summary: Simple table generator
+require_paths: 
+- lib
+email: zn@mbf.nifty.com
+homepage: http://raa.ruby-lang.org/project/rttool/
+rubyforge_project: rwiki
+description: 
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: false
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+post_install_message: 
+authors: 
+- rubikitch
+- Kazuhiro NISHIYAMA
+files: 
+- ChangeLog
+- GPL
+- bin/rt/rdrt2
+- bin/rt/rt2
+- examples/easiest.html
+- examples/easiest.rt
+- examples/escape.html
+- examples/escape.rt
+- examples/rttest.html
+- examples/rttest.rd
+- examples/test1.html
+- examples/test1.rt
+- examples/test2.html
+- examples/test2.rt
+- lib/rd/rt-filter.rb
+- lib/rt/rt2html-lib.rb
+- lib/rt/rt2txt-lib.rb
+- lib/rt/rtparser.rb
+- lib/rt/rtvisitor.rb
+- lib/rt/w3m.rb
+- rttool.en.html
+- rttool.en.rd
+- rttool.ja.html
+- rttool.ja.rd
+- test/rttool-sub.rb
+- test/test-rt2html-lib.rb
+- test/test-rtparser.rb
+- test/test.rb
+test_files: []
+
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: 
+- rt/rdrt2
+- rt/rt2
+extensions: []
+
+requirements: []
+
+dependencies: []
+