wagn 1.12.7

data/spec/mods/core/formats/text_format_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::TextFormat do
+  # format has no methods
+end

data/spec/mods/core/sets/all/active_card_spec.rb

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

data/spec/mods/core/sets/all/attribute_tracking_spec.rb

@@ -0,0 +1,22 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::All::AttributeTracking do
+  context "new card" do
+    before(:each) do
+      Account.as_bot do
+        @c = Card.new :name=>"New Card", :content=>"Great Content"
+      end
+    end
+
+    it "should have updates" do
+      described_class::Updates.should === @c.updates
+    end
+
+    it "should track changes" do
+      @c.name.should == 'New Card'
+      @c.name = 'Old Card'
+      @c.name.should == 'Old Card'
+    end
+  end
+end

data/spec/mods/core/sets/all/collection_spec.rb

@@ -0,0 +1,49 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::All::Collection do
+  describe "#item_names" do
+    it "returns item for each line of basic content" do
+      Card.new( :name=>"foo", :content => "X\nY" ).item_names.should == ["X","Y"]
+    end
+
+    it "returns list of card names for search" do
+      c = Card.new( :name=>"foo", :type=>"Search", :content => %[{"name":"Z"}])
+      c.item_names.should == ["Z"]
+    end
+
+    it "handles searches relative to context card" do
+      # note: A refers to 'Z'
+      Card.new(:name=>"foo", :type=>"Search", :content => %[{"referred_to_by":"_self"}]).item_names( :context=>'A' ).should == ["Z"]
+    end
+  end
+
+  describe "#extended_list" do
+    it "returns item's content for pointer setting" do
+      c = Card.new(:name=>"foo", :type=>"Pointer", :content => "[[Z]]")
+      c.extended_list.should == ["I'm here to be referenced to"]
+    end
+  end
+
+  describe "#contextual_content" do
+    it "returns content for basic setting" do
+      Card.new(:name=>"foo", :content => "X").contextual_content.should == "X"
+    end
+
+    it "processes inclusions relative to context card" do
+      context_card = Card["A"] # refers to 'Z'
+      c = Card.new(:name=>"foo", :content => "{{_self+B|core}}")
+      c.contextual_content( context_card ).should == "AlphaBeta"
+    end
+
+    it "returns content even when context card is hard templated" do #why the heck is this good?  -efm
+      context_card = Card["A"] # refers to 'Z'
+      
+      Account.as_bot do
+        Card.create! :name => "A+*self+*structure", :content => "Banana"
+      end
+      c = Card.new( :name => "foo", :content => "{{_self+B|core}}" )
+      c.contextual_content( context_card ).should == "AlphaBeta"
+    end
+  end
+end

data/spec/mods/core/sets/all/content_spec.rb

@@ -0,0 +1,15 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::All::Content do
+  describe 'save_draft' do
+    it 'should store a draft revision' do
+      @card = Card.create! :name=>"mango", :content=>"foo"
+      @card.save_draft("bar")
+      assert_equal 1, @card.drafts.length
+      @card.save_draft("booboo")
+      assert_equal 1, @card.drafts.length
+      assert_equal "booboo", @card.drafts[0].content
+    end
+  end
+end

data/spec/mods/core/sets/all/fetch_spec.rb

@@ -0,0 +1,206 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::All::Fetch do
+  describe ".fetch" do
+    it "returns and caches existing cards" do
+      Card.fetch("A").should be_instance_of(Card)
+      Card.cache.read("a").should be_instance_of(Card)
+      mock.dont_allow(Card).find_by_key
+      Card.fetch("A").should be_instance_of(Card)
+    end
+
+    it "returns nil and caches missing cards" do
+      Card.fetch("Zork").should be_nil
+      Card.cache.read("zork").new_card?.should be_true
+      Card.fetch("Zork").should be_nil
+    end
+
+    it "returns nil and caches trash cards" do
+      Account.as_bot do
+        Card.fetch("A").delete!
+        Card.fetch("A").should be_nil
+        mock.dont_allow(Card).find_by_key
+        Card.fetch("A").should be_nil
+      end
+    end
+
+    it "returns and caches builtin cards" do
+      Card.fetch("*head").should be_instance_of(Card)
+      Card.cache.read("*head").should_not be_nil
+    end
+
+    it "returns virtual cards and caches them as missing" do
+      Account.as_bot do
+        card = Card.fetch("Joe User+*email")
+        card.should be_instance_of(Card)
+        card.name.should == "Joe User+*email"
+        Card::Format.new(card).render_raw.should == 'joe@user.com'
+      end
+      #card.raw_content.should == 'joe@user.com'
+      #cached_card = Card.cache.read("joe_user+*email")
+      #cached_card.missing?.should be_true
+      #cached_card.virtual?.should be_true
+    end
+
+    it "fetches virtual cards after skipping them" do
+      Card['A+*self'].should be_nil
+      Card.fetch( 'A+*self' ).should_not be_nil
+    end
+    
+
+    it "fetches newly virtual cards" do
+      #pending "needs new cache clearing"
+      Card.fetch( 'A+virtual').should be_nil
+      Account.as_bot { Card.create :name=>'virtual+*right+*structure' }
+      Card.fetch( 'A+virtual').should_not be_nil
+    end
+    
+    it "handles name variants of cached cards" do
+      Card.fetch('yomama+*self').name.should == 'yomama+*self'
+      Card.fetch('YOMAMA+*self').name.should == 'YOMAMA+*self'
+      Card.fetch('yomama', :new=>{}).name.should == 'yomama'
+      Card.fetch('YOMAMA', :new=>{}).name.should == 'YOMAMA'
+      Card.fetch('yomama!', :new=>{ :name=>'Yomama'} ).name.should == 'Yomama'
+#      Card.fetch('yomama!', :new=>{ :type=>'Phrase'} ).name.should == 'yomama!'  FIXME!!     
+    end
+
+    it "does not recurse infinitely on template templates" do
+      Card.fetch("*structure+*right+*structure").should be_nil
+    end
+
+    it "expires card and dependencies on save" do
+      #Card.cache.dump # should be empty
+      Card.cache.reset_local
+      Card.cache.local.keys.should == []
+
+      Account.as_bot do
+
+        a = Card.fetch("A")
+        a.should be_instance_of(Card)
+
+        # expires the saved card
+        mock(Card.cache).delete('a')
+        mock(Card.cache).delete(/~\d+/).at_least(12)
+
+        # expires plus cards
+        mock(Card.cache).delete('c+a')
+        mock(Card.cache).delete('d+a')
+        mock(Card.cache).delete('f+a')
+        mock(Card.cache).delete('a+b')
+        mock(Card.cache).delete('a+c')
+        mock(Card.cache).delete('a+d')
+        mock(Card.cache).delete('a+e')
+        mock(Card.cache).delete('a+b+c')
+
+        # expired including? cards
+        mock(Card.cache).delete('x').times(2)
+        mock(Card.cache).delete('y').times(2)
+        a.save!
+      end
+    end
+
+    describe "preferences" do
+      before do
+        Account.current_id = Card::WagnBotID
+      end
+
+      it "prefers db cards to pattern virtual cards" do
+        c1=Card.create!(:name => "y+*right+*structure", :content => "Formatted Content")
+        c2=Card.create!(:name => "a+y", :content => "DB Content")
+        card = Card.fetch("a+y")
+        card.virtual?.should be_false
+        card.rule(:structure).should == "Formatted Content"
+        card.content.should == "DB Content"
+      end
+
+      it "prefers a pattern virtual card to trash cards" do
+        Card.create!(:name => "y+*right+*structure", :content => "Formatted Content")
+        Card.create!(:name => "a+y", :content => "DB Content")
+        Card.fetch("a+y").delete!
+
+        card = Card.fetch("a+y")
+        card.virtual?.should be_true
+        card.content.should == "Formatted Content"
+      end
+
+      it "should recognize pattern overrides" do
+        #~~~ create right rule
+        tc=Card.create!(:name => "y+*right+*structure", :content => "Right Content")
+        card = Card.fetch("a+y")
+        card.virtual?.should be_true
+        card.content.should == "Right Content"
+        
+#        warn "creating template"
+        tpr = Card.create!(:name => "Basic+y+*type plus right+*structure", :content => "Type Plus Right Content")
+        card = Card.fetch("a+y")
+        card.virtual?.should be_true
+        card.content.should == "Type Plus Right Content"
+
+        #~~~ delete type plus right rule
+        tpr.delete!
+        card = Card.fetch("a+y")
+        card.virtual?.should be_true
+        card.content.should == "Right Content"
+
+      end
+
+      it "should not hit the database for every fetch_virtual lookup" do
+        Card.create!(:name => "y+*right+*structure", :content => "Formatted Content")
+        Card.fetch("a+y")
+        mock.dont_allow(Card).find_by_key
+        Card.fetch("a+y")
+      end
+
+      it "should not be a new_record after being saved" do
+        Card.create!(:name=>'growing up')
+        card = Card.fetch('growing up')
+        card.new_record?.should be_false
+      end
+    end
+  end
+
+  describe "#fetch :new=>{ ... }" do
+    it "returns a new card if it doesn't find one" do
+      new_card = Card.fetch "Never Seen Me Before", :new=>{}
+      new_card.should be_instance_of(Card)
+      new_card.new_record?.should be_true
+    end
+
+    it "returns a card if it finds one" do
+      new_card = Card.fetch "A+B", :new=>{}
+      new_card.should be_instance_of(Card)
+      new_card.new_record?.should be_false
+    end
+
+    it "takes a second hash of options as new card options" do
+      new_card = Card.fetch "Never Before", :new=>{ :type => "Image" }
+      new_card.should be_instance_of(Card)
+      new_card.type_code.should == :image
+      new_card.new_record?.should be_true
+      Card.fetch( 'Never Before', :new=>{} ).type_id.should == Card::BasicID
+    end
+  end
+
+  describe "#fetch_virtual" do
+    it "should find cards with *right+*structure specified" do
+      Account.as_bot do
+        Card.create! :name=>"testsearch+*right+*structure", :content=>'{"plus":"_self"}', :type => 'Search'
+      end
+      c = Card.fetch("A+testsearch".to_name)
+      assert c.virtual?
+      c.type_code.should == :search_type
+      c.content.should ==  "{\"plus\":\"_self\"}"
+    end
+  end
+
+  describe "#exists?" do
+    it "is true for cards that are there" do
+      Card.exists?("A").should == true
+    end
+
+    it "is false for cards that arent'" do
+      Card.exists?("Mumblefunk is gone").should == false
+    end
+  end
+end

data/spec/mods/core/sets/all/initialize_spec.rb

@@ -0,0 +1,59 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::All::Initialize do
+  describe "new" do
+    it "handles explicit nil as parameters" do
+      c = Card.new nil
+      c.should be_instance_of(Card)
+      c.name.should == ''
+    end
+
+    it "handles nil name" do
+      c = Card.new :name => nil
+      c.should be_instance_of(Card)
+      c.name.should == ''
+    end
+    
+    it 'handles legit name' do
+      c = Card.new :name => 'Ceee'
+      c.should be_instance_of(Card)
+      c.name.should == 'Ceee'
+    end    
+  end
+  
+  
+  describe "module inclusion" do
+    context '(search)' do
+      before do
+        @c = Card.new :type=>'Search', :name=>'Module Inclusion Test Card'
+      end
+
+      it "happens after new" do
+        @c.respond_to?( :get_spec ).should be_true
+      end
+
+      it "happens after save" do
+        @c.respond_to?( :get_spec ).should be_true
+        @c.save!
+        @c.respond_to?( :get_spec ).should be_true
+      end
+
+      it "happens after fetch" do
+        @c.save!
+        c = Card.fetch(@c.name)
+        c.respond_to?( :get_spec ).should be_true
+      end
+    end
+
+    context '(pointer)' do
+      it "happens with explicit pointer setting" do
+        Card.new(:type=>'Pointer').respond_to?(:add_item).should be_true
+      end
+
+      it "happens with implicit pointer setting (from template)" do
+        Card.new(:name=>'Home+*watchers').should be_true
+      end
+    end
+  end
+end

data/spec/mods/core/sets/all/name_spec.rb

@@ -0,0 +1,30 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::All::Name do
+  describe 'autoname' do
+    before do
+      Account.as_bot do
+        @b1 = Card.create! :name=>'Book+*type+*autoname', :content=>'b1'
+      end
+    end
+
+    it "should handle cards without names" do
+      c = Card.create! :type=>'Book'
+      c.name.should== 'b1'
+    end
+
+    it "should increment again if name already exists" do
+      b1 = Card.create! :type=>'Book'
+      b2 = Card.create! :type=>'Book'
+      b2.name.should== 'b2'
+    end
+
+    it "should handle trashed names" do
+      b1 = Card.create! :type=>'Book'
+      Account.as_bot { b1.delete }
+      b1 = Card.create! :type=>'Book'
+      b1.name.should== 'b1'
+    end
+  end
+end

data/spec/mods/core/sets/all/pattern_spec.rb

@@ -0,0 +1,93 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Set::All::Pattern do
+
+  describe :set_names do
+    it "returns self, type, all for simple cards" do
+      Account.as_bot do
+        card = Card.new( :name => "AnewCard" )
+        card.set_names.should == [ "Basic+*type","*all"]
+        card.save!
+        card = Card.fetch("AnewCard")
+        card.set_names.should == [ "AnewCard+*self","Basic+*type","*all"]
+      end
+    end
+
+    it "returns set names for simple star cards" do
+      Account.as_bot do
+        Card.fetch('*update').set_names.should == [
+          "*update+*self","*star","Setting+*type","*all"
+        ]
+      end
+    end
+
+    it "returns set names for junction cards" do
+      Account.as_bot do
+        Card.new( :name=>"Iliad+author" ).set_names.should == [
+          "Book+author+*type plus right","author+*right","Basic+*type","*all plus","*all"
+        ]
+      end
+    end
+
+    it "returns set names for compound star cards" do
+      Account.as_bot do
+        Card.new( :name=>"Iliad+*to" ).set_names.should == [
+          "Book+*to+*type plus right","*to+*right","*rstar","Phrase+*type","*all plus","*all"
+        ]
+      end
+    end
+    
+    it "handles type plus right prototypes properly" do #right place for this?  really need more prototype tests...
+      Account.as_bot do
+        Card.fetch('Fruit+flavor+*type plus right').prototype.set_names.include?('Fruit+flavor+*type plus right').should be_true
+      end
+    end
+  end
+
+  describe :method_keys do
+    it "returns correct set names for simple cards" do
+      card = Card.new( :name => "AnewCard" )
+      card.method_keys.should == [ "basic_type", ""]
+      card.save!
+      card = Card.fetch("AnewCard")
+      card.method_keys.should == [ "basic_type",""]
+    end
+  end
+  
+  describe :rule_set_keys do
+    it "returns correct set names for new cards" do
+      card = Card.new :name => "AnewCard"
+      card.rule_set_keys.should == [ "#{Card::BasicID}+type", "all"]
+    end
+    
+  end
+
+  describe :safe_set_keys do
+    it "returns css names for simple star cards" do
+      Account.as_bot do
+        card = Card.new( :name => "*AnewCard")
+        card.safe_set_keys.should == "ALL TYPE-basic STAR"
+        card.save!
+        card = Card.fetch("*AnewCard")
+        card.safe_set_keys.should == "ALL TYPE-basic STAR SELF-Xanew_card"
+      end
+    end
+
+    it "returns set names for junction cards" do
+      card=Card.new( :name=>"Iliad+author" )
+      card.safe_set_keys.should == "ALL ALL_PLUS TYPE-basic RIGHT-author TYPE_PLUS_RIGHT-book-author"
+      card.save!
+      card = Card.fetch("Iliad+author")
+      card.safe_set_keys.should == "ALL ALL_PLUS TYPE-basic RIGHT-author TYPE_PLUS_RIGHT-book-author SELF-iliad-author"
+    end
+  end
+
+  describe :label do
+    it "returns label for name" do
+      Card.new(:name=>'address+*right').label.should== %{All "+address" cards}
+    end
+  end
+end
+
+