Action events

app/models/card/reference.rb

@@ -66,4 +66,5 @@ def repair_all
     end
 
   end
+
 end

app/models/user.rb

@@ -40,7 +40,7 @@ def create_ok?
     # FIXME: args=params.  should be less coupled..
     def create_with_card user_args, card_args, email_args={}
       card_args[:type_id] ||= Card::UserID
-      @card = Card.fetch(card_args[:name], :new=>card_args)
+      @card = Card.fetch card_args[:name], :new => card_args
       Account.as_bot do
         @account = User.new(user_args)
         @account.status = 'active' unless user_args.has_key? :status

lib/wagn/renderer.rb

@@ -1,6 +1,5 @@
 # -*- encoding : utf-8 -*-
 
-
 module Wagn
   class Renderer
 
@@ -9,13 +8,16 @@ class Renderer
     cattr_accessor :current_slot, :ajax_call, :perms, :denial_views, :subset_views, :error_codes, :view_tags, :current_class
     @@current_class = Renderer
 
+    attr_reader :format, :card, :root, :parent
+    attr_accessor :form, :main_content, :error_status
+
+
     DEPRECATED_VIEWS = { :view=>:open, :card=>:open, :line=>:closed, :bare=>:core, :naked=>:core }
     INCLUSION_MODES  = { :main=>:main, :closed=>:closed, :closed_content=>:closed, :edit=>:edit,
       :layout=>:layout, :new=>:edit, :normal=>:normal, :template=>:template } #should be set in views
     #DEFAULT_ITEM_VIEW = :link  # should be set in card?
 
     RENDERERS = { #should be defined in renderer
-      :json => :JsonRenderer,
       :email => :EmailHtml,
       :txt  => :Text
     }
@@ -28,9 +30,6 @@ class Renderer
     @@error_codes    = {}
     @@view_tags      = {}
 
-    attr_reader :format, :card, :root, :parent
-    attr_accessor :form, :main_content, :error_status
-
     class << self
 
       def get_renderer format
@@ -110,7 +109,7 @@ def template
 
     def method_missing method_id, *args, &proc
       proc = proc {|*a| raw yield *a } if proc
-      #warn "mmiss #{self.class}, #{card.name}, #{method_id}"
+      #Rails.logger.warn "mmiss #{self.class}, #{@card.inspect}, #{caller[0]}, #{method_id}"
       response = template.send method_id, *args, &proc
       String===response ? template.raw( response ) : response
     end
@@ -336,7 +335,7 @@ def process_inclusion tcard, opts
 
       opts[:home_view] = [:closed, :edit].member?(view) ? :open : view
       # FIXME: special views should be represented in view definitions
-      
+
       view = case
       when @mode == :edit
         if @@perms[view]==:none || tcard.hard_template || tcard.key.blank? # eg {{_self|type}} on new cards
@@ -348,7 +347,7 @@ def process_inclusion tcard, opts
       when @@perms[view]==:none ; view
       when @mode == :closed     ; !tcard.known?  ? :closed_missing : :closed_content
       else                      ; view
-      end  
+      end
 
       result = sub.render(view, opts)
       Renderer.current_slot = oldrenderer
@@ -456,7 +455,6 @@ def add_name_context name=nil
 
   end
 
-
   class Renderer::Html < Renderer                ; end
 
   class Renderer::File < Renderer                ; end
@@ -466,7 +464,7 @@ class Renderer::Csv < Renderer::Text           ; end
   class Renderer::Css < Renderer::Text           ; end
 
   class Renderer::Data < Renderer                ; end
-  class Renderer::JsonRenderer < Renderer::Data  ; end
+  class Renderer::Json < Renderer::Data          ; end
   class Renderer::Xml < Renderer::Data           ; end
 
 end

lib/wql.rb

@@ -259,7 +259,7 @@ def revision_spec(field, linkfield, val)
     end
 
     def found_by(val)
-      cards = (String===val ? [ Card.fetch( absolute_name(val), :new=>{} ) ] : Wql.new(val).run)
+      cards = ( String===val ? [ Card.fetch( absolute_name(val), :new=>{} ) ] : Wql.new(val).run )
       cards.each do |c|
         raise %{"found_by" value needs to be valid Search card #{c.inspect}} unless c && [Card::SearchTypeID,Card::SetID].include?(c.type_id)
         found_by_spec = CardSpec.new(c.get_spec).rawspec

spec/controllers/admin_controller_spec.rb

@@ -0,0 +1,27 @@
+require File.expand_path('../spec_helper', File.dirname(__FILE__))
+
+describe AdminController, "admin functions" do
+  before do
+    Account.as_bot do
+      Card.search(:type => Card::UserID).each do |card|
+        card.destroy
+      end
+    end
+  end
+
+  it "should setup be ready to setup" do
+    post :setup, :account => {:email=>'admin@joe'}
+  end
+
+  it "should clear cache" do
+    Account.as :joe_user do
+      get :clear_cache
+    end
+  end
+
+  it "should show cache" do
+    Account.as :joe_user do
+      get :show_cache, :id=>"A"
+    end
+  end
+end

spec/controllers/location_spec.rb

@@ -0,0 +1,50 @@
+require File.expand_path('../spec_helper', File.dirname(__FILE__))
+include AuthenticatedTestHelper
+
+describe CardController, "location test from old integration" do
+
+  include LocationHelper
+
+  before do
+    login_as 'joe_user'
+  end
+
+  it "should test_previous_location_should_be_assigned_after_viewing" do
+    get :read, :id=>"Joe_User"
+    assert_equal "/Joe_User", assigns['previous_location']
+  end
+
+  it "should test_previous_location_should_not_be_updated_by_nonexistent_card" do
+    get :read, :id=>"Joe_User"
+    get :read, :id=>"Not_Me"
+    get :read, :id=>'*previous'
+    assert_redirected_to '/Joe_User'
+  end
+
+  it "should test_return_to_special_url_when_logging_in_after_visit" do
+    # not sure this still tests the case, controller tests do not test routes
+    get :read, :id=>'*recent'
+    assert_equal "/*recent",  assigns['previous_location']
+  end
+
+  # FIXME: this should probably be files in the spot for a delete test
+  it "should test_removal_and_return_to_previous_undeleted_card_after_deletion" do
+    t1 = t2 = nil
+    Account.as_bot do
+      t1 = Card.create! :name => "Testable1", :content => "hello"
+      t2 = Card.create! :name => "Testable1+bandana", :content => "world"
+    end
+
+    get :read, :id => t1.key
+    get :read, :id => t2.key
+
+    post :delete, :id=> '~'+t2.id.to_s
+    assert_nil Card[ t2.name ]
+    assert_redirected_to "/#{t1.name}"
+
+    post :delete, :id => '~'+t1.id.to_s
+    assert_redirected_to '/'
+    assert_nil Card[ t1.name ]
+  end
+
+end

spec/controllers/sets_spec.rb

@@ -0,0 +1,130 @@
+
+require File.expand_path('../spec_helper', File.dirname(__FILE__))
+include AuthenticatedTestHelper
+
+describe CardController do
+  it "module exists and autoloads" do
+    Wagn::Sets.should be_true
+  end
+
+  describe "read all set" do
+    it "gets data" do
+      get :read, :id=>'a'
+    end
+  end
+
+  describe ".process_read" do
+    before do
+    end
+
+    it "invokes actions on matching cards" do
+    end
+
+    it "does not invoke actions on non-matching cards" do
+    end
+
+    it "invokes actions for set names" do
+
+    end
+
+    it "invokes multiple registered actions with arguments" do
+    end
+  end
+end
+
+
+describe CardController, "Basic rendering tests" do
+
+  before do
+    @sample_cards = Card.where("cards.key like 'sample_%' and cards.key not like '%+%'")
+  end
+
+  #these tests are increasingly lame.
+  # how about we actually test for presense of a few things ?
+
+  describe "for anonymous" do
+    before do
+      login_as :anonymous
+    end
+
+    it "should get changes for basic" do
+      card = Card['Sample Basic']
+      card.new_card?.should be_false
+      get :read, :id => "~#{card.id}", :view=>'changes'
+      assert_response :success
+    end
+
+    it "should read all types" do
+      @sample_cards.each do |sample|
+        get :read, :id => "~#{sample.id}"
+        assert_response :success
+      end
+    end
+
+    it "should get options for all types" do
+      @sample_cards.each do |sample|
+        get :read, :id => "~#{sample.id}", :view=>'options'
+        assert_response :success
+      end
+    end
+
+    it "should get edit form for all types" do
+      @sample_cards.each do |sample|
+        get :read, :id => "~#{sample.id}", :view=>'edit'
+        assert_response :forbidden
+      end
+    end
+
+    it "should get new for basic" do
+      get :read, :view=>'new'
+      assert_response :forbidden
+    end
+  end
+
+  describe "for joe user" do
+    before do
+      login_as 'Joe User'
+    end
+
+    it "should get changes for basic" do
+      get :read, :id => "~#{Card['Sample Basic'].id}", :view=>'changes'
+      assert_response :success
+    end
+
+    it "should read all types" do
+      @sample_cards.each do |sample|
+        get :read, :id => "~#{sample.id}"
+        assert_response :success
+      end
+    end
+
+    it "should get options for all types" do
+      @sample_cards.each do |sample|
+        get :read, :id => "~#{sample.id}", :view=>'options'
+        assert_response :success
+      end
+    end
+
+    it "should get edit form for all types" do
+      @sample_cards.each do |sample|
+        if %w{sample_html sample_layout}.member? sample.key
+          login_as 'Joe Admin' do
+            get :read, :id => "~#{sample.id}", :view=>'edit'
+          end
+        else
+          get :read, :id => "~#{sample.id}", :view=>'edit'
+        end
+        response.should be_success, "Getting #{sample.inspect}"
+      end
+    end
+
+    it "should get new for basic" do
+      get :read, :id=>'', :view=>'new'
+      assert_response :success
+    end
+
+  end
+
+end
+
+

spec/lib/cardlib/fetch_spec.rb

@@ -160,7 +160,7 @@
     end
   end
 
-  describe "#fetch :new=> ..." do
+  describe "#fetch :new=>{ ... }" do
     it "returns a new card if it doesn't find one" do
       new_card = Card.fetch "Never Seen Me Before", :new=>{}
       new_card.should be_instance_of(Card)

spec/lib/cardlib/permissions_spec.rb

@@ -135,7 +135,7 @@
 
   it "should insure that class overrides work with relative settings" do
     Account.as_bot do
-      all_plus = Card.fetch '*all plus+*read', :new=>{:content=>'_left'}
+      all_plus = Card.fetch '*all plus+*read', :new => { :content=>'_left' }
       all_plus.save
       Account.as_bot { @perm_card.save! }
       c = Card.create(:name=>'Home+Heart')

spec/lib/wagn/renderer_spec.rb

@@ -610,7 +610,6 @@ def controller
   def slot_link card, format=:html
     renderer = Wagn::Renderer.new card, :format=>format
     renderer.add_name_context
-    #Rails.logger.warn "slat lk #{card.name},#{renderer}, #{format}"
     result = renderer.render :content
     m = result.match(/<(cardlink|link|a) class.*<\/(cardlink|link|a)>/)
     (m.to_s != "") ? m.to_s : result

spec/lib/wagn/set/all/json_spec.rb

@@ -5,7 +5,7 @@
 describe Wagn::Set::All::Json, "JSON pack" do
   context "status view" do
     it "should handle real and virtual cards" do
-      r = Wagn::Renderer::JsonRenderer
+      r = Wagn::Renderer::Json
       real_json = r.new(Card['T'])._render_show :view=>:status
       JSON[real_json].should == {"key"=>"t","status"=>"real","id"=>Card['T'].id, 'url_key'=>'T'}
       virtual_json = r.new(Card.fetch('T+*self'))._render_show :view=>:status
@@ -14,7 +14,7 @@
 
     it "should treat both unknown and unreadable cards as unknown" do
       Account.as Card::AnonID do
-        r = Wagn::Renderer::JsonRenderer
+        r = Wagn::Renderer::Json
 
         unknown = Card.new :name=>'sump'
         unreadable = Card.new :name=>'kumq', :type=>'Fruit'

spec/models/card/account_spec.rb

@@ -0,0 +1,40 @@
+require File.expand_path('../../spec_helper', File.dirname(__FILE__))
+
+describe Card, "account functions" do
+  before(:each) do
+    Account.current_id= Card['joe_user'].id
+    @auth_card = Account.current
+    #warn "auth is #{@auth_card.inspect}"
+  end
+
+  it "should not show account for link on user's card (allready has an account)" do
+    # render rules menu
+    rendered = Wagn::Renderer::Html.new(@auth_card).render_options
+    rendered.should_not match("Add a sign-in account for")
+  end
+
+  it "should not show account for link on another user's card (allready has an account)" do
+    # render rules menu
+    Account.current_id= Card['joe_admin'].id
+    rendered = Wagn::Renderer::Html.new(@auth_card).render_options
+    rendered.should_not match("Add a sign-in account for")
+  end
+
+  it 'should show for card without "accountable" on' do
+    rendered = Wagn::Renderer::Html.new(Card['A']).render_options
+    rendered.should_not match("Add a sign-in account for")
+  end
+
+  it 'should show for card with "accountable" on' do
+    Account.as_bot do
+      Card.create :name=>'A+*self+*accountable', :content=>'1'
+      Card.create :name=>'*account+*right+*create', :content=>'[[Anyone Signed In]]'
+    end
+    rendered = Wagn::Renderer::Html.new(Card['A']).render_options
+    rendered.should match("Add a sign-in account for")
+  end
+
+  it "should generate new password on forgotpassword" do
+  end
+
+end