wagn 1.12.7

data/spec/lib/card/diff_spec.rb

@@ -0,0 +1,111 @@
+# -*- encoding : utf-8 -*-
+#!/usr/bin/env ruby
+
+require 'wagn/spec_helper'
+require 'card/diff'
+require 'diff'
+
+describe Card::Diff do
+  include Card::Diff
+
+  before do
+    @builder = Card::Diff::DiffBuilder.new 'old', 'new'
+  end
+
+  it 'should start of tag' do
+    assert @builder.start_of_tag?('<')
+    assert(!@builder.start_of_tag?('>'))
+    assert(!@builder.start_of_tag?('a'))
+  end
+
+  it 'should end of tag' do
+    assert @builder.end_of_tag?('>')
+    assert(!@builder.end_of_tag?('<'))
+    assert(!@builder.end_of_tag?('a'))
+  end
+
+  it 'should whitespace' do
+    assert @builder.whitespace?(" ")
+    assert @builder.whitespace?("\n")
+    assert @builder.whitespace?("\r")
+    assert(!@builder.whitespace?("a"))
+  end
+
+  it 'should convert html to list of words simple' do
+    assert_equal(
+        ['the', ' ', 'original', ' ', 'text'],
+        @builder.convert_html_to_list_of_words('the original text'))
+  end
+
+  it 'should convert html to list of words should separate endlines' do
+    assert_equal(
+        ['a', "\n", 'b', "\r", 'c'],
+        @builder.convert_html_to_list_of_words("a\nb\rc"))
+  end
+
+  it 'should convert html to list of words should not compress whitespace' do
+    assert_equal(
+        ['a', ' ', 'b', '  ', 'c', "\r \n ", 'd'],
+        @builder.convert_html_to_list_of_words("a b  c\r \n d"))
+  end
+
+  it 'should convert html to list of words should handle tags well' do
+    assert_equal(
+        ['<p>', 'foo', ' ', 'bar', '</p>'],
+        @builder.convert_html_to_list_of_words("<p>foo bar</p>"))
+  end
+
+  it 'should convert html to list of words interesting' do
+    assert_equal(
+        ['<p>', 'this', ' ', 'is', '</p>', "\r\n", '<p>', 'the', ' ', 'new', ' ', 'string',
+         '</p>', "\r\n", '<p>', 'around', ' ', 'the', ' ', 'world', '</p>'],
+        @builder.convert_html_to_list_of_words(
+            "<p>this is</p>\r\n<p>the new string</p>\r\n<p>around the world</p>"))
+  end
+
+  it 'should html diff simple' do
+    a = 'this was the original string'
+    b = 'this is the new string'
+    assert_equal('this <del class="diffmod">was</del><ins class="diffmod">is</ins> the ' +
+           '<del class="diffmod">original</del><ins class="diffmod">new</ins> string',
+           diff(a, b))
+  end
+
+  it 'should html diff with multiple paragraphs' do
+    a = "<p>this was the original string</p>"
+    b = "<p>this is</p>\r\n<p> the new string</p>\r\n<p>around the world</p>"
+
+    # Some of this expected result is accidental to implementation.
+    # At least it's well-formed and more or less correct.
+    assert_equal(
+        "<p>this <del class=\"diffmod\">was</del><ins class=\"diffmod\">is</ins></p>"+
+        "<ins class=\"diffmod\">\r\n</ins><p> the " +
+        "<del class=\"diffmod\">original</del><ins class=\"diffmod\">new</ins>" +
+        " string</p><ins class=\"diffins\">\r\n</ins>" +
+        "<p><ins class=\"diffins\">around the world</ins></p>",
+        diff(a, b))
+  end
+
+  # FIXME this test fails (ticket #67, http://dev.instiki.org/ticket/67)
+  it 'should html diff preserves endlines in pre' do
+    a = "<pre>\na\nb\nc\n</pre>"
+    b = "<pre>\n</pre>"
+    assert_equal(
+        "<pre>\n<del class=\"diffdel\">a\nb\nc\n</del></pre>",
+        diff(a, b))
+  end
+
+  it 'should html diff with tags' do
+    a = ""
+    b = "<div>foo</div>"
+    assert_equal '<div><ins class="diffins">foo</ins></div>', diff(a, b)
+  end
+
+  it 'should diff for tag change' do
+    a = "<a>x</a>"
+    b = "<b>x</b>"
+    # FIXME sad, but true - this case produces an invalid XML. If handle this you can, strong your foo is.
+    assert_equal '<a><b>x</a></b>', diff(a, b)
+  end
+
+end

data/spec/lib/card/flexmail_spec.rb

@@ -0,0 +1,209 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Flexmail do
+  describe "#email_config_cardnames" do
+    it "handles relative names" do
+      Account.as_bot do
+        Card.create! :name=>'emailtest+*right+*send', :content=>'[[_left+email_config]]', :type=>'Pointer'
+        trigger_card = Card.new(:name=>'Huckleberry+emailtest')
+        Card::Flexmail.email_config_cardnames(trigger_card).first.should=='emailtest+*right+email_config'
+      end
+    end
+  end
+
+  describe ".configs_for" do
+    before do
+      Account.current_id = Card::WagnBotID
+      Card.create! :name => "mailconfig+*to", :content => "joe@user.com"
+      Card.create! :name => "mailconfig+*from", :content => "from@user.com"
+      Card.create! :name => "mailconfig+*subject", :content => "Subject of the mail"
+      Card.create! :name => "emailtest+*right+*send", :content => "[[mailconfig]]"
+    end
+
+    it "returns empty list for card with no configs" do
+      Card::Flexmail.configs_for( Card.new( :name => "random" )).should == []
+    end
+
+    it "takes Pointer value for extended_list fields" do
+      Card.create! :name => "mailconfig+*cc", :content => "[[mailconfig+*to]]", :type=>'Pointer'
+      c = Card.new(:name=>'Passion Fruit+emailtest')
+      Card::Flexmail.configs_for(c)[0][:cc].should == 'joe@user.com'
+    end
+
+    it "handles *email cards" do
+      Account.as_bot do
+        Card.create! :name => "mailconfig+*cc", :content => "[[Joe User+*email]]", :type=>'Pointer'
+        Card.create! :name => "mailconfig+*bcc", :content => '{"name":"Joe Admin","append":"*email"}', :type=>'Search'
+      end
+      c = Card.new(:name=>'Kiwi+emailtest')
+      conf = Card::Flexmail.configs_for(c)[0]
+      conf[:cc].should == 'joe@user.com'
+      conf[:bcc].should == 'joe@admin.com'
+    end
+
+    it "returns list with correct hash for card with configs" do
+      Card.create! :name => "mailconfig+*message", :content => "It's true that {{_left+story|core}}"
+      c = Card.create :name=>'Banana+story', :content=>"I was born a poor black seed"
+      c = Card.create :name => "Banana+emailtest", :content => "data content"
+      Card::Flexmail.configs_for(c).should == [{
+        :to => "joe@user.com",
+        :from => "from@user.com",
+        :bcc => "",
+        :cc => "",
+        :subject => "Subject of the mail",
+        :message => "It's true that I was born a poor black seed",
+        :attach => ""
+      }]
+    end
+  end
+
+  describe "complex configs for" do
+    before do
+      class ActionView::Base
+        def params
+          if @controller
+            @controller.params
+          else
+            {}
+          end
+        end
+      end
+
+      Account.as_bot do
+        Card.create!  :name => 'Bobs addy', :content=>'bob@bob.com', :type=>'Phrase'
+        Card.create!  :name => 'default subject', :content=>'a very nutty thang', :type=>'Phrase'
+        Card.create!  :name => "mailconfig+*to", :content => %{ {"key":"bob_addy"} }, :type=>'Search'
+        Card.create!  :name => "mailconfig+*from", :content => %{ {"left":"_left", "right":"email"} }, :type=>'Search'
+        Card.create!  :name => "subject search+*right+*structure", :content => %{{"referred_to_by":"_self+subject"}}, :type=>'Search'
+        Card.create!  :name => "mailconfig+*subject", :content => "{{+subject search|core;item:core}}"
+        Card.create! :name => "mailconfig+*message", :content => "Triggered by {{_self|name}} and its wonderful content: {{_self|core}}"
+        Card.create! :name => "mailconfig+*attach", :type=>"Pointer", :content => "[[_self+attachment]]"
+        Card.create! :name=>'Trigger', :type=>'Cardtype'
+        Card.create :name=>'Trigger+*type+*create', :type=>'Pointer', :content=>'[[Anonymous]]'
+        Card.create! :name=>'Trigger+*type+*structure', :content=>''
+        Card.create! :name => "Trigger+*type+*send", :content => "[[mailconfig]]", :type=>'Pointer'
+      end
+    end
+
+    it "returns list with correct hash for card with configs" do
+      Account.as_bot do
+        Wagn::Env[:protocol] = 'http://'
+        Wagn::Env[:host]     = 'a.com'
+        
+        #c = Card.new(:name => "Banana Trigger", :content => "data content [[A]]", :type=>'Trigger')
+        #warn "boom: #{ Card::Flexmail.configs_for(c).inspect }"
+        
+        c = Card.create(
+          :name    => "Banana Trigger",
+          :content => "data content [[A]]",
+          :type    => 'Trigger',
+          :cards=> {
+            '+email'      => {:content=>'gary@gary.com'},
+            '+subject'    => {:type=>'Pointer', :content=>'[[default subject]]'},
+#            '+attachment' => {:type=>'File', :content=>"notreally.txt" }
+          }
+        )
+        conf = Card::Flexmail.configs_for(c).first
+
+        conf[:to     ].should == "bob@bob.com"
+        conf[:from   ].should == "gary@gary.com"
+        conf[:bcc    ].should == ''
+        conf[:cc     ].should == ''
+        conf[:subject].should == "a very nutty thang"
+#        conf[:attach ].should == ['Banana Trigger+attachment']
+        conf[:message].should == "Triggered by Banana Trigger and its wonderful content: data content " +
+          '<a class="known-card" href="http://a.com/A">A</a>'
+      end
+    end
+  end
+
+  describe "hooks for" do
+    describe "untemplated card" do
+      before do
+        Account.as_bot {
+          Card.create! :name => "emailtest+*right+*send", :type => "Pointer", :content => "[[mailconfig]]"
+          Card.create! :name => "mailconfig+*to", :content => "joe@user.com"
+        }
+      end
+
+      it "calls to mailer only on Card#create" do
+        Account.as_bot do
+          mock( Mailer ).flexmail( hash_including :to=>"joe@user.com" ).times 1
+          c =Card.create :name => "Banana+emailtest"
+          c.update_attributes! :content => 'short lived'
+          c.delete!
+        end
+        
+      end
+      
+
+      it "handles case of referring to self for content" do
+        Account.as_bot do
+          Card.create! :name => "Email", :type => "Cardtype"
+          Card.create! :name => "Email+*type+*send", :type => "Pointer", :content => "[[mailconfig]]"
+          Card.create! :name => "mailconfig+*message", :content => "this {{_self|core}}"
+        end
+
+        Rails.logger.level = ActiveSupport::BufferedLogger::Severity::DEBUG
+        mock(Mailer).flexmail(hash_including(:message=>"this had betta work"))
+        Card.create!(:name => "ToYou", :type => "Email", :content => "had betta work")
+      end
+
+    end
+
+    describe "templated card" do
+      before do
+        Account.as_bot do
+          Card.create! :name => "Book+*type+*send", :type => "Pointer",
+            :content => "[[mailconfig]]"
+          Card.create! :name => "mailconfig+*to", :content => "joe@user.com"
+        end
+      end
+
+      it "doesn't call to mailer on Card#create" do
+        mock.dont_allow(Mailer).flexmail
+        Card.create :name => "Banana+emailtest"
+      end
+
+      it "calls to mailer on Card#create" do
+        mock(Mailer).flexmail(hash_including(:to=>"joe@user.com")).at_least(1)
+        c = Card.create :name => "Illiodity", :type=>"Book"
+        Card.update(c.id, :cards=> {"~author" => {"name" => "Bukowski"}})
+      end
+    end
+  end
+
+  # Note: this mailer method and the corresponding template are defined in the regular rails places
+  # rather that the flexmail module.
+  # They can/should be brought out to more modular space if/when modules support adding
+  # view template (through adding directories, etc.)
+  describe "Mailer#flexmail" do
+    # to access things like 'create_account_url' include UrlWriter
+    # include ActionController::UrlWriter
+
+    before(:all) do
+      @email = Mailer.flexmail({
+        :to=>"joe@user.com",
+        :subject=>"boo-ya",
+        :message=>"Ipsum Daido Lorem"
+      })
+    end
+
+    it "respects to:" do
+      @email.to.first.should == "joe@user.com"
+    end
+
+    it "respects subject:" do
+      @email.subject.should match /boo-ya/
+    end
+
+    it "respects content:" do
+      @email.body.should match /Ipsum Daido Lorem/
+    end
+  end
+end
+
+
+
+

data/spec/lib/card/format_spec.rb

@@ -0,0 +1,173 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Format do
+
+  describe :render do
+    it "should ignore underscores in view names" do
+      render_card(:not_found).should == render_card('not found')
+    end
+    
+    it "should render denial when user lacks read permissions" do
+      c = Card.fetch('Administrator Menu')
+      c.who_can(:read).should == [Card::AdminID]
+      Account.as(:anonymous) do
+        c.ok?(:read).should == false
+        Card::Format.new(c).render(:core).should =~ /denied/
+      end
+    end
+  end
+#~~~~~~~~~~~~ special syntax ~~~~~~~~~~~#
+
+  context "special syntax" do
+
+    it "should allow for inclusion in links as in Cardtype" do
+       Account.as_bot do
+         Card.create! :name=>"TestType", :type=>'Cardtype', :content=>'[[/new/{{_self|linkname}}|add {{_self|name}} card]]'
+         Card.create! :name=>'TestType+*self+*structure', :content=>'_self' #otherwise content overwritten by *structure rule
+         Card::Format.new(Card['TestType']).render_core.should == '<a class="internal-link" href="/new/TestType">add TestType card</a>'
+       end
+    end
+
+    it "css in inclusion syntax in wrapper" do
+      c = Card.new :name => 'Afloatright', :content => "{{A|float:right}}"
+      assert_view_select Card::Format.new(c)._render( :core ), 'div[style="float:right;"]'
+    end
+
+    it "HTML in inclusion syntax stripped" do
+      c =Card.new :name => 'Afloat', :type => 'Html', :content => '{{A|float:left<object class="subject">}}'
+      result = Card::Format.new(c)._render( :core )
+      assert_view_select result, 'div[style="float:left;"]'
+    end
+  end
+  
+  describe "language quirks" do
+    it "should not fail on quirky language" do
+      render_content( 'irc: man').should == 'irc: man'
+      # this is really a specification issue, should we exclude the , like we do . at the end of a 'free' URI ?
+      render_content( 'ethan@wagn.org, dude').should == '<a class="email-link" href="mailto:ethan@wagn.org">ethan@wagn.org</a>, dude'
+    end
+  
+    it "should leave alone something that quacks like a URI when URI module raises invalid uri error" do
+      # it does leave this alone, there was too much going on in one test
+      wack_uri = 'git://<a href="/wagn/wagn.git">/wagn/wagn.git</a>'
+      render_content( wack_uri ).should == wack_uri
+    end
+    it "should leave alone something that quacks like a URI when ?" do
+      pending "its embeded in an <a> tag? quotes? need a spec"
+      wack_uri = '<a href="http://github.com/wagn/wagn.git">github.com/wagn/wagn.git</a>'
+      render_content( wack_uri ).should == wack_uri
+    end
+    it "should leave alone something that quacks like a URI when URI module raises invalid uri error" do
+      render_content( 'mailto:eat@joe.com?v=k').should == "<a class=\"email-link\" href=\"mailto:eat@joe.com?v=k\">mailto:eat@joe.com?v=k</a>"
+      #render_content( 'mailto:eat@joe.com?v=k').should == "mailto:eat@joe.com?v=k\">mailto:eat@joe.com?Subject=Hello"
+    end
+  end
+
+#~~~~~~~~~~~~ Error handling ~~~~~~~~~~~~~~~~~~#
+
+  describe "Error handling" do
+
+    it "prevents infinite loops" do
+      Card.create! :name => "n+a", :content=>"{{n+a|array}}"
+      c = Card.new :name => 'naArray', :content => "{{n+a|array}}"
+      Card::Format.new(c)._render( :core ).should =~ /too deep/
+    end
+
+    it "missing relative inclusion is relative" do
+      c = Card.new :name => 'bad_include', :content => "{{+bad name missing}}"
+      rr=(r=Card::Format.new(c))._render(:titled)
+      rr.match(/Add.*\+.*bad name missing/).should_not be_nil
+    end
+
+    it "renders deny for unpermitted cards" do
+      Account.as_bot do
+        Card.create(:name=>'Joe no see me', :type=>'Html', :content=>'secret')
+        Card.create(:name=>'Joe no see me+*self+*read', :type=>'Pointer', :content=>'[[Administrator]]')
+      end
+      assert_view_select Card::Format.new(Card.fetch('Joe no see me')).render(:core), 'span[class="denied"]'
+    end
+  end
+
+
+  describe "new_inclusion_card_args (with cgi params)" do
+    
+# WHERE WAS THIS USED?    
+#    it "uses params for card name substitutions" do
+#      c = Card.new :name => 'cardcore', :content => "{{_card+B|core}}"
+#      result = Card::Format.new(c, :params=>{'_card' => "A"})._render_core
+#      result.should == "AlphaBeta"
+#    end
+
+    it "should not change inclusion name if variable isn't present" do
+      c = Card.new :name => 'cardBname', :content => "{{_card+B|name}}"
+      Card::Format.new(c)._render( :core ).should == "_card+B"
+    end
+
+  end
+
+#~~~~~~~~~~~~~  content views
+# includes some *right stuff
+
+
+  context "structure rule" do
+    it "is used in new card forms when soft" do
+      Account.as :joe_admin do
+        content_card = Card["Cardtype E+*type+*default"]
+        content_card.content= "{{+Yoruba}}"
+        content_card.save!
+
+        help_card    = Card.create!(:name=>"Cardtype E+*type+*add help", :content=>"Help me dude" )
+        card = Card.new(:type=>'Cardtype E')
+
+        assert_view_select Card::HtmlFormat.new(card).render_new, 'div[class~="content-editor"]' do
+          assert_select 'textarea[class="tinymce-textarea card-content"]', :text => '{{+Yoruba}}'
+        end
+      end
+    end
+
+    it "is used in new card forms when hard" do
+      Account.as :joe_admin do
+        content_card = Card.create!(:name=>"Cardtype E+*type+*structure",  :content=>"{{+Yoruba}}" )
+        help_card    = Card.create!(:name=>"Cardtype E+*type+*add help", :content=>"Help me dude" )
+        card = Card.new(:type=>'Cardtype E')
+
+        mock(card).rule_card(:thanks, {:skip_modules=>true}).returns(nil)
+        mock(card).rule_card(:autoname).returns(nil)
+        mock(card).rule_card(:default,  {:skip_modules=>true}   ).returns(Card['*all+*default'])
+        mock(card).rule_card(:add_help, {:fallback=>:help} ).returns(help_card)
+        rendered = Card::HtmlFormat.new(card).render_new
+        #warn "rendered = #{rendered}"
+        assert_view_select rendered, 'fieldset' do
+          assert_select 'textarea[name=?][class="tinymce-textarea card-content"]', "card[cards][+Yoruba][content]"
+        end
+      end
+    end
+
+    it "should be used in edit forms" do
+      Account.as_bot do
+        config_card = Card.create!(:name=>"templated+*self+*structure", :content=>"{{+alpha}}" )
+      end
+      @card = Card.fetch('templated')# :name=>"templated", :content => "Bar" )
+      @card.content = 'Bar'
+      result = Card::Format.new(@card).render :edit
+#      warn "res #{@card.inspect}\n#{result}"
+      assert_view_select result, 'fieldset' do
+        assert_select 'textarea[name=?][class="tinymce-textarea card-content"]', 'card[cards][+alpha][content]'
+      end
+    end
+
+    it "works on type-plus-right sets edit calls" do
+      Account.as_bot do
+        Card.create(:name=>'Book+author+*type plus right+*default', :type=>'Phrase', :content=>'Zamma Flamma')
+      end
+      c = Card.new :name=>'Yo Buddddy', :type=>'Book'
+      result = Card::HtmlFormat.new(c).render( :new )
+      assert_view_select result, 'fieldset' do
+        assert_select 'input[name=?][type="text"][value="Zamma Flamma"]', 'card[cards][+author][content]'
+        assert_select %{input[name=?][type="hidden"][value="#{Card::PhraseID}"]},     'card[cards][+author][type_id]'
+      end
+    end
+  end
+
+end