egalite 0.0.1

data/test/test_m17n.rb

@@ -0,0 +1,129 @@
+$LOAD_PATH << File.join(File.dirname(__FILE__), '..')
+
+require 'rubygems'
+require 'test/unit'
+require 'egalite'
+require 'm17n'
+
+require 'rack/test'
+
+require 'setup'
+
+class FrenchController < Egalite::Controller
+  include Egalite::M17N::Filters
+
+  def get
+    {:g => [:text => 'Do you speak English?']}
+  end
+  def langcode
+    @lang.langcode
+  end
+  def dlg
+    delegate(:action => :msg, :message => 'I am an English man.')
+  end
+  def msg
+    {:message => params[:message]}
+  end
+  def placeholder
+    _("Hoge {0}.", "foo")
+  end
+end
+
+class T_Translation < Test::Unit::TestCase
+  include Rack::Test::Methods
+
+  def setup
+    Egalite::M17N::Translation.load(File.join(File.dirname(__FILE__),'m17n.txt'))
+    Egalite::M17N::Translation.allow_content_negotiation = true
+    Egalite::M17N::Translation.user_default_lang = 'en'
+  end
+  def app
+    Egalite::Handler.new(:template_path => File.dirname(__FILE__))
+  end
+  def test_string_translation
+    # English
+    get "/french/placeholder"
+    assert last_response.ok?
+    assert_no_match /foo Piyo./, last_response.body
+    assert_match  /Hoge foo./, last_response.body
+    
+    # French
+    get "/french/placeholder", {}, {'HTTP_ACCEPT_LANGUAGE' => 'ja,fr;q=0.8,en'}
+    assert last_response.ok?
+    assert_match /foo Piyo./, last_response.body
+    assert_no_match  /Hoge foo./, last_response.body
+  end
+  def test_translation
+    # English
+    get "/french"
+    assert last_response.ok?
+    assert_no_match /Parlez vous Francais\?/, last_response.body
+    assert_match  /Do you speak English\?/, last_response.body
+    assert_no_match /Prix/, last_response.body
+    assert_match  /Price/, last_response.body
+    assert_no_match /Nom de Produit/, last_response.body
+    assert_match  /Product Name/, last_response.body
+    assert_no_match %r|/hoge/itembtn1_fr.jpg|, last_response.body
+    assert_match %r|/hoge/itembtn1.jpg|, last_response.body
+
+    # French
+    get "/french", {}, {'HTTP_ACCEPT_LANGUAGE' => 'ja,fr;q=0.8,en'}
+    assert last_response.ok?
+    assert_match /Parlez vous Francais\?/, last_response.body
+    assert_no_match  /Do you speak English\?/, last_response.body
+    assert_match /Prix/, last_response.body
+    assert_no_match  /Price/, last_response.body
+    assert_match /Nom de Produit/, last_response.body
+    assert_no_match  /Product Name/, last_response.body
+    assert_match %r|/hoge/itembtn1_fr.jpg|, last_response.body
+    assert_no_match %r|/hoge/itembtn1.jpg|, last_response.body
+  end
+  def test_translationmsg
+    # English
+    get "/french/dlg"
+    assert last_response.ok?
+    assert_no_match  /@@@Je suis un Francais\.@@@/, last_response.body
+    assert_match  /I am an English man\./, last_response.body
+    
+    get "/french/dlg", {}, {'HTTP_ACCEPT_LANGUAGE' => 'en,fr;q=0.8'}
+    assert last_response.ok?
+    assert_no_match  /@@@Je suis un Francais\.@@@/, last_response.body
+    assert_match  /I am an English man\./, last_response.body
+    get "/french/dlg", {}, {'HTTP_ACCEPT_LANGUAGE' => 'fr', 'HTTP_HOST' => 'en.example.com'}
+    
+    assert last_response.ok?
+    assert_no_match  /@@@Je suis un Francais\.@@@/, last_response.body
+    assert_match  /I am an English man\./, last_response.body
+    
+    # French
+    get "/french/dlg", {}, {'HTTP_ACCEPT_LANGUAGE' => 'ja,fr;q=0.8,en'}
+    assert_match  /@@@Je suis un Francais\.@@@/, last_response.body
+    assert_no_match  /I am an English man\./, last_response.body
+
+    get "/french/dlg", {}, {'HTTP_HOST' => 'fr.example.com'}
+    assert_match  /@@@Je suis un Francais\.@@@/, last_response.body
+    assert_no_match  /I am an English man\./, last_response.body
+
+    get "/french/dlg", {}, {'HTTP_ACCEPT_LANGUAGE' => 'zh-hans-cn'}
+    assert_match  /@@@Je suis un Francais\.@@@/, last_response.body
+    assert_no_match  /I am an English man\./, last_response.body
+
+    get "/french/dlg", {}, {'HTTP_ACCEPT_LANGUAGE' => 'fr-fr'}
+    assert_match  /@@@Je suis un Francais\.@@@/, last_response.body
+    assert_no_match  /I am an English man\./, last_response.body
+  end
+  def test_langcode
+    get "/french/langcode"
+    assert last_response.ok?
+    assert_equal "en", last_response.body
+
+    get "/french/langcode", {}, {'HTTP_HOST' => 'fr.example.com'}
+    assert last_response.ok?
+    assert_equal "fr", last_response.body
+
+    get "/french/langcode", {}, {'HTTP_HOST' => 'zh-hans-cn.example.com'}
+    assert last_response.ok?
+    assert_equal "fr", last_response.body
+  end
+end
+

data/test/test_route.rb

@@ -0,0 +1,192 @@
+$LOAD_PATH << File.join(File.dirname(__FILE__), '..')
+
+require 'rubygems'
+require 'test/unit'
+require 'egalite'
+
+require 'rack/test'
+
+require 'setup'
+
+class DefaultController < Egalite::Controller
+  def get(s)
+    return url_for(:action => :pathtest) if s == "NoControllerNoAction1"
+    return url_for(:controller => :route, :action => :pathtest) if s == "NoControllerNoAction2"
+    
+    s ? s : "root"
+  end
+  def hashparams
+    url_for({:hoge => {:a => 1, :b => 2}})
+  end
+  def stringparams
+    url_for(:params => :abc)
+  end
+  def pathtest
+    req.path_info
+  end
+  def urltest
+    url_for(:controller => :route, :action => :foo, :id => '1', :hoge => :piyo)
+  end
+  def urltest2
+    url_for(:action => :pathtest, :id => '1', :hoge => :piyo)
+  end
+  def linkto
+    link_to("nya",:controller => :route, :action => :foo, :id => '1', :hoge => :piyo)
+  end
+  def https
+    url_for(:action => :hoge, :scheme => :https)
+  end
+  def host
+    url_for(:action => :piyo, :host => 'hoge.example.org')
+  end
+end
+
+class RouteController < Egalite::Controller
+  def get(s)
+    s ? s : "null"
+  end
+  def pathtest
+    req.path_info
+  end
+  def urltest
+    url_for(:controller => '/', :action => :pathtest, :id => '1', :hoge => :piyo)
+  end
+  def urltest2
+    url_for(:action => :pathtest, :id => '1', :hoge => :piyo)
+  end
+  def urltest3
+    url_for(:controller => 'noactionroute', :action => :pathtest, :id => '1', :hoge => :piyo)
+  end
+  def urltest4
+    url_for(:controller => :route, :action => nil, :id => 1)
+  end
+end
+
+class OneSlashController < Egalite::Controller
+  def get(s)
+    s ? s : "oneslash"
+  end
+  def pathtest
+    req.path_info
+  end
+  def urltest
+    url_for(:controller => '/', :action => :pathtest, :id => '1', :hoge => :piyo)
+  end
+  def urltest2
+    url_for(:action => :pathtest, :id => '1', :hoge => :piyo)
+  end
+end
+
+class NoactionrouteController < Egalite::Controller
+  def get
+    url_for(:action => :foo, :id => '1', :hoge => :piyo)
+  end
+end
+
+class T_Route < Test::Unit::TestCase
+  include Rack::Test::Methods
+  
+  def app
+    Egalite::Handler.new
+  end
+  def test_root
+    get "/"
+    assert last_response.ok?
+    assert last_response.body == "root"
+    get "/piyo"
+    assert last_response.ok?
+    assert last_response.body == "piyo"
+    get "/hashparams"
+    assert last_response.ok?
+    assert_match /\/hashparams\?hoge\[[ab]\]=[12]&hoge\[[ab]\]=[12]/, last_response.body
+    get "/stringparams"
+    assert last_response.ok?
+    assert last_response.body == "/stringparams/abc"
+    get "/https"
+    assert last_response.ok?
+    assert last_response.body == "https://example.org/hoge"
+    get "/host"
+    assert last_response.ok?
+    assert last_response.body == "http://hoge.example.org/piyo"
+  end
+  def test_path
+    get "/pathtest/"
+    assert last_response.ok?
+    assert last_response.body == ""
+    get "/pathtest/a"
+    assert last_response.ok?
+    assert last_response.body == "a"
+    get "/pathtest/a/b/c"
+    assert last_response.ok?
+    assert last_response.body == "a/b/c"
+  end
+  def test_noslash
+    get "/route/"
+    assert last_response.ok?
+    assert last_response.body == "null"
+    get "/route/hoge"
+    assert last_response.ok?
+    assert last_response.body == "hoge"
+    get "/route/pathtest"
+    assert last_response.ok?
+    assert last_response.body == ""
+    get "/route/pathtest/a/b/c"
+    assert last_response.ok?
+    assert last_response.body == "a/b/c"
+  end
+  def test_oneslash
+    get "/one/slash"
+    assert last_response.ok?
+    assert last_response.body == "oneslash"
+    get "/one/slash/hoge"
+    assert last_response.ok?
+    assert last_response.body == "hoge"
+    get "/one/slash/pathtest"
+    assert last_response.ok?
+    assert last_response.body == ""
+    get "/one/slash/pathtest/a/b/c"
+    assert last_response.ok?
+    assert last_response.body == "a/b/c"
+  end
+  def test_urltest
+    get "/urltest"
+    assert last_response.ok?
+    assert last_response.body == "/route/foo/1?hoge=piyo"
+    get "/urltest2"
+    assert last_response.ok?
+    assert last_response.body == "/pathtest/1?hoge=piyo"
+    get "/linkto"
+    assert last_response.ok?
+    assert last_response.body == "<a href='/route/foo/1?hoge=piyo'>nya</a>"
+    get "/route/urltest"
+    assert last_response.ok?
+    assert last_response.body == "/pathtest/1?hoge=piyo"
+    get "/route/urltest2"
+    assert last_response.ok?
+    assert last_response.body == "/route/pathtest/1?hoge=piyo"
+    get "/route/urltest3"
+    assert last_response.ok?
+    assert last_response.body == "/noactionroute/pathtest/1?hoge=piyo"
+    get "/route/urltest4"
+    assert last_response.ok?
+    assert last_response.body == "/route/1"
+    get "/one/slash/urltest"
+    assert last_response.ok?
+    assert last_response.body == "/pathtest/1?hoge=piyo"
+    get "/one/slash/urltest2"
+    assert last_response.ok?
+    assert last_response.body == "/one/slash/pathtest/1?hoge=piyo"
+    get "/noactionroute"
+    assert last_response.ok?
+    assert last_response.body == "/noactionroute/foo/1?hoge=piyo"
+    get "/noactionroute/hoge"
+    assert last_response.ok?
+    assert last_response.body == "/noactionroute/foo/1?hoge=piyo"
+    get "/NoControllerNoAction1"
+    assert last_response.ok?
+    assert last_response.body == "/pathtest"
+    get "/NoControllerNoAction2"
+    assert last_response.ok?
+    assert last_response.body == "/route/pathtest"
+  end
+end

data/test/test_sendmail.rb

@@ -0,0 +1,146 @@
+$LOAD_PATH << File.join(File.dirname(__FILE__), '..')
+
+require 'test/unit'
+require 'sendmail'
+
+$KCODE = 'utf8'
+
+class T_Sendmail < Test::Unit::TestCase
+  def test_folding
+    s = Sendmail.folding('To', "012345678  \n\n  "*20)
+    a = s.split(/\n/)
+    assert_equal 69, a[0].size
+    assert_equal 70, a[1].size
+    assert_match /\A\s[0-9\s]{69}\Z/, a[1]
+    assert_equal 200-70-70, a[2].size
+    s2 = Sendmail.folding('To', s)
+    assert_equal s, s2
+  end
+  def test_encode_phrase
+    s = Sendmail.encode_phrase('To', "0123\"6\\9\x00"*20)
+    assert_equal "\n \"" + ('0123\\"6\\\\9'*20) + '"', s
+  end
+  def test_encode_unstructured
+    s = Sendmail.encode_unstructured('To', "0123\"6\\9\x00"*20)
+    assert_equal "\n " + ('0123"6\\9'*20), s
+  end
+  def test_parse_addrspec
+    (local, domain) = Sendmail.parse_addrspec('"baz\\"@bar\\"@foo"@example.com')
+    assert_equal '"baz\\"@bar\\"@foo"', local
+    assert_equal 'example.com', domain
+    (local, domain) = Sendmail.parse_addrspec('"a"@example.com')
+    assert_equal '"a"', local
+    assert_equal 'example.com', domain
+    (local, domain) = Sendmail.parse_addrspec('bar@example.com')
+    assert_equal 'bar', local
+    assert_equal 'example.com', domain
+    (local, domain) = Sendmail.parse_addrspec('bar@example.com.')
+    assert_equal nil, local
+    (local, domain) = Sendmail.parse_addrspec('bar@example..com')
+    assert_equal nil, local
+    (local, domain) = Sendmail.parse_addrspec('bar@example')
+    assert_equal nil, local
+  end
+  def test_address
+    s = Sendmail.address('foo@example.com', '新井 俊一', 'To')
+    assert_match /\A\=\?UTF-8\?B\?(.+?)\?\= <foo@example.com>\Z/, s
+    s = Sendmail.address('foo@example.com', "\x00ARAI \n Shunichi", 'To')
+    assert_match /"ARAI Shunichi" <foo@example.com>\Z/, s
+  end
+  def test_multibyte_folding
+    s = Sendmail.multibyte_folding('Subject', 'あいうえお'*20)
+    a = s.split(/\n/)
+    assert "Subject: #{a[0]}".size < 76
+    s2 = a.map { |e|
+      assert e.size < 77
+      assert_match /\A\s?\=\?UTF-8\?B\?(.+?)\?\=\Z/, e
+      e =~ /\=\?UTF-8\?B\?(.+?)\?\=/
+      $1.unpack('m')[0]
+    }.join
+    assert_equal 'あいうえお'*20, s2
+  end
+  def test_mailboxlist
+    s = Sendmail.mailboxlist('foo@example.com')
+    assert_equal 'foo@example.com',s
+  end
+  def parse_message(s)
+    (header, body) = s.split(/\n\n/,2)
+    headers = {}
+    header.gsub(/\n[\s\t]+/, ' ').split(/\n/).each { |line|
+      (k,v) = line.split(/: +/,2)
+      headers[k] = v
+    }
+    [headers, body]
+  end
+  def test_message_7bit
+    s = Sendmail.message('hoge',:from=>'hoge@example.com',:subject=>'test')
+    (h,b) = parse_message(s)
+    assert_equal 'hoge', b
+    assert_equal '1.0', h['MIME-Version']
+    assert Time.rfc822(h['Date'])
+    assert_equal '7bit', h['Content-Transfer-Encoding']
+    assert_equal 'text/plain; charset=UTF-8', h['Content-Type']
+    assert_equal 'test', h['Subject']
+  end
+  def test_message_multibyte
+    s = Sendmail.message('あいうえお',:from=>'hoge@example.com')
+    (h,b) = parse_message(s)
+    assert_equal 'あいうえお', b.unpack('m')[0]
+    assert_equal '1.0', h['MIME-Version']
+    assert Time.rfc822(h['Date'])
+    assert_equal 'base64', h['Content-Transfer-Encoding']
+    assert_equal 'text/plain; charset=UTF-8', h['Content-Type']
+  end
+  def params
+    {
+      :date => Time.local(0),
+      :from => 'hoge@example.com',
+      :to   => [Sendmail.address('arai@example.com','新井俊一'),
+                ['tanaka@example.com','田中太郎'],
+                {:address => 'takeda@example.com', :name => '武田一郎'},
+                'ueno@example.com'
+               ],
+      :cc   => Sendmail.address('foo@example.com', 'Foo Bar'),
+      :bcc  => Sendmail.address('zzz@example.com', 'zzz'),
+      :reply_to=> Sendmail.address('baz@example.com', 'Baz Bzz'),
+      :subject => 'こんにちは',
+    }
+  end
+  def test_message_headers
+    assert_raise(RuntimeError) { Sendmail.message('',{}) }
+    assert_raise(RuntimeError) { Sendmail.message('',{:sender => ['1','2']}) }
+    assert_raise(RuntimeError) { Sendmail.message('',{:from => [1,2,3]}) }
+    s = Sendmail.message('あいうえお',params)
+    (h,b) = parse_message(s)
+    assert_equal 'あいうえお', b.unpack('m')[0]
+    assert_equal '1.0', h['MIME-Version']
+    assert_equal Time.local(0), Time.rfc822(h['Date'])
+    assert_equal 'base64', h['Content-Transfer-Encoding']
+    assert_equal 'text/plain; charset=UTF-8', h['Content-Type']
+    assert_equal 'hoge@example.com', h['From']
+    assert_match /\A\=\?UTF-8\?B\?(.+?)\?\=\n?\Z/, h['Subject']
+    h['Subject'] =~ /\A\=\?UTF-8\?B\?(.+?)\?\=/
+    assert_equal 'こんにちは', $1.unpack('m')[0]
+    to = h['To']
+    tos = to.split(/\s*,\s+/)
+    assert_match /\A\=\?UTF-8\?B\?(.+?)\?\= <arai@example.com>\Z/, tos[0]
+    assert_match /\A\=\?UTF-8\?B\?(.+?)\?\= <tanaka@example.com>\Z/, tos[1]
+    assert_match /\A\=\?UTF-8\?B\?(.+?)\?\= <takeda@example.com>\Z/, tos[2]
+    assert_match /\Aueno@example.com\Z/, tos[3]
+    to =~ /\A\=\?UTF-8\?B\?(.+?)\?\=.+?\=\?UTF-8\?B\?(.+?)\?\=.+?\=\?UTF-8\?B\?(.+?)\?\=/
+    (a,b,c) = [$1,$2,$3].map { |s| s.unpack('m')[0] }
+    assert_match '新井俊一', a
+    assert_match '田中太郎', b
+    assert_match '武田一郎', c
+    assert_match '"Foo Bar" <foo@example.com>', h['Cc']
+    assert_match '"Baz Bzz" <baz@example.com>', h['Reply-To']
+    assert_nil h['Bcc']
+  end
+  def test_to_addresses
+    a = Sendmail.to_addresses(params)
+    %w[foo@example.com arai@example.com tanaka@example.com takeda@example.com ueno@example.com zzz@example.com].each { |s|
+      assert a.include?(s)
+    }
+  end
+end
+

data/test/test_session.rb

@@ -0,0 +1,83 @@
+$LOAD_PATH << File.join(File.dirname(__FILE__), '..')
+
+require 'rubygems'
+require 'test/unit'
+require 'egalite'
+require 'sequel'
+
+require 'rack/test'
+
+require 'setup'
+
+class SessionController < Egalite::Controller
+  def login(id)
+    session.create(:user_id => id)
+    redirect :action => :page
+  end
+  def page
+    return redirect_to :action => :login if session[:user_id] == nil
+    session[:user_id].to_s
+  end
+  def modify(id)
+    session[:user_id] = id
+    session.save
+    redirect :action => :page
+  end
+  def logout
+    session.delete
+    redirect :action => :login
+  end
+end
+
+class T_Session < Test::Unit::TestCase
+  include Rack::Test::Methods
+  
+  def app
+    db = Sequel.sqlite
+    Egalite::SessionSequel.create_table(db)
+    db.alter_table :sessions do
+      add_column :user_id, :integer
+    end
+    Egalite::Handler.new(
+      :db => db,
+      :session_handler => Egalite::SessionSequel
+    )
+  end
+  def test_session
+    get "/session/page"
+    assert last_response.redirect?
+    assert last_response.headers['location'] == "/session/login"
+    assert last_response.headers['set-cookie'].blank?
+    get "/session/login/9876"
+    assert last_response.redirect?
+    assert last_response.headers['location'] == "/session/page"
+    assert last_response.headers['set-cookie'] =~ /^egalite_session=[0-9]+_[0-9a-z]+;\s+/
+    get "/session/page"
+    assert last_response.ok?
+    assert last_response.body =~ /9876/
+    assert last_response.headers['set-cookie'] =~ /^egalite_session=[0-9]+_[0-9a-z]+;\s+/
+    get "/session/modify/1234"
+    assert last_response.redirect?
+    assert last_response.headers['location'] == "/session/page"
+    assert last_response.headers['set-cookie'] =~ /^egalite_session=[0-9]+_[0-9a-z]+;\s+/
+    get "/session/page"
+    assert last_response.ok?
+    assert last_response.body =~ /1234/
+    assert last_response.headers['set-cookie'] =~ /^egalite_session=[0-9]+_[0-9a-z]+;\s+/
+    get "/session/logout"
+    assert last_response.redirect?
+    assert last_response.headers['location'] == "/session/login"
+    assert last_response.headers['set-cookie'] =~ /^egalite_session=;\s+/
+    get "/session/page"
+    assert last_response.redirect?
+    assert last_response.headers['location'] == "/session/login"
+    assert last_response.headers['set-cookie'].blank?
+  end
+  def test_abstract_session
+    session = Egalite::Session.new(nil,nil)
+    assert_raise(NotImplementedError) { session.create }
+    assert_raise(NotImplementedError) { session.load }
+    assert_raise(NotImplementedError) { session.save }
+    assert_raise(NotImplementedError) { session.delete }
+  end
+end

data/test/test_stringify_hash.rb

@@ -0,0 +1,67 @@
+$LOAD_PATH << File.dirname(__FILE__)
+$LOAD_PATH << File.join(File.dirname(__FILE__), '..')
+
+require 'rubygems'
+require 'test/unit'
+require 'egalite'
+require 'rexml/xpath'
+require 'rexml/document'
+
+
+class T_StringifyHash < Test::Unit::TestCase
+  include Egalite
+
+  def setup
+    @target = StringifyHash.new
+  end
+
+  def test_key_set_should_assume_symbol_as_string
+
+    @target[:key] = 10
+    assert_equal(@target["key"], 10)
+  end
+
+  def test_key_get_should_assume_symbol_as_string
+    @target["key"] = 10
+    assert_equal(@target[:key], 10)
+  end
+
+  def test_key_p_should_assume_symbol_as_string
+    @target["key"] = 10
+    assert(@target.key?(:key))
+  end
+
+  def test_update_should_assume_symbol_as_string
+    @target.update({:key => 10})
+    assert(@target.key?("key"))
+  end
+
+  def test_fetch_should_be_ok
+    @target["key"] = 10
+    assert_equal(@target.fetch(:key), 10)
+  end
+
+  def test_values_at_should_be_ok
+    @target["key1"] = 10
+    @target["key2"] = 20
+    assert_equal([10, 20], @target.values_at(:key1, :key2))
+  end
+
+  def test_dup_should_create_new_one
+    another = @target.dup
+    assert_equal(another, @target)
+    assert_equal(another.class, StringifyHash)
+    another["hoge"] = "ika"
+    assert(another != @target) # should be different instance
+  end
+
+  def test_dup_should_create_new_hash
+    another = @target.to_hash
+    assert_equal(another.class, Hash)
+    another["hoge"] = "ika"
+    assert(another != @target) # should be different instance
+  end
+end
+
+# XXX: test form
+# XXX: test expand_name