card 1.18.6 → 1.19.0

data/mod/01_core/set/all/view_cache.rb

@@ -1,9 +0,0 @@
-event :clear_view_cache, :finalize do
-  Card::ViewCache.reset
-end
-
-format do
-  def view_caching?
-    false
-  end
-end

data/mod/01_core/set_pattern/01_all.rb

@@ -1,11 +0,0 @@
-def label _name
-  'All cards'
-end
-
-def prototype_args _anchor
-  {}
-end
-
-def follow_label _name
-  'everything'
-end

data/mod/01_core/set_pattern/02_all_plus.rb

@@ -1,13 +0,0 @@
-@@options = { junction_only: true }
-
-def label _name
-  'All "+" cards'
-end
-
-def prototype_args _anchor
-  { name: '+' }
-end
-
-def follow_label _name
-  'all "+" cards'
-end

data/mod/01_core/set_pattern/04_star.rb

@@ -1,15 +0,0 @@
-def label _name
-  'All "*" cards'
-end
-
-def prototype_args _anchor
-  { name: '*dummy' }
-end
-
-def pattern_applies? card
-  card.cardname.star?
-end
-
-def follow_label _name
-  'all "*" cards'
-end

data/mod/01_core/set_pattern/05_rstar.rb

@@ -1,17 +0,0 @@
-@@options = { junction_only: true }
-
-def label _name
-  'All "+*" cards'
-end
-
-def prototype_args _anchor
-  { name: '*dummy+*dummy' }
-end
-
-def pattern_applies? card
-  card.cardname.rstar?
-end
-
-def follow_label _name
-  'all "+*" cards'
-end

data/mod/01_core/set_pattern/07_type_plus_right.rb

@@ -1,26 +0,0 @@
-@@options = {
-  junction_only: true,
-  assigns_type: true,
-  anchor_parts_count: 2
-}
-
-def label name
-  %(All "+#{name.to_name.tag}" cards on "#{name.to_name.left_name}" cards)
-end
-
-def prototype_args anchor
-  {
-    name: "+#{anchor.tag}",
-    supercard: Card.new(name: '*dummy', type: anchor.trunk_name)
-  }
-end
-
-def anchor_name card
-  left = card.left
-  type_name = (left && left.type_name) || Card[Card.default_type_id].name
-  "#{type_name}+#{card.cardname.tag}"
-end
-
-def follow_label name
-  %(all "+#{name.to_name.tag}" on "#{name.to_name.left_name}s")
-end

data/mod/01_core/spec/chunk/literal_spec.rb

@@ -1,13 +0,0 @@
-# -*- encoding : utf-8 -*-
-
-describe Card::Content::Chunk::EscapedLiteral, 'literal chunk tests' do
-  it 'should handle escaped link' do
-    expect(render_content('write this: \[[text]]'))
-      .to eq('write this: <span>[</span>[text]]')
-  end
-
-  it 'should handle escaped nest' do
-    expect(render_content('write this: \{{cardname}}'))
-      .to eq('write this: <span>{</span>{cardname}}')
-  end
-end

data/mod/01_core/spec/chunk/uri_spec.rb

@@ -1,293 +0,0 @@
-# -*- encoding : utf-8 -*-
-
-describe Card::Content::Chunk::URI, 'URI chunk tests' do
-  it 'should test_non_matches' do
-    no_match_uri 'There is no URI here'
-    no_match_uri 'One gemstone is the garnet:reddish in colour, like ruby'
-  end
-
-  it 'works with simple uri' do
-    # Simplest case
-    match_http_uri 'http://www.example.com',
-                   host: 'www.example.com', path: ''
-  end
-  it 'works with trailing slash' do
-    match_http_uri 'http://www.example.com/',
-                   host: 'www.example.com', path: '/'
-  end
-  it 'works with trailing slash inside html tags' do
-    match_http_uri '<p>http://www.example.com/</p>',
-                   host: 'www.example.com', path: '/',
-                   link_text: 'http://www.example.com/'
-  end
-  it 'works with trailing period (no longer suppressed .. spec?)' do
-    match_http_uri 'http://www.example.com/. ',
-                   host: 'www.example.com', path: '/',
-                   link_text: 'http://www.example.com/'
-  end
-  it 'works with trailing period inside html tags (dot change?)' do
-    match_http_uri '<p>http://www.example.com/.</p>',
-                   host: 'www.example.com', path: '/',
-                   link_text: 'http://www.example.com/'
-  end
-  it 'works with trailing &nbsp;' do
-    match_http_uri 'http://www.example.com/&nbsp;',
-                   host: 'www.example.com', path: '/',
-                   link_text: 'http://www.example.com/'
-  end
-  it 'works without http://' do
-    match_http_uri 'www.example.com',
-                   host: 'www.example.com',
-                   text: 'www.example.com',
-                   link_text: 'http://www.example.com'
-    match_http_uri 'example.com',
-                   host: 'example.com',
-                   text: 'example.com',
-                   link_text: 'http://example.com'
-  end
-  it 'should match "unusual" base domain (was a bug in an early version)' do
-    match_http_uri 'http://example.com.au/',
-                   host: 'example.com.au'
-  end
-  it 'works with "unusual" base domain without http://' do
-    match_http_uri 'example.com.au',
-                   host: 'example.com.au',
-                   text: 'example.com.au',
-                   link_text: 'http://example.com.au'
-  end
-  it 'works with another "unusual" base domain' do
-    match_http_uri 'http://www.example.co.uk/',
-                   host: 'www.example.co.uk'
-    match_http_uri 'example.co.uk',
-                   host: 'example.co.uk',
-                   text: 'example.co.uk',
-                   link_text: 'http://example.co.uk'
-  end
-  it 'works with some path at the end' do
-    match_http_uri 'http://moinmoin.wikiwikiweb.de/HelpOnNavigation',
-                   host: 'moinmoin.wikiwikiweb.de',
-                   path: '/HelpOnNavigation'
-  end
-  it 'works with some path at the end, and without http:// prefix (@link_text has prefix added)' do
-    match_http_uri 'moinmoin.wikiwikiweb.de/HelpOnNavigation',
-                   host: 'moinmoin.wikiwikiweb.de',
-                   path: '/HelpOnNavigation',
-                   text: 'moinmoin.wikiwikiweb.de/HelpOnNavigation',
-                   link_text: 'http://moinmoin.wikiwikiweb.de/HelpOnNavigation'
-  end
-  it 'works with a port number' do
-    match_http_uri 'http://www.example.com:80',
-                   host: 'www.example.com', port: 80,
-                   path: ''
-  end
-  it 'works with a port number and a path' do
-    match_http_uri 'http://www.example.com.tw:80/HelpOnNavigation',
-                   host: 'www.example.com.tw', port: 80,
-                   path: '/HelpOnNavigation'
-  end
-  it 'works with a query' do
-    match_http_uri 'http://www.example.com.tw:80/HelpOnNavigation?arg=val',
-                   host: 'www.example.com.tw', port: 80,
-                   path: '/HelpOnNavigation', query: 'arg=val'
-  end
-  it 'works on Query with two arguments' do
-    match_http_uri 'http://www.example.com.tw:80/HelpOnNavigation?arg=val&arg2=val2',
-                   host: 'www.example.com.tw', port: 80,
-                   path: '/HelpOnNavigation', query: 'arg=val&arg2=val2'
-  end
-  it 'works with IRC' do
-    match_uri 'irc://irc.freenode.net#recentchangescamp',
-              scheme: 'irc', host: 'irc.freenode.net',
-              fragment: 'recentchangescamp',
-              link_text: 'irc://irc.freenode.net#recentchangescamp'
-  end
-
-  it 'should see HTTPS' do
-    match_uri 'https://www.example.com',
-              scheme: 'https', host: 'www.example.com', port: 443,
-              path: '', query: nil
-  end
-  it 'should see FTP' do
-    match_uri 'ftp://www.example.com',
-              scheme: 'ftp', host: 'www.example.com', port: 21,
-              path: '', query: nil
-  end
-  it 'should handle mailto:' do
-    match_uri 'mailto:jdoe123@example.com',
-              scheme: 'mailto', host: nil, port: nil,
-              path: nil, query: nil,
-              to: 'jdoe123@example.com'
-  end
-
-  it 'should run more basic cases' do
-    # from *css (with () around the URI)
-    # so, now this doesn't even match because I fixed the suspiciou* stuff
-    no_match_uri(
-      "background: url('http://dl.dropbox.com/u/4657397/wikirate/" \
-      "wikirate_files/wr-bg-menu-line.gif') repeat-x;"
-    )
-
-    # Soap opera (the most complex case imaginable... well, not really, there
-    # should be more evil)
-    match_http_uri(
-      'http://www.example.com.tw:80/~jdoe123/Help%20Me%20?arg=val&arg2=val2',
-      host: 'www.example.com.tw', port: 80,
-      path: '/~jdoe123/Help%20Me%20', query: 'arg=val&arg2=val2')
-
-    # from 0.9 bug reports
-    match_uri 'http://www2.pos.to/~tosh/ruby/rdtool/en/doc/rd-draft.html',
-              scheme: 'http', host: 'www2.pos.to',
-              path: '/~tosh/ruby/rdtool/en/doc/rd-draft.html'
-
-    match_uri 'http://support.microsoft.com/default.aspx?scid=kb;en-us;234562',
-              scheme: 'http', host: 'support.microsoft.com',
-              path: '/default.aspx', query: 'scid=kb;en-us;234562'
-  end
-
-  it 'should test_email_uri' do
-    match_uri 'mail@example.com',
-              to: 'mail@example.com', host: nil,
-              text: 'mail@example.com',
-              link_text: 'mailto:mail@example.com'
-  end
-
-  it 'should test_non_email' do
-    # The @ is part of the normal text, but 'example.com' is marked up.
-    match_uri 'Not an email: @example.com', uri: 'http://example.com'
-  end
-
-  it 'should test_textile_image' do
-    no_match_uri 'This !http://hobix.com/sample.jpg! is a Textile image link.'
-  end
-
-  it 'should test_textile_link' do
-    no_match_uri(
-      'This "hobix (hobix)":http://hobix.com/sample.jpg is a Textile link.'
-    )
-    # just to be sure ...
-    match_uri 'This http://hobix.com/sample.jpg should match',
-              link_text: 'http://hobix.com/sample.jpg'
-  end
-
-  it 'should test_inline_html' do
-    no_match_uri "<img src='http://hobix.com/sample.jpg'/>"
-    no_match_uri '<IMG SRC="http://hobix.com/sample.jpg">'
-  end
-
-  it 'should test_non_uri' do
-    # "so" is a valid country code; "libproxy.so" is a valid url
-    match_uri 'libproxy.so', host: 'libproxy.so',
-                             text: 'libproxy.so',
-                             link_text: 'http://libproxy.so'
-
-    no_match_uri 'httpd.conf'
-    # THIS ONE'S BUSTED.. Ethan fix??
-    # no_match_uri 'ld.so.conf'
-    no_match_uri 'index.jpeg'
-    no_match_uri 'index.jpg'
-    no_match_uri 'file.txt'
-    no_match_uri 'file.doc'
-    no_match_uri 'file.pdf'
-    no_match_uri 'file.png'
-    no_match_uri 'file.ps'
-  end
-
-  it 'should test_uri_in_text' do
-    match_uri 'Go to: http://www.example.com/',
-              host: 'www.example.com', path: '/'
-    match_uri 'http://www.example.com/ is a link.', host: 'www.example.com'
-    match_uri 'Email david@loudthinking.com',
-              scheme: 'mailto', to: 'david@loudthinking.com', host: nil
-    # check that trailing punctuation is not included in the hostname
-    match_uri 'Hey dude, http://fake.link.com.',
-              scheme: 'http', host: 'fake.link.com'
-    # this is a textile link, no match please.
-    no_match_uri '"link":http://fake.link.com.'
-  end
-
-  it 'should test_uri_in_parentheses' do
-    match_uri 'URI (http://brackets.com.de) in brackets',
-              host: 'brackets.com.de'
-    match_uri 'because (as shown at research.net) the results',
-              host: 'research.net'
-    match_uri 'A wiki (http://wiki.org/wiki.cgi?WhatIsWiki) card',
-              scheme: 'http', host: 'wiki.org', path: '/wiki.cgi',
-              query: 'WhatIsWiki'
-  end
-
-  it 'should test_uri_list_item' do
-    match_chunk(
-      Card::Content::Chunk::URI,
-      '* http://www.btinternet.com/~mail2minh/SonyEricssonP80xPlatform.sis',
-      path: '/~mail2minh/SonyEricssonP80xPlatform.sis'
-    )
-  end
-
-  it 'should test_interesting_uri_with__comma' do
-    # Counter-intuitively, this URL matches, but the query part includes the
-    # trailing comma.
-    # It has no way to know that the query does not include the comma.
-    # The trailing , addition breaks this test, but is this test actually valid?
-    # It seems better to exclude the comma from the uri, YMMV
-    match_uri(
-      'This text contains a URL http://someplace.org:8080/~person/stuff.cgi' \
-      "?arg=val, doesn't it?",
-      scheme: 'http', host: 'someplace.org', port: 8080,
-      path: '/~person/stuff.cgi', query: 'arg=val')
-  end
-
-  describe Card::Content::Chunk::URI, 'URI chunk tests' do
-    it 'should test_local_urls' do
-      # normal
-      match_http_uri 'http://perforce:8001/toto.html',
-                     host: 'perforce', port: 8001
-      # in parentheses
-      match_uri 'URI (http://localhost:2500) in brackets',
-                host: 'localhost', port: 2500
-      match_uri 'because (as shown at http://perforce:8001) the results',
-                host: 'perforce', port: 8001
-      match_uri 'A wiki (http://localhost:2500/wiki.cgi?WhatIsWiki) card',
-                scheme: 'http', host: 'localhost', path: '/wiki.cgi',
-                port: 2500, query: 'WhatIsWiki'
-    end
-  end
-
-  private
-
-  DUMMY_CARD = Card.new(name: 'dummy')
-
-  # Asserts a number of tests for the given type and text.
-  def no_match type, test_text
-    expect(get_chunk(type, test_text)).to be_nil
-  end
-
-  def match_chunk type, test_text, expected
-    chunk = get_chunk(type, test_text)
-    expect(chunk).not_to be_nil
-
-    expected.each_pair do |method_sym, value|
-      # assert_respond_to(chunk, method_sym)
-      cvalue = chunk.method(method_sym).call
-      cvalue = cvalue.to_s if method_sym == :uri
-      assert_equal(value, cvalue, "Checking value of '#{method_sym}'")
-    end
-  end
-
-  def match_uri uri, opts
-    match_chunk Card::Content::Chunk::URI, uri, opts
-  end
-
-  def no_match_uri text
-    no_match Card::Content::Chunk::URI, text
-  end
-
-  def match_http_uri uri, opts
-    match_uri uri, opts.reverse_merge(link_text: uri, scheme: 'http')
-  end
-
-  def get_chunk type, test_text
-    cont = Card::Content.new(test_text, DUMMY_CARD)
-    cont = [cont] unless cont.respond_to?(:each)
-    cont.find { |ck| ck.is_a? type }
-  end
-end

data/mod/01_core/spec/format/data_format_spec.rb

@@ -1,5 +0,0 @@
-# -*- encoding : utf-8 -*-
-
-describe Card::DataFormat do
-  # format has no methods
-end

data/mod/01_core/spec/format/html_format_spec.rb

@@ -1,154 +0,0 @@
-# -*- encoding : utf-8 -*-
-
-describe Card::HtmlFormat do
-  describe 'views' do
-    it 'content' do
-      result = render_card(:content, name: 'A+B')
-      assert_view_select(
-        result,
-        'div[class="card-slot content-view card-content ALL ALL_PLUS ' \
-        'TYPE-basic RIGHT-b TYPE_PLUS_RIGHT-basic-b SELF-a-b"]'
-      )
-    end
-
-    it 'nests in multi edit' do
-      c = Card.new name: 'ABook', type: 'Book'
-      rendered = c.format.render(:edit)
-
-      assert_view_select rendered, 'fieldset' do
-        assert_select(
-          'textarea[name=?][class~="tinymce-textarea card-content"]',
-          'card[subcards][+illustrator][content]'
-        )
-      end
-    end
-
-    it 'titled' do
-      result = render_card :titled, name: 'A+B'
-      assert_view_select result, 'div[class~="titled-view"]' do
-        assert_select 'div[class~="card-header"]' do
-          assert_select 'span[class~="card-title"]'
-        end
-        assert_select 'div[class~="card-body card-content"]', 'AlphaBeta'
-      end
-    end
-
-    context 'Cards with special views' do
-    end
-
-    context 'Simple page with Default Layout' do
-      before do
-        Card::Auth.as_bot do
-          card = Card['A+B']
-          @simple_page = card.format.render(:layout)
-          # warn "render sp: #{card.inspect} :: #{@simple_page}"
-        end
-      end
-
-      it 'renders top menu' do
-        assert_view_select @simple_page, 'header' do
-          assert_select 'a[class="internal-link"][href="/"]', 'Home'
-          assert_select 'a[class="internal-link"][href="/:recent"]', 'Recent'
-          assert_select 'form.navbox-form[action="/:search"]' do
-            assert_select 'input[name="_keyword"]'
-          end
-        end
-      end
-
-      it 'renders card header' do
-        # lots of duplication here...
-        assert_view_select @simple_page,
-                           'div[class="card-header panel-heading"]' do
-          assert_select 'div[class="card-header-title panel-title"]'
-        end
-      end
-
-      it 'renders card content' do
-        assert_view_select(
-          @simple_page,
-          'div[class="card-body panel-body card-content ALL ALL_PLUS ' \
-          'TYPE-basic RIGHT-b TYPE_PLUS_RIGHT-basic-b SELF-a-b"]',
-          'AlphaBeta'
-        )
-      end
-
-      it 'renders card credit' do
-        assert_view_select @simple_page, 'div[class~="SELF-Xcredit"]' do
-          assert_select 'img'
-          assert_select 'a', "Wagn v#{Card::Version.release}"
-        end
-      end
-    end
-
-    context 'layout' do
-      before do
-        Card::Auth.as_bot do
-          @layout_card = Card.create name: 'tmp layout', type: 'Layout'
-          # warn "layout #{@layout_card.inspect}"
-        end
-        c = Card['*all+*layout']
-        c.content = '[[tmp layout]]'
-        @main_card = Card.fetch('Joe User')
-        Card::Env[:main_name] = @main_card.name
-
-        # warn "lay #{@layout_card.inspect}, #{@main_card.inspect}"
-      end
-
-      #      it "should default to core view when in layout mode" do
-      #        @layout_card.content = "Hi {{A}}"
-      #        Card::Auth.as_bot { @layout_card.save }
-      #
-      #        expect(@main_card.format.render(:layout)).to match('Hi Alpha')
-      #      end
-
-      #      it "should default to open view for main card" do
-      #        @layout_card.content='Open up {{_main}}'
-      #        Card::Auth.as_bot { @layout_card.save }
-      #
-      #        result = @main_card.format.render_layout
-      #        expect(result).to match(/Open up/)
-      #        expect(result).to match(/card-header/)
-      #        expect(result).to match(/Joe User/)
-      #      end
-
-      it 'renders custom view of main' do
-        @layout_card.content = 'Hey {{_main|name}}'
-        Card::Auth.as_bot { @layout_card.save }
-
-        result = @main_card.format.render_layout
-        expect(result).to match(/Hey.*div.*Joe User/)
-        expect(result).not_to match(/card-header/)
-      end
-
-      it "shouldn't recurse" do
-        @layout_card.content = 'Mainly {{_main|core}}'
-        Card::Auth.as_bot { @layout_card.save }
-
-        expect(@layout_card.format.render(:layout)).to eq(
-          "Mainly <div id=\"main\"><div class=\"CodeRay\">\n  " \
-          "<div class=\"code\"><pre>Mainly {{_main|core}}</pre></div>\n" \
-          "</div>\n</div>\n" \
-          '<div class="modal fade" role="dialog" id="modal-main-slot">' \
-          '<div class="modal-dialog"><div class="modal-content">' \
-          '</div></div></div>'
-        )
-        # probably better to check that it matches "Mainly" exactly twice.
-      end
-
-      it 'handles nested _main references' do
-        Card::Auth.as_bot do
-          @layout_card.content = '{{outer space|core}}'
-          @layout_card.save!
-          Card.create name: 'outer space', content: '{{_main|name}}'
-        end
-
-        expect(@layout_card.format.render(:layout)).to eq(
-          "Joe User\n" \
-          '<div class="modal fade" role="dialog" id="modal-main-slot">' \
-          '<div class="modal-dialog"><div class="modal-content">' \
-          '</div></div></div>'
-        )
-      end
-    end
-  end
-end