wagn 1.12.13 → 1.13.0.pre

data/spec/mods/standard/lib/machine_spec.rb

@@ -0,0 +1,110 @@
+
+def that_produces type
+  type
+end
+
+def method_missing m, *args, &block
+  case m
+  when /that_produces_(.+)/
+    return $1
+  else
+    super
+  end
+end
+
+
+shared_examples_for 'machine' do |filetype|
+  context "when created" do
+    it 'has +machine_input card' do
+      machine.machine_input_card.should_not be_nil
+    end
+    it 'has +machine_output card' do
+      machine.machine_output_card.should_not be_nil
+    end
+    it "generates #{filetype} file" do
+      expect(machine.machine_output_path).to match(/\.#{filetype}$/)
+    end
+  end
+end
+
+shared_examples_for 'content machine' do |filetype|
+  it_should_behave_like 'machine', that_produces(filetype) do
+    let(:machine) { machine_card }
+  end
+  
+  context '+machine_input card' do
+    it "points to self" do
+      expect(machine_card.input_item_cards).to eq([machine_card])
+    end
+  end
+  
+  context '+machine_output card' do
+    it 'creates file with supplied content' do
+      path = machine_card.machine_output_path
+      expect(File.read(path)).to eq(card_content[:out])
+    end
+    it "updates #{filetype} file when content is changed" do
+      changed_factory = machine_card
+      changed_factory.putty :content =>card_content[:new_in]
+      changed_path = changed_factory.machine_output_path
+      expect(File.read(changed_path)).to eq(card_content[:new_out])
+    end
+  end
+end
+
+
+shared_examples_for 'pointer machine' do |filetype|
+  subject do
+    change_machine = machine_card
+    @depth = 4
+    @expected_items = []
+    Card::Auth.as_bot do
+      (2*@depth).times do |i|
+        @expected_items << Card.fetch( "basic level #{i}", :new =>  {:type => Card::BasicID } )
+        @expected_items.last.save
+      end
+      last_level = false
+      @depth.times do |i|
+        next_level = Card.fetch(  "#{filetype} level #{@depth-i}", :new => {:type => :pointer } )
+        next_level.content = ""
+        next_level << @expected_items[@depth-i-1]
+        next_level << last_level if last_level
+        next_level << @expected_items[@depth+i]
+        next_level.save!
+        last_level = next_level
+      end
+      change_machine << last_level
+      change_machine << machine_input_card
+      @expected_items << machine_input_card
+      change_machine.save!
+    end
+    change_machine
+  end
+
+  it_should_behave_like 'machine', that_produces(filetype) do
+    let(:machine) { machine_card }
+  end
+  
+  describe '+machine_input card' do
+    it "contains items of all levels" do
+      subject.machine_input_card.item_cards.map(&:id).sort.should == @expected_items.map(&:id).sort
+    end
+    
+    it "preserves order of items" do
+      subject.machine_input_card.item_cards.map(&:id).should == @expected_items.map(&:id)
+    end
+  end
+  
+  describe '+machine_output card' do
+    it 'creates #{filetype} file with supplied content' do
+      path = subject.machine_output_path
+      expect(File.read(path)).to eq(card_content[:out])
+    end
+    
+    it 'updates #{filetype} file if item is changed' do
+      machine_input_card.putty :content => card_content[:new_in]
+      changed_path = subject.machine_output_path
+      expect(File.read(changed_path)).to eq(card_content[:new_out])
+    end
+  end
+end

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

@@ -1,5 +1,4 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::All::Account do
   describe 'accountable?' do
@@ -9,7 +8,7 @@ describe Card::Set::All::Account do
     end
 
     it 'should be true for cards with *accountable rule on' do
-      Account.as_bot do
+      Card::Auth.as_bot do
         Card.create :name=>'A+*self+*accountable', :content=>'1'
         Card.create :name=>'*account+*right+*create', :content=>'[[Anyone Signed In]]'
       end
@@ -21,38 +20,38 @@ describe Card::Set::All::Account do
   describe "parties" do
   
     it "for Wagn Bot" do
-      Account.current_id = Card::WagnBotID
-      Account.current.parties.sort.should == [Card::WagnBotID, Card::AuthID, Card::AdminID]
+      Card::Auth.current_id = Card::WagnBotID
+      Card::Auth.current.parties.sort.should == [Card::WagnBotID, Card::AnyoneSignedInID, Card::AdministratorID]
     end
     
     it "for Anonymous" do
-      Account.current_id = Card::AnonymousID
-      Account.current.parties.sort.should == [Card::AnonymousID]
+      Card::Auth.current_id = Card::AnonymousID
+      Card::Auth.current.parties.sort.should == [Card::AnonymousID]
     end
 
     context 'for Joe User' do
       before do
-        @joe_user_card = Account.current
+        @joe_user_card = Card::Auth.current
         @parties = @joe_user_card.parties # note: must be called to test resets
       end
 
       it "should initially have only auth and self " do
-        @parties.should == [Card::AuthID, @joe_user_card.id]
+        @parties.should == [Card::AnyoneSignedInID, @joe_user_card.id]
       end
       
       it 'should update when new roles are set' do
         roles_card = @joe_user_card.fetch :trait=>:roles, :new=>{}
         r1 = Card['r1']
 
-        Account.as_bot { roles_card.items = [ r1.id ] }        
+        Card::Auth.as_bot { roles_card.items = [ r1.id ] }        
         Card['Joe User'].parties.should == @parties            # local cache still has old parties (permission does not change mid-request)        
                                                                
         Wagn::Cache.restore                                    # simulate new request -- clears local cache, where, eg, @parties would still be cached on card
-        Account.current_id = Account.current_id                # simulate new request -- current_id assignment clears several class variables
+        Card::Auth.current_id = Card::Auth.current_id                # simulate new request -- current_id assignment clears several class variables
         
-        new_parties = [ Card::AuthID, r1.id, @joe_user_card.id ]
+        new_parties = [ Card::AnyoneSignedInID, r1.id, @joe_user_card.id ]
         Card['Joe User'].parties.should == new_parties         # @parties regenerated, now with correct values
-        Account.current. parties.should == new_parties
+        Card::Auth.current. parties.should == new_parties
         
         # @joe_user_card.refresh(force=true).parties.should == new_parties   # should work, but now superfluous?
       end
@@ -62,32 +61,31 @@ describe Card::Set::All::Account do
   
   describe 'among?' do
     it 'should be true for self' do
-      Account.current.among?([Account.current_id]).should be_true
+      Card::Auth.current.among?([Card::Auth.current_id]).should be_true
     end
   end
   
 
-  describe "#invitation" do
-    it 'should create a card, user, and account card' do
+  describe "'+*email'" do
+    it 'should create a card and account card' do
       jadmin = Card['joe admin']
-      Account.current_id = jadmin.id #simulate login to get correct from address
+      Card::Auth.current_id = jadmin.id #simulate login to get correct from address
       ja_email = jadmin.account.email
 
-      Wagn::Env[:params] = { :email => {:subject=>'Hey Joe!', :message=>'Come on in.'} }
-      Card.create :name=>'Joe New', :type_id=>Card::UserID, :account_args=>{:email=>'joe@new.com'}
+      Card::Env[:params] = { :email => {:subject=>'Hey Joe!', :message=>'Come on in.'} }
+      Card.create :name=>'Joe New', :type_id=>Card::UserID, '+*account'=>{ '+*email'=> 'joe@new.com' }
 
       c = Card['Joe New']
-      u = Account[ 'joe@new.com' ]
+      u = Card::Auth[ 'joe@new.com' ]
       
-      c.should be
-      u.should be
-      u.card_id.should == c.id
+      c.should == u
       c.type_id.should == Card::UserID
-      
+=begin      
       email = ActionMailer::Base.deliveries.last
       email.to.should == ['joe@new.com']
       email.subject.should == 'Hey Joe!'
       email.from.should == [ ja_email ]
+=end
     end
   end
   
@@ -96,22 +94,44 @@ describe Card::Set::All::Account do
       @card = Card['Joe User']
     end
     it "should handle email updates" do
-      @card.update_attributes :account_args => { :email => 'joe@user.co.uk' }
+      @card.update_attributes! '+*account'=>{ '+*email'=>'joe@user.co.uk' }
       @card.account.email.should == 'joe@user.co.uk'
     end
   
+    it "should let Wagn Bot block accounts" do
+      Card::Auth.as_bot do
+        @card.account.status_card.update_attributes! :content => 'blocked'
+        @card.account.blocked?.should be_true
+      end
+    end
+    
+    
     it "should not allow a user to block or unblock himself" do
       expect do
-        @card.update_attributes! :account_args => { :blocked => '1' }
+        @card.account.status_card.update_attributes! :content => 'blocked'
       end.to raise_error
       @card.account.blocked?.should be_false
-      
-      Account.as_bot do
-        @card.update_attributes! :account_args => { :blocked => '1' }
-        @card.account.blocked?.should be_true
+    end
+  end
+  
+  describe "#read_rules" do
+    before(:all) do
+      @read_rules = Card['joe_user'].read_rules
+    end
+
+
+    it "*all+*read should apply to Joe User" do
+      @read_rules.member?(Card.fetch('*all+*read').id).should be_true
+    end
+
+    it "9 more should apply to Joe Admin" do
+      # includes lots of account rules...
+      Card::Auth.as(:joe_admin) do
+        ids = Card::Auth.as_card.read_rules
+        ids.length.should == @read_rules.size + 9
       end
-      
     end
+
   end
 
 end

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

@@ -1,5 +1,4 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::All::AllCss do
   it "should render content view" do

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

@@ -1,5 +1,4 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::All::AllCsv, "CSV mod" do
   context "csv_row view" do

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

@@ -1,5 +1,4 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::All::Attach do
   it 'should be triggered by image card creation' do

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

@@ -1,5 +1,4 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::All::Base do
 
@@ -10,14 +9,14 @@ describe Card::Set::All::Base do
     it("linkname") { render_card(:linkname).should  == 'Tempo_Rary' }
 
     it "url" do
-      Wagn::Env[:protocol] = 'http://'
-      Wagn::Env[:host]     = 'eric.skippy.com'
+      Card::Env[:protocol] = 'http://'
+      Card::Env[:host]     = 'eric.skippy.com'
       render_card(:url).should == 'http://eric.skippy.com/Tempo_Rary'
     end
 
     it :raw do
       @a = Card.new :content=>"{{A}}"
-      Card::Format.new(@a)._render(:raw).should == "{{A}}"
+      @a.format._render(:raw).should == "{{A}}"
     end
 
     it "core" do
@@ -30,7 +29,7 @@ describe Card::Set::All::Base do
         Card.create! :name => "n+b", :type=>"Phrase", :content=>"say:\"what\""
         Card.create! :name => "n+c", :type=>"Number", :content=>"30"
         c = Card.new :name => 'nplusarray', :content => "{{n+*children+by create|array}}"
-        Card::Format.new(c)._render( :core ).should == %{["10", "say:\\"what\\"", "30"]}
+        c.format._render( :core ).should == %{["10", "say:\\"what\\"", "30"]}
       end
 
       it "of pointer items" do
@@ -39,7 +38,7 @@ describe Card::Set::All::Base do
         Card.create! :name => "n+c", :type=>"Number", :content=>"30"
         Card.create! :name => "npoint", :type=>"Pointer", :content => "[[n+a]]\n[[n+b]]\n[[n+c]]"
         c = Card.new :name => 'npointArray', :content => "{{npoint|array}}"
-        Card::Format.new(c)._render( :core ).should == %q{["10", "20", "30"]}
+        c.format._render( :core ).should == %q{["10", "20", "30"]}
       end
       
       it "of basic items" do

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

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

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

@@ -1,10 +1,9 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::EmailHtmlFormat do
   it "should render full urls" do
-    Wagn::Env[:protocol] = 'http://'
-    Wagn::Env[:host] = 'www.fake.com'
+    Card::Env[:protocol] = 'http://'
+    Card::Env[:host] = 'www.fake.com'
     render_content('[[B]]', :format=>'email_html').should == '<a class="known-card" href="http://www.fake.com/B">B</a>'
   end
 

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

@@ -0,0 +1,7 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::All::EventViz do
+  describe '#events' do
+    Card['A'].events( :update ).split("\n").length.should > 20
+  end
+end

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

@@ -1,5 +1,4 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::All::File do
   # these are basically just fallback views

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

@@ -1,5 +1,4 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
 describe Card::Set::All::Flexmail do
   # set just has simple event. tests are in features/flexmail.feature and spec/lib/card/flexmail_spec.rb

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

@@ -1,7 +1,6 @@
 # -*- encoding : utf-8 -*-
-require 'wagn/spec_helper'
 
-describe "Card" do
+describe Card do
   before do
     Timecop.travel(Wagn.future_stamp)  # make sure we're ahead of all the test data
     @just_s = [Card["Sara"].id]
@@ -33,36 +32,36 @@ end
 
 describe "On Card Changes" do
   before do
-    Account.current_id = Card['john'].id
+    Card::Auth.current_id = Card['john'].id
     Timecop.travel(Wagn.future_stamp)  # make sure we're ahead of all the test data
   end
 
   it "sends notifications of edits" do
-    mock(Mailer).change_notice( Card['Sara'].id, Card["Sara Watching"], "updated", "Sara Watching", nil )
+    mock(Card::Mailer).change_notice( Card['Sara'].id, Card["Sara Watching"], "updated", "Sara Watching", nil )
     Card["Sara Watching"].update_attributes :content => "A new change"
   end
 
   it "sends notifications of additions" do
     new_card = Card.new :name => "Microscope", :type => "Optic"
-    mock(Mailer).change_notice( Card['Sara'].id, new_card,"created", "Optic", nil  )
+    mock(Card::Mailer).change_notice( Card['Sara'].id, new_card,"created", "Optic", nil  )
     new_card.save!
   end
 
   it "sends notification of updates" do
-    mock(Mailer).change_notice( is_a(Integer), Card["Sunglasses"], "updated", "Optic", nil)
+    mock(Card::Mailer).change_notice( is_a(Integer), Card["Sunglasses"], "updated", "Optic", nil)
     Card["Sunglasses"].update_attributes :content => 'updated content'
   end
 
   it "does not send notification to author of change" do
-    mock(Mailer).change_notice.with_any_args.times(any_times) do
-      |*a| a[0].should_not == Account.current_id
+    mock(Card::Mailer).change_notice.with_any_args.times(any_times) do
+      |*a| a[0].should_not == Card::Auth.current_id
     end
 
     Card["All Eyes On Me"].update_attributes :content => "edit by John"
   end
 
   it "does include author in wathers" do
-     Card["All Eyes On Me"].watchers.member?(Account.current_id).should be_true
+     Card["All Eyes On Me"].watchers.member?(Card::Auth.current_id).should be_true
   end
 end
 
@@ -88,8 +87,8 @@ describe "Trunk watcher notificatione" do
 
   it "sends notification to Joe Camel" do
     name = "Ulysses+author"
-    mock(Mailer).change_notice( @ja_id, @ulyss, "updated", 'Book' , [[name, "created"]], is_a(Card))
-    mock(Mailer).change_notice( @jc_id, @ulyss, "updated", @ulyss.name , [[name, "created"]], is_a(Card))
+    mock(Card::Mailer).change_notice( @ja_id, @ulyss, "updated", 'Book' , [[name, "created"]], is_a(Card))
+    mock(Card::Mailer).change_notice( @jc_id, @ulyss, "updated", @ulyss.name , [[name, "created"]], is_a(Card))
     c=Card.create :name=>name, :content => "James Joyce"
   end
 

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

@@ -0,0 +1,10 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::All::History do
+  context "history view" do
+    it 'should have a frame' do
+      history = render_card :history, :name=>"A"
+      assert_view_select history, 'div[class~="card-frame"]'
+    end
+  end
+end

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

@@ -1,25 +1,24 @@
 # -*- 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
       jf = Card::JsonFormat
-      real_json = jf.new(Card['T']).show :view=>:status
+      real_json = jf.new(Card['T']).show :status, {}
       JSON[real_json].should == {"key"=>"t","status"=>"real","id"=>Card['T'].id, 'url_key'=>'T'}
-      virtual_json = jf.new(Card.fetch('T+*self')).show :view=>:status
+      virtual_json = jf.new(Card.fetch('T+*self')).show :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
+      Card::Auth.as Card::AnonymousID do
         jf = Card::JsonFormat
         
         unknown = Card.new :name=>'sump'
         unreadable = Card.new :name=>'kumq', :type=>'Fruit'
-        unknown_json = jf.new(unknown).show :view=>:status
+        unknown_json = jf.new(unknown).show :status, {}
         JSON[unknown_json].should == {"key"=>"sump","status"=>"unknown", 'url_key'=>'sump'}
-        unreadable_json = jf.new(unreadable).show :view=>:status
+        unreadable_json = jf.new(unreadable).show :status, {}
         JSON[unreadable_json].should == {"key"=>"kumq","status"=>"unknown", 'url_key'=>'kumq'}
       end
     end