towsta 1.3.0 → 2.0.0

data/lib/towsta/vertical.rb

@@ -2,144 +2,29 @@ module Towsta
 
   class Vertical
 
-    class << self
-      attr_accessor :all
-    end
-
-    def self.create(args)
-      klass = Class.new do
-
-        class << self
-          attr_accessor :all, :attributes, :count
-        end
-
-        attr_accessor :message
-
-        include R18n::Helpers
-
-        def i18n attr
-          self.send :"#{attr.to_s}_#{R18n.get.locales.first.code}"
-        end
-
-        def to_mail
-          string = ''
-          meta_attributes.each do |attribute, value|
-            string << "<b>#{attribute.to_s}:</b> #{value} <br/>"
-          end
-          string
-        end
-
-        def meta_attributes
-          a = attributes.clone
-          a.delete :author
-          a.delete :created_at
-          a.delete :updated_at
-          a.delete :id
-          a
-        end
-
-        def notify args
-          Pony.mail({:html_body => to_mail}.merge(args))
-        end
-
-        args[:slices].each do |attr, kind|
-          eval "def object_of_#{attr}; @#{attr}; end;"
-          eval "def #{attr}= value; @#{attr} ||= Towsta::Kinds::#{kind[0].upcase + kind[1..-1]}Kind.new; @#{attr}.set value; end;"
-          eval "def #{attr}; @#{attr}.get; end;"
-          eval "def self.find_by_#{attr} value; self.all.each {|e| return e if e.object_of_#{attr}.compare value}; nil; end;"
-          eval "def self.find_all_by_#{attr} value; found =[]; self.all.each {|e| found << e if e.object_of_#{attr}.compare value}; found; end;"
-          eval "def option_for_#{attr} value; return {value: value, selected: 'selected'} if value == #{attr}; {value: value}; end"
-        end
-
-        def self.first
-          self.all.first
-        end
-
-        def self.last
-          self.all.last
-        end
-
-        def self.find id
-          self.find_by_id id
-        end
-
-        def initialize args
-          self.attributes.merge(args).each {|k,v| self.send("#{k}=".to_sym, v)}
-          self.class.all << self
-        end
+    cattr_accessor :all
 
-        def update args, author=$towsta_default_author
-          args.each {|k,v| self.send("#{k}=".to_sym, v)}
-          self.save author
-        end
+    self.all ||= []
 
-        def destroy
-        #  self.class.all.delete self
-        #  self
-        end
-
-        def self.to_hash
-          hashes = []
-          self.all.each {|hash| hashes << hash.attributes}
-          hashes
-        end
-
-        def save creator=$towsta_default_author
-          creator = author.email if author
-          export = self.attributes
-          export.delete :author
-          export.delete :created_at
-          export.delete :updated_at
-          id_aux = export.delete(:id)
-          id_aux ? id_aux : '0'
-          export = {:creator => creator, :vertical => self.class.to_s, :attributes => export, :id => id_aux}
-          response = Towsta::Synchronizer.save_request export
-          @message = response[:message]
-          self.id = response[:id] if response[:status]
-          self.author = User.find_by_email creator
-          Towsta::Memory.flush if $towsta_cache
-          response[:status]
-        end
-
-        def self.random
-          position = (self.all.size) - 1
-          self.all[rand(position)]
-        end
-
-        def self.create args, creator=$towsta_default_author
-          new = self.new(args.merge(:id => nil))
-          new.save creator
-          new
-        end
-
-        def attributes
-          horizontal = {}
-          self.class.attributes.each do |attr|
-            slice = eval("self.object_of_#{attr.to_s}")
-            horizontal[attr] = slice ? slice.export : nil
-          end
-          horizontal
-        end
-
-        def self.add_occurrence occurrence
-          self.send(:define_singleton_method, "occurrences_of_#{occurrence[:name].downcase}") do
-            eval occurrence[:items].inspect
-          end
-        end
-
-        def method_missing(meth, *args, &block)
-          begin
-            return self.i18n meth.to_sym
-          rescue
-            super
-          end
-        end
-
-      end
+    def self.create args
+      klass = Class.new(VerticalCore) { args[:slices].each { |attr, kind| define_attribute attr, kind } }
       klass.all = []
-      klass.count = args[:count]
-      klass.attributes = args[:slices].keys
+      Vertical.all << klass
       Object.const_set args[:name], klass
+      puts "  class #{args[:name]} was created"
+    end
+
+    def self.populate classname, horizontals, occurrences = []
+      klass = Kernel.const_get classname.to_s
+      klass.all = []
+      horizontals.each {|horizontal| klass.new(horizontal)}
+      occurrences.each {|occurrence| klass.add_occurrence(occurrence)}
+      puts "  class #{classname} was populated with #{horizontals.size} instances"
+    end
+
+    def self.clear
+      Vertical.all.each {|vertical| Object.instance_eval{ remove_const vertical.to_s.to_sym }}
+      Vertical.all = []
     end
 
   end

data/lib/towsta.rb

@@ -1,5 +1,4 @@
 #coding: utf-8
-require 'dalli'
 require 'digest/md5'
 require 'net/http'
 require 'cgi'
@@ -14,12 +13,17 @@ require 'compass'
 require 'sinatra/content_for'
 require 'i18n-router'
 require 'pony'
+require 'active_support/all'
 
-require File.expand_path('../towsta/string_extension', __FILE__)
+require File.expand_path('../towsta/vertical-core/base', __FILE__)
+require File.expand_path('../towsta/vertical-core/attributes', __FILE__)
+require File.expand_path('../towsta/vertical-core/crud', __FILE__)
+require File.expand_path('../towsta/vertical-core/locales', __FILE__)
+require File.expand_path('../towsta/vertical-core/mail', __FILE__)
+require File.expand_path('../towsta/vertical-core/references', __FILE__)
 require File.expand_path('../towsta/kinds/main', __FILE__)
 require File.expand_path('../towsta/vertical', __FILE__)
 require File.expand_path('../towsta/synchronizer', __FILE__)
-require File.expand_path('../towsta/memory', __FILE__)
 require File.expand_path('../towsta/sinatra_extension', __FILE__)
 require File.expand_path('../towsta/login', __FILE__)
 require File.expand_path('../towsta/kinds/boolean', __FILE__)
@@ -40,24 +44,8 @@ require File.expand_path('../towsta/kinds/vertical', __FILE__)
 require File.expand_path('../towsta/kinds/video', __FILE__)
 require File.expand_path('../towsta/kinds/multiple', __FILE__)
 
-Dir["./controllers/*.rb"].each {|file| require file}
-
 module Towsta
+  mattr_accessor :secret, :global, :author
 end
 
-def sync_with_towsta params=nil
-  params ||= {} if $towsta_sync
-  $towsta_sync ||= {}
-  params = $towsta_sync.merge(params) if params
-  $towsta_cache ||= production?
-  if $towsta_cache
-    Towsta::Memory.recover params
-  else
-    Towsta::Synchronizer.new :secret => $towsta_secret, :path => $towsta_path, :params => params
-  end
-  Dir["./models/*.rb"].each {|file| load file }
-end
-
-def clear_sync
-  Towsta::Memory.flush
-end
+require File.expand_path("../towsta/envs/#{ENV['RACK_ENV'].downcase}", __FILE__)

data/spec/kinds/boolean_spec.rb

@@ -0,0 +1,54 @@
+describe Towsta::Kinds::BooleanKind do
+
+  context 'when sets with "1"' do
+
+    subject {Towsta::Kinds::BooleanKind.new '1'}
+
+    its(:get) {should == true}
+
+    its(:export) {should == '1'}
+
+  end
+
+  context 'when sets with "0"' do
+
+    subject {Towsta::Kinds::BooleanKind.new '0'}
+
+    its(:get) {should == false}
+
+    its(:export) {should == '0'}
+
+  end
+
+  context 'when sets with "Test String"' do
+
+    subject {Towsta::Kinds::BooleanKind.new 'Test String'}
+
+    its(:get) {should == false}
+
+    its(:export) {should == '0'}
+
+  end
+
+  context 'when sets with True' do
+
+    subject {Towsta::Kinds::BooleanKind.new true}
+
+    its(:get) {should == true}
+
+    its(:export) {should == '1'}
+
+  end
+
+  context 'when sets with False' do
+
+    subject {Towsta::Kinds::BooleanKind.new false}
+
+    its(:get) {should == false}
+
+    its(:export) {should == '0'}
+
+  end
+
+end
+

data/spec/kinds/date_spec.rb

@@ -0,0 +1,37 @@
+describe Towsta::Kinds::DateKind do
+
+  let(:input) {'10/16/1992'}
+  let(:format) {'%m/%d/%Y'}
+  let(:date) {DateTime.strptime('10/16/1992', '%m/%d/%Y')}
+
+  context 'when sets with %m/%d/%Y' do
+
+    subject {Towsta::Kinds::DateKind.new input}
+
+    its(:get) {should == date}
+
+    its(:export) {should == input}
+
+  end
+
+  context 'when sets with a bad string' do
+
+    subject {Towsta::Kinds::DateKind.new 'Bad String'}
+
+    its(:get) {should be_nil}
+
+    its(:export) {should be_blank}
+
+  end
+
+  context 'when sets with a DateTime' do
+
+    subject {Towsta::Kinds::DateKind.new date}
+
+    its(:get) {should == date}
+
+    its(:export) {should == input}
+
+  end
+
+end

data/spec/kinds/datetime_spec.rb

@@ -0,0 +1,37 @@
+describe Towsta::Kinds::DatetimeKind do
+
+  let(:input) {'10/16/1992 00:00'}
+  let(:format) {'%m/%d/%Y %H:%M'}
+  let(:datetime) {DateTime.strptime(input, format).to_time}
+
+  context 'when sets with %m/%d/%Y %H:%M' do
+
+    subject {Towsta::Kinds::DatetimeKind.new input}
+
+    its(:get) {should == datetime}
+
+    #its(:export) {should == input}
+
+  end
+
+  context 'when sets with a bad string' do
+
+    subject {Towsta::Kinds::DatetimeKind.new 'Bad String'}
+
+    its(:get) {should be_nil}
+
+    its(:export) {should be_blank}
+
+  end
+
+  context 'when sets with a DateTime' do
+
+    subject {Towsta::Kinds::DatetimeKind.new datetime}
+
+    its(:get) {should == datetime}
+
+    #its(:export) {should == input}
+
+  end
+
+end

data/spec/kinds/gallery_spec.rb

@@ -0,0 +1,43 @@
+describe Towsta::Kinds::GalleryKind do
+
+  let(:input) {[
+    {reference: 'upload', source: 'URLImage', link: 'mypicture.png'},
+    {reference: 'upload', source: 'URLImage', link: 'otherpicture.png'}
+  ]}
+
+  let(:gallery){[
+    Bresson::ImageReference.new(input.first),
+    Bresson::ImageReference.new(input.last)
+  ]}
+
+  context 'when sets with json' do
+
+    subject {Towsta::Kinds::GalleryKind.new input.to_json}
+
+    #its(:get) {should == gallery}
+
+    its(:export) {should == input.to_json}
+
+  end
+
+  context 'when sets with a bad string' do
+
+    subject {Towsta::Kinds::GalleryKind.new 'Bad String'}
+
+    its(:get) {should == []}
+
+    its(:export) {should be_blank}
+
+  end
+
+  context 'when sets with a Gallery' do
+
+    subject {Towsta::Kinds::GalleryKind.new gallery}
+
+    its(:get) {should == gallery}
+
+    its(:export) {should == input.to_json}
+
+  end
+
+end

data/spec/kinds/image_spec.rb

@@ -0,0 +1,39 @@
+describe Towsta::Kinds::ImageKind do
+
+  let(:input) {{reference: 'upload', source: 'URLImage', link: 'mypicture.png'}}
+
+  let(:json) {"(#{input.to_json})"}
+
+  let(:image){Bresson::ImageReference.new input}
+
+  context 'when sets with json' do
+
+    subject {Towsta::Kinds::ImageKind.new json}
+
+    #its(:get) {should == image}
+
+    its(:export) {should == json}
+
+  end
+
+  context 'when sets with a bad string' do
+
+    subject {Towsta::Kinds::ImageKind.new 'Bad String'}
+
+    its(:get) {should be_nil}
+
+    its(:export) {should be_blank}
+
+  end
+
+  context 'when sets with a Image' do
+
+    subject {Towsta::Kinds::ImageKind.new image}
+
+    its(:get) {should == image}
+
+    its(:export) {should == json}
+
+  end
+
+end

data/spec/kinds/integer_spec.rb

@@ -0,0 +1,33 @@
+describe Towsta::Kinds::IntegerKind do
+
+  context 'when sets with numeric string' do
+
+    subject {Towsta::Kinds::IntegerKind.new '1'}
+
+    its(:get) {should == 1}
+
+    its(:export) {should == '1'}
+
+  end
+
+  context 'when sets with a bad string' do
+
+    subject {Towsta::Kinds::IntegerKind.new 'Bad String'}
+
+    its(:get) {should be_zero}
+
+    its(:export) {should == '0'}
+
+  end
+
+  context 'when sets with a integer' do
+
+    subject {Towsta::Kinds::IntegerKind.new 1}
+
+    its(:get) {should == 1}
+
+    its(:export) {should == '1'}
+
+  end
+
+end

data/spec/kinds/list_spec.rb

@@ -0,0 +1,37 @@
+describe Towsta::Kinds::ListKind do
+
+  let(:input) {'some, test, string'}
+
+  let(:list){%w{some test string}}
+
+  context 'when sets with json' do
+
+    subject {Towsta::Kinds::ListKind.new input}
+
+    its(:get) {should == list}
+
+    its(:export) {should == input}
+
+  end
+
+  context 'when sets with a bad string' do
+
+    subject {Towsta::Kinds::ListKind.new 'Bad String'}
+
+    its(:get) {should == ['Bad String']}
+
+    its(:export) {should == 'Bad String'}
+
+  end
+
+  context 'when sets with a List' do
+
+    subject {Towsta::Kinds::ListKind.new list}
+
+    its(:get) {should == list}
+
+    its(:export) {should == input}
+
+  end
+
+end

data/spec/kinds/main_spec.rb

@@ -0,0 +1,24 @@
+describe Towsta::Kinds::MainKind do
+
+  subject { Towsta::Kinds::MainKind.new "Test String"}
+
+  its(:get) { should == 'Test String'}
+
+  it 'unescapes on set' do
+    subject.set "\'"
+    subject.get.should == "'"
+  end
+
+  it 'compares two equal objects' do
+    subject.compare('Test String').should == true
+  end
+
+  it 'compares two different objects' do
+    subject.compare('Other String').should == false
+  end
+
+  its(:export) {should == 'Test String'}
+
+  its(:kind) {should == 'main'}
+
+end

data/spec/kinds/money_spec.rb

@@ -0,0 +1,37 @@
+describe Towsta::Kinds::MoneyKind do
+
+  let(:input) {'1.000,00'}
+
+  let(:money){1_000.00}
+
+  context 'when sets with string' do
+
+    subject {Towsta::Kinds::MoneyKind.new input}
+
+    its(:get) {should == money}
+
+    its(:export) {should == input}
+
+  end
+
+  context 'when sets with a bad string' do
+
+    subject {Towsta::Kinds::MoneyKind.new 'Bad String'}
+
+    its(:get) {should be_zero}
+
+    its(:export) {should == '0'}
+
+  end
+
+  context 'when sets with a Float' do
+
+    subject {Towsta::Kinds::MoneyKind.new input}
+
+    its(:get) {should == money}
+
+    its(:export) {should == input}
+
+  end
+
+end

data/spec/kinds/multiple_spec.rb

@@ -0,0 +1,41 @@
+describe Towsta::Kinds::MultipleKind do
+
+  let(:input) {'1 2'}
+
+  before(:all){
+    Towsta::Vertical.clear
+    Towsta::Vertical.create name: 'Dog', slices: {id: 'integer'}
+    Towsta::Vertical.populate 'Dog', [{id: 1}, {id: 2}]
+  }
+
+  context 'when sets with string' do
+
+    subject {Towsta::Kinds::MultipleKind.new input}
+
+    its(:get) {should == Dog.all}
+
+    its(:export) {should == input}
+
+  end
+
+  context 'when sets with a bad string' do
+
+    subject {Towsta::Kinds::MultipleKind.new 'Bad String'}
+
+    its(:get) {should == []}
+
+    its(:export) {should == ''}
+
+  end
+
+  context 'when sets with a Multiple' do
+
+    subject {Towsta::Kinds::MultipleKind.new Dog.all}
+
+    its(:get) {should == Dog.all}
+
+    its(:export) {should == input}
+
+  end
+
+end

data/spec/kinds/user_spec.rb

@@ -0,0 +1,41 @@
+describe Towsta::Kinds::UserKind do
+
+  let(:input) {'1'}
+
+  before(:all){
+    Towsta::Vertical.clear
+    Towsta::Vertical.create name: 'User', slices: {id: 'integer'}
+    Towsta::Vertical.populate 'User', [{id: 1}]
+  }
+
+  context 'when sets with string' do
+
+    subject {Towsta::Kinds::UserKind.new input}
+
+    its(:get) {should == User.first}
+
+    its(:export) {should == input}
+
+  end
+
+  context 'when sets with a bad string' do
+
+    subject {Towsta::Kinds::UserKind.new 'Bad String'}
+
+    its(:get) {should be_nil}
+
+    its(:export) {should be_blank}
+
+  end
+
+  context 'when sets with a User' do
+
+    subject {Towsta::Kinds::UserKind.new User.first}
+
+    its(:get) {should == User.first}
+
+    its(:export) {should == input}
+
+  end
+
+end

data/spec/kinds/vertical_spec.rb

@@ -0,0 +1,41 @@
+describe Towsta::Kinds::VerticalKind do
+
+  let(:input) {'1'}
+
+  before(:all){
+    Towsta::Vertical.clear
+    Towsta::Vertical.create name: 'Cat', slices: {id: 'integer'}
+    Towsta::Vertical.populate 'Cat', [{id: 1}]
+  }
+
+  context 'when sets with string' do
+
+    subject {Towsta::Kinds::VerticalKind.new input}
+
+    its(:get) {should == Cat.first}
+
+    its(:export) {should == input}
+
+  end
+
+  context 'when sets with a bad string' do
+
+    subject {Towsta::Kinds::VerticalKind.new 'Bad String'}
+
+    its(:get) {should be_nil}
+
+    its(:export) {should be_blank}
+
+  end
+
+  context 'when sets with a Cat' do
+
+    subject {Towsta::Kinds::VerticalKind.new Cat.first}
+
+    its(:get) {should == Cat.first}
+
+    its(:export) {should == input}
+
+  end
+
+end