wagn 1.12.7

data/spec/javascripts/support/jasmine.yml

@@ -0,0 +1,77 @@
+# src_files
+#
+# Return an array of filepaths relative to src_dir to include before jasmine specs.
+# Default: []
+#
+# EXAMPLE:
+#
+# src_files:
+#   - lib/source1.js
+#   - lib/source2.js
+#   - dist/**/*.js
+#
+src_files:
+  - "app/**/application.{js,coffee}"
+# stylesheets
+#
+# Return an array of stylesheet filepaths relative to src_dir to include before jasmine specs.
+# Default: []
+#
+# EXAMPLE:
+#
+# stylesheets:
+#   - css/style.css
+#   - stylesheets/*.css
+#
+stylesheets:
+  - "app/**/*.css"
+# helpers
+#
+# Return an array of filepaths relative to spec_dir to include before jasmine specs.
+# Default: ["helpers/**/*.js"]
+#
+# EXAMPLE:
+#
+# helpers:
+#   - helpers/**/*.js
+#
+
+
+helpers:
+  - "helpers/**/*.{js,coffee}"
+
+
+# spec_files
+#
+# Return an array of filepaths relative to spec_dir to include.
+# Default: ["**/*[sS]pec.js"]
+#
+# EXAMPLE:
+#
+# spec_files:
+#   - **/*[sS]pec.js
+#
+spec_files:
+  - "*[Ss]pec.{js,coffee}"
+
+# src_dir
+#
+# Source directory path. Your src_files must be returned relative to this path. Will use root if left blank.
+# Default: project root
+#
+# EXAMPLE:
+#
+# src_dir: public
+#
+src_dir:
+
+# spec_dir
+#
+# Spec directory path. Your spec_files must be returned relative to this path.
+# Default: spec/javascripts
+#
+# EXAMPLE:
+#
+# spec_dir: spec/javascripts
+#
+spec_dir: spec/javascripts

data/spec/javascripts/support/jasmine_config.rb

@@ -0,0 +1,24 @@
+# -*- encoding : utf-8 -*-
+module Jasmine
+  class Config
+
+    # Add your overrides or custom config code here
+
+  end
+end
+
+
+# Note - this is necessary for rspec2, which has removed the backtrace
+module Jasmine
+  class SpecBuilder
+    def declare_spec(parent, spec)
+      me = self
+      example_name = spec["name"]
+      @spec_ids << spec["id"]
+      backtrace = @example_locations[parent.description + " " + example_name]
+      parent.it example_name, {} do
+        me.report_spec(spec["id"])
+      end
+    end
+  end
+end

data/spec/javascripts/support/jasmine_runner.rb

@@ -0,0 +1,21 @@
+# -*- encoding : utf-8 -*-
+$:.unshift(ENV['JASMINE_GEM_PATH']) if ENV['JASMINE_GEM_PATH'] # for gem testing purposes
+
+require 'rubygems'
+require 'jasmine'
+require 'rspec'
+jasmine_config_overrides = File.expand_path(File.join(File.dirname(__FILE__), 'jasmine_config.rb'))
+require jasmine_config_overrides if File.exists?(jasmine_config_overrides)
+
+jasmine_config = Jasmine::Config.new
+spec_builder = Jasmine::SpecBuilder.new(jasmine_config)
+
+should_stop = false
+
+RSpec.configuration.after(:suite) do
+  spec_builder.stop if should_stop
+end
+
+spec_builder.start
+should_stop = true
+spec_builder.declare_suites

data/spec/javascripts/wagn_spec.coffee

@@ -0,0 +1,40 @@
+describe "Global Wagn variable", ->
+  it "should be defined", ->
+    expect(wagn).toBeDefined
+
+describe "card-form", ->
+  beforeEach ->
+    loadFixtures('card_form.html')
+
+  it "should find a form", ->
+    expect($('form')).toBeDefined
+
+  it "should be able to populate the content field based on nearby selector", ->
+    $('.tinymce-textarea').setContentField -> 1+2
+    expect($('.card-content')).toHaveValue '3'
+
+  it "should be able to populate all content fields in a form", ->
+    $('form').setContentFields '.tinymce-textarea', -> 2+2
+    expect($('.card-content')).toHaveValue '4'
+
+  it "should be able to populate content fields from a map", ->
+    $('form').setContentFieldsFromMap { '.tinymce-textarea': -> 3+2 }
+    expect($('.card-content')).toHaveValue '5'
+
+  it "should be able to find the slot from any element within", ->
+    expect($('.card-content').slot()).toHaveClass 'card-slot'
+
+  it "should be able to populate slot from any element within", ->
+    $('.card-content').setSlotContent '<div class="card-slot">whoopee</div>'
+    expect($('.card-slot')).toHaveHtml 'whoopee'
+
+
+###
+describe "tiny-mce", ->
+  beforeEach ->
+    loadFixtures('card_form.html')
+
+  it 'should load', ->
+    wagn.initializeTinyMCE
+    expect($('form')).toContain('.mceEditor')
+###

data/spec/lib/card/chunk_spec.rb

@@ -0,0 +1,18 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+require 'card/chunk'
+
+describe Card::Chunk, "Chunk" do
+  context "Class" do
+    it "should populate prefix map on load" do
+      Card::Chunk.prefix_map.keys.size.should > 0
+      Card::Chunk.prefix_map['{'][:class].should == Card::Chunk::Include
+    end
+    
+    it "should find Chunk classes using matched prefix" do
+      Card::Chunk.find_class_by_prefix('{{').should == Card::Chunk::Include
+    end
+    
+  end
+  
+end

data/spec/lib/card/codename_spec.rb

@@ -0,0 +1,30 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+
+describe Card::Codename, "Codename" do
+
+  before do
+    @codes = Card::Codename.codehash.each_key.find_all do |key|
+      Symbol===key
+    end
+  end
+
+  it "should have sane codename data" do
+    @codes.each do |code|
+      code.                      should be_instance_of Symbol
+      (i = Card::Codename[code]).should be_a_kind_of Integer
+      Card::Codename[i].         should == code
+    end
+  end
+
+  it "cards should exist and be indestructable" do
+    Account.as_bot do
+      @codes.each do |code|
+        card = Card[code]
+        card.delete
+        card.errors[:delete].first.should match 'is a system card'
+        Card[code].should be
+      end
+    end
+  end
+end

data/spec/lib/card/content_spec.rb

@@ -0,0 +1,293 @@
+# -*- encoding : utf-8 -*-
+require 'wagn/spec_helper'
+require 'card/content'
+
+CONTENT = {
+  :one => %(Some Literals: \\[{I'm not| a link]}, and \\{{This Card|Is not Included}}, but {{this is}}, and some tail),
+  #:two => %(Some Links and includes: [[the card|the text]], and {{This Card|Is Included}}{{this too}}
+  #       more formats for links and includes: [the card][the text],
+  #       and [[http://external.wagn.org/path|link text]][This Card][Is linked]{{Included|open}}),
+  :two => %(Some Links and includes: [[the card|the text]], and {{This Card|Is Included}}{{this too}}
+        and [[http://external.wagn.org/path|link text]]{{Included|open}}),
+         
+  :three =>%(Some URIs and Links: http://a.url.com/
+        More urls: wagn.com/a/path/to.html
+        http://localhost:2020/path?cgi=foo&bar=baz  [[http://brain.org/Home|extra]]
+        [ http://gerry.wagn.com/a/path ]
+        { https://brain.org/more?args }),
+  :three_b => %(Some URIs and Links: http://a.url.com
+        More urls: wagn.com/a/path/to.html
+        [ http://gerry.wagn.com/a/path ]
+        { https://brain.org/more?args }
+        http://localhost:2020/path?cgi=foo&bar=baz  [[http://brain.org/Home|extra]]),
+   :four => "No chunks",
+   :five => "{{one inclusion|size;large}}",
+   :six  => %~
+     /* body text */
+     body {
+       color: #444444;
+     }
+
+     /* page - background image and color */
+     body#wagn {
+       background: #ffffff;
+     }
+
+     /* top bar background color; text colors */
+     #menu {
+       background: #3260a0;
+     }
+     #menu a {
+       color: #EEEEEE;
+     }
+
+     /* header text */
+     h1, h2 {
+       color: #664444;
+     }
+     h1.page-header, 
+     h2.page-header {
+       color: #222299; 
+     }
+   ~
+}
+
+CLASSES = {
+   :one => [String, :EscapedLiteral, String, :Include, String ],
+#   :two => [String, Chunk::Link, String, Chunk::Include, Chunk::Include, String, Chunk::Link, String, Chunk::Link, Chunk::Link, Chunk::Include ],
+   :two => [String, :Link, String, :Include, :Include, String, :Link, :Include ],
+   :three => [String, :URI, String, :HostURI, String, :URI, String, :Link, String, :URI, String, :URI, String ],
+   :three_b => [String, :URI, String, :HostURI, String, :URI, String, :URI, String, :URI, String, :Link ],
+   :five => [:Include]
+}
+
+CLASSES.each do |key, val|
+  CLASSES[key] = val.map do |klass|
+    Class === klass ? klass : Card::Chunk.const_get(klass)
+  end
+end
+
+RENDERED = {
+  :one => [
+    "Some Literals: \\[{I'm not| a link]}, and ",
+    "<span>{</span>{This Card|Is not Included}}",
+    ", but ",
+    {:options => {:inc_name=>"this is",:inc_syntax=>"this is"}},
+    ", and some tail"
+  ],
+  :two => [
+    "Some Links and includes: ",
+    "<a class=\"wanted-card\" href=\"/the_card?card[name]=the+card\">the text</a>", #"[[the card|the text]]",
+    ", and ",
+    { :options => { :view => "Is Included", :inc_name=>"This Card", :inc_syntax => "This Card|Is Included"}},
+    { :options => { :inc_name=>"this too", :inc_syntax=>"this too"}},
+    "\n        and ",
+    "<a class=\"external-link\" href=\"http://external.wagn.org/path\">link text</a>",
+    { :options => { :view=>"open", :inc_name=>"Included", :inc_syntax=>"Included|open" }}
+  ],
+  :three => [
+    "Some URIs and Links: ", '<a class="external-link" href="http://a.url.com/">http://a.url.com/</a>',
+    "\n        More urls: ",
+    "<a class=\"external-link\" href=\"http://wagn.com/a/path/to.html\">wagn.com/a/path/to.html</a>",
+    "\n        ",
+    "<a class=\"external-link\" href=\"http://localhost:2020/path?cgi=foo&bar=baz\">http://localhost:2020/path?cgi=foo&bar=baz</a>",
+    "  ",
+    "<a class=\"external-link\" href=\"http://brain.org/Home\">extra</a>",
+    "\n        [ ",
+    "<a class=\"external-link\" href=\"http://gerry.wagn.com/a/path\">http://gerry.wagn.com/a/path</a>",
+    " ]\n        { ",
+    "<a class=\"external-link\" href=\"https://brain.org/more?args\">https://brain.org/more?args</a>",
+    " }"
+  ],
+  :three_b => [
+    "Some URIs and Links: ","<a class=\"external-link\" href=\"http://a.url.com\">http://a.url.com</a>",
+    "\n        More urls: ",
+    "<a class=\"external-link\" href=\"http://wagn.com/a/path/to.html\">wagn.com/a/path/to.html</a>",
+    "\n        [ ",
+    "<a class=\"external-link\" href=\"http://gerry.wagn.com/a/path\">http://gerry.wagn.com/a/path</a>",
+    " ]\n        { ",
+    "<a class=\"external-link\" href=\"https://brain.org/more?args\">https://brain.org/more?args</a>",
+    " }\n        ",
+    "<a class=\"external-link\" href=\"http://localhost:2020/path?cgi=foo&bar=baz\">http://localhost:2020/path?cgi=foo&bar=baz</a>",
+    "  ",
+    "<a class=\"external-link\" href=\"http://brain.org/Home\">extra</a>"
+  ],
+  :four => "No chunks"
+}
+
+describe Card::Content do
+  context "instance" do
+
+    before do
+      @check_proc = Proc.new do |m, v|
+        if Array===m
+          wrong_class = m[0] != v.class
+          is_last = m.size == 1
+          #warn "check M[#{is_last}]:#{wrong_class}, #{m[0]}, V#{v.inspect}" if wrong_class || is_last
+          wrong_class.should be_false
+          wrong_class ? false : ( is_last ? true : m[1..-1] )
+        else false end
+      end
+
+      assert card = Card["One"]
+      @card = card
+
+      # non-nil valued opts only ...
+      @render_block =  Proc.new do |opts| {:options => opts.inject({}) {|i,v| !v[1].nil? && i[v[0]]=v[1]; i } } end
+    end
+
+
+    describe 'parse' do
+      it "should find all the chunks and strings" do
+        # note the mixed [} that are considered matching, needs some cleanup ...
+        #warn "cont? #{CONTENT[:one].inspect}"
+        cobj = Card::Content.new CONTENT[:one], @card
+        cobj.inject(CLASSES[:one], &@check_proc).should == true
+      end
+
+      it "should give just the chunks" do
+        cobj = Card::Content.new CONTENT[:one], @card
+        clist = CLASSES[:one].find_all {|c| String != c }
+        #warn "clist #{clist.inspect}"
+        cobj.each_chunk do |chk|
+          chk.should be_instance_of clist.shift
+        end
+        clist.should be_empty
+      end
+
+      it "should find all the chunks links and trasclusions" do
+        cobj = Card::Content.new CONTENT[:two], @card
+        cobj.inject(CLASSES[:two], &@check_proc).should == true
+      end
+
+      it "should find uri chunks " do
+        # tried some tougher cases that failed, don't know the spec, so hard to form better tests for URIs here
+        cobj = Card::Content.new CONTENT[:three], @card
+        cobj.inject(CLASSES[:three], &@check_proc).should == true
+        clist = CLASSES[:three].find_all {|c| String != c }
+        #warn "clist #{clist.inspect}, #{cobj.inspect}"
+        cobj.each_chunk do |chk|
+          chk.should be_instance_of clist.shift
+        end
+        clist.should be_empty
+      end
+
+      it "should find uri chunks (b)" do
+        # tried some tougher cases that failed, don't know the spec, so hard to form better tests for URIs here
+        cobj = Card::Content.new CONTENT[:three_b], @card
+        #warn "cobj #{cobj.inspect} #{CLASSES[:three_b].inspect}"
+        cobj.inject(CLASSES[:three_b], &@check_proc).should == true
+        clist = CLASSES[:three_b].find_all {|c| String != c }
+        #warn "clist #{clist.inspect}, #{cobj.inspect}"
+        cobj.each_chunk do |chk|
+          chk.should be_instance_of clist.shift
+        end
+        clist.should be_empty
+      end
+
+      it "should parse just a string" do
+        cobj = Card::Content.new CONTENT[:four], @card
+        cobj.should == RENDERED[:four]
+      end
+
+      it "should parse a single chunk" do
+        cobj = Card::Content.new CONTENT[:five], @card
+        cobj.inject(CLASSES[:five], &@check_proc).should == true
+        clist = CLASSES[:five].find_all {|c| String != c }
+        cobj.each_chunk do |chk|
+          chk.should be_instance_of clist.shift
+        end
+        clist.should be_empty
+      end
+    
+      it "should leave css alone" do
+        cobj = Card::Content.new CONTENT[:six], @card
+        cobj.should == CONTENT[:six]
+      end
+    end
+
+    describe "render" do
+      it "should render all includes" do
+        cobj = Card::Content.new CONTENT[:one], @card
+        cobj.as_json.to_s.should match /not rendered/
+        cobj.process_content_object &@render_block
+        (rdr=cobj.as_json.to_json).should_not match /not rendered/
+        rdr.should == RENDERED[:one].to_json
+      end
+
+      it "should render links and inclusions" do
+        cobj = Card::Content.new CONTENT[:two], @card
+        cobj.process_content_object &@render_block
+        (rdr=cobj.as_json.to_json).should_not match /not rendered/
+        rdr.should == RENDERED[:two].to_json
+      end
+
+      it "should not need rendering if no inclusions" do
+        cobj = Card::Content.new CONTENT[:three], @card
+  #      (rdr=cobj.as_json.to_json).should match /not rendered/ # links are rendered too, but not with a block
+        cobj.process_content_object &@render_block
+        (rdr=cobj.as_json.to_json) #.should_not match /not rendered/
+        rdr.should == RENDERED[:three].to_json
+      end
+
+      it "should not need rendering if no inclusions (b)" do
+        cobj = Card::Content.new CONTENT[:three_b], @card
+        (rdr=cobj.as_json.to_json).should match /not rendered/ # links are rendered too, but not with a block
+        cobj.process_content_object &@render_block
+        (rdr=cobj.as_json.to_json).should_not match /not rendered/
+        rdr.should == RENDERED[:three_b].to_json
+      end
+    end
+  end
+  
+  UNTAGGED_CASES = [ ' [grrew][/wiki/grrew]ss ', ' {{this is a test}}, {{this|view|is:too}} and',
+    ' so is http://foo.bar.come//', ' and foo="my attr, not int a tag" <not a=tag ', ' p class"foobar"> and more' ]
+
+  context "class" do
+    describe '#clean!' do
+      it 'should not alter untagged content' do
+        UNTAGGED_CASES.each do |test_case|
+          assert_equal test_case,Card::Content.clean!(test_case)
+        end
+      end
+    
+      it 'should strip disallowed html class attributes' do
+        assert_equal '<p>html<div>with</div> funky tags</p>', Card::Content.clean!('<p>html<div class="boo">with</div><monkey>funky</butts>tags</p>')
+        assert_equal '<span>foo</span>', Card::Content.clean!('<span class="banana">foo</span>')
+      end
+
+      it 'should not strip permitted_classes' do
+        assert_equal '<span class="w-spotlight">foo</span>', Card::Content.clean!('<span class="w-spotlight">foo</span>')
+        assert_equal '<p class="w-highlight w-ok">foo</p>', Card::Content.clean!('<p class="w-highlight w-ok">foo</p>')
+      end
+
+      it 'should strip permitted_classes but not permitted ones when both are present' do
+        assert_equal "<span class='w-spotlight w-ok'>foo</span>", Card::Content.clean!("<span class='w-spotlight banana w-ok'>foo</span>")
+        assert_equal '<p class="w-highlight">foo</p>', Card::Content.clean!('<p class="w-highlight bad-at end">foo</p>')
+        assert_equal '<p class="w-highlight">foo</p>', Card::Content.clean!('<p class="bad-class w-highlight">foo</p>')
+      end
+
+      it 'should allow permitted attributes' do
+        assert_equal '<img src="foo">',   Card::Content.clean!('<img src="foo">')
+        assert_equal "<img alt='foo'>",   Card::Content.clean!("<img alt='foo'>")
+        assert_equal '<img title="foo">', Card::Content.clean!('<img title=foo>')
+        assert_equal '<a href="foo">',    Card::Content.clean!('<a href="foo">')
+        assert_equal '<code lang="foo">', Card::Content.clean!('<code lang="foo">')
+        assert_equal '<blockquote cite="foo">', Card::Content.clean!('<blockquote cite="foo">')
+      end
+
+      it 'should not allow nonpermitted attributes' do
+        assert_equal '<img>', Card::Content.clean!('<img size="25">')
+        assert_equal '<p>',   Card::Content.clean!('<p font="blah">')
+      end
+
+      it 'should remove comments' do
+        assert_equal 'yo', Card::Content.clean!('<!-- not me -->yo')
+        assert_equal 'joe', Card::Content.clean!('<!-- not me -->joe<!-- not me -->')
+      end
+    end
+  end
+  
+  
+end
+