nyara 0.0.1.pre

data/spec/ext_route_spec.rb

@@ -0,0 +1,70 @@
+require_relative "spec_helper"
+
+module Nyara
+  describe Ext, "route" do
+    before :each do
+      Ext.clear_route
+      @e1 = RouteEntry.new{
+        @http_method = 'GET'
+        @scope = '/hello'
+        @prefix = '/hello/'
+        @suffix = '(\d+)world'
+        @id = :'#1'
+        @conv = [:to_i]
+        @controller = 'stub'
+      }
+      @e2 = RouteEntry.new{
+        @http_method = 'GET'
+        @scope = '/hello'
+        @prefix = '/hello'
+        @suffix = ''
+        @id = :'#second'
+        @conv = []
+        @controller = 'stub2'
+      }
+      @e3 = RouteEntry.new{
+        @http_method = 'GET'
+        @scope = '/a目录'
+        @prefix = '/a目录/'
+        @suffix = '(\d+)-(\d+)-(\d+)'
+        @id = :'#dir'
+        @conv = [:to_i, :to_i, :to_i]
+        @controller = 'stub3'
+      }
+      Ext.register_route @e1
+      Ext.register_route @e2
+      Ext.register_route @e3
+    end
+
+    after :all do
+      Ext.clear_route
+    end
+
+    it '#register_route sub-prefix optimization' do
+      rules = Ext.list_route['GET']
+      assert_equal 3, rules.size
+
+      assert_equal false, rules[0].first # first
+      assert_equal true, rules[1].first  # is sub of prev
+      assert_equal false, rules[2].first # not sub of prev
+    end
+
+    it '#lookup_route' do
+      scope, cont, args = Ext.lookup_route 'GET', '/hello'
+      assert_equal @e2.scope, scope
+      assert_equal @e2.controller, cont
+      assert_equal [:'#second'], args
+
+      scope, cont, args = Ext.lookup_route 'GET', '/hello/3world'
+      assert_equal @e1.scope, scope
+      assert_equal @e1.controller, cont
+      assert_equal [3, :'#1'], args
+
+      scope, _ = Ext.lookup_route 'GET', '/world'
+      assert_equal nil, scope
+
+      scope, _, args = Ext.lookup_route 'GET', '/a目录/2013-6-1'
+      assert_equal [2013, 6, 1, :'#dir'], args
+    end
+  end
+end

data/spec/hashes_spec.rb

@@ -0,0 +1,71 @@
+require_relative "spec_helper"
+
+module Nyara
+  describe ParamHash do
+    it "symbol/string keys in ParamHash are the same" do
+      h = ParamHash.new
+      h[:a] = 3
+      assert_equal 3, h['a']
+      assert_equal true, h.key?(:a)
+      assert_equal true, h.key?('a')
+      assert_equal 1, h.size
+    end
+  end
+
+  describe HeaderHash do
+    it "ignores case in key" do
+      h = HeaderHash.new
+      h['a-bc'] = 'good'
+    end
+
+    it "headerlizes key and stringify value" do
+      h = HeaderHash.new
+      h['Content-type'] = 'text/html'
+      h[:'content-tYpe'] = :'text/plain'
+      assert_equal 1, h.size
+      assert_equal ['Content-Type', 'text/plain'], h.to_a.first
+    end
+
+    class HaHash < HeaderHash
+    end
+
+    it "#reverse_merge! raises error if other is not HeaderHash" do
+      h = HeaderHash.new
+      h.reverse_merge! HaHash.new # :)
+      assert_raise ArgumentError do
+        h.reverse_merge!({})
+      end
+    end
+
+    it "#reverse_merge!" do
+      h = HeaderHash.new
+      g = HeaderHash.new
+      h['a'] = 'h'
+      g['a'] = 'g'
+      g['b'] = 'b'
+      h.reverse_merge! g
+      assert_equal 2, h.size
+      assert_equal 'h', h['a']
+      assert_equal 'b', h['b']
+    end
+  end
+
+  describe ConfigHash do
+    it "deep key assignment" do
+      h = ConfigHash.new
+      h['a', 'deep', 'key1'] = 'value1'
+      h['a', 'deep', :key2] = 'value2'
+      assert_equal 'value1', h['a', 'deep', :key1]
+      assert_equal 'value2', h['a']['deep']['key2']
+    end
+
+    it "works when last available key exists as other hash type" do
+      h = ConfigHash.new
+      other_h = {}
+      h['a'] = other_h
+      h['a', 'b'] = 3
+      assert_equal 3, h['a', 'b']
+      assert_equal other_h.object_id, h['a'].object_id
+    end
+  end
+end

data/spec/path_helper_spec.rb

@@ -0,0 +1,77 @@
+require_relative "spec_helper"
+
+class FooController < Nyara::Controller
+  meta '#index'
+  get '/%d' do |id|
+  end
+
+  class BarController < Nyara::Controller
+    meta '#index'
+    get '/' do
+    end
+  end
+
+  class BazController < Nyara::Controller
+    set_name 'baz'
+
+    meta '#index'
+    get '/%d' do |id|
+    end
+  end
+end
+
+module Nyara
+  describe [Controller, Route] do
+    before :all do
+      Route.clear
+      Config.configure do
+        set 'host', 'yavaeye.com'
+        map '/', 'foo'
+        map '/bar-prefix', 'foo_controller::bar'
+        map '/baz-prefix', 'foo_controller::baz'
+      end
+      Route.compile
+    end
+
+    context '#path_for' do
+      it "local query" do
+        c = FooController.new :stub_request
+        assert_equal '/12', c.path_for('#index', 12)
+        assert_raise ArgumentError do
+          c.path_for '#index'
+        end
+        assert_raise ArgumentError do
+          c.path_for('#index', 'a')
+        end
+      end
+
+      it "global query" do
+        c = FooController::BarController.new :stub_request
+        assert_equal '/bar-prefix/', c.path_for('foo_controller::bar#index')
+        assert_equal '/baz-prefix/1', c.path_for('baz#index', 1)
+      end
+
+      it "generates for nested query" do
+        pending
+      end
+
+      it "perserves _method query" do
+        pending
+      end
+
+      it "appends format and query" do
+        c = FooController.new :stub_request
+        generated = c.path_for '#index', 1, format: 'js', 'utm_source' => 'a spam'
+        assert_equal "/1.js?utm_source=a+spam", generated
+      end
+    end
+
+    context '#url_for' do
+      it "works" do
+        c = FooController::BazController.new :stub_request
+        assert_equal '//yavaeye.com/baz-prefix/1', c.url_for('#index', 1)
+        assert_equal 'https://localhost:4567/1', c.url_for('foo#index', 1, scheme: 'https', host: 'localhost:4567')
+      end
+    end
+  end
+end

data/spec/request_delegate_spec.rb

@@ -0,0 +1,67 @@
+require_relative "spec_helper"
+
+module Nyara
+  describe [Controller, Request] do
+    class DelegateController < Controller
+    end
+
+    before :all do
+      Ext.set_skip_on_url true
+    end
+
+    after :all do
+      Ext.set_skip_on_url false
+    end
+
+    before :each do
+      @client, @server = Socket.pair :UNIX, :STREAM
+      Ext.set_nonblock @server.fileno
+      @request = Ext.handle_request @server.fileno
+      Ext.set_request_attrs @request, {
+        method_num: HTTP_METHODS['GET'],
+        path: '/search',
+        param: ParamHash.new.tap{|h| h['q'] = 'nyara' },
+        fiber: Fiber.new{},
+        scope: '/scope',
+        header: HeaderHash.new.tap{|h| h['Accept'] = 'en-US' }
+        # ext: nil
+        # response_header:
+        # response_header_extra_lines:
+      }
+      @c = DelegateController.new @request
+    end
+
+    it "#content_type" do
+      @c.content_type :js
+      assert_equal 'application/javascript', @request.response_content_type
+    end
+
+    it "#status" do
+      assert_raise ArgumentError do
+        @c.status 1000
+      end
+      @c.status 404
+      assert_equal 404, @request.status
+    end
+
+    it "request header" do
+      assert_equal 'en-US', @c.header['accept']
+    end
+
+    it "set response header and send" do
+      pending
+      @c.set_header
+      @c.add_header_line
+      @c.send_header
+      @client
+    end
+
+    it "set / delete / clear cookie" do
+      pending
+    end
+
+    it "#session" do
+      pending
+    end
+  end
+end

data/spec/request_spec.rb

@@ -0,0 +1,56 @@
+require_relative "spec_helper"
+
+module Nyara
+  describe Request do
+    before :all do
+      Ext.set_skip_on_url true
+    end
+
+    after :all do
+      Ext.set_skip_on_url false
+    end
+
+    before :each do
+      @server, @client = Socket.pair :UNIX, :STREAM, 0
+      Ext.set_nonblock @server.fileno
+      Ext.set_nonblock @client.fileno
+      @request = Ext.handle_request @server.fileno
+      @request_attrs = {
+        method_num: HTTP_METHODS['GET'],
+        path: '/',
+        param: HeaderHash.new.tap{|h| h['id'] = 1 },
+        fiber: nil,
+        scope: '/',
+        ext: nil
+      }
+      set_request_attrs
+    end
+
+    context "#scheme detect by forwarded.." do
+      it "ssl" do
+        @request.header['X-Forwarded-Ssl'] = 'on'
+        assert_equal 'https', @request.scheme
+      end
+
+      it "scheme" do
+        @request.header['X-Forwarded-Scheme'] = 'ical'
+        assert_equal 'ical', @request.scheme
+      end
+
+      it "protocol" do
+        @request.header['X-Forwarded-Proto'] = 'https,http'
+        assert_equal 'https', @request.scheme
+      end
+    end
+
+    it "#domain and #port" do
+      @request.header['Host'] = "yavaeye.com:3000"
+      assert_equal 'yavaeye.com', @request.domain
+      assert_equal 3000, @request.port
+    end
+
+    def set_request_attrs
+      Ext.set_request_attrs @request, @request_attrs
+    end
+  end
+end

data/spec/route_entry_spec.rb

@@ -0,0 +1,12 @@
+require_relative "spec_helper"
+
+module Nyara
+  describe RouteEntry do
+    it "#set_accept_exts" do
+      r = RouteEntry.new
+      r.set_accept_exts ['html', :js]
+      assert_equal [%w"text html html", %w"application javascript js"], r.accept_mimes
+      assert_equal ({'html'=>true, 'js'=>true}), r.accept_exts
+    end
+  end
+end

data/spec/route_spec.rb

@@ -0,0 +1,84 @@
+require_relative "spec_helper"
+
+module Nyara
+  describe Route do
+    # fixme: ugly code
+    it "#process" do
+      entries1 = [
+        RouteEntry.new{
+          @http_method = 'GET',
+          @path = '/hello/%f',
+          @id = :'#hello_f'
+        },
+        RouteEntry.new{
+          @http_method = 'POST',
+          @path = '/%s/%u-%d',
+          @id = :'#post'
+        }
+      ]
+      entries2 = [
+        RouteEntry.new{
+          @http_method = 'GET',
+          @path = '/',
+          @id = :'#hel'
+        }
+      ]
+      entries3 = [
+        RouteEntry.new{
+          @http_method = 'GET',
+          @path = '/%s',
+          @id = :'#ello_s'
+        }
+      ]
+
+      preprocessed_rules = [
+        ['/', 'Stub1', entries1],
+        ['/hel', 'Stub2', entries2],
+        ['/ello', 'Stub3', entries3]
+      ]
+
+      rules = Route.process preprocessed_rules
+      e_prefices, e_scopes, e_ids = [
+        ['/hello/', '/',     :'#hello_f'],
+        ['/hel',    '/hel',  :'#hel'],
+        ['/ello/',  '/ello', :'#ello_s'],
+        ['/',       '/',     :'#post']
+      ].transpose
+
+      assert_equal e_prefices, rules.map(&:prefix)
+      assert_equal e_scopes, rules.map(&:scope)
+      assert_equal e_ids, rules.map(&:id)
+    end
+
+    it "#compile_re" do
+      re, conv = Route.compile_re '%s/%u/%d/%f/%x'
+      assert_equal [:to_s, :to_i, :to_i, :to_f, :hex], conv
+      s = '1/2/-3/4.5/F'
+      assert_equal [s, *s.split('/')], s.match(Regexp.new re).to_a
+
+      re, conv = Route.compile_re '/'
+      assert_equal '^/$', re
+      assert_equal [], conv
+    end
+
+    it "#compile_re with utf-8 chars" do
+      re, conv = Route.compile_re '/目录/%da/也可以'
+      assert_equal [:to_i], conv
+      s = "/目录/12a/也可以"
+      assert_equal [s, '12'], s.match(Regexp.new re).to_a
+    end
+
+    it "#analyse_path" do
+      r = Route.analyse_path '/hello/%d-world%u/%s/'
+      assert_equal ['/hello/', '%d-world%u/%s'], r
+
+      prefix, suffix = Route.analyse_path '/hello'
+      assert_equal '/hello', prefix
+      assert_equal nil, suffix
+
+      prefix, suffix = Route.analyse_path '/'
+      assert_equal '/', prefix
+      assert_equal nil, suffix
+    end
+  end
+end

data/spec/session_spec.rb

@@ -0,0 +1,66 @@
+require_relative "spec_helper"
+
+module Nyara
+  describe Session do
+    context "no cipher" do
+      before :all do
+        Config['session', 'cipher_key'] = nil
+        Session.init
+      end
+
+      it "should encode and decode" do
+        cookie = {}
+        session = {'hello' => 'world'}
+        Session.encode session, cookie
+
+        assert_includes cookie[Session.name], 'world'
+
+        session2 = Session.decode cookie
+        assert_equal 'world', session2[:hello]
+      end
+
+      it "drops bad signature" do
+        cookie = {}
+        session = {'hello' => 'world'}
+        Session.encode session, cookie
+
+        cookie[Session.name].sub!(/\w/, &:swapcase)
+
+        session = Session.decode cookie
+        assert_empty session
+      end
+    end
+
+    context "with cipher" do
+      before :all do
+        Config['session', 'cipher_key'] = "some cipher key"
+        Session.init
+      end
+
+      it "encode and decode" do
+        cookie = {}
+        session = {'hello' => 'world'}
+        Session.encode session, cookie
+
+        assert_not_includes cookie[Session.name], 'world'
+
+        session2 = Session.decode cookie
+        assert_equal 'world', session2[:hello]
+      end
+
+      it "cipher should not be pure" do
+        message = 'OCB is by far the best mode, as it allows encryption and authentication in a single pass. However there are patents on it in USA.'
+        r1 = Session.cipher message
+        r2 = Session.cipher message
+        assert_not_equal r1, r2
+      end
+
+      it "decipher returns blank str when message too short" do
+        r = Session.decipher Base64.urlsafe_encode64 'short one'
+        assert_empty r
+        r = Session.decipher Base64.urlsafe_encode64 's' * (256/8)
+        assert_empty r
+      end
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,52 @@
+require_relative "../lib/nyara/nyara"
+require 'rspec/core'
+require 'rspec/mocks'
+require 'rspec/autorun'
+require "pry"
+require "slim"
+require "erb"
+require "haml"
+require "liquid"
+
+RSpec.configure do |config|
+  config.expect_with :stdlib
+  if config.formatters.first.class.to_s =~ /TextMate/
+    def puts *xs
+      xs.each do |x|
+        $stdout.puts "<pre style='word-wrap:break-word;word-break:break-all;'>#{CGI.escape_html x.to_s}</pre>"
+      end
+      nil
+    end
+
+    def print *xs
+      $stdout.print "<span style='word-wrap:break-word;word-break:break-all;'>"
+      xs.each do |x|
+        $stdout.print CGI.escape_html x.to_s
+      end
+      $stdout.print "</span>"
+      nil
+    end
+
+    def p *xs
+      xs.each do |x|
+        $stdout.puts "<pre style='word-wrap:break-word;word-break:break-all;'>#{CGI.escape_html x.inspect}</pre>"
+      end
+      xs
+    end
+
+    require 'pp'
+    module Kernel
+      def pp obj
+        s = CGI.escape_html(PP.pp obj, '')
+        $stdout.puts "<pre style='word-wrap:break-word;word-break:break-all;'>#{s}</pre>"
+        obj
+      end
+    end
+  end
+end
+
+configure do
+  set :env, 'test'
+end
+
+# todo a test helper to compile routes after app loaded

data/spec/view_spec.rb

@@ -0,0 +1,87 @@
+require_relative "spec_helper"
+
+class RenderableMock
+  include Nyara::Renderable
+
+  def initialize
+    @result = ''
+  end
+  attr_reader :result
+
+  def send_chunk data
+    @result << data
+  end
+end
+
+module Nyara
+  describe [View, Renderable] do
+    before :all do
+      Config['views'] = __dir__ + '/views'
+      View.init
+    end
+
+    def render *xs
+      @instance = RenderableMock.new
+      view = View.new @instance, *xs
+      Fiber.new{ view.render }.resume
+    end
+
+    it "inline render with locals" do
+      render nil, nil, {a: 3}, erb: '<%= a %>'
+      assert_equal '3', @instance.result
+    end
+
+    it "file render" do
+      render 'show', nil, {a: 3}, {}
+      assert_equal '3', @instance.result
+    end
+
+    it "file render with layouts" do
+      render 'show', 'layout', {a: 3}, {}
+      assert_equal "<html>3</html>\n", @instance.result
+    end
+
+    it "raises for ambiguous template" do
+      assert_raise ArgumentError do
+        render 'edit', nil, nil, {}
+      end
+      render 'edit.slim', nil, nil, {}
+      assert_equal "<div>slim:edit</div>", @instance.result.gsub(/\s/, '')
+      render 'edit.haml', nil, nil, {}
+      assert_equal "<div>haml:edit</div>", @instance.result.gsub(/\s/, '')
+    end
+
+    context "fallback to tilt" do
+      it "inline render" do
+        render nil, nil, {a: 3}, {liquid: '{{a}}'}
+        assert_equal '3', @instance.result
+      end
+
+      it "forbids tilt layout" do
+        assert_raise RuntimeError do
+          render nil, 'invalid_layout', nil, {liquid: 'page'}
+        end
+        assert_raise RuntimeError do
+          render 'show', ['invalid_layout'], nil, {}
+        end
+      end
+
+      it "allows tilt page with stream-friendly layout" do
+        render nil, 'layout', nil, {liquid: 'page'}
+        assert_equal "<html>page</html>\n", @instance.result
+      end
+    end
+
+    it "stream render" do
+      @instance = RenderableMock.new
+      view = View.new @instance, nil, 'layout', nil, {erb: '<% 3.times do |i| %><%= i %><% Fiber.yield %><% end %>'}
+      v = view.stream
+      v.resume
+      assert_equal "<html>0", @instance.result
+      v.resume
+      assert_equal "<html>01", @instance.result
+      Fiber.new{ v.end }.resume
+      assert_equal "<html>012</html>\n", @instance.result
+    end
+  end
+end

data/tools/bench-cookie.rb

@@ -0,0 +1,22 @@
+require_relative "../lib/nyara/nyara"
+include Nyara
+require "benchmark"
+
+def cookie1 s
+  res = ParamHash.new
+  s.split(/[,;] */n).reverse_each do |seg|
+    Ext.parse_url_encoded_seg res, seg, false
+  end
+end
+
+def cookie2 s
+  res = ParamHash.new
+  Ext.parse_cookie res, s
+end
+
+history = CGI.escape '历史'
+s = "pgv_pvi; pgv_si=; pgv_pvi=som; sid=1d6c75f0 ; PLHistory=<#{history}>;"
+
+puts Benchmark.measure{ 1000.times{cookie1 s} }
+puts Benchmark.measure{ 1000.times{cookie2 s} }
+# cookie2 should be faster