ixtlan-remote 0.1.0

data/lib/ixtlan/user_management/user_serializer.rb~

@@ -0,0 +1,23 @@
+require 'ixtlan/babel/serializer'
+class UserSerializer < Ixtlan::Babel::Serializer
+
+  add_context(:session,
+              :only => [:id],
+              :include=> { 
+                :groups => {
+                  :only => [:name],
+                  :include => {
+                    :locales => { 
+                      :only => [:id, :code]
+                    },
+                    :domains => { 
+                      :only => [:id, :name]
+                    },
+                    :application => {
+                      :only => [:id, :name]
+                    }                      
+                  }
+                }
+              })
+
+end

data/spec/access_controller_spec.rb

@@ -0,0 +1,65 @@
+require 'dm-sqlite-adapter'
+require 'dm-migrations'
+require 'ixtlan/remote/permission'
+require 'ixtlan/remote/access_controller'
+
+DataMapper.setup(:default, 'sqlite::memory:')
+Ixtlan::Remote::Permission.auto_migrate!
+Ixtlan::Remote::Permission.create(:allowed_ip => '1.1.1.1', :authentication_token => 'behappy')
+Ixtlan::Remote::Permission.create(:authentication_token => 'be happy')
+
+class Controller
+  include Ixtlan::Remote::AccessController
+  
+  def new_request
+    r = Object.new
+    def r.headers
+      @m ||= {}
+        end
+    def r.remote_ip(p = nil)
+      @i = p if p
+      @i
+    end
+    r
+  end
+  def request
+    @r ||= new_request
+  end
+end
+
+describe Ixtlan::Remote::AccessController do
+
+  subject { Controller.new }
+
+  it 'should raise when there is no token' do
+    subject.request.headers.clear
+
+    lambda {subject.remote_permission}.must_raise RuntimeError
+  end
+
+  it 'should raise wrong authentication' do
+    subject.request.headers['X-SERVICE-TOKEN'] = 'something'
+
+    lambda {subject.remote_permission}.must_raise RuntimeError
+  end
+
+  it 'should pass without permission IP' do
+    subject.request.headers['X-SERVICE-TOKEN'] = 'be happy'
+
+    subject.remote_permission.authentication_token.must_equal 'be happy'
+  end
+
+  it 'should fail with wrong IP' do
+    subject.request.headers['X-SERVICE-TOKEN'] = 'behappy'
+
+    lambda {subject.remote_permission}.must_raise RuntimeError
+  end
+
+  it 'should pass with right IP' do
+    subject.request.headers['X-SERVICE-TOKEN'] = 'behappy'
+    subject.request.remote_ip '1.1.1.1'
+
+    subject.remote_permission.authentication_token.must_equal 'behappy'
+    subject.remote_permission.allowed_ip.must_equal '1.1.1.1'
+  end
+end

data/spec/access_controller_spec.rb~

@@ -0,0 +1,65 @@
+require 'dm-sqlite-adapter'
+require 'dm-migrations'
+require 'ixtlan/remote/permission'
+require 'ixtlan/remote/access_controller'
+
+DataMapper.setup(:default, 'sqlite::memory:')
+Ixtlan::Remote::Permission.auto_migrate!
+Ixtlan::Remote::Permission.create(:ip => '1.1.1.1', :token => 'behappy')
+Ixtlan::Remote::Permission.create(:token => 'be happy')
+
+class Controller
+  include Ixtlan::Remote::AccessController
+  
+  def new_request
+    r = Object.new
+    def r.headers
+      @m ||= {}
+        end
+    def r.remote_ip(p = nil)
+      @i = p if p
+      @i
+    end
+    r
+  end
+  def request
+    @r ||= new_request
+  end
+end
+
+describe Ixtlan::Remote::AccessController do
+
+  subject { Controller.new }
+
+  it 'should raise when there is no token' do
+    subject.request.headers.clear
+
+    lambda {subject.remote_permission}.must_raise RuntimeError
+  end
+
+  it 'should raise wrong authentication' do
+    subject.request.headers['X-SERVICE-TOKEN'] = 'something'
+
+    lambda {subject.remote_permission}.must_raise RuntimeError
+  end
+
+  it 'should pass without permission IP' do
+    subject.request.headers['X-SERVICE-TOKEN'] = 'be happy'
+
+    subject.remote_permission.token.must_equal 'be happy'
+  end
+
+  it 'should fail with wrong IP' do
+    subject.request.headers['X-SERVICE-TOKEN'] = 'behappy'
+
+    lambda {subject.remote_permission}.must_raise RuntimeError
+  end
+
+  it 'should pass with right IP' do
+    subject.request.headers['X-SERVICE-TOKEN'] = 'behappy'
+    subject.request.remote_ip '1.1.1.1'
+
+    subject.remote_permission.token.must_equal 'behappy'
+    subject.remote_permission.ip.must_equal '1.1.1.1'
+  end
+end

data/spec/model_helpers_spec.rb

@@ -0,0 +1,40 @@
+require 'ixtlan/remote/model_helpers'
+require 'active_support/core_ext/string'
+describe Ixtlan::Remote::ModelHelpers do
+
+  subject { Object.send :include, Ixtlan::Remote::ModelHelpers }
+
+  it 'should pass through' do
+    subject.to_model("asd").must_equal "asd"
+    subject.to_model(:asd).must_equal :asd
+  end
+
+  it 'should get first key of hash' do
+    subject.to_model(:be_happy => []).must_equal :be_happy
+    subject.to_model(:be_happy => {}).must_equal :be_happy
+  end
+
+  it 'should get class' do
+    subject.to_model(String).must_equal String
+    subject.to_model(["dsa"]).must_equal String
+    subject.to_model(Object.new).must_equal Object
+  end
+
+  it 'should get underscored string' do
+    subject.to_model_underscore(StringIO).must_equal 'string_io'
+    subject.to_model_underscore(["dsa"]).must_equal 'string'
+    subject.to_model_underscore(Object.new).must_equal 'object'
+    subject.to_model_underscore(:be_happy => []).must_equal 'be_happy'
+    subject.to_model_underscore(:be_happy => {}).must_equal 'be_happy'
+    subject.to_model_underscore("asd").must_equal 'asd'
+    subject.to_model_underscore(:asd).must_equal 'asd'
+  end
+
+  it 'should get underscored singular' do
+    #subject.to_model_singular_underscore('women').must_equal 'woman'
+    #subject.to_model_singular_underscore(:men).must_equal 'man'
+    subject.to_model_singular_underscore('cars').must_equal 'car'
+    subject.to_model_singular_underscore(:cars).must_equal 'car'
+  end
+
+end

data/spec/model_helpers_spec.rb~

@@ -0,0 +1,36 @@
+require 'ixtlan/remote/model_helpers'
+require 'active_support/core_ext/string'
+describe Ixtlan::Remote::ModelHelpers do
+
+  subject { Object.send :include, Ixtlan::Remote::ModelHelpers }
+
+  it 'should pass through' do
+    subject.to_model("asd").must_equal "asd"
+    subject.to_model(:asd).must_equal :asd
+  end
+
+  it 'should get first key of hash' do
+    subject.to_model(:be_happy => []).must_equal :be_happy
+  end
+
+  it 'should get class' do
+    subject.to_model(String).must_equal String
+    subject.to_model(["dsa"]).must_equal String
+    subject.to_model(Object.new).must_equal Object
+  end
+
+  it 'should get underscored string' do
+    subject.to_model_underscore(StringIO).must_equal 'string_io'
+    subject.to_model_underscore(["dsa"]).must_equal 'string'
+    subject.to_model_underscore(Object.new).must_equal 'object'
+    subject.to_model_underscore(:be_happy => []).must_equal 'be_happy'
+    subject.to_model_underscore("asd").must_equal 'asd'
+    subject.to_model_underscore(:asd).must_equal 'asd'
+  end
+
+  it 'should get underscored singular' do
+    subject.to_model_singular_underscore('women').must_equal 'woman'
+    subject.to_model_singular_underscore(:men).must_equal 'man'
+  end
+
+end

data/spec/remote_access_controller_spec.rb~

@@ -0,0 +1,36 @@
+require 'ixtlan/remote/model_helpers'
+require 'active_support/core_ext/string'
+describe Ixtlan::Remote::ModelHelpers do
+
+  subject { Object.send :include, Ixtlan::Remote::ModelHelpers }
+
+  it 'should pass through' do
+    subject.to_model("asd").must_equal "asd"
+    subject.to_model(:asd).must_equal :asd
+  end
+
+  it 'should get first key of hash' do
+    subject.to_model(:be_happy => []).must_equal :be_happy
+  end
+
+  it 'should get class' do
+    subject.to_model(String).must_equal String
+    subject.to_model(["dsa"]).must_equal String
+    subject.to_model(Object.new).must_equal Object
+  end
+
+  it 'should get underscored string' do
+    subject.to_model_underscore(StringIO).must_equal 'string_io'
+    subject.to_model_underscore(["dsa"]).must_equal 'string'
+    subject.to_model_underscore(Object.new).must_equal 'object'
+    subject.to_model_underscore(:be_happy => []).must_equal 'be_happy'
+    subject.to_model_underscore("asd").must_equal 'asd'
+    subject.to_model_underscore(:asd).must_equal 'asd'
+  end
+
+  it 'should get underscored singular' do
+    subject.to_model_singular_underscore('women').must_equal 'woman'
+    subject.to_model_singular_underscore(:men).must_equal 'man'
+  end
+
+end

data/spec/resource_spec.rb

@@ -0,0 +1,181 @@
+require 'ixtlan/remote/resource'
+require 'ixtlan/remote/server'
+require 'active_support/core_ext/string'
+require 'json'
+class RestClientMock
+
+  def [](path)
+    @path = path
+    self
+  end
+  
+  attr_reader :path
+  attr_accessor :response_payload
+  
+  def response_payload( *args )
+    @response_payload
+  end
+
+  alias :get :response_payload
+  alias :post :response_payload
+  alias :put :response_payload
+  alias :delete :response_payload
+
+end
+class User
+  
+  def initialize( args = {} )
+    @id = (args || {})['id'].to_i
+    @name = (args || {})['name']
+  end
+
+  attr_reader :id, :name
+
+  def attributes
+    {'id' => @id, 'name' => @name }
+  end
+end
+class ClientUser < User; end
+
+describe Ixtlan::Remote::Resource do
+
+  subject {  Ixtlan::Remote::Resource.new( rest_client, User ) }
+ 
+  let( :rest_client ) { ::RestClientMock.new }
+
+  describe 'create' do
+    [ [User], [:users], ["users"], ["admins", 1, User], ["admins/1", User], [ClientUser] ].each do |user|
+      user.push({:name => 'bla'})
+      it 'user without root' do
+        
+        rest_client.response_payload = '{ "id": 1, "name": "bla" }'
+
+        u = subject.create( *user ).send_it
+        u.id.must_equal 1
+        u.name.must_equal 'bla'
+        
+        u.class.must_equal User
+        rest_client.path.must_match /(.*\/)?users$/
+      end
+      
+      it 'user with root' do
+        
+        rest_client.response_payload = '{ "user": { "id": 1, "name": "bla" } }'
+       
+        u = subject.create( *user ).send_it
+        u.id.must_equal 1
+        u.name.must_equal 'bla'
+        
+        u.class.must_equal User
+        rest_client.path.must_match /(.*\/)?users$/
+      end
+    end
+  end
+
+  describe 'retrieve' do
+    [ [User.new('id' => 1)], [User], [:users], ["users"], ["admins", 1, User], ["admins/1", User], [ClientUser] ].each do |user|
+      it 'user without root' do
+        
+        rest_client.response_payload = '{ "id": 1, "name": "bla" }'
+
+        uu = user.dup
+        uu.push( 1 )
+        u = subject.retrieve( *uu ).send_it
+        u.id.must_equal 1
+        u.name.must_equal 'bla'
+        
+        u.class.must_equal User
+        rest_client.path.must_match /(.*\/)?users\/1$/
+      end
+      
+      it 'users without root' do
+        
+        rest_client.response_payload = '[ { "id": 1, "name": "bla" }, { "id": 2, "name": "blabla" } ]'
+
+        u = subject.retrieve( *user ).send_it
+        u.size.must_equal 2
+        u[0].id.must_equal 1
+        u[0].name.must_equal 'bla'
+        u[1].id.must_equal 2
+        u[1].name.must_equal 'blabla'
+        
+        u[0].class.must_equal User
+        u[1].class.must_equal User
+        rest_client.path.must_match /(.*\/)?users$/
+      end
+   
+      it 'user with root' do
+        
+        rest_client.response_payload = '{ "user": { "id": 1, "name": "bla" } }'
+
+        uu = user.dup
+        uu.push( 1 )
+        u = subject.create( *uu ).send_it
+        u.id.must_equal 1
+        u.name.must_equal 'bla'
+        
+        u.class.must_equal User
+        rest_client.path.must_match /(.*\/)?users\/1$/
+      end
+
+      it 'users with root' do
+        
+        rest_client.response_payload = '[ { "user": { "id": 1, "name": "bla" } }, { "user": { "id": 2, "name": "blabla" } } ]'
+
+        u = subject.create( *user ).send_it
+        u.size.must_equal 2
+        u[0].id.must_equal 1
+        u[0].name.must_equal 'bla'
+        u[1].id.must_equal 2
+        u[1].name.must_equal 'blabla'
+        
+        u[0].class.must_equal User
+        u[1].class.must_equal User
+        rest_client.path.must_match /(.*\/)?users$/
+      end       
+    end
+  end
+
+  describe 'update' do
+    [ [User.new('id' => 1)], [User], [:users], ["users"], ["admins", 1, User], ["admins/1", User], [ClientUser] ].each do |user|
+      user.push( 1 )
+      user.push( {:name => 'buh'} )
+
+      it 'user without root' do
+        
+        rest_client.response_payload = '{ "id": 1, "name": "bla" }'
+
+        u = subject.update( *user ).send_it
+        u.id.must_equal 1
+        u.name.must_equal 'bla'
+                
+        u.class.must_equal User
+        rest_client.path.must_match /(.*\/)?users\/1$/
+      end
+
+      it "user with root #{user} " do
+        
+        rest_client.response_payload = '{ "user": { "id": 1, "name": "blablabla" } }'
+
+        u = subject.update( *user ).send_it
+
+        u.id.must_equal 1
+        u.name.must_equal 'blablabla'        
+        u.class.must_equal User
+        rest_client.path.must_match /(.*\/)?users\/1$/
+      end
+    end
+  end
+
+   describe 'delete' do
+    [ [User, 1], [:users,1], ["users",1], ["admins", 1, User, 1], ["admins/1", User, 1], [ClientUser, 1] ].each do |user|
+      it "user #{user.inspect}" do
+
+        subject.delete( *user ).send_it.must_be_nil
+
+        rest_client.path.must_match /(.*\/)?users\/1$/
+
+      end
+   end
+ end
+end