amrita2 1.9.6 → 2.0.0

data/specs/gettext/erb_gettext.rb

@@ -0,0 +1,42 @@
+require 'rexml/document'
+require 'amrita2'
+require 'amrita2/testsupport'
+require 'amrita2/template'
+require 'amrita2/gettext'
+require 'gettext/utils'
+require 'fileutils'
+
+include Amrita2
+include Amrita2::Filters
+include Amrita2::GetTextBridge
+
+require File::dirname(__FILE__) + '/gettext_util'
+
+$KCODE='u'
+
+context "gettext erb element" do
+  include Amrita2::Runtime
+  include Amrita2GetTextTestSupport
+
+  specify "simple erb element" do
+    domain = "erb1"
+    temp = "/tmp/amrita_gettext_test.a2html"
+    Locale.set_current("ja", "JP", "utf8")
+    b = binding
+    test_gettext(
+                 domain,
+                 temp,
+                 "<span><![CDATA[ <%=_('test message printed in ERB')%> ]]></span>", 
+                 [
+                   %r[#: #{temp}:-],
+                   %r[msgid "test message printed in ERB"],
+                 ],
+                 b, 
+                 "ERBで出力したテストメッセージ"
+                 ) do |l|
+      l.sub!(%r[msgid "test message printed in ERB"\nmsgstr ""]m, 
+              %[msgid "test message printed in ERB"\nmsgstr "ERBで出力したテストメッセージ"])
+      l
+    end
+  end
+end

data/specs/gettext/gettext_util.rb

@@ -0,0 +1,65 @@
+
+module Amrita2GetTextTestSupport
+
+  def redirect_stderr
+    stderr_sv = STDERR.dup  
+    STDERR.reopen("/dev/null") 
+    yield
+    STDERR.flush             
+    STDERR.reopen(stderr_sv)
+  end
+  
+  def test_gettext(domain, fname, template, po_matchers, data, ja_result)
+    FileUtils::rm_rf("locale")
+    FileUtils::rm_rf("po")
+    FileUtils::rm_rf(fname)
+
+    File::open(fname, "w") do |f|
+      f.puts template
+    end
+
+
+    redirect_stderr do 
+      GetText.update_pofiles(domain,
+                             [fname],
+                             "#{domain} 1.0.0"  
+                             )
+    end
+    po = File::open("po/#{domain}.pot").read
+
+    po_matchers.each do |m|
+      po.should match(m)
+    end
+
+    FileUtils::mkdir_p("po/ja")
+    File::open("po/#{domain}.pot") do |potf|
+      File::open("po/ja/#{domain}.po", "w") do |pof|
+        l = yield(potf.read) 
+        pof.puts l
+      end
+    end
+
+    redirect_stderr do 
+      GetText.create_mofiles(true, "po", "locale")
+    end
+
+    Locale.set_current("ja", "JP", "utf8")
+    ENV['GETTEXT_PATH'] = "./locale"
+
+    t = Template.new(template) do |e, src, filters|
+      filters << Amrita2::Filters::GetTextFilter.new
+    end
+
+    t.text_domain = domain
+    if data.kind_of?(Binding)
+      eval "bindtextdomain(#{domain.inspect})", data
+    end
+    t.test_with(data) do |result|
+      result.strip.should_be_samexml_as ja_result
+    end
+  ensure
+    FileUtils::rm_rf("locale")
+    FileUtils::rm_rf("po")
+    FileUtils::rm_rf(fname)
+  end
+end

data/specs/gettext/static_text.rb

@@ -0,0 +1,103 @@
+require 'rexml/document'
+require 'amrita2'
+require 'amrita2/testsupport'
+require 'amrita2/template'
+require 'amrita2/gettext'
+require 'gettext/utils'
+require 'fileutils'
+
+include Amrita2
+include Amrita2::Filters
+include Amrita2::GetTextBridge
+
+require File::dirname(__FILE__) + '/gettext_util'
+
+$KCODE='u'
+
+context "gettext static element" do
+  include Amrita2GetTextTestSupport
+  TEMPFILE='/tmp/test.a2html'
+
+  specify "every text becomes an entry of po" do
+    Locale.set_current("ja", "JP", "utf8")
+    test_gettext("test1",
+                 TEMPFILE,
+                 "<span>test message</span>", 
+                 [
+                   %r[#: /tmp/test.a2html:-],
+                   %r[msgid "test message"],
+                 ],
+                 {}, 
+                 "テストメッセージ"
+                 ) do |l|
+      l.sub!(%r[msgid "test message"\nmsgstr ""]m, 
+              %[msgid "test message"\nmsgstr "テストメッセージ"])
+      l
+    end
+  end
+
+  specify "strip messages" do
+    Locale.set_current("ja", "JP", "utf8")
+    test_gettext("test1",
+                 TEMPFILE,
+                 "<span> test message </span>", 
+                 [
+                   %r[#: /tmp/test.a2html:-],
+                   %r[msgid "test message"],
+                 ],
+                 {}, 
+                 "テストメッセージ"
+                 ) do |l|
+      l.sub!(%r[msgid "test message"\nmsgstr ""]m, 
+              %[msgid "test message"\nmsgstr "テストメッセージ"])
+      l
+    end
+  end
+
+  specify "two messages" do
+    test_gettext("test3",
+                 TEMPFILE,
+                 "<div><span> test message1 </span><span>test message2</span></div>", 
+                 [
+                   %r[#: /tmp/test.a2html:-],
+                   %r[msgid "test message1"],
+                   %r[msgid "test message2"],
+                 ],
+                 {}, 
+                 "<div>あああいいい</div>"
+                 ) do |l|
+      l.sub!(%r[msgid "test message1"\nmsgstr ""]m, 
+              %[msgid "test message1"\nmsgstr "あああ"])
+      l.sub!(%r[msgid "test message2"\nmsgstr ""]m, 
+              %[msgid "test message2"\nmsgstr "いいい"])
+      l
+    end
+  end
+
+end
+
+context "format with gettext" do
+  include Amrita2GetTextTestSupport
+
+  specify "format1" do
+    Locale.set_current("ja", "JP", "utf8")
+    test_gettext(
+                 "format1",
+                 TEMPFILE,
+                 "<span>%{filename} is %{filesize} byte</span>", 
+                 [
+                   %r[#: #{TEMPFILE}:-],
+                   %r[msgid "%\{filename\} is %\{filesize\} byte"],
+                 ],
+                 {
+                   :filename => "foo.rb", 
+                   :filesize => 100
+                 },
+                 "foo.rbの大きさは100バイトです"
+                 ) do |l|
+      l.sub!(%r[msgid "%\{filename\} is %\{filesize\} byte"\nmsgstr ""]m, 
+              %[msgid "%\{filename\} is %\{filesize\} byte"\nmsgstr "%{filename}の大きさは%{filesize}バイトです"])
+      l
+    end
+  end
+end

data/specs/impl/code_generator.rb

@@ -0,0 +1,87 @@
+
+require 'amrita2'
+
+context "" do
+  include Amrita2::Runtime
+  setup do
+    @g = Amrita2::Core::CodeGenerator.new
+  end
+
+  def cg_result
+    __binding__ = binding
+    eval @g.result
+  end
+
+  def cg_result_for_class(value)
+    cls = Class.new
+    cls.module_eval @g.result
+    cls.new.render_with(value)
+  end
+
+  specify "code" do
+    @g.code "1"
+    cg_result.should == 1
+  end
+
+  specify "put_constant" do
+    @g.with_stream do
+      @g.put_constant 1
+    end
+    cg_result.should == "1"
+  end
+
+  specify "if true" do
+    @g.with_stream do
+      @g.if_("true") do
+        @g.put_constant 2
+      end
+    end
+    cg_result.should == "2"
+  end
+
+  specify "if false " do
+    @g.with_stream do
+      @g.if_("false") do
+        @g.put_constant 2
+      end
+    end
+    cg_result.should == ""
+  end
+
+  specify "case " do
+    @g.with_stream do
+      @g.case_("1") do
+        @g.when_("String") do
+          @g.put_constant 1
+        end
+        @g.when_("Integer") do
+          @g.put_constant 2
+        end
+      end
+    end
+    cg_result.should == "2"
+  end
+
+  specify "def method" do
+    @g.def_method("render_with", "value") do
+      @g.put_constant("<")
+      @g.code("value +=1")
+      @g.put_expression("(value * 2).to_s")
+      @g.put_constant(">")
+    end
+    cg_result_for_class(3).should == "<8>"
+  end
+  
+  specify "multi stream" do
+    @g.with_stream do
+      @g.put_constant("abc")
+      @g.with_stream(:aaa) do 
+        @g.put_constant("123")
+        @g.put_constant("456")
+      end
+      @g.put_constant("def")
+      @g.put_stream(:aaa)
+    end
+    cg_result.should == "abcdef123456"
+  end
+end

data/specs/impl/dynamic_element.rb

@@ -0,0 +1,92 @@
+
+require 'rexml/element'
+require 'amrita2'
+
+include Amrita2
+
+context "check hpricot" do
+  specify "no child" do
+    text = %q[<span am:src='aaa' />]
+    e = Hpricot.make(text)[0]
+    e.enum_for(:each_child).to_a.size.should == 0
+  end
+  
+  specify "one child" do
+    text = %q[<span am:src='aaa'><span am:src='bbb' /></span>]
+    e = Hpricot.make(text)[0]
+    e.enum_for(:each_child).to_a.size.should == 1
+  end
+  
+  specify "two children" do
+    text = %q[<span am:src='aaa'><span am:src='bbb' /><span am:src='ccc' /></span>]
+    e = Hpricot.make(text, :xml=>true)[0]
+    e.children.size == 2
+    e.enum_for(:each_child).to_a.size.should == 2
+  end
+end
+
+context "has_dynamic?" do
+  specify "single" do
+    text = %q[<span am:src='aaa' />]
+    t = Amrita2::Template.new(text)
+    t.setup
+    t.root.has_dynamic?.should == true
+    t.root.children.first.has_dynamic?.should == false
+  end
+  
+  specify "nest" do
+    text = %q[<span am:src='aaa'><span am:src='bbb' /></span>]
+    t = Template.new(text)
+    t.setup
+    t.root.has_dynamic?.should == true
+    t.root.children.first.has_dynamic?.should == true
+    t.root.children.first.children.first.has_dynamic?.should == false
+  end
+  
+  specify "nest2" do
+    text = %q[<span am:src='aaa'><span am:src='bbb' /><span am:src='ccc' /></span>]
+    t = Template.new(text)
+    t.setup
+    t.root.has_dynamic?.should == true
+    aaa = t.root.children.first
+    aaa.element.children.size.should == 2
+    aaa.children.size.should == 2
+    bbb, ccc = *aaa.children
+    bbb.should be_dynamic
+    ccc.should be_dynamic
+  end
+  
+  specify "has text" do
+    text = %q[<span am:src='aaa'>text</span>]
+    t = Template.new(text)
+    t.setup
+    t.root.has_dynamic?.should == true
+    t.root.children.first.has_dynamic?.should == false
+  end
+  
+  specify "has erb" do
+    text = %q[<span am:src='aaa'><% 1 %></span>]
+    t = Template.new(text)
+    t.setup
+    t.root.has_dynamic?.should == true
+    t.root.children.first.has_dynamic?.should == true
+  end
+end
+
+context "has_ruby?" do
+  specify "single" do
+    text = %q[<span am:src='aaa' />]
+    t = Amrita2::Template.new(text)
+    t.setup
+    t.root.has_ruby?.should == nil
+    t.root.children.first.has_ruby?.should == nil
+  end
+  
+  specify "has erb" do
+    text = %q[<span am:src='aaa'><% 1 %></span>]
+    t = Template.new(text)
+    t.setup
+    t.root.has_ruby?.should == true
+    t.root.children.first.has_ruby?.should == true
+  end
+end

data/specs/impl/hash_delegator.rb

@@ -0,0 +1,57 @@
+require 'amrita2'
+
+context "Hash Delegator" do
+  include Amrita2
+
+  specify "delegate to Hash" do
+    h = { :one => 1 }
+    c = Amrita2::HashDelegator.new(h) do
+      { 
+        :two=>2,
+      }
+    end
+    c.one.should == 1
+    c.two.should == 2
+    c[:one].should == 1
+    c[:two].should == 2
+    c.three.should be_nil
+    c[:three].should be_nil
+  end
+  
+  specify "delegate to Struct" do
+    s = Struct.new(:one).new(1)
+    c = Amrita2::HashDelegator.new(s) do
+      { 
+        :two=>2,
+      }
+    end
+    c.one.should == 1
+    c.two.should == 2
+    c[:one].should == 1
+    c[:two].should == 2
+    proc { c.three }.should raise_error
+    c[:three].should be_nil
+  end
+  
+  specify "double delegate to Struct" do
+    s = Struct.new(:one).new(1)
+    c1 = Amrita2::HashDelegator.new(s) do
+      { 
+        :two=>2,
+      }
+    end
+    c2 = Amrita2::HashDelegator.new(c1) do
+      { 
+        :three=>3,
+      }
+    end
+    c2.one.should == 1
+    c2.two.should == 2
+    c2[:one].should == 1
+    c2[:two].should == 2
+    c2.three.should == 3
+    c2[:three].should == 3
+    proc { c2.four }.should raise_error
+    c2[:four].should be_nil
+  end
+end

data/specs/impl/parse_opt.rb

@@ -0,0 +1,34 @@
+
+require 'rexml/document'
+require 'amrita2'
+require 'amrita2/testsupport'
+
+include Amrita2
+include Amrita2::Util
+
+context "parse_opt" do
+  include OptionSupport
+  setup do
+    doc = REXML::Document.new "<div class='aaa'><a href='bbb' title='ccc'>ddd</a></div>"
+    @e = doc.root
+  end
+  
+  specify "give simbols" do
+    parse_opt().should == {}
+    parse_opt(:aaa).should == {:aaa=>:aaa}
+    parse_opt(:aaa, :bbb).should == {:aaa=>:aaa, :bbb=>:bbb}
+  end
+  
+  specify "give hash" do
+    parse_opt(:aaa=>:aaa).should == {:aaa=>:aaa}
+    parse_opt(:aaa=>"aaa").should == {:aaa=>"aaa"}
+    parse_opt(:aaa=>"aaa", :bbb=>:bbb).should == {:aaa=>"aaa", :bbb=>:bbb}
+  end
+  
+  specify "give hash and simbol" do
+    parse_opt(:aaa, :bbb=>:bbb).should == {:aaa=>:aaa, :bbb=>:bbb}
+    parse_opt(:aaa, :bbb=>"bbb").should == {:aaa=>:aaa, :bbb=>"bbb" }
+    parse_opt(:xxx, :aaa=>"aaa", :bbb=>:bbb).should == {:aaa=>"aaa", :bbb=>:bbb, :xxx=>:xxx}
+  end
+end
+