move to AR

test/unit/web_test.rb

@@ -1,7 +1,158 @@
-require File.dirname(__FILE__) + '/../test_helper'
+require File.expand_path(File.dirname(__FILE__) + '/../test_helper')
 
 class WebTest < Test::Unit::TestCase
-
-  fixtures 'webs', 'pages', 'revisions'
+  fixtures :webs, :pages, :revisions, :system
   
+  def setup
+    @web = webs(:instiki)
+  end
+  
+  def test_wiki_word_linking
+    @web.add_page('SecondPage', 'Yo, yo. Have you EverBeenHated', 
+                   Time.now, 'DavidHeinemeierHansson')
+    
+    assert_equal('<p>Yo, yo. Have you <span class="newWikiWord">Ever Been Hated' + 
+        '<a href="../show/EverBeenHated">?</a></span></p>', 
+        @web.page("SecondPage").display_content)
+    
+    @web.add_page('EverBeenHated', 'Yo, yo. Have you EverBeenHated', Time.now, 
+                  'DavidHeinemeierHansson')
+    assert_equal('<p>Yo, yo. Have you <a class="existingWikiWord" ' +
+        'href="../show/EverBeenHated">Ever Been Hated</a></p>', 
+        @web.page("SecondPage").display_content)
+  end
+  
+  def test_pages_by_revision
+    add_sample_pages
+    assert_equal 'EverBeenHated', @web.select.by_revision.first.name
+  end
+  
+  def test_pages_by_match
+    add_sample_pages
+    assert_equal 2, @web.select { |page| page.content =~ /me/i }.length
+    assert_equal 1, @web.select { |page| page.content =~ /Who/i }.length
+    assert_equal 0, @web.select { |page| page.content =~ /none/i }.length
+  end
+  
+  def test_references
+    add_sample_pages
+    assert_equal 1, @web.select.pages_that_reference('EverBeenHated').length
+    assert_equal 0, @web.select.pages_that_reference('EverBeenInLove').length
+  end
+  
+  def test_delete
+    add_sample_pages
+    assert_equal 2, @web.pages.length
+    @web.remove_pages([ @web.page('EverBeenInLove') ])
+    assert_equal 1, @web.pages(true).length
+  end
+  
+  def test_make_link
+    add_sample_pages
+    
+    existing_page_wiki_url = 
+        '<a class="existingWikiWord" href="../show/EverBeenInLove">Ever Been In Love</a>'
+    existing_page_published_url = 
+        '<a class="existingWikiWord" href="../published/EverBeenInLove">Ever Been In Love</a>'
+    existing_page_static_url = 
+        '<a class="existingWikiWord" href="EverBeenInLove.html">Ever Been In Love</a>'
+    new_page_wiki_url = 
+        '<span class="newWikiWord">Unknown Word<a href="../show/UnknownWord">?</a></span>'
+    new_page_published_url = 
+    new_page_static_url =
+        '<span class="newWikiWord">Unknown Word</span>'
+    
+    # no options
+    assert_equal existing_page_wiki_url, @web.make_link('EverBeenInLove')
+  
+    # :mode => :export
+    assert_equal existing_page_static_url, @web.make_link('EverBeenInLove', nil, :mode => :export)
+  
+    # :mode => :publish
+    assert_equal existing_page_published_url, 
+        @web.make_link('EverBeenInLove', nil, :mode => :publish)
+  
+    # new page, no options
+    assert_equal new_page_wiki_url, @web.make_link('UnknownWord')
+  
+    # new page, :mode => :export
+    assert_equal new_page_static_url, @web.make_link('UnknownWord', nil, :mode => :export)
+  
+    # new page, :mode => :publish
+    assert_equal new_page_published_url, @web.make_link('UnknownWord', nil, :mode => :publish)
+  
+    # Escaping special characters in the name
+    assert_equal(
+        '<span class="newWikiWord">Smith &amp; Wesson<a href="../show/Smith+%26+Wesson">?</a></span>', 
+        @web.make_link('Smith & Wesson'))
+  
+    # optionally using text as the link text
+    assert_equal(
+      existing_page_published_url.sub(/>Ever Been In Love</, ">Haven't you ever been in love?<"),
+      @web.make_link('EverBeenInLove', "Haven't you ever been in love?", :mode => :publish))
+  
+  end
+  
+  def test_initialize  
+    web = Web.new(:name => 'Wiki2', :address => 'wiki2', :password => '123')
+  
+    assert_equal 'Wiki2', web.name
+    assert_equal 'wiki2', web.address
+    assert_equal '123', web.password
+  
+    # new web should be set for maximum features enabled
+    assert_equal :textile, web.markup
+    assert_equal '008B26', web.color
+    assert !web.safe_mode?
+    assert_equal([], web.pages)
+    assert web.allow_uploads?
+    assert_nil web.additional_style
+    assert !web.published?
+    assert !web.brackets_only?
+    assert !web.count_pages?
+    assert_equal 100, web.max_upload_size
+  end
+  
+  def test_initialize_invalid_name
+    assert_raises(Instiki::ValidationError) { 
+      Web.create(:name => 'Wiki2', :address => "wiki\234", :password => '123') 
+    }
+  end
+  
+  def test_new_page_linked_from_mother_page
+    # this was a bug in revision 204
+    home = @web.add_page('HomePage', 'This page refers to AnotherPage', 
+        Time.local(2004, 4, 4, 16, 50), 'Alexey Verkhovsky')
+    @web.add_page('AnotherPage', 'This is \AnotherPage', 
+        Time.local(2004, 4, 4, 16, 51), 'Alexey Verkhovsky')
+
+    @web.pages(true)
+    assert_equal [home], @web.select.pages_that_link_to('AnotherPage')
+  end
+  
+  def test_orphaned_pages
+    add_sample_pages
+    home = @web.add_page('HomePage', 
+        'This is a home page, it should not be an orphan',
+        Time.local(2004, 4, 4, 16, 50), 'AlexeyVerkhovsky')
+    author = @web.add_page('AlexeyVerkhovsky', 
+        'This is an author page, it should not be an orphan',
+        Time.local(2004, 4, 4, 16, 50), 'AlexeyVerkhovsky')
+    self_linked = @web.add_page('SelfLinked', 
+        'I am me SelfLinked and link to EverBeenInLove',
+        Time.local(2004, 4, 4, 16, 50), 'AnonymousCoward')
+        
+    # page that links to itself, and nobody else links to it must be an orphan
+    assert_equal ['EverBeenHated', 'SelfLinked'], 
+       @web.select.orphaned_pages.collect{ |page| page.name }.sort
+  end  
+
+  private
+  
+  def add_sample_pages
+    @in_love = @web.add_page('EverBeenInLove', 'Who am I me', 
+        Time.local(2004, 4, 4, 16, 50), 'DavidHeinemeierHansson')
+    @hated = @web.add_page('EverBeenHated', 'I am me EverBeenHated', 
+        Time.local(2004, 4, 4, 16, 51), 'DavidHeinemeierHansson')
+  end
 end