amrita2 1.9.6 → 2.0.0

data/sample/login_engine/test/unit/user_test.rb

@@ -0,0 +1,116 @@
+
+require File.dirname(__FILE__) + '/../test_helper'
+class UserTest < Test::Unit::TestCase
+
+  # load the fixture into the developer-specified table using the custom
+  # 'fixture' method.
+  fixtures :users
+  #fixture :users, :table_name => LoginEngine.config(:user_table), :class_name => "User"
+
+  def setup
+    LoginEngine::CONFIG[:salt] = "test-salt"
+  end
+
+  def test_auth
+    assert_equal users(:bob), User.authenticate("bob", "atest")
+    assert_nil User.authenticate("nonbob", "atest")
+  end
+
+
+  def test_passwordchange
+
+    users(:longbob).change_password("nonbobpasswd")
+    users(:longbob).save
+    assert_equal users(:longbob), User.authenticate("longbob", "nonbobpasswd")
+    assert_nil User.authenticate("longbob", "alongtest")
+    users(:longbob).change_password("alongtest")
+    users(:longbob).save
+    assert_equal users(:longbob), User.authenticate("longbob", "alongtest")
+    assert_nil User.authenticate("longbob", "nonbobpasswd")
+
+  end
+
+  def test_disallowed_passwords
+
+    u = User.new
+    u.login = "nonbob"
+    u.email = "bobs@email.com"
+
+    u.change_password("tiny")
+    assert !u.save
+    assert u.errors.invalid?('password')
+
+    u.change_password("hugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehugehuge")
+    assert !u.save
+    assert u.errors.invalid?('password')
+
+    u.change_password("")
+    assert !u.save
+    assert u.errors.invalid?('password')
+
+    u.change_password("bobs_secure_password")
+    assert u.save
+    assert u.errors.empty?
+
+  end
+
+  def test_bad_logins
+
+    u = User.new
+    u.change_password("bobs_secure_password")
+    u.email = "bobs@email.com"
+
+    u.login = "x"
+    assert !u.save
+    assert u.errors.invalid?('login')
+
+    u.login = "hugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhugebobhug"
+    assert !u.save
+    assert u.errors.invalid?('login')
+
+    u.login = ""
+    assert !u.save
+    assert u.errors.invalid?('login')
+
+    u.login = "okbob"
+    assert u.save
+    assert u.errors.empty?
+
+  end
+
+
+  def test_collision
+    u = User.new
+    u.login = "existingbob"
+    u.change_password("bobs_secure_password")
+    assert !u.save
+  end
+
+
+  def test_create
+    u = User.new
+    u.login = "nonexistingbob"
+    u.change_password("bobs_secure_password")
+    u.email = "bobs@email.com"
+
+    assert u.save
+
+  end
+
+  def test_email_should_be_nominally_valid
+    u = User.new
+    u.login = "email_test"
+    u.change_password("email_test_password")
+
+    assert !u.save
+    assert u.errors.invalid?('email')
+
+    u.email = "invalid_email"
+    assert !u.save
+    assert u.errors.invalid?('email')
+
+    u.email = "valid@email.com"
+    assert u.save
+  end
+
+end

data/sample/login_engine/vendor/plugins/amrita2/init.rb

@@ -0,0 +1,6 @@
+# plugin init files for Ruby On Rails
+
+require 'amrita2/rails_bridge'
+
+ActionView::Base.register_template_handler "a2html", Amrita2View::Base
+

data/specs/attribute.rb

@@ -0,0 +1,201 @@
+
+require 'rexml/document'
+require 'amrita2'
+require 'amrita2/testsupport'
+
+include Amrita2::Filters
+include Amrita2::Runtime
+
+context "Attribute" do
+  
+  specify "set attribute" do
+    #t = Amrita2::Template.new('<div><a am:src="aaa|Attr[:href]">aaa</a></div>')
+    t = Amrita2::Template.new <<-END
+      <<div<
+        <<a :aaa|Attr[:href]<
+          xyz
+    END
+    t.test_with(:aaa => {
+            :href=>"http://amrita2.rubyforge.org/",
+                }
+                ) do |r|
+      r.should_be_samexml_as '<div><a href="http://amrita2.rubyforge.org/">xyz</a></div>'
+    end
+  end
+  
+  specify "delete attribute" do
+    #t = Amrita2::Template.new('<div><a class="highlight" am:src="aaa|Attr[:href, :class, :body]">aaa</a></div>')
+    t = Amrita2::Template.new <<-END
+      <<div<
+        <<a.highlight :aaa | Attr[:href, :class, :body] <
+          aaa
+    END
+    t.test_with(:aaa => {
+                  :href=>"http://amrita2.rubyforge.org/",
+                  :class=>true,
+                  :body=>"Amrita"
+                }
+                ) do |r|
+      r.should_be_samexml_as '<div><a class="highlight" href="http://amrita2.rubyforge.org/">Amrita</a></div>'
+    end
+    t.test_with(:aaa => {
+                  :href=>"http://amrita2.rubyforge.org/",
+                  :class=>false,
+                  :body=>"Amrita"
+                }
+                ) do |r|
+      r.should_be_samexml_as '<div><a href="http://amrita2.rubyforge.org/">Amrita</a></div>'
+    end
+    t.test_with(:aaa => {
+                  :href=>"http://amrita2.rubyforge.org/",
+                  :class=>nil,
+                  :body=>"Amrita"
+                }
+                ) do |r|
+      r.should_be_samexml_as '<div><a href="http://amrita2.rubyforge.org/">Amrita</a></div>'
+    end
+  end
+  
+  specify "delete attribute2" do
+    t = Amrita2::Template.new('<<div#cart : | Attr[:style] >>')
+    t.test_with(:style => "display: none") do |r|
+      r.should_be_samexml_as '<div id="cart" style="display: none" />'
+    end
+    t.test_with(:style => nil) do |r|
+      r.should_be_samexml_as '<div id="cart" />'
+    end
+    t.test_with(:style => false) do |r|
+      r.should_be_samexml_as '<div id="cart" />'
+    end
+    t.test_with(:style => "") do |r|
+      r.should_be_samexml_as '<div id="cart" style=""/>'
+    end
+  end
+  
+  specify "change attribute key" do
+    t = Amrita2::Template.new('<div><a am:src="aaa|Attr[:body=>true, :href=>:url]">aaa</a></div>')
+    t.test_with(:aaa => {
+                    :url=>"http://amrita2.rubyforge.org/",
+                    :body=>"Amrita"
+                  }
+                  ) do |r|
+      r.should_be_samexml_as '<div><a href="http://amrita2.rubyforge.org/">Amrita</a></div>'
+    end
+  end
+  
+  specify "change body key" do
+    t = Amrita2::Template.new('<div><a am:src="aaa|Attr[:href=>:url, :body=>:text]">aaa</a></div>')
+    t.test_with(:aaa => {
+                    :url=>"http://amrita2.rubyforge.org/",
+                    :text=>"Amrita"
+                  }
+                  ) do |r|
+      r.should_be_samexml_as '<div><a href="http://amrita2.rubyforge.org/">Amrita</a></div>'
+    end
+  end
+  
+  specify "inner dynamic element" do
+    #text = '<div><a am:src="aaa|Attr[:href=>:url]"><span am:src="inner"/></a></div>'
+    text = <<-END
+      <<div<
+        <<a :aaa | Attr[:href=>:url]<
+          <<:inner>>
+    END
+    t = Amrita2::Template.new(text)
+    t.test_with(:aaa => {
+                  :url=>"http://amrita2.rubyforge.org/",
+                  :inner=>"Amrita"
+                }
+                ) do |r|
+      r.should_be_samexml_as '<div><a href="http://amrita2.rubyforge.org/">Amrita</a></div>'
+    end
+    
+    text = '<div><a am:src="aaa|Attr[:href=>:url]">(<em><span am:src="inner"/></em>)</a></div>'
+    t = Amrita2::Template.new(text)
+    t.test_with(:aaa => {
+                  :url=>"http://amrita2.rubyforge.org/",
+                  :inner=>"Amrita"
+                }
+                ) do |r|
+      r.should_be_samexml_as '<div><a href="http://amrita2.rubyforge.org/">(<em>Amrita</em>)</a></div>'
+    end
+  end
+  
+  specify "render with struct" do
+    t = Amrita2::Template.new('<div><a am:src="aaa|Attr[:href=>:url, :body=>:text]">aaa</a></div>')
+    s = Struct.new(:url, :text)
+    data = s.new("http://amrita2.rubyforge.org/", "Amrita")
+    t.test_with(:aaa => data) do |r|
+      r.should_be_samexml_as '<div><a href="http://amrita2.rubyforge.org/">Amrita</a></div>'
+    end
+  end
+  
+  specify "static and dynamic attribute" do
+    t = Amrita2::Template.new('<div><a class="cls1" am:src="aaa|Attr[:href, :body]">aaa</a></div>')
+    t.render_with(:aaa => {
+            :href=>"http://amrita2.rubyforge.org/",
+            :body=>"Amrita"
+        }
+    ).should_be_samexml_as '<div><a href="http://amrita2.rubyforge.org/" class="cls1">Amrita</a></div>'
+  end
+  
+  specify "render with binding" do 
+    text = '<div><a class="cls1" am:filter="Attr[:body=>true, :href=>:url1]">aaa</a></div>'
+    t = Amrita2::Template.new(text, :inline_ruby)
+    @url1="http://amrita2.rubyforge.org/"
+    @body="Amrita"
+    t.test_with(binding) do |r|
+      r.should_be_samexml_as '<div><a href="http://amrita2.rubyforge.org/" class="cls1">Amrita</a></div>'
+    end
+  end    
+
+  specify "render with binding and local variables" do 
+    text = '<div><a class="cls1" am:filter="Attr[:body=>true, :href=>:url1]">aaa</a></div>'
+    t = Amrita2::Template.new(text, :inline_ruby)
+     url1="http://amrita2.rubyforge.org/"
+     body="Amrita"
+     t.test_with(binding) do |r|
+       r.should_be_samexml_as '<div><a href="http://amrita2.rubyforge.org/" class="cls1">Amrita</a></div>'
+     end
+  end
+  
+  specify "pickup" do
+    #t = Amrita2::Template.new('<div><a am:src="aaa|NVarForAttr[:url]" href="$1"><span am:src="body" /></a></div>')
+    t = Amrita2::Template.new <<-END
+      <<div<
+        <<a href="$1" :aaa|NVarForAttr[:url] <
+          <<:body>>
+    END
+    t.test_with(:aaa => {
+                    :url=>"http://amrita2.rubyforge.org/",
+                    :body=>"Amrita"
+                  }
+                  ) do |r|
+      r.should_be_samexml_as '<div><a href="http://amrita2.rubyforge.org/">Amrita</a></div>'
+    end
+  end
+  
+  specify "pickup with erb" do
+    #t = Amrita2::Template.new('<div><a am:src="aaa|NVarForAttr[:url]" href="$1"><%= $_[:body] %></a></div>')
+    t = Amrita2::Template.new <<-END
+      <<div<
+        <<a href="$1" :aaa|NVarForAttr[:url] <
+          %= $_[:body]
+    END
+    t.test_with(:aaa => {
+                    :url=>"http://amrita2.rubyforge.org/",
+                    :body=>"Amrita"
+                  }
+                  ) do |r|
+      r.should_be_samexml_as '<div><a href="http://amrita2.rubyforge.org/">Amrita</a></div>'
+    end
+  end
+  
+  specify "Nvar with $n" do
+    t = Amrita2::Template.new('<a am:filter="NVar[:aaa]" href="$1" class="$$1">$$2</a>')
+    t.test_with(:aaa => 'aaa') do |r|
+      r.should_be_samexml_as "<a href='aaa' class='$1'>$2</a>"
+    end
+  end
+end
+

data/specs/datatypes.rb

@@ -0,0 +1,231 @@
+require 'rexml/document'
+require 'rexml/element'
+require 'amrita2'
+require 'amrita2/testsupport'
+
+include Amrita2
+include Amrita2::Filters
+include Amrita2::Runtime
+
+context "DictionaryData" do
+  setup do
+    @t = Amrita2::Template.new('<span am:src="aaa" />')
+  end
+  
+  specify "Hash" do
+    result = "Amrita2"
+    @t.render_with(:aaa=>'Amrita2').should_be_samexml_as(result)
+  end
+  specify "Struct" do
+    result = "Amrita2"
+    @t.render_with(Struct.new(:aaa).new('Amrita2')).should_be_samexml_as(result)
+  end
+  specify "Binding is a DictionaryData too" do
+    aaa = 'Amrita2'
+    @t.render_with(binding).should_be_samexml_as('Amrita2')
+  end
+  
+  specify "Binding and instance variable" do
+    @aaa = 'Amrita2'
+    @t.render_with(binding).should_be_samexml_as('Amrita2')
+  end
+  
+  specify "Binding checks local first" do
+    aaa = 'Amrita2'
+    @aaa = 'Amrita1'
+    @t.render_with(binding).should_be_samexml_as('Amrita2')
+  end
+  
+  specify "Binding and a method" do
+    def self.aaa; 'Amrita2';end;
+    @t.render_with(binding).should_be_samexml_as('Amrita2')
+  end
+end
+
+context "NullObject" do
+  specify "nil for Scalar Context" do
+    t = Amrita2::Template.new('<div am:src="aaa" />')
+    t.test_with(nil) do|r|
+      r.should_be_samexml_as "<div />"
+    end
+    t.test_with(:aaa=>nil) do|r|
+      r.should_be_samexml_as "<div />"
+    end
+  end
+  
+  specify "false for Scalar Context" do
+    t = Amrita2::Template.new('<div am:src="aaa" />')
+    proc { t.render_with(false)}.should raise_error
+    proc { t.render_with(:aaa=>false)}.should raise_error
+  end
+  
+  specify "nil for Dictionary Context" do
+    t = Amrita2::Template.new('<div class="outer" am:src="aaa"><div class="inner" am:src="bbb" /></div>')
+    t.test_with(nil) do|r|
+      r.should_be_samexml_as '<div class = "outer"><div class = "inner"></div></div>'
+    end
+    t.test_with(:aaa=>nil) do|r|
+      r.should_be_samexml_as '<div class = "outer"><div class = "inner"></div></div>'
+    end
+    proc { t.render_with(false)}.should raise_error
+    proc { t.render_with(:aaa=>false)}.should raise_error
+  end
+  
+  specify "AcceptData[nil]" do
+    t = Amrita2::Template.new('<div am:src="aaa|AcceptData[nil]" />')
+    t.test_with(:aaa=>nil) do|r|
+      r.should == ''
+    end
+  end
+  
+  specify "AcceptData[nil]" do
+    t = Amrita2::Template.new('<div class="outer" am:src="aaa|AcceptData[nil]"><div class="inner" am:src="bbb" /></div>')
+    data = {
+      :aaa => [
+               { :bbb=>'1'},
+               nil,
+               { :bbb=>'2'},
+              ]
+    }
+    t.test_with(data) do|r|
+      r.should == '<div class = "outer"><div class = "inner">1</div></div><div class = "outer"><div class = "inner">2</div></div>'
+    end
+  end
+end
+
+context "True" do
+  specify "don't accept true for default" do
+    t = Amrita2::Template.new('<div am:src="aaa" />')
+    proc { t.render_with(true) }.should raise_error
+  end
+  
+  specify "true for Scalar Context" do
+    t = Amrita2::Template.new('<div am:src="aaa|AcceptData[true]" />')
+    t.test_with(nil) do|r|
+      r.should_be_samexml_as "<div />"
+    end
+  end
+  
+  specify "true for Dictionary Context" do
+    t = Amrita2::Template.new('<div class="outer" am:src="aaa|AcceptData[true]"><div class="inner" am:src="bbb" /></div>')
+    t.test_with(:aaa=>true) do|r|
+      r.should_be_samexml_as '<div class = "outer"><div class = "inner"></div></div>'
+    end
+    t.test_with(:aaa=>{ :bbb=>1 }) do|r|
+      r.should_be_samexml_as '<div class = "outer"><div class = "inner">1</div></div>'
+    end
+    t.test_with(:aaa=>nil) do|r|
+      r.should_be_samexml_as '<div class = "outer"><div class = "inner"></div></div>'
+    end
+    proc { t.render_with(:aaa=>false)}.should raise_error
+  end
+end
+
+# Hook
+context "HookObject" do
+  specify "use stream" do
+    #t = Amrita2::Template.new('<div am:src="aaa|AcceptData[:hook]" />')
+    t = Amrita2::Template.new('<<div :aaa|AcceptData[:hook]>>')
+
+    hook = Amrita2::Core::Hook.new do
+      stream << "hook can write to stream direct"
+      render_me_with("hook can render self")
+      stream << "and add anything after that"
+    end
+    
+    t.test_with(:aaa=>hook) do|r|
+      r.should_be_samexml_as "hook can write to stream direct<div>hook can render self</div>and add anything after that"
+    end
+  end
+  
+  specify "control" do
+    t = Amrita2::Template.new('<span am:src="aaa|AcceptData[:hook]" />')
+
+    hook = Amrita2::Core::Hook.new do
+      stream << "("
+      [7,8,9].each do |n|
+        render_me_with(n)
+      end
+      stream << ")"
+    end
+    
+    t.test_with(:aaa=>hook) do|r|
+      r.should_be_samexml_as "(789)"
+    end
+  end
+  
+  specify "hook in erb" do
+    t = Amrita2::Template.new <<-END
+    <ul>
+    <%
+      hook_in_erb = Amrita2::Core::Hook.new do
+        [3, 4, 5].each do |n|
+          render_me_with(n)
+        end
+      end
+    %>
+    <li am:src="hook_in_erb|AcceptData[:hook]" />
+    </ul>
+    END
+
+    t.test_with(binding) do |r|
+      r.should_be_samexml_as "<ul><li>3</li><li>4</li><li>5</li></ul>"
+    end
+  end
+  
+  specify "render child" do
+    t = Amrita2::Template.new <<-END
+    <%
+      odd_even = Amrita2::Core::Hook.new do
+        list.each_with_index do |item, n|
+          if (item % 2) == 0
+            render_child(:even, :item => item )
+          else
+            render_child(:odd,  :item => item )
+          end
+          stream << " and " if n < list.size - 1
+        end
+      end
+    %>
+    <span am:src="odd_even|AcceptData[:hook]">
+       <span am:src="odd"><span am:src="item" /> is odd</span>
+       <span am:src="even"><span am:src="item" /> is even</span>
+    </span>
+    END
+    
+    list=[4, 1, 7, 8]
+    t.test_with(binding) do |r|
+      r.strip.should == "4 is even and 1 is odd and 7 is odd and 8 is even"
+    end
+    
+    list=[1,2,3]
+    t.test_with(binding) do |r|
+      r.strip.should_be_samexml_as "1 is odd and 2 is even and 3 is odd"
+    end
+    
+  end
+  
+  specify "use element as string" do
+    t = Amrita2::Template.new('<div am:src="aaa|AcceptData[:hook]"><a href="http://amrita2.rubyforge.org">Amrita2</a></div>')
+
+    hook = Amrita2::Core::Hook.new do
+      stream << "[[#{element_s}]]"
+    end
+    
+    t.test_with(:aaa=>hook) do|r|
+      r.should_be_samexml_as "[[<div><a href='http://amrita2.rubyforge.org'>Amrita2</a></div>]]"
+    end
+  end
+  
+  specify "use element " do
+    t = Amrita2::Template.new('<div am:src="aaa|AcceptData[:hook]"><a href="http://amrita2.rubyforge.org">Amrita2</a></div>')
+
+    hook = Amrita2::Core::Hook.new do
+      stream << "[[#{element_s }]]"
+    end
+    
+    t.test_with(:aaa=>hook) do|r|
+      r.should_be_samexml_as "[[<div><a href='http://amrita2.rubyforge.org'>Amrita2</a></div>]]"
+    end
+  end
+end

data/specs/dictionary.rb

@@ -0,0 +1,68 @@
+
+require 'rexml/document'
+require 'amrita2'
+require 'amrita2/testsupport'
+
+include Amrita2
+
+context "Dictionary Data" do
+  setup do
+    @t = Amrita2::Template.new('<div><span am:src="aaa" /></div>')
+  end
+  
+  specify "Struct" do
+    s = Struct.new(:aaa, :bbb)
+    data = s.new(123, 456)
+    result = "<div>123</div>"
+    @t.render_with(data).should_be_samexml_as(result)
+  end
+
+  class MyData
+    include Amrita2::DictionaryData
+
+    def aaa
+      "MyData"
+    end
+  end
+
+  specify "Struct" do
+    data = MyData.new
+    result = "<div>MyData</div>"
+    @t.render_with(data).should_be_samexml_as(result)
+  end
+
+  specify "Array of Struct" do
+    t = Amrita2::Template.new('<div><span am:src="xxx"><span am:src="aaa"/></span></div>')
+    data = {
+      :xxx=> [MyData.new, MyData.new]
+    }
+    t.test_with(data) do |result|
+      result.should_be_samexml_as "<div>MyDataMyData</div>"
+    end
+  end
+
+  specify "Binding" do
+    @aaa = 'Binding'
+    @t.test_with(binding) do |result|
+      result.should_be_samexml_as "<div>Binding</div>"
+    end
+  end
+  
+  specify "Binding for local variables" do
+    aaa = 'Binding'
+    @t.test_with(binding) do |result|
+      result.should_be_samexml_as "<div>Binding</div>"
+    end
+  end
+
+  specify "mix" do
+    t = Amrita2::Template.new('<div><span am:src="xxx"><span am:src="yyy"><span am:src="aaa"/></span></span></div>')
+    @xxx = {
+      :yyy=> MyData.new
+    }
+    t.test_with(binding) do |result|
+      result.should_be_samexml_as "<div>MyData</div>"
+    end
+  end
+end
+