manveru-innate 2009.02.06

data/spec/example/link.rb

@@ -0,0 +1,29 @@
+require 'spec/helper'
+require 'example/link'
+
+describe 'example/link' do
+  behaves_like :mock
+
+  should 'have index on Linking' do
+    get('/').body.should == 'simple link<br /><a href="/help">Help?</a>'
+  end
+
+  should 'have new on Linking' do
+    get('/new').body.should == 'Something new!'
+  end
+
+  should 'have help on Linking' do
+    get('/help').body.should ==
+      "You have help<br /><a href=\"/link_to/another\">A Different Node</a>"
+  end
+
+  should 'have another on Different' do
+    get('/link_to/another').body.
+      should == "<a href=\"/link_to/and/deeper\">Even deeper</a>"
+  end
+
+  should 'have and__deeper on Different' do
+    get('/link_to/and/deeper').body.
+      should == "<a href=\"/index\">Back to Linking Node</a>"
+  end
+end

data/spec/helper.rb

@@ -0,0 +1,2 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '../lib/innate'))
+require 'innate/spec'

data/spec/innate/cache/common.rb

@@ -0,0 +1,45 @@
+require 'spec/helper'
+
+Innate.options.cache.names = [:one, :two]
+Innate.options.cache.one = $common_cache_class
+Innate.options.cache.two = $common_cache_class
+Innate.setup_dependencies
+
+describe $common_cache_class do
+  cache = Innate::Cache.one
+
+  @hello = 'Hello, World!'
+
+  should 'store without ttl' do
+    cache.store(:hello, @hello).should == @hello
+  end
+
+  should 'fetch' do
+    cache.fetch(:hello).should == @hello
+  end
+
+  should 'delete' do
+    cache.delete(:hello).should == @hello
+    cache.fetch(:hello).should == nil
+  end
+
+  should 'delete two key/value pairs at once' do
+    cache.store(:hello, @hello).should == @hello
+    cache.store(:innate, 'innate').should == 'innate'
+    cache.delete(:hello, :innate).should == [@hello, 'innate']
+  end
+
+  should 'store with ttl' do
+    cache.store(:hello, @hello, :ttl => 0.2)
+    cache.fetch(:hello).should == @hello
+    sleep 0.3
+    cache.fetch(:hello).should == nil
+  end
+
+  should 'clear' do
+    cache.store(:hello, @hello)
+    cache.fetch(:hello).should == @hello
+    cache.clear
+    cache.fetch(:hello).should == nil
+  end
+end

data/spec/innate/cache/marshal.rb

@@ -0,0 +1,5 @@
+require 'spec/helper'
+
+$common_cache_class = Innate::Cache::Marshal
+
+require 'spec/innate/cache/common'

data/spec/innate/cache/memory.rb

@@ -0,0 +1,5 @@
+require 'spec/helper'
+
+$common_cache_class = Innate::Cache::Memory
+
+require 'spec/innate/cache/common'

data/spec/innate/cache/yaml.rb

@@ -0,0 +1,5 @@
+require 'spec/helper'
+
+$common_cache_class = Innate::Cache::YAML
+
+require 'spec/innate/cache/common'

data/spec/innate/dynamap.rb

@@ -0,0 +1,22 @@
+require 'spec/helper'
+
+describe Innate::DynaMap do
+  @app = lambda{|env| [200, {}, ['pass']] }
+
+  should 'raise if nothing is mapped' do
+    lambda{ Innate::DynaMap.call({}) }.should.raise(RuntimeError)
+  end
+
+  should 'not raise if nothing is mapped' do
+    Innate.map('/', &@app)
+    Innate::DynaMap.call('SCRIPT_NAME' => '/').should == [200, {}, ['pass']]
+  end
+
+  should 'return mapped object' do
+    Innate.at('/').should == @app
+  end
+
+  should 'return path to object' do
+    Innate.to(@app).should == '/'
+  end
+end

data/spec/innate/helper.rb

@@ -0,0 +1,66 @@
+require 'spec/helper'
+require 'innate/helper'
+
+module Innate
+  module Helper
+    module SmileHelper
+      EXPOSE << self
+
+      def smile
+        ':)'
+      end
+    end
+
+    module FrownHelper
+      def frown
+        ':('
+      end
+    end
+  end
+end
+
+class HelperNodeExpose
+  include Innate::Node
+  map '/'
+
+  helper :smile_helper, :frown_helper
+
+  def frowny
+    "Oh, hi #{frown}"
+  end
+end
+
+describe HelperNodeExpose do
+  should 'expose an action' do
+    Innate::Mock.get('/smile').body.should == ':)'
+    Innate::Mock.get('/frown').status.should == 404
+    Innate::Mock.get('/frowny').body.should == "Oh, hi :("
+  end
+end
+
+class FooNodeLink
+  include Innate::Node
+  map '/foo'
+
+  helper :link, :cgi
+end
+
+describe Innate::Helper::Link do
+  FNL = FooNodeLink
+
+  should 'construct URI from ::r' do
+    FNL.r(:index).should == URI('/foo/index')
+    FNL.r(:/).should == URI('/foo/')
+    FNL.r(:index, :foo => :bar).should == URI('/foo/index?foo=bar')
+
+    uri = FNL.r(:index, :a => :b, :x => :y)
+    uri.query.split(';').sort.should == %w[a=b x=y]
+  end
+
+  should 'construct link from ::a' do
+    FNL.a(:index).should == '<a href="/foo/index">index</a>'
+    FNL.a('index', :index, :x => :y).should == '<a href="/foo/index?x=y">index</a>'
+    FNL.a('duh/bar', 'duh/bar', :x => :y).should == '<a href="/foo/duh/bar?x=y">duh/bar</a>'
+    FNL.a('foo', :/, :x => :y).should == '<a href="/foo/?x=y">foo</a>'
+  end
+end

data/spec/innate/helper/aspect.rb

@@ -0,0 +1,80 @@
+require 'spec/helper'
+Innate.options.app.root = File.dirname(__FILE__)
+Innate.options.app.view = ''
+
+class AspectSpec
+  include Innate::Node
+  map '/'
+  provide :html => :none
+
+  before(:with_before){ $aspect_spec_before += 40 }
+  def with_before; $aspect_spec_before += 2; end
+
+  after(:with_after){ $aspect_spec_after  += 40 }
+  def with_after; $aspect_spec_after += 2; end
+
+  wrap(:with_wrap){ $aspect_spec_wrap += 20 }
+  def with_wrap; $aspect_spec_wrap += 2; end
+  
+  before(:with_instance_var){ @foo = 'Hello'; @bar = 'World' }
+  def with_instance_var; "#{@foo} #{@bar}"; end
+end
+
+class AspectAllSpec
+  include Innate::Node
+  map '/all'
+  provide :html => :none
+
+  before_all{ $aspect_spec_before_all += 40; @foo = 'Hello'; @bar = 'World' }
+  after_all{  $aspect_spec_after_all += 40 }
+  def before_first; $aspect_spec_before_all +=2 ; end
+  def before_second; $aspect_spec_before_all +=2; end
+  def with_instance_var_first; "#{@foo} #{@bar}"; end
+  def with_instance_var_second; "#{@foo} to the #{@bar}"; end
+end
+
+class AspecNoMethodSpec
+  include Innate::Node
+  map '/without_method'
+  view_root 'view'
+  before_all{ @foo = 'Hello'; @bar = 'World'}
+end
+
+describe Innate::Helper::Aspect do
+  behaves_like :mock
+
+  should 'execute before aspect' do
+    $aspect_spec_before = 0
+    get('/with_before').body.should == '42'
+    $aspect_spec_before.should == 42
+  end
+
+  should 'execute after asepct' do
+    $aspect_spec_after = 0
+    get('/with_after').body.should == '2'
+    $aspect_spec_after.should == 42
+  end
+
+  should 'execute wrap aspects' do
+    $aspect_spec_wrap = 0
+    get('/with_wrap').body.should == '22'
+    $aspect_spec_wrap == 42
+  end
+
+  should 'before_all and after_all' do
+    $aspect_spec_before_all = $aspect_spec_after_all = 0
+    get('/all/before_first').body.should == '42'
+    $aspect_spec_before_all.should == 42
+    $aspect_spec_after_all.should == 40
+    get('/all/before_second').body.should == '84'
+    $aspect_spec_before_all.should == 84
+    $aspect_spec_after_all.should == 80
+  end
+
+  should 'instance variables in blocks available to view/method' do
+    get('/with_instance_var').body.should == 'Hello World'
+    get('/all/with_instance_var_first').body.should == 'Hello World'
+    get('/all/with_instance_var_second').body.should == 'Hello to the World'
+    get('/without_method/aspect_hello').body.should == "Hello World!\n"
+  end
+end

data/spec/innate/helper/cgi.rb

@@ -0,0 +1,37 @@
+require 'spec/helper'
+require 'innate/helper/cgi'
+
+describe "url encode" do
+  extend Innate::Helper::CGI
+
+  it 'should url_encode strings' do
+    # ok, I believe that the web is dumb for this
+    # but this probably is a SHOULD thingy in the HTTP RFC
+    url_encode('title with spaces').should == 'title+with+spaces'
+    url_encode('[foo]').should == '%5Bfoo%5D'
+    u('//').should == '%2F%2F'
+  end
+  it 'should url_decode strings' do
+    url_decode('title%20with%20spaces').should == 'title with spaces'
+    url_decode('title+with+spaces').should == 'title with spaces'
+  end
+  it 'should be reversible' do
+    url_decode(u('../ etc/passwd')).should == '../ etc/passwd'
+  end
+end
+
+describe 'html escape' do
+  extend Innate::Helper::CGI
+
+  it 'should escape html' do
+    html_escape('& < >').should == '&amp; &lt; &gt;'
+    h('<&>').should == '&lt;&amp;&gt;'
+  end
+  it 'should unescape html' do
+    html_unescape('&lt; &amp; &gt;').should == '< & >'
+  end
+  it 'should be reversible' do
+    html_unescape(html_escape('2 > b && b <= 0')).should == '2 > b && b <= 0'
+  end
+end
+

data/spec/innate/helper/flash.rb

@@ -0,0 +1,148 @@
+#          Copyright (c) 2009 Michael Fellinger m.fellinger@gmail.com
+# All files in this distribution are subject to the terms of the Ruby license.
+
+require 'spec/helper'
+
+class SpecFlash
+  include Innate::Node
+  map '/'
+
+  def welcome
+    flash[:name] = 'manveru'
+    "Welcome #{flash[:name]}"
+  end
+
+  def bye
+    "Bye #{flash[:name]}"
+  end
+
+  def box
+    flashbox
+  end
+
+  def check_empty
+    flash.empty?.to_s
+  end
+
+  def set_delete_key
+    flash[:name] = 'manveru'
+    flash.delete(:name)
+    flash[:name]
+  end
+
+  def delete_key
+    flash.delete(:name)
+    "Bye #{flash[:name]}"
+  end
+
+  def set(*hash)
+    Hash[*hash].each do |key, value|
+      flash[key] = value
+    end
+    hash.inspect
+  end
+
+  def merge!
+    flash.merge!(:name => 'feagliir').inspect
+  end
+
+  def merge
+    flash.merge(:name => 'feagliir').inspect
+  end
+
+  def inspect
+    flash[:yes] = :yeah
+    flash.inspect
+  end
+
+  def iterate
+    flash[:yes] = :yeah
+    elems = []
+    flash.each{|k,v| elems << [k,v] }
+    elems.inspect
+  end
+end
+
+class SpecFlashSub < SpecFlash
+  map '/sub'
+end
+
+describe Innate::Helper::Flash do
+  behaves_like :session
+
+  should 'set and forget flash twice' do
+    session do |mock|
+      mock.get('/welcome').body.should == 'Welcome manveru'
+      mock.get('/bye').body.should == 'Bye manveru'
+      mock.get('/bye').body.should == 'Bye '
+
+      mock.get('/welcome').body.should == 'Welcome manveru'
+      mock.get('/bye').body.should == 'Bye manveru'
+      mock.get('/bye').body.should == 'Bye '
+    end
+  end
+
+  should 'work over multiple nodes' do
+    session do |mock|
+      mock.get('/welcome').body.should == 'Welcome manveru'
+      mock.get('/sub/bye').body.should == 'Bye manveru'
+      mock.get('/sub/bye').body.should == 'Bye '
+
+      mock.get('/sub/welcome').body.should == 'Welcome manveru'
+      mock.get('/bye').body.should == 'Bye manveru'
+      mock.get('/bye').body.should == 'Bye '
+    end
+  end
+
+  should 'check if flash is empty' do
+    session do |mock|
+      mock.get('/welcome').body.should == 'Welcome manveru'
+      mock.get('/check_empty').body.should == 'false'
+      mock.get('/check_empty').body.should == 'true'
+    end
+  end
+
+  should 'set and delete key within one request' do
+    session do |mock|
+      mock.get('/set_delete_key').body.should == ''
+    end
+  end
+
+  should 'set and delete key over two request' do
+    session do |mock|
+      mock.get('/welcome').body.should == 'Welcome manveru'
+      mock.get('/delete_key').body.should == 'Bye '
+    end
+  end
+
+  should 'merge with hash' do
+    session do |mock|
+      mock.get('/merge').body.should == {:name => 'feagliir'}.inspect
+      mock.get('/bye').body.should == 'Bye '
+    end
+  end
+
+  should 'merge! with hash' do
+    session do |mock|
+      mock.get('/merge!').body.should == {:name => 'feagliir'}.inspect
+      mock.get('/bye').body.should == 'Bye feagliir'
+    end
+  end
+
+  should 'inspect combined' do
+    session do |mock|
+      mock.get('/welcome')
+      mock.get('/inspect').body.
+        should == {:name => 'manveru', :yes => :yeah}.inspect
+    end
+  end
+
+  should 'iterate over combined' do
+    session do |mock|
+      mock.get('/welcome')
+
+      hash = {:yes => :yeah, :name => 'manveru'}
+      Hash[*eval(mock.get('/iterate').body).flatten].should == hash
+    end
+  end
+end