card 0.0.1 → 1.15.pre

data/mod/05_standard/spec/set/self/foot_spec.rb

@@ -0,0 +1,5 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Self::Foot do
+  # deprecated set
+end

data/mod/05_standard/spec/set/self/head_spec.rb

@@ -0,0 +1,17 @@
+# -*- encoding : utf-8 -*-
+
+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/mod/05_standard/spec/set/self/navbox_spec.rb

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

data/mod/05_standard/spec/set/self/now_spec.rb

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

data/mod/05_standard/spec/set/self/recent_spec.rb

@@ -0,0 +1,5 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Self::Recent do
+  # SPECSTUB
+end

data/mod/05_standard/spec/set/self/search_spec.rb

@@ -0,0 +1,5 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Self::Search do
+  # SPECSTUB
+end

data/mod/05_standard/spec/set/self/signin_spec.rb

@@ -0,0 +1,73 @@
+# -*- encoding : utf-8 -*-
+
+#FIXME need more specific assertions
+
+describe Card::Set::Self::Signin do
+  
+  before :each do
+    @card = Card[:signin]
+  end
+  
+  it 'open view should have email and password fields' do
+    open_view = @card.format.render_open
+    expect(open_view).to match(/email/)
+    expect(open_view).to match(/password/)
+    
+  end
+  
+  it 'edit view should prompt for forgot password' do
+    edit_view = @card.format.render_edit
+    expect(edit_view).to match(/email/)
+    expect(edit_view).to match(/reset_password/)
+  end
+  
+  it 'password reset success view should prompt to check email' do
+    rps_view = @card.format.render_reset_password_success
+    expect(rps_view).to match(/Check your email/)
+  end
+  
+  it 'delete action should sign out account' do
+    expect(Card::Auth.current_id).to eq(Card['joe_user'].id)
+    @card.delete
+    expect(Card::Auth.current_id).to eq(Card::AnonymousID)
+  end
+  
+  context "#update" do
+    it 'should trigger signin with valid credentials' do
+      @card.update_attributes! '+*email'=>'joe@admin.com', '+*password'=>'joe_pass'
+      expect(Card::Auth.current).to eq(Card['joe admin'])
+    end
+
+
+    it 'should not trigger signin with bad email' do
+      @card.update_attributes! '+*email'=>'schmoe@admin.com', '+*password'=>'joe_pass'
+      expect(@card.errors[:signin].first).to match(/Unrecognized email/)
+    end
+    
+    it 'should not trigger signin with bad password' do
+      @card.update_attributes! '+*email'=>'joe@admin.com', '+*password'=>'joe_fail'
+      expect(@card.errors[:signin].first).to match(/Wrong password/)
+    end
+    
+    
+  end
+  
+  context '#reset password' do
+    before :each do
+      Card::Env.params[:reset_password] = true
+    end
+    
+    it 'should be triggered by an update' do
+      #Card['joe admin'].account.token.should be_nil FIXME - this should be t
+      @card.update_attributes! '+*email'=>'joe@admin.com'
+      expect(Card['joe admin'].account.token).not_to be_nil
+    end
+    
+    it 'should return an error if email is not found' do
+      @card.update_attributes '+*email'=>'schmoe@admin.com'
+      expect(@card.errors[:email].first).to match(/not recognized/)
+    end
+  end
+  
+end
+

data/mod/05_standard/spec/set/self/stats_spec.rb

@@ -0,0 +1,12 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Self::Stats do
+  before do
+    Card::Auth.as_bot do
+      @core = render_card :core, :name=>:stats
+    end
+  end
+  it "should render a table" do
+    assert_view_select @core, 'table'
+  end
+end

data/mod/05_standard/spec/set/self/version_spec.rb

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

data/mod/05_standard/spec/set/type/basic_spec.rb

@@ -0,0 +1,5 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Type::Basic do
+  # SPECSTUB
+end

data/mod/05_standard/spec/set/type/cardtype_spec.rb

@@ -0,0 +1,5 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Type::Cardtype do
+  # SPECSTUB
+end

data/mod/05_standard/spec/set/type/date_spec.rb

@@ -0,0 +1,7 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Type::Date do
+  it "should have special editor" do
+    assert_view_select render_editor('Date'), 'input[class~="date-editor"]'
+  end
+end

data/mod/05_standard/spec/set/type/email_template_spec.rb

@@ -0,0 +1,208 @@
+# -*- encoding : utf-8 -*-
+require 'card/mailer'
+
+describe Card::Set::Type::EmailTemplate do
+  let(:email_name) { 'a mail template' }
+  let(:email) {Card.fetch(email_name)}
+  
+  def mailconfig args={}
+    Card[email_name].email_config(args)
+  end
+  
+  def update_field name, args={}
+    Card["#{email_name}+#{name}"].update_attributes! args
+  end
+  
+  def create_field name, args={}
+    Card.create! args.merge(:name=>"#{email_name}+#{name}")
+  end
+  
+  before do
+    Card::Auth.current_id = Card::WagnBotID
+    chunk_test = "Url(wagn.org) Link([[http://wagn.org|Wagn]]) Inclusion({{B|name}}) Card link([[A]])"
+    Card.create! :name => email_name, :type=>:email_template, :subcards=>{
+      "+*to"           =>  "joe@user.com",
+      "+*from"         =>  "from@user.com",
+      "+*subject"      =>  "*subject #{chunk_test}",
+      "+*html_message" =>  "*html message #{chunk_test}",
+      "+*text_message" =>  "*text message #{chunk_test}"
+    }
+  end
+  
+  describe "mail view" do
+    let(:content_type) do
+      card = Card.create!(:name => 'content type test', :type=>:email_template, :subcards=>@fields)
+      email = card.format.render_mail
+      email[:content_type].value
+    end
+   
+    it 'renders text email if text message given' do
+      @fields = { "+*text_message" => "text" }
+      expect(content_type).to include 'text/plain'
+    end
+    
+    it 'renders html email if html message given' do
+      @fields = { "+*html_message" =>  "text" }
+      expect(content_type).to include 'text/html'
+    end
+    
+    it 'renders multipart email if text and html given' do
+      @fields = {'+*text_message'=>'text', '+*html_message'=>'text'}
+      expect(content_type).to include 'multipart/alternative'
+    end
+    
+  end
+  
+  
+  describe "#email_config" do
+
+    describe 'address fields' do
+      it 'uses *from field' do
+        expect( mailconfig[:from] ).to eq 'from@user.com'
+      end
+      
+      it 'uses *to field' do
+        expect( mailconfig[:to] ).to eq 'joe@user.com'
+      end
+      
+      it 'handles pointer values' do
+        create_field '*cc', :content => "[[joe@user.com]]", :type=>'Pointer'
+        expect( mailconfig[:cc] ).to eq 'joe@user.com'
+      end
+      
+
+      #it 'handles email syntax in pointer values' do
+      #  create_field '*cc', :content => "[[Joe User <joe@user.com>]]", :type=>'Pointer'
+      #  expect( mailconfig[:cc] ).to eq 'Joe User <joe@user.com>'
+      #end
+      
+      it 'handles link to email card' do
+        create_field '*cc', :content => "[[Joe User+*email]]", :type=>'Pointer'
+        expect( mailconfig[:cc] ).to eq 'joe@user.com'
+      end
+      
+      # it 'handles link with valid email address' do
+      #   create_field '*cc', :content => "[[joe@admin.com|Joe]]", :type=>'Phrase'
+      #   expect( mailconfig[:cc] ).to eq 'Joe<joe@user.com>'
+      # end
+      
+      it 'handles search card' do
+        create_field '*bcc', :content => '{"name":"Joe Admin","append":"*email"}', :type=>'Search'
+        expect( mailconfig[:bcc] ).to eq 'joe@admin.com'
+      end
+      
+      # it 'handles invalid email address' do  #TODO not obvious how to deal with that.
+                                              #      we can't decided whether a email address like [[_left]] is valid; depends on the context
+      #   Card.fetch("a mail template+*to").update_attributes(:content=>"invalid mail address")
+      # end
+    end
+    
+
+     describe 'subject' do
+       subject { mailconfig[:subject] }
+       
+       it 'uses *subject field' do
+        is_expected.to include '*subject'
+       end       
+       it 'does not render url' do
+         is_expected.to include 'Url(wagn.org)'
+       end     
+       it 'does not render link' do
+         is_expected.to include 'Link([[http://wagn.org|Wagn]])'
+       end     
+       it 'renders inclusion' do
+         is_expected.to include 'Inclusion(B)'
+       end
+     end
+     
+     describe 'text message' do
+       subject { mailconfig[:text_message] }
+       
+       it 'uses *text_message field' do
+         is_expected.to include '*text message'
+       end
+       it 'does not render url' do
+         is_expected.to include 'Url(wagn.org)'
+       end
+       it 'renders link' do
+         is_expected.to include 'Link(Wagn[http://wagn.org])'
+       end    
+       it 'renders inclusion' do
+         is_expected.to include 'Inclusion(B)'
+       end
+      
+     end
+     
+     describe 'html message' do
+       subject { mailconfig[:html_message] }
+      
+       it 'uses *html_message field' do
+         is_expected.to include '*html message'
+       end      
+       it 'renders url' do
+         is_expected.to include 'Url(<a class="external-link" href="http://wagn.org">wagn.org</a>)'
+       end   
+       it 'renders link' do
+         is_expected.to include 'Link(<a class="external-link" href="http://wagn.org">Wagn</a>)'
+       end   
+       it 'renders inclusion' do
+         is_expected.to include 'Inclusion(B)'
+       end
+       it "renders absolute urls" do
+         Card::Env[:protocol] = 'http://'
+         Card::Env[:host] = 'www.fake.com'
+         is_expected.to include 'Card link(<a class="known-card" href="http://www.fake.com/A">A</a>)'
+       end
+     end
+     
+     
+     context 'with context card' do
+       let(:context_card) do
+         Card.create(
+           :name    => "Banana",
+           :content => "data content [[A]]",
+           :subcards=> {
+             '+email'      => {:content=>'gary@gary.com'},
+             '+subject'    => {:type=>'Pointer', :content=>'[[default subject]]'},
+             '+attachment' => {:type=>'File', :content=>"notreally.txt" }
+           }
+         )
+       end
+       subject {  mailconfig( context: context_card ) }
+
+       it 'handles contextual name in address search' do
+         update_field '*from', :content => '{"left":"_self", "right":"email"}', :type=>'Search'
+         update_field '*from', :content => '{"left":"_self", "right":"email"}'                  #FIXME: have to do this twice to get the right content. 
+                                                                                                #       After the first update the content is empty
+         expect(subject[:from]).to eq "gary@gary.com"
+       end
+
+       it 'handles contextual names and structure rules in subject' do
+         Card.create! :name => 'default subject', :content=>'a very nutty thang', :type=>'Phrase'
+         Card.create! :name => "subject search+*right+*structure", :content => %{{"referred_to_by":"_self+subject"}}, :type=>'Search'
+         update_field '*subject', :content => "{{+subject search|core;item:core}}"
+         expect(subject[:subject]).to eq("a very nutty thang")
+       end
+
+       it 'handles _self in html message' do
+          update_field '*html message', :content => "Triggered by {{_self|name}}"
+          expect(subject[:html_message]).to  include("Triggered by Banana")
+       end
+
+       it 'handles _left in html message' do
+         update_field '*html_message', :content => "Nobody expects {{_left+surprise|core}}"
+         Card.create :name=>'Banana+surprise', :content=>"the Spanish Inquisition"
+         c = Card.create :name => "Banana+emailtest", :content => "data content"
+         expect( mailconfig( context: c )[:html_message] ).to include 'Nobody expects the Spanish Inquisition'
+         
+       end
+
+       it 'handles contextual name for attachments' do
+         create_field '*attach', :type=>"Pointer", :content => "[[_self+attachment]]"
+         expect(subject[:attach]).to eq ['Banana+attachment'.to_name]
+       end
+     end
+
+  end
+
+end

data/mod/05_standard/spec/set/type/file_spec.rb

@@ -0,0 +1,5 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Type::File do
+  # SPECSTUB
+end

data/mod/05_standard/spec/set/type/html_spec.rb

@@ -0,0 +1,23 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Type::Html do
+  before do
+    Card::Auth.current_id = Card::WagnBotID
+  end
+
+  it "should have special editor" do
+    assert_view_select render_editor('Html'), 'textarea[rows="5"]'
+  end
+
+  it "should not render any content in closed view" do
+    expect(render_card(:closed_content, :type=>'Html', :content=>"<strong>Lions and Tigers</strong>")).to eq('')
+  end
+
+  it "should render inclusions" do
+    expect(render_card( :core, :type=>'HTML', :content=>'{{a}}' )).to match(/slot/)
+  end
+
+  it 'should not render uris' do
+    expect(render_card( :core, :type=>'HTML', :content=>'http://google.com' )).not_to match(/\<a/)
+  end
+end

data/mod/05_standard/spec/set/type/image_spec.rb

@@ -0,0 +1,16 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Type::Image do
+  it "should have special editor" do
+    assert_view_select render_editor('Image'), 'div[class="choose-file"]' do
+      assert_select 'input[class~="file-upload slotter"]'
+    end
+  end
+
+  it "should handle size argument in inclusion syntax" do
+    image_card = Card.create! :name => "TestImage", :type=>"Image", :content => %{TestImage.jpg\nimage/jpeg\n12345}
+    including_card = Card.new :name => 'Image1', :content => "{{TestImage | core; size:small }}"
+    rendered = including_card.format._render :core
+    assert_view_select rendered, 'img[src=?]', "/files/TestImage-small-#{image_card.last_content_action_id}.jpg"
+  end
+end

data/mod/05_standard/spec/set/type/layout_type_spec.rb

@@ -0,0 +1,7 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Type::LayoutType do
+  it "should include Html card methods" do
+    expect(Card.new( :type=>'Layout' ).clean_html?).to be_falsey
+  end
+end