wagn 1.12.13 → 1.13.0.pre

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

@@ -1,46 +1,49 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::All::RichHtml do
-  context :missing do
+  describe 'missing view' do
     it "should prompt to add" do
       render_content('{{+cardipoo|open}}').match(/Add \<span/ ).should_not be_nil
     end
   end
-  context "type_list" do
+  
+  describe "type_list" do
     before do
       @card = Card['UserForm']  # no cards with this type
     end
+    
     it "should get type options from type_field renderer method" do
-      Card::HtmlFormat.new(@card).type_field.should match(/<option [^>]*selected/)
-      tf=Card::HtmlFormat.new(@card).type_field(:no_current_type=>true)
+      @card.format.type_field.should match(/<option [^>]*selected/)
+      tf=@card.format.type_field(:no_current_type=>true)
       tf.should_not match(/<option [^>]*selected/)
       tf.scan(/<option /).length.should == 23
-      tf=Card::HtmlFormat.new(@card).type_field
+      tf=@card.format.type_field
       tf.should match(/<option [^>]*selected/)
       tf.scan(/<option /).length.should == 23
     end
+    
     it "should get type list" do
-      Account.as :anonymous do
-        tf=Card::HtmlFormat.new(@card).type_field(:no_current_type=>true)
+      Card::Auth.as :anonymous do
+        tf=@card.format.type_field(:no_current_type=>true)
         tf.should_not match(/<option [^>]*selected/)
         tf.scan(/<option /).length.should == 1
-        tf=Card::HtmlFormat.new(@card).type_field
+        tf=@card.format.type_field
         tf.should match(/<option [^>]*selected/)
         tf.scan(/<option /).length.should == 2
       end
     end
   end
+  
   context "type and header" do
     it "should render type without no-edit class when no cards of type" do
       card = Card['UserForm']  # no cards with this type
-      Card::HtmlFormat.new(card).render_type.should match(/<a [^>]* class="([^"]* )?cardtype[^"]*"/)
-      Card::HtmlFormat.new(card).render_type.should_not match(/<a [^>]* class="([^"]* )?no-edit[^"]*"/)
+      card.format.render_type.should match(/<a [^>]* class="([^"]* )?cardtype[^"]*"/)
+      card.format.render_type.should_not match(/<a [^>]* class="([^"]* )?no-edit[^"]*"/)
     end
     it "should render type header with no-edit class when cards of type exist" do
       no_edit_card = Card['cardtype a']
-      Card::HtmlFormat.new(no_edit_card).render_type.should match(/<a [^>]* class="([^"]* )?cardtype[^"]*"/)
-      Card::HtmlFormat.new(no_edit_card).render_type.should match(/<a [^>]* class="([^"]* )?no-edit[^"]*"/)
+      no_edit_card.format.render_type.should match(/<a [^>]* class="([^"]* )?cardtype[^"]*"/)
+      no_edit_card.format.render_type.should match(/<a [^>]* class="([^"]* )?no-edit[^"]*"/)
     end
   end
 end

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

@@ -1,6 +1,8 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::All::Rss do
-  # SPECSTUB (low priority)
+  it 'should render recent.rss' do
+    rendered = Card[:recent].format(:format=>:rss).show( nil, {} )
+    rendered.should =~ /xml/
+  end
 end

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

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

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

@@ -1,6 +1,90 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::Right::Account do
-  # SPECSTUB (low priority)
+  
+  describe '#create' do
+    context "valid user" do
+      #note - much of this is tested in account_request_spec
+      before do
+        Card::Auth.as_bot do
+          @user_card = Card.create! :name=>'TmpUser', :type_id=>Card::UserID, '+*account'=>{ 
+            '+*email'=>'tmpuser@wagn.org', '+*password'=>'tmp_pass'
+          }
+        end
+      
+      end
+      
+      it 'should create an authenticable password' do
+        Card::Auth.password_authenticated?( @user_card.account, 'tmp_pass').should be_true
+      end
+    end
+    
+    it "should check accountability of 'accounted' card" do
+      @unaccountable = Card.create :name=>'BasicUnaccountable', '+*account'=>{ '+*email'=>'tmpuser@wagn.org', '+*password'=>'tmp_pass' }
+      @unaccountable.errors['+*account'].first.should == 'not allowed on this card'
+    end
+    
+    it "should require email" do
+      @no_email = Card.create :name=>'TmpUser', :type_id=>Card::UserID, '+*account'=>{ '+*password'=>'tmp_pass' }
+      @no_email.errors['+*account'].first.should =~ /email required/
+    end
+    
+  end
+  
+  describe '#update_attributes' do
+    before :each do
+      @user_card = Card::Auth[ 'joe@user.com' ]
+    end
+
+    it 'should reset password' do
+      @user_card.account.password_card.update_attributes!(:content => 'new password')
+      assert_equal @user_card.id, Card::Auth.authenticate('joe@user.com', 'new password')
+    end
+  
+    it 'should not rehash password when updating email' do
+      @user_card.account.email_card.update_attributes!(:content => 'joe2@user.com')
+      assert_equal @user_card.id, Card::Auth.authenticate('joe2@user.com', 'joe_pass')
+    end
+  end
+  
+  
+  describe '#reset_password' do
+    before :each do
+      @email = 'joe@user.com'
+      @account = Card::Auth[@email].account
+      @account.send_reset_password_token
+      @token = @account.token
+      Card::Env.params[:reset_token] = @token
+      Card::Auth.current_id = Card::AnonymousID
+    end
+
+    it 'should authenticate with correct token and delete token card' do
+      Card::Auth.current_id.should == Card::AnonymousID
+      @account.save.should == true
+      Card::Auth.current_id.should == @account.left_id
+      @account = @account.refresh force=true
+      @account.fetch(:trait => :token).should be_nil
+      @account.save.should == false
+    end
+  
+    it 'should not work if token is expired' do
+      @account.token_card.update_column :updated_at, 3.days.ago.strftime("%F %T")
+      @account.token_card.expire
+      
+      result = @account.save
+      result.should == true                 # successfully completes save
+      @account.token.should_not == @token   # token gets updated
+      success = Card::Env.params[:success]
+      success[:message].should =~ /expired/ # user notified of expired token
+    end
+    
+    it 'should not work if token is wrong' do
+      Card::Env.params[:reset_token] = @token + 'xxx'
+      @account.save
+      @account.errors[:abort].first.should =~ /token_not_found/
+    end  
+    
+  end
+  
 end
+

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

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

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

@@ -1,6 +1,41 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::Right::Comment do
-  # (just aliases so far)
+
+  context "record appender" do
+    before do
+      @r = Card.where(:type_id=>Card::RoleID).first
+      @rule = Card.new :name=>'A+*self+*comment', :type_id=>Card::PointerID, :content=>"[[#{@r.name}]]"
+    end
+
+    it "should have appender immediately" do
+      Card['a'].ok?(:comment).should_not be_true
+      Card::Auth.as_bot do
+        @rule.save!
+      end
+      Card['a'].ok?(:comment).should be_true
+    end
+
+    it "should have appender immediately" do
+      Card::Auth.as_bot do 
+        Card['a'].ok?(:comment).should_not be_true 
+        @rule.save!
+        Card['a'].ok?(:comment).should be_true
+      end
+    end
+  end
+
+
+  context "comment addition" do
+    it "should combine content after save" do
+      Card::Auth.as_bot do
+        Card.create :name => 'basicname+*self+*comment', :content=>'[[Anyone Signed In]]'
+        @c = Card.fetch "basicname"
+        @c.comment = " and more\n  \nsome lines\n\n"
+        @c.save!
+      end
+      Card["basicname"].content.should =~ /\<p\>some lines\<\/p\>/
+    end
+  end
+
 end

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

@@ -1,6 +1,10 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::Right::Create do
-  # SPECSTUB (HIGH priority)
+  it 'should render the perm editor' do
+    Card::Auth.as_bot do
+      card = Card.new :name=>'A+B+*self+*create'
+      assert_view_select card.format._render_editor, 'div[class=perm-editor]'
+    end
+  end
 end

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

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

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

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

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

@@ -1,27 +1,55 @@
 # -*- 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
+  context '<User>+*email' do
+    before do
+      @card = Card.fetch 'u1+*email'
+      @format = @card.format
+    end
 
-  it 'should render email address' do
-    Account.as_bot do
-      @format.render_raw.should == 'u1@user.com'
+    it 'should allow Wagn Bot to read' do
+      Card::Auth.as_bot do
+        @format.render_raw.should == 'u1@user.com'
+      end
+    end
+
+    it 'should allow self to read' do
+      Card::Auth.as Card['u1'] do
+        @format.render_raw.should == 'u1@user.com'
+      end
     end
-  end
 
-  it 'should be hidden to Joe User by default' do
-    @card.ok?(:read).should be_false
-    @format.render_raw.should =~ /denied/
+    it 'should hide from other users' do
+      @card.ok?(:read).should be_false
+      @format.render_raw.should =~ /denied/
+    end
   end
+  
+  context "+*account+*email" do
+    context 'update' do
+      before :each do
+        @email_card = email_card = Card['u1'].account.email_card
+      end
+      
+      it 'should downcase email' do
+        Card::Auth.as_bot do
+          @email_card.update_attributes! :content=>'QuIrE@example.com'
+          @email_card.content.should == 'quire@example.com'
+        end
+      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 == ''
+      it 'should require valid email' do
+        @email_card.update_attributes :content=>'boop'
+        @email_card.errors[:content].first.should =~ /must be valid address/
+      end
+      
+      it 'should require unique email' do
+        @email_card.update_attributes :content=>'joe@user.com'
+        @email_card.errors[:content].first.should =~ /must be unique/
+      end
+      
     end
   end
+
 end

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

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

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

@@ -0,0 +1,20 @@
+# -*- encoding : utf-8 -*-
+
+#load 'spec/mods/zfactory/lib/machine_spec.rb'
+
+describe Card::Set::Right::Script do
+  let(:js)                    { 'alert( "Hi" );'    }
+  let(:compressed_js)         { 'alert("Hi");'      }
+  let(:changed_js)            { 'alert( "Hello" );' }
+  let(:compressed_changed_js) { 'alert("Hello");'   }
+  
+  
+  it_should_behave_like 'pointer machine', that_produces_js do
+    let(:machine_card)  { Card.gimme! "test my style+*script", :type => :pointer, :content => ''}
+    let(:machine_input_card) { Card.gimme! "test js",  :type => Card::JavaScriptID, :content => js  }
+    let(:card_content) do
+       { in:       js,         out:     compressed_js, 
+         new_in:   changed_js, new_out: compressed_changed_js }
+    end
+  end
+end

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

@@ -0,0 +1,45 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Right::Password do
+
+  before :each do
+    @user_card = Card::Auth[ 'joe@user.com' ]
+  end
+  
+  describe '#update_attributes' do
+
+    it 'should encrypt password' do
+      @user_card.account.password_card.update_attributes! :content => 'new password'
+      @user_card.account.password.should_not == 'new password'
+      assert_equal @user_card.id, Card::Auth.authenticate('joe@user.com', 'new password')
+    end
+
+    it 'should validate password' do
+      password_card = @user_card.account.password_card
+      password_card.update_attributes :content => '2b'
+      password_card.errors[:password].should_not be_empty
+      
+    end
+    
+    context 'blank password' do
+      it "shouldn't change the password" do
+        acct = @user_card.account
+        original_pw = acct.password
+        original_pw.size.should > 10
+        pw_card = acct.password_card
+        pw_card.content = ''
+        pw_card.save
+        original_pw.should == pw_card.refresh(force=true).content
+      end
+      
+      it "shouldn't break email editing" do
+        @user_card.account.update_attributes! '+*password'=>'', '+*email'=>'joe2@user.com'
+#        @user_card.account.update_attributes! '+*email'=>'joe2@user.com'
+        @user_card.account.email.should == 'joe2@user.com'
+      end
+    end
+  end
+  
+  
+
+end

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

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

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

@@ -1,5 +1,4 @@
 # -*- 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.

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

@@ -0,0 +1,20 @@
+# -*- encoding : utf-8 -*-
+
+#load 'spec/mods/zfactory/lib/machine_spec.rb'
+
+describe Card::Set::Right::Script do
+  let(:js)                    { 'alert( "Hi" );'    }
+  let(:compressed_js)         { 'alert("Hi");'      }
+  let(:changed_js)            { 'alert( "Hello" );' }
+  let(:compressed_changed_js) { 'alert("Hello");'   }
+  
+  
+  it_should_behave_like 'pointer machine', that_produces_js do
+    let(:machine_card)  { Card.gimme! "test my style+*script", :type => :pointer, :content => ''}
+    let(:machine_input_card) { Card.gimme! "test js",  :type => Card::JavaScriptID, :content => js  }
+    let(:card_content) do
+       { in:       js,         out:     compressed_js, 
+         new_in:   changed_js, new_out: compressed_changed_js }
+    end
+  end
+end

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

@@ -0,0 +1,13 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Right::Stats do
+
+  context "core view" do
+    it 'should have a table' do
+      Card::Auth.as_bot do
+        @core = render_card :core, :name=>"A+*stats"
+        assert_view_select @core, 'table'
+      end
+    end
+  end
+end