bike 0.2.1

data/t/test_select.rb

@@ -0,0 +1,182 @@
+# encoding: UTF-8
+
+# Author::    Akira FUNAI
+# Copyright:: Copyright (c) 2009 Akira FUNAI
+
+require "#{::File.dirname __FILE__}/t"
+
+class TC_Select < Test::Unit::TestCase
+
+  def setup
+    meta = nil
+    Bike::Parser.gsub_scalar("$(foo select bar, baz, qux :'baz' mandatory)") {|id, m|
+      meta = m
+      ''
+    }
+    @f = Bike::Field.instance meta
+  end
+
+  def teardown
+  end
+
+  def test_meta
+    assert_equal(
+      ['bar', 'baz', 'qux'],
+      @f[:options],
+      'Select#initialize should set :options from the csv token'
+    )
+    assert_equal(
+      true,
+      @f[:mandatory],
+      'Select#initialize should set :mandatory from the misc token'
+    )
+    assert_equal(
+      'baz',
+      @f[:default],
+      'Select#initialize should set :default from the token'
+    )
+  end
+
+  def test_meta_options_from_range
+    meta = nil
+    Bike::Parser.gsub_scalar("$(foo select 1..5)") {|id, m|
+      meta = m
+      ''
+    }
+    f = Bike::Field.instance meta
+    assert_equal(
+      ['1', '2', '3', '4', '5'],
+      f[:options],
+      'Select#initialize should set :options from the range token'
+    )
+
+    meta = nil
+    Bike::Parser.gsub_scalar("$(foo select ..5)") {|id, m|
+      meta = m
+      ''
+    }
+    f = Bike::Field.instance meta
+    assert_equal(
+      ['0', '1', '2', '3', '4', '5'],
+      f[:options],
+      'Select#initialize should set :options from the range token'
+    )
+
+    meta = nil
+    Bike::Parser.gsub_scalar("$(foo select 1..)") {|id, m|
+      meta = m
+      ''
+    }
+    f = Bike::Field.instance meta
+    assert_equal(
+      nil,
+      f[:options],
+      'Select#initialize should not refer to the range token if there is no maximum'
+    )
+  end
+
+  def test_val_cast
+    assert_equal(
+      '',
+      @f.val,
+      'Select#val_cast should cast the given val to String'
+    )
+
+    @f.load 123
+    assert_equal(
+      '123',
+      @f.val,
+      'Select#val_cast should cast the given val to String'
+    )
+  end
+
+  def test_get
+    @f.load ''
+    assert_equal(
+      '',
+      @f.get,
+      'Select#get should return proper string'
+    )
+    assert_equal(
+      <<_html,
+<span class="select">
+  <select name="">
+    <option value="">please select</option>
+    <option>bar</option>
+    <option>baz</option>
+    <option>qux</option>
+  </select>
+</span>
+_html
+      @f.get(:action => :create),
+      'Select#get should return proper string'
+    )
+
+    @f.load 'qux'
+    assert_equal(
+      'qux',
+      @f.get,
+      'Select#get should return proper string'
+    )
+    assert_equal(
+      <<_html,
+<span class="select">
+  <select name="">
+    <option>bar</option>
+    <option>baz</option>
+    <option selected>qux</option>
+  </select>
+</span>
+_html
+      @f.get(:action => :update),
+      'Select#get should return proper string'
+    )
+  end
+
+  def test_get_escape
+    @f[:options] = ['foo', '<bar>']
+    @f.load '<bar>'
+    assert_equal(
+      '&lt;bar&gt;',
+      @f.get,
+      'Select#get should escape the special characters'
+    )
+    assert_equal(
+      <<_html,
+<span class="select">
+  <select name="">
+    <option>foo</option>
+    <option selected>&lt;bar&gt;</option>
+  </select>
+</span>
+_html
+      @f.get(:action => :update),
+      'Select#get should escape the special characters'
+    )
+  end
+
+  def test_errors
+    @f.load ''
+    @f[:mandatory] = nil
+    assert_equal(
+      [],
+      @f.errors,
+      'Select#errors should return the errors of the current val'
+    )
+    @f[:mandatory] = true
+    assert_equal(
+      ['mandatory'],
+      @f.errors,
+      'Select#errors should return the errors of the current val'
+    )
+
+    @f.load 'boo'
+    @f[:mandatory] = nil
+    assert_equal(
+      ['no such option'],
+      @f.errors,
+      'Select#errors should return the errors of the current val'
+    )
+  end
+
+end

data/t/test_set_complex.rb

@@ -0,0 +1,527 @@
+# encoding: UTF-8
+
+# Author::    Akira FUNAI
+# Copyright:: Copyright (c) 2009 Akira FUNAI
+
+require "#{::File.dirname __FILE__}/t"
+
+class TC_Set_Complex < Test::Unit::TestCase
+
+  class ::Bike::Set::Dynamic
+    def _g_vegetable(arg)
+      "'potato'"
+    end
+  end
+
+  class ::Bike::Workflow::Pipco < ::Bike::Workflow
+    DEFAULT_SUB_ITEMS = {
+      '_owner' => {:klass => 'meta-owner'},
+    }
+    PERM = {
+      :create    => 0b11000,
+      :read      => 0b11110,
+      :update    => 0b11100,
+      :delete    => 0b10100,
+    }
+    def _g_submit(arg)
+      '[pipco]'
+    end
+  end
+
+  class ::Bike::Tomago < ::Bike::Field
+    def _get(arg)
+      args = arg.keys.collect {|k| "#{k}=#{arg[k]}" }.sort
+      "'#{val}'(#{args.join ', '})"
+    end
+  end
+
+  def setup
+    # Set::Dynamic of Set::Static of (Scalar and (Set::Dynamic of Set::Static of Scalar))
+    @sd = Bike::Set::Dynamic.new(
+      :id       => 'main',
+      :klass    => 'set-dynamic',
+      :workflow => 'pipco',
+      :group    => ['roy', 'don'],
+      :tmpl     => {
+        :index => <<'_tmpl'.chomp,
+<ul id="@(name)" class="app-pipco">
+$()</ul>
+$(.navi)$(.submit)$(.action_create)
+_tmpl
+      },
+      :item     => {
+        'default' => Bike::Parser.parse_html(<<'_html')
+  <li id="@(name)">
+    $(name = tomago 32 :'nobody'): $(comment = tomago 64 :'hello.')
+    <ul id="files" class="app-attachment">
+      <li id="@(name)">$(file = tomago :'foo.jpg')</li>
+    </ul>
+    <ul id="replies" class="app-pipco">
+      <li id="@(name)">$(reply = tomago :'hi.')</li>
+    </ul>
+    $(replies.vegetable)
+  </li>
+_html
+      }
+    )
+    @sd.load(
+      '20091123_0001' => {
+        '_owner'  => 'carl',
+        'name'    => 'CZ',
+        'comment' => 'oops',
+        'files'   => {
+          '20091123_0001' => {'file' => 'carl1.jpg'},
+          '20091123_0002' => {'file' => 'carl2.jpg'},
+        },
+        'replies'   => {
+          '20091125_0001' => {'_owner' => 'bobby', 'reply' => 'howdy.'},
+        },
+      },
+      '20091123_0002' => {
+        '_owner'  => 'roy',
+        'name'    => 'RE',
+        'comment' => 'wee',
+        'files'   => {
+          '20091123_0001' => {'file' => 'roy.png'},
+        },
+        'replies'   => {
+          '20091125_0001' => {'_owner' => 'don', 'reply' => 'ho ho.'},
+          '20091125_0002' => {'_owner' => 'roy', 'reply' => 'oops.'},
+        },
+      }
+    )
+
+    [
+      @sd,
+      @sd.item('20091123_0001', 'files'),
+      @sd.item('20091123_0001', 'replies'),
+      @sd.item('20091123_0002', 'files'),
+      @sd.item('20091123_0002', 'replies'),
+    ].each {|sd|
+      sd[:tmpl][:action_create] = ''
+      sd[:tmpl][:navi] = ''
+      sd[:tmpl][:submit_create] = '[c]'
+      sd[:tmpl][:submit_delete] = '[d]'
+      def sd._g_submit(arg)
+        "[#{my[:id]}-#{arg[:orig_action]}]\n"
+      end
+
+      sd.each {|item|
+        item[:tmpl][:action_update] = ''
+      }
+    }
+  end
+
+  def teardown
+    Bike.client = nil
+  end
+
+  def test_get_default
+    Bike.client = 'root' #nil
+    result = @sd.get
+
+    assert_match(
+      /'potato'/,
+      result,
+      'Set#get should include $(foo.baz) whenever the action :baz is permitted'
+    )
+    assert_equal(
+      <<'_html',
+<ul id="main" class="app-pipco">
+  <li id="main-20091123_0001">
+    'CZ'(action=read, p_action=read): 'oops'(action=read, p_action=read)
+    <ul id="main-20091123_0001-files" class="app-attachment">
+      <li id="main-20091123_0001-files-20091123_0001">'carl1.jpg'(action=read, p_action=read)</li>
+      <li id="main-20091123_0001-files-20091123_0002">'carl2.jpg'(action=read, p_action=read)</li>
+    </ul>
+    <ul id="main-20091123_0001-replies" class="app-pipco">
+      <li id="main-20091123_0001-replies-20091125_0001"><a href="/20091123_0001/replies/20091125/1/update.html">'howdy.'(action=read, p_action=read)</a></li>
+    </ul>
+    'potato'
+  </li>
+  <li id="main-20091123_0002">
+    'RE'(action=read, p_action=read): 'wee'(action=read, p_action=read)
+    <ul id="main-20091123_0002-files" class="app-attachment">
+      <li id="main-20091123_0002-files-20091123_0001">'roy.png'(action=read, p_action=read)</li>
+    </ul>
+    <ul id="main-20091123_0002-replies" class="app-pipco">
+      <li id="main-20091123_0002-replies-20091125_0001"><a href="/20091123_0002/replies/20091125/1/update.html">'ho ho.'(action=read, p_action=read)</a></li>
+      <li id="main-20091123_0002-replies-20091125_0002"><a href="/20091123_0002/replies/20091125/2/update.html">'oops.'(action=read, p_action=read)</a></li>
+    </ul>
+    'potato'
+  </li>
+</ul>
+_html
+      result,
+      'Set#get should work recursively as a part of the complex'
+    )
+  end
+
+  def test_get_with_parent_action
+    Bike.client = 'root'
+    result = @sd.get(:action => :update)
+
+    assert_match(
+      /id="main-20091123_0001-files"/,
+      result,
+      'Set::Dynamic#get(:action => :update) should include child attachments'
+    )
+    assert_no_match(
+      /id="main-20091123_0001-replies"/,
+      result,
+      'Set::Dynamic#get(:action => :update) should not include child apps'
+    )
+    assert_no_match(
+      /'potato'/,
+      result,
+      'Set::Dynamic#get(:action => :update) should not include any value of child apps'
+    )
+    assert_no_match(
+      /<form.+<form/m,
+      result,
+      'Set::Dynamic#get(:action => :update) should not return nested forms'
+    )
+    assert_equal(
+      <<'_html',
+<ul id="main" class="app-pipco">
+  <li id="main-20091123_0001">
+    'CZ'(action=update, p_action=update): 'oops'(action=update, p_action=update)
+    <ul id="main-20091123_0001-files" class="app-attachment">
+      <li id="main-20091123_0001-files-20091123_0001">'carl1.jpg'(action=update, p_action=update)[d]</li>
+      <li id="main-20091123_0001-files-20091123_0002">'carl2.jpg'(action=update, p_action=update)[d]</li>
+      <li id="main-20091123_0001-files-_001">'foo.jpg'(action=create, p_action=create)[c]</li>
+    </ul>
+  </li>
+  <li id="main-20091123_0002">
+    'RE'(action=update, p_action=update): 'wee'(action=update, p_action=update)
+    <ul id="main-20091123_0002-files" class="app-attachment">
+      <li id="main-20091123_0002-files-20091123_0001">'roy.png'(action=update, p_action=update)[d]</li>
+      <li id="main-20091123_0002-files-_001">'foo.jpg'(action=create, p_action=create)[c]</li>
+    </ul>
+  </li>
+</ul>
+[main-update]
+_html
+      result,
+      'Set#get should distribute the action to its items'
+    )
+  end
+
+  def test_get_with_partial_permission
+    Bike.client = 'carl' # can edit only his own item
+
+    assert_raise(
+      Bike::Error::Forbidden,
+      'Field#get should raise Error::Forbidden when an action is given but forbidden'
+    ) {
+      @sd.get(:action => :update, :conds => {:id => '20091123_0002'})
+    }
+
+    @sd.item('20091123_0002', 'comment')[:owner] = 'carl' # enclave in roy's item
+
+    assert_raise(
+      Bike::Error::Forbidden,
+      'Field#get should not allow partially permitted get'
+    ) {
+      @sd.get(:action => :update, :conds => {:id => '20091123_0002'})
+    }
+  end
+
+  def test_get_with_partial_action
+    Bike.client = 'root'
+
+    Bike.current[:base] = @sd.item('20091123_0002', 'replies')
+    Bike.base[:tid] = '123.45'
+
+    result = @sd.get(
+      '20091123_0002' => {
+        'replies' => {
+          :action => :update,
+          :conds  => {:id => '20091125_0002'},
+        },
+      }
+    )
+    assert_equal(
+      <<_html,
+<ul id="main" class="app-pipco">
+  <li id="main-20091123_0001">
+    'CZ'(action=read, p_action=read): 'oops'(action=read, p_action=read)
+    <ul id="main-20091123_0001-files" class="app-attachment">
+      <li id="main-20091123_0001-files-20091123_0001">'carl1.jpg'(action=read, p_action=read)</li>
+      <li id="main-20091123_0001-files-20091123_0002">'carl2.jpg'(action=read, p_action=read)</li>
+    </ul>
+    <ul id="main-20091123_0001-replies" class="app-pipco">
+      <li id="main-20091123_0001-replies-20091125_0001"><a href="/20091123_0001/replies/20091125/1/update.html">'howdy.'(action=read, p_action=read)</a></li>
+    </ul>
+    'potato'
+  </li>
+  <li id="main-20091123_0002">
+    'RE'(action=read, p_action=read): 'wee'(action=read, p_action=read)
+    <ul id="main-20091123_0002-files" class="app-attachment">
+      <li id="main-20091123_0002-files-20091123_0001">'roy.png'(action=read, p_action=read)</li>
+    </ul>
+<form id="form_main-20091123_0002-replies" method="post" enctype="multipart/form-data" action="/20091123_0002/replies/123.45/update.html">
+<input name="_token" type="hidden" value="#{Bike.token}" />
+    <ul id="main-20091123_0002-replies" class="app-pipco">
+      <li id="main-20091123_0002-replies-20091125_0002"><a>'oops.'(action=update, p_action=update)</a></li>
+    </ul>
+[replies-update]
+</form>
+    'potato'
+  </li>
+</ul>
+_html
+      result,
+      'Field#get should be able to handle a partial action'
+    )
+
+    result = @sd.get(
+      :conds => {:id => '20091123_0002'},
+      '20091123_0002' => {
+        'replies' => {
+          :action => :update,
+          :conds  => {:id => '20091125_0002'},
+        },
+      }
+    )
+    assert_equal(
+      <<_html,
+<ul id="main" class="app-pipco">
+  <li id="main-20091123_0002">
+    'RE'(action=read, p_action=read): 'wee'(action=read, p_action=read)
+    <ul id="main-20091123_0002-files" class="app-attachment">
+      <li id="main-20091123_0002-files-20091123_0001">'roy.png'(action=read, p_action=read)</li>
+    </ul>
+<form id="form_main-20091123_0002-replies" method="post" enctype="multipart/form-data" action="/20091123_0002/replies/123.45/update.html">
+<input name="_token" type="hidden" value="#{Bike.token}" />
+    <ul id="main-20091123_0002-replies" class="app-pipco">
+      <li id="main-20091123_0002-replies-20091125_0002"><a>'oops.'(action=update, p_action=update)</a></li>
+    </ul>
+[replies-update]
+</form>
+    'potato'
+  </li>
+</ul>
+_html
+      result,
+      'Field#get should be able to handle a partial action'
+    )
+  end
+
+  def test_get_partial_forbidden
+    Bike.client = 'carl'
+    assert_match(
+      /\(action=update/,
+      @sd.item('20091123_0001', 'files').get(:action => :update)
+    )
+    assert_match(
+      /\(action=update/,
+      @sd.item('20091123_0001', 'files', '20091123_0001').get(:action => :update)
+    )
+
+    @sd.instance_variable_set(:@item_object, {}) # remove item('_001')
+
+    Bike.client = nil
+    assert_raise(
+      Bike::Error::Forbidden,
+      'Field#get should not show an inner attachment when the parent is forbidden'
+    ) {
+      @sd.item('20091123_0001', 'files').get(:action => :update)
+    }
+    assert_raise(
+      Bike::Error::Forbidden,
+      'Field#get should not show an inner attachment when the parent is forbidden'
+    ) {
+      @sd.item('20091123_0001', 'files', '20091123_0001').get(:action => :update)
+    }
+  end
+
+  def test_post_partial
+    Bike.client = 'don'
+    original_val = YAML.load @sd.val.to_yaml
+    @sd.update(
+      '20091123_0002' => {
+        'replies' => {
+          '_0001' => {'reply' => 'yum.'},
+        },
+      }
+    )
+    assert_equal(
+      original_val,
+      @sd.val,
+      'Field#val should not change before the commit'
+    )
+    @sd.commit
+    assert_not_equal(
+      original_val,
+      @sd.val,
+      'Field#val should change after the commit'
+    )
+  end
+
+  def test_post_attachment_forbidden
+    Bike.client = nil
+    assert_raise(
+      Bike::Error::Forbidden,
+      'Field#post to an inner attachment w/o the perm of the parent should be forbidden'
+    ) {
+      @sd.update(
+        '20091123_0002' => {
+          'files' => {
+            '_0001' => {'file' => 'evil.jpg'},
+          },
+        }
+      )
+    }
+    assert_raise(
+      Bike::Error::Forbidden,
+      'Field#post to an inner attachment w/o the perm of the parent should be forbidden'
+    ) {
+      @sd.update(
+        '20091123_0002' => {
+          'files'   => {
+            '20091123_0001' => {'file' => 'evil.png'},
+          }
+        }
+      )
+    }
+    assert_raise(
+      Bike::Error::Forbidden,
+      'Field#post to an inner attachment w/o the perm of the parent should be forbidden'
+    ) {
+      @sd.item('20091123_0002', 'files', '20091123_0001').update('file' => 'evil.gif')
+    }
+  end
+
+  def test_commit_partial
+    Bike.client = 'don'
+    @sd.update(
+      '20091123_0002' => {
+        'replies' => {
+          '_0001' => {'reply'  => 'yum.'},
+        },
+      }
+    )
+    orig_val = @sd.val('20091123_0002', 'replies').dup
+
+    @sd.commit :temp
+    new_val = @sd.val('20091123_0002', 'replies').dup
+    assert_equal(
+      orig_val.size + 1,
+      new_val.size,
+      'Field#val should change after the commit :temp'
+    )
+
+    new_id = new_val.keys.find {|id| new_val[id] == {'_owner' => 'don', 'reply'  => 'yum.'} }
+    @sd.update(
+      '20091123_0002' => {
+        'replies' => {
+          new_id => {
+            :action => :delete,
+            'reply' => 'yum.',
+          },
+        },
+      }
+    )
+
+    @sd.commit :temp
+    new_val = @sd.val('20091123_0002', 'replies').dup
+    assert_equal(
+      orig_val,
+      new_val,
+      'Field#val should change after the commit :temp'
+    )
+  end
+
+  def test_post_mixed
+    Bike.client = 'don'
+
+    # create a sub-item on the pending item
+    @sd.update(
+      '_1234' => {
+        '_owner'  => 'don',
+        'replies' => {
+          '_0001' => {
+            '_owner' => 'don',
+            'reply'  => 'yum.',
+          },
+        },
+      }
+    )
+    orig_val = @sd.val('_1234', 'replies').dup
+    assert_equal(
+      {},
+      orig_val,
+      'Field#val should change after the commit :temp'
+    )
+
+    orig_storage = @sd.storage
+    @sd.instance_variable_set(:@storage, nil) # pretend persistent
+    @sd.commit :temp
+    @sd.instance_variable_set(:@storage, orig_storage)
+
+    new_val = @sd.val('_1234', 'replies').dup
+    assert_equal(
+      {'_owner' => 'don', 'reply'  => 'yum.'},
+      new_val.values.first,
+      'Field#val should change after the commit :temp'
+    )
+
+    # delete the sub-item
+    new_id = new_val.keys.find {|id| new_val[id] == {'_owner' => 'don', 'reply'  => 'yum.'} }
+    @sd.update(
+      '_1234' => {
+        'replies' => {
+          new_id => {
+            :action  => :delete,
+            '_owner' => 'don',
+            'reply'  => 'yum.',
+          },
+        },
+      }
+    )
+    assert_equal(
+      :delete,
+      @sd.item('_1234', 'replies', new_id).action,
+      'Set::Dynamic#post should not overwrite the action of descendant'
+    )
+
+    orig_storage = @sd.storage
+    @sd.instance_variable_set(:@storage, nil) # pretend persistent
+    @sd.commit :temp
+    @sd.instance_variable_set(:@storage, orig_storage)
+
+    new_val = @sd.val('_1234', 'replies').dup
+    assert_equal(
+      {},
+      new_val,
+      'Field#val should change after the commit :temp'
+    )
+
+    # create an another sub-item
+    @sd.update(
+      '_1234' => {
+        '_owner'  => 'don',
+        'replies' => {
+          '_0001' => {
+            '_owner' => 'don',
+            'reply'  => 'yuck.',
+          },
+        },
+      }
+    )
+
+    orig_storage = @sd.storage
+    @sd.instance_variable_set(:@storage, nil) # pretend persistent
+    @sd.commit :temp
+    @sd.instance_variable_set(:@storage, orig_storage)
+
+    new_val = @sd.val('_1234', 'replies').dup
+    assert_equal(
+      {'_owner' => 'don', 'reply'  => 'yuck.'},
+      new_val.values.first,
+      'Field#val should change after the commit :temp'
+    )
+  end
+
+end