wagn 1.12.7

data/spec/mods/standard/sets/all/geocode_spec.rb

@@ -0,0 +1,37 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+
+describe GoogleMapsAddon do
+  before(:each) do
+    @geotest = Card.new(:name=>"Geotest")
+  end
+
+  it "should do nothing given no configuration" do
+    @geotest.save
+    Card["Geotest+*geocode"].should be_nil
+  end
+
+  context "given a *geocode configuration" do
+    before(:each) do
+      Account.as_bot do
+        Card.create! :name=>"*geocode", :content => "[[street address]]\n[[zip]]", :type=>'Pointer'
+      end
+    end
+
+    it "should save geocoding to +*geocode when configured cards card are present" do
+      mock(GoogleMapsAddon).geocode("519 Peterson St 80524").returns('40.581144, -105.071947')
+      Account.as_bot do
+        # FIXME: rules for this should be standard?
+        Card.create :name=>"*geocode+*right+*update", :content=>'[[Anyone Signed In]]'
+        Card.create :name=>"*geocode+*right+*create", :content=>'[[Anyone Signed In]]'
+      end
+      Card.create! :name=>"Ethan's House+street address", :content => "519 Peterson St 80524"
+      Card["Ethan's House+*geocode"].should_not be_nil
+      Card["Ethan's House+*geocode"].type_code.should == :phrase
+      Card["Ethan's House+*geocode"].content.should == '40.581144, -105.071947'
+    end
+  end
+end
+
+

data/spec/mods/standard/sets/all/json_spec.rb

@@ -0,0 +1,27 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::All::Json, "JSON mod" do
+  context "status view" do
+    it "should handle real and virtual cards" do
+      r = Card::JsonFormat
+      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
+      JSON[virtual_json].should == {"key"=>"t+*self","status"=>"virtual",'url_key'=>'T+*self'}
+    end
+    
+    it "should treat both unknown and unreadable cards as unknown" do
+      Account.as Card::AnonID do
+        r = Card::JsonFormat
+        
+        unknown = Card.new :name=>'sump'
+        unreadable = Card.new :name=>'kumq', :type=>'Fruit'
+        unknown_json = r.new(unknown)._render_show :view=>:status
+        JSON[unknown_json].should == {"key"=>"sump","status"=>"unknown", 'url_key'=>'sump'}
+        unreadable_json = r.new(unreadable)._render_show :view=>:status
+        JSON[unreadable_json].should == {"key"=>"kumq","status"=>"unknown", 'url_key'=>'kumq'}
+      end
+    end
+  end
+end

data/spec/mods/standard/sets/all/kml_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::All::Kml do
+  # SPECSTUB (low priority)
+end

data/spec/mods/standard/sets/all/rich_html_spec.rb

@@ -0,0 +1,10 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::All::RichHtml do
+  context :missing do
+    it "should prompt to add" do
+      render_content('{{+cardipoo|open}}').match(/Add \<span/ ).should_not be_nil
+    end
+  end
+end

data/spec/mods/standard/sets/all/rss_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::All::Rss do
+  # SPECSTUB (low priority)
+end

data/spec/mods/standard/sets/all/text_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::All::Text do
+  # SPECSTUB (low priority)
+end

data/spec/mods/standard/sets/right/account_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Right::Account do
+  # SPECSTUB (low priority)
+end

data/spec/mods/standard/sets/right/add_help_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Right::AddHelp do
+  # (just aliases so far)
+end

data/spec/mods/standard/sets/right/comment_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Right::Comment do
+  # (just aliases so far)
+end

data/spec/mods/standard/sets/right/create_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Right::Create do
+  # SPECSTUB (HIGH priority)
+end

data/spec/mods/standard/sets/right/crypted_password_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Right::CryptedPassword do
+  # not used yet.  when used this should confirm that raw_content and raw view are different.
+end

data/spec/mods/standard/sets/right/default_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Right::Default do
+  # (just aliases so far)
+end

data/spec/mods/standard/sets/right/delete_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Right::Delete do
+  # (just aliases so far)
+end

data/spec/mods/standard/sets/right/email_spec.rb

@@ -0,0 +1,27 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Right::Email do
+  
+  before do
+    @card = Card.fetch 'u1+*email'
+    @format = Card::Format.new @card, :format=>nil
+  end
+
+  it 'should render email address' do
+    Account.as_bot do
+      @format.render_raw.should == 'u1@user.com'
+    end
+  end
+
+  it 'should be hidden to Joe User by default' do
+    @card.ok?(:read).should be_false
+    @format.render_raw.should =~ /denied/
+  end
+
+  it "should render blank if email doesn't exist" do
+    Account.as_bot do
+      Card::Format.new( Card.fetch "A+*email" ).render_raw.should == ''
+    end
+  end
+end

data/spec/mods/standard/sets/right/help_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Right::Help do
+  # (just aliases so far)
+end

data/spec/mods/standard/sets/right/read_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Right::Read do
+  # (just aliases so far)
+end

data/spec/mods/standard/sets/right/salt_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Right::Salt do
+  # not used yet.  when used this should confirm that raw_content and raw view are different.
+end

data/spec/mods/standard/sets/right/structure_spec.rb

@@ -0,0 +1,10 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Right::Structure do
+  it "closed_content is rendered as title + raw" do
+    template = Card.new(:name=>'A+*right+*structure', :content=>'[[link]] {{inclusion}}')
+    Card::Format.new(template)._render(:closed_content).should ==
+      '<a href="/Basic" class="cardtype default-type">Basic</a> : [[link]] {{inclusion}}'
+  end
+end

data/spec/mods/standard/sets/right/style_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Right::Style do
+  # SPECSTUB (low priority)
+end

data/spec/mods/standard/sets/right/update_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Right::Update do
+  # (just aliases so far)
+end

data/spec/mods/standard/sets/right/when_created_spec.rb

@@ -0,0 +1,8 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Right::WhenCreated do
+  it 'should produce a text date' do
+    render_card( :core, :name=>'A+*when created' ).should =~ /\w+ \d+/
+  end
+end

data/spec/mods/standard/sets/right/when_last_edited_spec.rb

@@ -0,0 +1,8 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Right::WhenLastEdited do
+  it 'should produce a text date' do
+    render_card( :core, :name=>'A+*when last edited' ).should =~ /\w+ \d+/
+  end
+end

data/spec/mods/standard/sets/rstar/rules_spec.rb

@@ -0,0 +1,26 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Rstar::Rules do
+  it "should render setting view for a right set" do
+     r = Card::Format.new(Card['*read+*right']).render_open
+     r.should_not match(/error/i)
+     r.should_not match('No Card!')
+     #warn "r = #{r}"
+     assert_view_select r, 'table[class="set-rules"]' do
+       assert_select 'a[href~="/*read+*right+*input?view=open_rule"]', :text => 'input'
+     end
+  end
+
+  it "should render setting view for a *input rule" do
+    Account.as_bot do
+      r = Card::Format.new(Card.fetch('*read+*right+*input',:new=>{})).render_open_rule
+      r.should_not match(/error/i)
+      r.should_not match('No Card!')
+      #warn "r = #{r}"
+      assert_view_select r, 'tr[class="card-slot open-rule edit-rule"]' do
+        assert_select 'input[id="success_id"][name=?][type="hidden"][value="*read+*right+*input"]', 'success[id]'
+      end
+    end
+  end
+end

data/spec/mods/standard/sets/self/account_links_spec.rb

@@ -0,0 +1,10 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Self::AccountLinks do
+  it "should have a 'my card' link" do
+    assert_view_select render_card(:raw, :name=>'*account links'), 'span[id="logging"]' do
+      assert_select 'a[id="my-card-link"]', :text => 'Joe User'
+    end
+  end
+end

data/spec/mods/standard/sets/self/alerts_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Self::Alerts do
+  # deprecated set
+end

data/spec/mods/standard/sets/self/foot_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Self::Foot do
+  # deprecated set
+end

data/spec/mods/standard/sets/self/head_spec.rb

@@ -0,0 +1,18 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Self::Head do
+  it "should have a javascript tag" do
+    assert_view_select render_card(:raw, :name=>'*head'), 'script[type="text/javascript"]'
+  end
+  
+  context 'tinyMCE config' do
+    before do
+      @tinyMCE = Card[:tiny_mce]
+    end
+    it 'should handle tinyMCE configuration errors' do
+    
+    end
+  end
+  
+end

data/spec/mods/standard/sets/self/navbox_spec.rb

@@ -0,0 +1,8 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Self::Navbox do
+  it "should have a form" do
+    assert_view_select render_card(:raw, :name=>'*navbox'), 'form.navbox-form'
+  end
+end

data/spec/mods/standard/sets/self/now_spec.rb

@@ -0,0 +1,8 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Self::Now do
+  it "should have a date" do
+    render_card(:raw, :name=>'*now').match(/\w+day, \w+ \d+, \d{4}/ ).should_not be_nil
+  end
+end

data/spec/mods/standard/sets/self/recent_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Self::Recent do
+  # SPECSTUB (low priority)
+end

data/spec/mods/standard/sets/self/search_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Self::Search do
+  # SPECSTUB (low priority)
+end

data/spec/mods/standard/sets/self/style_functional_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Self::StyleFunctional do
+  # SPECSTUB (low priority)
+end

data/spec/mods/standard/sets/self/style_jquery_ui_smoothness_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Self::StyleJqueryUiSmoothness do
+  # SPECSTUB (low priority)
+end

data/spec/mods/standard/sets/self/style_standard_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Self::StyleStandard do
+  # SPECSTUB (low priority)
+end

data/spec/mods/standard/sets/self/version_spec.rb

@@ -0,0 +1,8 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::Self::Version do
+  it "should have an X.X.X version" do
+    (render_card(:raw, :name=>'*version') =~ (/\d\.\d+\.\w+/ )).should be_true
+  end
+end

data/spec/mods/standard/sets/type/account_request_spec.rb

@@ -0,0 +1,160 @@
+# -*- encoding : utf-8 -*-
+
+require 'wagn/spec_helper'
+
+describe Card::Set::Type::AccountRequest do
+  
+  before do
+    Account.current_id = Card::AnonID
+  end
+  
+  
+  context 'request form' do
+    before do
+      card = Card.new :type_id=>Card::AccountRequestID
+      format = Card::Format.new card
+      @form = format.render_new
+    end
+    
+    it 'should prompt to signup' do
+      Account.as :anonymous do
+        @form.match( /Sign Up/ ).should be_true
+      end
+    end
+  end
+  
+
+   #FIXME: tests needed : signup without approval
+  
+  context 'creation' do
+    before do
+      @card = Card.create :name=>'Joe New', :type_id=>Card::AccountRequestID, :account_args=>{:email=>'joe@new.com'}
+    end
+    
+    
+    it 'should create user entry and +*account cards' do
+      @card.real?.should be_true
+      @card.errors.empty?.should be_true
+      @card.type_id.should == Card::AccountRequestID
+      
+      new_user = Account[ 'joe@new.com' ]
+      new_user.should be
+      new_user.card_id.should == @card.id
+      new_user.pending?.should be_true
+      Card['Joe New+*account'].should be
+    end
+    
+    it 'should detect/reject duplicates' do
+      dup = Card.create :name=>'Joe Duplicate', :type_id=>Card::AccountRequestID, :account_args=>{ :email=>'joe@new.com' }
+      
+      dup.real?.should be_false
+      dup.errors.empty?.should be_false
+      
+      Card['Joe Duplicate'].should be_nil
+    end
+  end
+  
+  
+  context 'signup alerts' do
+    before do
+      ActionMailer::Base.deliveries = [] #needed?
+    end
+    
+    it 'should be sent when configured' do
+      Account.as_bot do
+        Card.create! :name=>'*request+*to', :content=>'request@wagn.org'
+      end
+    
+      mock.dont_allow(Mailer).send_account_info
+      @card = Card.create :name=>'Joe New', :type_id=>Card::AccountRequestID, :account_args=>{:email=>'joe@new.com'}    
+      ActionMailer::Base.deliveries.last.to.should == ['request@wagn.org']
+    end
+  end
+    
+
+
+  
+  
+  context 'valid request' do
+    before do
+      @card = Card.create! :name=>'Big Bad Wolf', :type=>'Account Request', :account_args=>{:email=>'wolf@wagn.org'}
+    end
+
+    context 'core view' do
+      before do
+        @format = Card::Format.new @card
+      end
+        
+      it "should not show invite links to anonymous users" do
+        @format.render_core.should_not =~ /invitation-link/
+      end
+    
+      it 'should show invite links to those who can invite' do
+        Account.as_bot do
+          assert_view_select @format.render_core, 'a[class="invitation-link"]'
+        end
+      end
+    end
+    
+    context 'approval' do
+
+      
+      it 'should convert card to user' do
+        Wagn::Env[:params] = { :activate=>true, :email => { :subject=>'subj', :message=>'msg' } }
+        Account.as_bot do
+          @card.update_attributes :type_id=>Card::UserID
+        
+          c = @card.refresh
+          c.type_id.should == Card::UserID
+          c.account.email.should == 'wolf@wagn.org'
+          c.account.active?.should be_true
+          email = ActionMailer::Base.deliveries.last
+          email.to.should == ['wolf@wagn.org']
+          email.subject.should == 'subj'
+        end
+      end
+      
+    end
+  end
+  
+  context 'auto approve' do
+    it 'should happen when configured' do
+      Account.as_bot do
+        Card['*account+*right+*create'].update_attributes! :content=>'[[Anyone]]'
+      end
+      
+      c = Card.create :name=>'Joe New', :type_id=>Card::AccountRequestID, :account_args=>{:email=>'joe@new.com'}
+      c.type_id.should == Card::UserID
+      c.account.active?.should be_true
+      email = ActionMailer::Base.deliveries.last
+      email.to.should == ['joe@new.com']
+      email.subject.should =~ /Account info/
+    end
+  end
+  
+  
+  context 'request validation' do
+
+    it 'should require name' do
+      card = Card.create :type_id=>Card::AccountRequestID #, :account=>{ :email=>"bunny@hop.com" } currently no api for this
+      #Rails.logger.info "name errors: #{@card.errors.full_messages.inspect}"
+      assert card.errors[:name]
+    end
+
+
+   it 'should require a unique name' do
+      @card = Card.create :type_code=>'account_request', :name=>"Joe User", :content=>"Let me in!"# :account=>{ :email=>"jamaster@jay.net" }
+      assert @card.errors[:name]
+    end
+
+
+    it 'should block user upon delete' do
+      Account.as_bot do
+        Card.fetch('Ron Request').delete!
+      end
+
+      assert_equal nil, Card.fetch('Ron Request')
+      assert_equal 'blocked', Account['ron@request.com'].status
+    end
+  end
+end