wagn 1.12.13 → 1.13.0.pre

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

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

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

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

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

@@ -1,6 +1,23 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
+
+require File.expand_path('../../../lib/machine_spec.rb', __FILE__)
 
 describe Card::Set::Right::Style do
-  # SPECSTUB (low priority)
+#  describe "#delet"
+#  it "should delete tempfile"
+  let(:skin_card)              { Card.gimme! "test skin", :type => :skin, :content => '[[test css]]'}
+  let(:css)                    { "#box { display: block }"  }
+  let(:compressed_css)         { "#box{display:block}\n"    }
+  let(:changed_css)            { "#box { display: inline }" }
+  let(:compressed_changed_css) { "#box{display:inline}\n"   }
+  
+  
+  it_should_behave_like 'pointer machine', that_produces_css do
+    let(:machine_card)  { Card.gimme! "test my style+*style", :type => :pointer, :content => '[[test skin]]'}
+    let(:machine_input_card) { Card.gimme! "test css",  :type => :css, :content => css  }
+    let(:card_content) do
+       { in:       css,         out:     compressed_css, 
+         new_in:   changed_css, new_out: compressed_changed_css }
+    end
+  end
 end

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

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

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

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

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

@@ -1,5 +1,4 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::Right::WhenCreated do
   it 'should produce a text date' do

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

@@ -1,5 +1,4 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::Right::WhenLastEdited do
   it 'should produce a text date' do

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

@@ -1,9 +1,8 @@
 # -*- 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 = Card['*read+*right'].format.render_open
      r.should_not match(/error/i)
      r.should_not match('No Card!')
      #warn "r = #{r}"
@@ -13,8 +12,8 @@ describe Card::Set::Rstar::Rules do
   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
+    Card::Auth.as_bot do
+      r = Card.fetch('*read+*right+*input',:new=>{}).format.render_open_rule
       r.should_not match(/error/i)
       r.should_not match('No Card!')
       #warn "r = #{r}"

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

@@ -1,5 +1,4 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::Self::AccountLinks do
   it "should have a 'my card' link" do

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

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

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

@@ -0,0 +1,47 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Self::All do
+  before do
+    
+    @all = Card[:all]
+    
+  end
+  
+  context '#update' do
+    it 'should be trigger empty trash (with right params)' do
+      Card::Auth.as_bot do
+        Card['A'].delete!
+        Card.where( :trash=>true ).should_not be_empty
+        Card::Env.params[:task] = :empty_trash
+        @all.update_attributes({})
+        Card.where( :trash=>true ).should be_empty
+      end
+    end
+
+    it 'should be trigger deleting old revisions (with right params)' do
+      Card::Auth.as_bot do
+        a = Card['A']
+        a.update_attributes! :content=>'a new day'
+        a.revisions.count.should == 2
+        Card::Env.params[:task] = :delete_old_revisions
+        @all.update_attributes({})
+        a.revisions.count.should == 1        
+      end
+    end
+
+=begin    
+    it 'should be trigger reference repair' do
+      Card::Auth.as_bot do
+        a = Card['A']
+        puts a.references_to.count
+        Card::Env.params[:task] = :repair_references
+        puts a.references_to.count
+        @all.update_attributes({})
+        puts a.references_to.count
+        
+      end
+    end
+=end
+    
+  end
+end

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

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

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

@@ -1,5 +1,4 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::Self::Head do
   it "should have a javascript tag" do

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

@@ -1,5 +1,4 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::Self::Navbox do
   it "should have a form" do

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

@@ -1,5 +1,4 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::Self::Now do
   it "should have a date" do

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

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

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

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

data/spec/mods/standard/sets/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
+    open_view.should =~ /email/
+    open_view.should =~ /password/
+    
+  end
+  
+  it 'edit view should prompt for forgot password' do
+    edit_view = @card.format.render_edit
+    edit_view.should =~ /email/
+    edit_view.should =~ /reset_password/
+  end
+  
+  it 'password reset success view should prompt to check email' do
+    rps_view = @card.format.render_reset_password_success
+    rps_view.should =~ /Check your email/
+  end
+  
+  it 'delete action should sign out account' do
+    Card::Auth.current_id.should == Card['joe_user'].id
+    @card.delete
+    Card::Auth.current_id.should == Card::AnonymousID
+  end
+  
+  context "#update" do
+    it 'should trigger signin with valid credentials' do
+      @card.update_attributes! '+*email'=>'joe@admin.com', '+*password'=>'joe_pass'
+      Card::Auth.current.should == Card['joe admin']
+    end
+
+
+    it 'should not trigger signin with bad email' do
+      @card.update_attributes! '+*email'=>'schmoe@admin.com', '+*password'=>'joe_pass'
+      @card.errors[:signin].first.should =~ /Unrecognized email/
+    end
+    
+    it 'should not trigger signin with bad password' do
+      @card.update_attributes! '+*email'=>'joe@admin.com', '+*password'=>'joe_fail'
+      @card.errors[:signin].first.should =~ /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'
+      Card['joe admin'].account.token.should_not be_nil
+    end
+    
+    it 'should return an error if email is not found' do
+      @card.update_attributes '+*email'=>'schmoe@admin.com'
+      @card.errors[:email].first.should =~ /not recognized/
+    end
+  end
+  
+end
+

data/spec/mods/standard/sets/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/spec/mods/standard/sets/self/style_functional_spec.rb

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

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

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

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

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

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

@@ -1,5 +1,4 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::Self::Version do
   it "should have an X.X.X version" do

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

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

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

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

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

@@ -0,0 +1,28 @@
+# load 'spec/mods/zfactory/lib/machine_spec.rb'
+# load 'spec/mods/zfactory/lib/machine_input_spec.rb'
+
+describe Card::Set::Type::CoffeeScript do
+  let(:coffee)                    { 'alert "Hi"  '    }
+  let(:compressed_coffee)         { '(function(){alert("Hi")}).call(this);'    }
+  let(:changed_coffee)            { 'alert "Hello"  ' }
+  let(:compressed_changed_coffee) { '(function(){alert("Hello")}).call(this);' }
+
+
+  it_should_behave_like 'content machine', that_produces_js do
+    let(:machine_card)  { Card.gimme! "test coffeescript", :type => Card::CoffeeScriptID, :content => coffee}
+    let(:card_content) do
+       { in:       coffee,         out:     compressed_coffee, 
+         new_in:   changed_coffee, new_out: compressed_changed_coffee }
+    end
+  end
+
+  it_behaves_like "machine input"  do
+    let(:create_machine_input_card) { Card.gimme! "test coffeescript", :type => :coffee_script, :content => coffee }
+    let(:create_machine_card)  { Card.gimme! "script with coffee+*script", :type => :pointer }
+    let(:card_content) do
+       { in:       coffee,         out:     compressed_coffee, 
+         new_in:   changed_coffee, new_out: compressed_changed_coffee }
+    end
+  end
+
+end

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

@@ -1,6 +1,33 @@
-# -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
+# load 'spec/mods/zfactory/lib/machine_spec.rb'
+# load 'spec/mods/zfactory/lib/machine_input_spec.rb'
 
 describe Card::Set::Type::Css do
-  # SPECSTUB (low priority)
-end
+  let(:css) { '#box { display: block }' }
+  let(:compressed_css) {  "#box{display:block}\n" }
+  let(:changed_css) { '#box { display: inline }' }
+  let(:compressed_changed_css) { "#box{display:inline}\n" }
+    
+  it "should highlight code" do
+    Card::Auth.as_bot do
+      css_card = Card.create! :name=>'tmp css', :type_code=>'css', :content=>"p { border: 1px solid black; }"
+      assert_view_select css_card.format.render_core, 'div[class=CodeRay]'
+    end
+  end
+
+  it_behaves_like "machine input"  do
+    let(:create_machine_input_card) { Card.gimme! "test css", :type => :css, :content => css }
+    let(:create_machine_card)  { Card.gimme! "style with css+*style", :type => :pointer }
+    let(:card_content) do
+       { in:       css,         out:     compressed_css, 
+         new_in:   changed_css, new_out: compressed_changed_css }
+    end
+  end
+
+  it_behaves_like 'content machine', that_produces_css do
+    let(:machine_card) {  Card.gimme! "test css", :type => :css, :content => css }
+    let(:card_content) do
+       { in:       css,         out:     compressed_css, 
+         new_in:   changed_css, new_out: compressed_changed_css }
+    end
+  end
+end

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

@@ -1,5 +1,4 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::Type::Date do
   it "should have special editor" do

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

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

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

@@ -1,9 +1,8 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::Type::Html do
   before do
-    Account.current_id = Card::WagnBotID
+    Card::Auth.current_id = Card::WagnBotID
   end
 
   it "should have special editor" do
@@ -13,11 +12,11 @@ describe Card::Set::Type::Html do
   it "should not render any content in closed view" do
     render_card(:closed_content, :type=>'Html', :content=>"<strong>Lions and Tigers</strong>").should == ''
   end
-  
+
   it "should render inclusions" do
     render_card( :core, :type=>'HTML', :content=>'{{a}}' ).should =~ /slot/
   end
-  
+
   it 'should not render uris' do
     render_card( :core, :type=>'HTML', :content=>'http://google.com' ).should_not =~ /\<a/
   end