require File.dirname(__FILE__) + '/../spec_helper'
require 'action_web_service/test_invoke'
require 'backend_controller'
require 'blogger_service'
require 'meta_weblog_service'
require 'app/apis/movable_type_service.rb'
require 'digest/sha1'
require 'base64'

User.salt = 'change-me'

BackendController.class_eval do
  include ActionWebService::Protocol::XmlRpc
end

describe BackendController do
  before do
    @protocol = :xmlrpc
  end

  # BloggerApi Tests
  it "test_blogger_delete_post" do
    args = [ 'foo', contents(:article3).id, 'tobi', 'whatever', 1 ]

    result = invoke_layered :blogger, :deletePost, *args
    assert_raise(ActiveRecord::RecordNotFound) { Article.find(contents(:article3).id) }
  end

  it "test_blogger_get_users_blogs" do
    args = [ 'foo', 'tobi', 'whatever' ]

    result = invoke_layered :blogger, :getUsersBlogs, *args
    assert_equal 'test blog', result.first['blogName']
  end

  it "test_blogger_get_user_info" do
    args = [ 'foo', 'tobi', 'whatever' ]

    result = invoke_layered :blogger, :getUserInfo, *args
    assert_equal 'tobi', result['userid']
  end

  it "test_blogger_new_post" do
    args = [ 'foo', '1', 'tobi', 'whatever', '<title>new post title</title>new post *body*', 1]

    result = invoke_layered :blogger, :newPost, *args
    assert_not_nil result
    new_post = Article.find(result)
    assert_equal "new post title", new_post.title
    assert_equal "new post *body*", new_post.body
    assert_equal "<p>new post <strong>body</strong></p>", new_post.html(:body)
    assert_equal "textile", new_post.text_filter.name
    assert_equal users(:tobi), new_post.user
    assert new_post.published?
    assert new_post[:published_at]
  end

  it "test_blogger_new_post_no_title" do
    args = [ 'foo', '1', 'tobi', 'whatever', 'new post body for post without title but with a lenghty body', 1]

    result = invoke_layered :blogger, :newPost, *args
    assert_not_nil result
    new_post = Article.find(result)
    assert_equal "new post body for post without", new_post.title
    assert_equal "new post body for post without title but with a lenghty body", new_post.body
    assert_equal "<p>new post body for post without title but with a lenghty body</p>", new_post.html(:body)
  end

  it "test_blogger_new_post_with_categories" do
    args = [ 'foo', '1', 'tobi', 'whatever', '<title>new post title</title><category>Software, Hardware</category>new post body', 1]

    result = invoke_layered :blogger, :newPost, *args
    assert_not_nil result
    new_post = Article.find(result)
    assert_equal "new post title", new_post.title
    assert_equal "new post body", new_post.body
    assert_equal [categories(:software), categories(:hardware)].sort_by(&:id), new_post.categories.sort_by { |c| c.id }
    assert new_post.published?
  end

  it "test_blogger_new_post_with_non_existing_categories" do
    args = [ 'foo', '1', 'tobi', 'whatever', '<title>new post title</title><category>Idontexist, Hardware</category>new post body', 1]

    result = invoke_layered :blogger, :newPost, *args
    assert_not_nil result
    new_post = Article.find(result)
    assert_equal [categories(:hardware)], new_post.categories
  end

  it "test_blogger_fail_authentication" do
    args = [ 'foo', 'tobi', 'using a wrong password' ]
    # This will be a little more useful with the upstream changes in [1093]
    assert_raise(XMLRPC::FaultException) { invoke_layered :blogger, :getUsersBlogs, *args }
  end

  # Meta Weblog Tests
  it "test_meta_weblog_get_categories" do
    args = [ 1, 'tobi', 'whatever' ]

    result = invoke_layered :metaWeblog, :getCategories, *args
    assert_equal 'Software', result.first
  end

  it "test_meta_weblog_get_post" do
    args = [ contents(:article1).id, 'tobi', 'whatever' ]

    result = invoke_layered :metaWeblog, :getPost, *args
    assert_equal result['title'], contents(:article1).title
  end

  it "test_meta_weblog_get_recent_posts" do
    args = [ 1, 'tobi', 'whatever', 2 ]

    result = invoke_layered :metaWeblog, :getRecentPosts, *args
    assert_equal result.size, 2
    assert_equal result.last['title'], Article.find(:first, :offset => 1, :order => 'created_at desc').title
  end

  it "test_meta_weblog_delete_post" do
    art_id = contents(:article2).id
    args = [ 1, art_id, 'tobi', 'whatever', 1 ]

    result = invoke_layered :metaWeblog, :deletePost, *args
    assert_raise(ActiveRecord::RecordNotFound) { Article.find(art_id) }
  end

  it "test_meta_weblog_edit_post" do
    art_id = contents(:article1).id
    article = Article.find(art_id)
    article.title = "Modified!"
    article.body = "this is a *test*"
    article.text_filter = TextFilter.find_by_name("textile")
    article.published_at = Time.now.utc.midnight

    args = [ art_id, 'tobi', 'whatever', MetaWeblogService.new(@controller).article_dto_from(article), 1 ]

    result = invoke_layered :metaWeblog, :editPost, *args
    assert result

    new_article = Article.find(art_id)

    assert_equal article.title, new_article.title
    assert_equal article.body, new_article.body
    assert_equal "<p>this is a <strong>test</strong></p>", new_article.html(:body)
    assert_equal article.published_at, new_article.published_at.utc
  end

  # TODO: Work out what the correct response is when a post can't be saved...
  it "test_meta_weblog_new_post_fails" do
    @article = Article.new(:title => 'test', :body => 'body', :extended => 'extended',
                           :text_filter => TextFilter.find_by_name('textile'),
                           :published_at => Time.now.utc.midnight)
    @article.errors.add_to_base('test error')
    @article.should_receive(:save).and_return(false)
    Article.stub!(:new).and_return(@article)
    args = [1, 'tobi', 'whatever', MetaWeblogService.new(@controller).article_dto_from(@article), 1]
    lambda { invoke_layered :metaWeblog , :newPost, *args }.should \
      raise_error(XMLRPC::FaultException,
                  'Internal server error (exception raised)')
  end

  it "test_meta_weblog_new_post" do
    article = Article.new
    article.title = "Posted via Test"
    article.body = "body"
    article.extended = "extend me"
    article.text_filter = TextFilter.find_by_name("textile")
    article.published_at = Time.now.utc.midnight

    args = [ 1, 'tobi', 'whatever', MetaWeblogService.new(@controller).article_dto_from(article), 1 ]

    result = invoke_layered :metaWeblog, :newPost, *args
    assert result
    new_post = Article.find(result)

    assert_equal "Posted via Test", new_post.title
    assert_equal "textile", new_post.text_filter.name
    assert_equal article.body, new_post.body
    assert_equal "<p>body</p>", new_post.html(:body)
    assert_equal article.extended, new_post.extended
    assert_equal "<p>extend me</p>", new_post.html(:extended)
    assert_equal article.published_at, new_post.published_at.utc
  end

  it "test_meta_weblog_new_unpublished_post_with_blank_creation_date" do
    dto = MetaWeblogStructs::Article.new(
      :description       => "Some text",
      :title             => "A Title"
    )

    args = [ 1, 'tobi', 'whatever', dto, 0 ]

    result = invoke_layered :metaWeblog, :newPost, *args
    assert result
    new_post = Article.find(result)
    assert !new_post.published?
  end
  
  it "test_meta_weblog_edit_unpublished_post_with_old_creation_date" do
    article = Article.new
    article.title = "Posted via Test"
    article.body = "body"
    article.extended = "extend me"
    article.text_filter = TextFilter.find_by_name("textile")
    article.published_at = Time.now - 1.days

    args = [ 1, 'tobi', 'whatever', MetaWeblogService.new(@controller).article_dto_from(article), 0 ]

    result = invoke_layered :metaWeblog, :newPost, *args
    assert result
    new_post = Article.find(result)
    assert !new_post.published?
  end
  
  it "test_meta_weblog_new_media_object" do
    media_object = MetaWeblogStructs::MediaObject.new(
      "name" => Digest::SHA1.hexdigest("upload-test--#{Time.now}--") + ".gif",
      "type" => "image/gif",
      "bits" => Base64.encode64(File.open(File.expand_path(RAILS_ROOT) + "/public/images/powered.gif", "rb") { |f| f.read })
    )

    args = [ 1, 'tobi', 'whatever', media_object ]

    result = invoke_layered :metaWeblog, :newMediaObject, *args
    assert result['url'] =~ /#{media_object['name']}/
    assert File.unlink(File.expand_path(RAILS_ROOT) + "/public/files/#{media_object['name']}")
  end

  it "test_meta_weblog_fail_authentication" do
    args = [ 1, 'tobi', 'using a wrong password', 2 ]
    # This will be a little more useful with the upstream changes in [1093]
    assert_raise(XMLRPC::FaultException) { invoke_layered :metaWeblog, :getRecentPosts, *args }
  end

  it "test_meta_weblog_should_preserve_date_time_on_roundtrip_edit" do
    # The XML-RPC spec and the MetaWeblog API are ambiguous about how to
    # intrepret the timezone in the dateCreated field.  But _however_ we
    # interpret it, we want to be able to fetch an article from the server,
    # edit it, and write it back to the server without changing its
    # dateCreated field.
    article = contents(:article1)
    original_published_at = article.published_at

    args = [ article.id, 'tobi', 'whatever' ]
    result = invoke_layered :metaWeblog, :getPost, *args
    assert_equal original_published_at, result['dateCreated'].to_time

    args = [ article.id, 'tobi', 'whatever', result, 1 ]
    result = invoke_layered :metaWeblog, :editPost, *args
    article.reload
    assert_equal original_published_at, article.published_at
  end

  # Movable Type Tests

  it "test_mt_get_category_list" do
    args = [ 1, 'tobi', 'whatever' ]

    result = invoke_layered :mt, :getCategoryList, *args
    assert result.map { |c| c['categoryName'] }.include?('Software')
  end

  it "test_mt_get_post_categories" do
    art_id = contents(:article1).id
    article = Article.find(art_id)
    article.categories << categories(:software)

    args = [ art_id, 'tobi', 'whatever' ]

    result = invoke_layered :mt, :getPostCategories, *args
    assert_equal Set.new(result.collect {|v| v['categoryName']}), Set.new(article.categories.collect(&:name))
  end

  it "test_mt_get_recent_post_titles" do
    args = [ 1, 'tobi', 'whatever', 2 ]

    result = invoke_layered :mt, :getRecentPostTitles, *args
    assert_equal result.first['title'], contents(:article2).title
  end

  it "test_mt_set_post_categories" do
    art_id = contents(:article2).id
    args = [ art_id, 'tobi', 'whatever',
      [MovableTypeStructs::CategoryPerPost.new('categoryName' => 'personal', 'categoryId' => categories(:personal).id, 'isPrimary' => 1)] ]

    result = invoke_layered :mt, :setPostCategories, *args
    assert_equal [categories(:personal)], contents(:article2).categories

    args = [ art_id, 'tobi', 'whatever',
      [MovableTypeStructs::CategoryPerPost.new('categoryName' => 'Software', 'categoryId' => categories(:software).id, 'isPrimary' => 1),
       MovableTypeStructs::CategoryPerPost.new('categoryName' => 'Hardware', 'categoryId' => categories(:hardware).id, 'isPrimary' => 0) ]]

     result = invoke_layered :mt, :setPostCategories, *args

     assert contents(:article2).reload.categories.include?(categories(:hardware))

  end

  it "test_mt_supported_text_filters" do
    result = invoke_layered :mt, :supportedTextFilters
    assert result.map {|f| f['label']}.include?('Markdown')
    assert result.map {|f| f['label']}.include?('Textile')
  end

  it "test_mt_supported_methods" do
    result = invoke_layered :mt, :supportedMethods
    assert_equal 8, result.size
    assert result.include?("publishPost")
  end

  it "test_mt_get_trackback_pings" do
    args = [ contents(:article1).id ]

    result = invoke_layered :mt, :getTrackbackPings, *args

    assert_equal result.first['pingTitle'], 'Trackback Entry'
  end

  it "test_mt_publish_post" do
    art_id = contents(:article4).id
    args = [ art_id, 'tobi', 'whatever' ]

    assert (not Article.find(art_id).published?)

    result = invoke_layered :mt, :publishPost, *args

    assert result
    assert Article.find(art_id).published?
    assert Article.find(art_id)[:published_at]
  end

  it "test_mt_fail_authentication" do
    args = [ 1, 'tobi', 'using a wrong password', 2 ]
    # This will be a little more useful with the upstream changes in [1093]
    assert_raise(XMLRPC::FaultException) { invoke_layered :mt, :getRecentPostTitles, *args }
  end
end
