# encoding: UTF-8

require "test_helper"
require "storage/sql_schema"

module Diaspora
  class Application < Rails::Application
    def config.database_configuration
      {
        "development" => {
          "adapter" => "sqlite3",
          "database" => "test.db"
        }
      }
    end
  end
end

describe Vines::Storage::Sql do
  include SqlSchema

  def setup
    _config = Vines::Config.configure do
      max_offline_msgs 1

      host "wonderland.lit" do
        storage :fs do
          dir Dir.tmpdir
        end
      end
    end

    @test_user = {
      name: "test", url: "http://remote.host/",
      image_url: "http://path.to/image.png", jid: "test@local.host", email: "test@test.de",
      password: "$2a$10$c2G6rHjGeamQIOFI0c1/b.4mvFBw4AfOtgVrAkO1QPMuAyporj5e6", # pppppp
      token: "1234"
    }

    return if File.exist?(db_file)
    # create sql schema
    storage && create_schema(force: true)

    Vines::Storage::Sql::User.new(
      username: @test_user[:name], email: @test_user[:email],
      encrypted_password: @test_user[:password],
      authentication_token: @test_user[:token]
    ).save
    Vines::Storage::Sql::Person.new(
      owner_id: 1,
      guid: "1697a4b0198901321e9b10e6ba921ce9",
      url: @test_user[:url],
      serialized_public_key: "some pub key",
      diaspora_handle: @test_user[:jid]
    ).save
    Vines::Storage::Sql::Profile.new(
      person_id: 1,
      last_name: "Hirsch",
      first_name: "Harry",
      diaspora_handle: @test_user[:jid],
      image_url: @test_user[:image_url]
    ).save
    Vines::Storage::Sql::Contact.new(
      user_id: 1, person_id: 1,
      sharing: true, receiving: true
    ).save
    Vines::Storage::Sql::Aspect.new(
      user_id: 1, name: "without_chat",
      contacts_visible: true, order_id: nil
    ).save
    Vines::Storage::Sql::AspectMembership.new(
      # without_chat
      aspect_id: 1, contact_id: 1
    ).save
  end

  after do
    # since we create the database once we
    # have to reset it after every test run
    Vines::Storage::Sql::ChatOfflineMessage.all.each(&:destroy)
  end

  def test_save_message
    fibered do
      db = storage

      assert_nil db.save_message("", "", "")
      assert_nil db.save_message("dude@valid@jid", "dude2@valid.jid", "")
      assert_nil db.save_message("dude@valid@jid", "", "test")
      assert_nil db.save_message("", "dude2@valid.jid", "test")

      db.save_message(@test_user[:jid], "someone@inthe.void", "test")

      msgs = Vines::Storage::Sql::ChatOfflineMessage.where(:to => "someone@inthe.void")
      assert_equal 1, msgs.count
      assert_equal "someone@inthe.void", msgs.first.to
      assert_equal @test_user[:jid], msgs.first.from
      assert_equal "test", msgs.first.message

      db.save_message("someone@else.void", "someone@inthe.void", "test2")

      msgs = Vines::Storage::Sql::ChatOfflineMessage.where(:to => "someone@inthe.void")
      assert_equal 1, msgs.count # due max limit equals one (see max_offline_msgs)
      assert_equal "someone@inthe.void", msgs.first.to
      assert_equal "someone@else.void", msgs.first.from
      assert_equal "test2", msgs.first.message # should be latest message
    end
  end

  def test_find_avatar_by_jid
    fibered do
      db = storage

      assert_nil db.find_avatar_by_jid("")
      assert_nil db.find_avatar_by_jid("someone@inthe.void")

      image_path = db.find_avatar_by_jid(@test_user[:jid])
      assert_equal @test_user[:image_url], image_path
    end
  end

  def test_find_messages
    fibered do
      db = storage

      assert_nil db.find_messages("")
      assert_equal 0, db.find_messages("someone@inthe.void").keys.count

      Vines::Storage::Sql::ChatOfflineMessage.new(
        from: @test_user[:jid], to: "someone@inthe.void", message: "test"
      ).save

      msgs = db.find_messages("someone@inthe.void")
      assert_equal 1, msgs.keys.count
      msgs.each {|_, msg|
        assert_equal "someone@inthe.void", msg[:to]
        assert_equal @test_user[:jid], msg[:from]
        assert_equal "test", msg[:message]
      }
    end
  end

  def test_destroy_message
    fibered do
      db = storage
      Vines::Storage::Sql::ChatOfflineMessage.new(
        from: @test_user[:jid], to: "someone@inthe.void", message: "test"
      ).save
      Vines::Storage::Sql::ChatOfflineMessage.all.each do |com|
        db.destroy_message(com.id)
      end
      count = Vines::Storage::Sql::ChatOfflineMessage.count(id: 1)
      assert_equal 0, count
    end
  end

  def test_aspect_chat_enabled
    fibered do
      db = storage
      user = db.find_user(@test_user[:jid])
      assert_equal 0, user.roster.length

      aspect = Vines::Storage::Sql::Aspect.where(:id => 1)
      aspect.update_all(name: "with_chat", chat_enabled: true)
      user = db.find_user(@test_user[:jid])
      assert_equal 1, user.roster.length
    end
  end

  def test_save_user
    fibered do
      db = storage
      user = Vines::User.new(jid: "test2@test.de",
        name: "test2@test.de", password: "secret")
      db.save_user(user)
      assert_nil db.find_user("test2@test.de")
    end
  end

  def test_find_user
    fibered do
      db = storage
      user = db.find_user(nil)
      assert_nil user

      user = db.find_user(@test_user[:jid])
      assert (user != nil), "no user found"
      assert_equal @test_user[:name], user.name

      user.roster do |contact|
        assert_equal "Harry Hirsch", contact.name
      end

      user = db.find_user(Vines::JID.new(@test_user[:jid]))
      assert (user != nil), "no user found"
      assert_equal @test_user[:name], user.name

      user = db.find_user(Vines::JID.new("#{@test_user[:jid]}/resource"))
      assert (user != nil), "no user found"
      assert_equal @test_user[:name], user.name
    end
  end

  def test_authenticate
    fibered do
      db = storage

      assert_nil db.authenticate(nil, nil)
      assert_nil db.authenticate(nil, "secret")
      assert_nil db.authenticate("bogus", nil)

      # user credential auth
      pepper = "065eb8798b181ff0ea2c5c16aee0ff8b70e04e2ee6bd6e08b49da46924223e39127d5335e466207d42bf2a045c12be5f90e92012a4f05f7fc6d9f3c875f4c95b"
      user = db.authenticate(@test_user[:jid], "pppppp#{pepper}")
      assert (user != nil), "no user found"
      assert_equal @test_user[:name], user.name

      # user token auth
      user = db.authenticate(@test_user[:jid], @test_user[:token])
      assert (user != nil), "no user found"
      assert_equal @test_user[:name], user.name
    end
  end

  def test_find_vcard
    fibered do
      db = storage
      xml = db.find_vcard(@test_user[:jid])
      assert (xml != nil), "no vcard found"

      doc = node(xml)
      assert_equal "Harry Hirsch", doc.search("FN").text
      assert_equal "Harry", doc.search("GIVEN").text
      assert_equal "Hirsch", doc.search("FAMILY").text
      assert_equal @test_user[:url], doc.search("URL").text
      assert_equal @test_user[:image_url], doc.search("EXTVAL").text
    end
  end

  def test_save_vcard
    fibered do
      assert_nil storage.save_vcard(@test_user[:jid], "<vCard></vCard>")
    end
  end

  def test_find_fragment
    skip("not working probably")

    fibered do
      db = storage
      root = Nokogiri::XML(%(<characters xmlns="urn:wonderland"/>)).root
      bad_name = Nokogiri::XML(%(<not_characters xmlns="urn:wonderland"/>)).root
      bad_ns = Nokogiri::XML(%(<characters xmlns="not:wonderland"/>)).root

      node = db.find_fragment(nil, nil)
      assert_nil node

      node = db.find_fragment("full@wonderland.lit", bad_name)
      assert_nil node

      node = db.find_fragment("full@wonderland.lit", bad_ns)
      assert_nil node

      node = db.find_fragment("full@wonderland.lit", root)
      assert (node != nil), "node should include fragment"
      assert_equal fragment.to_s, node.to_s

      node = db.find_fragment(Vines::JID.new("full@wonderland.lit"), root)
      assert (node != nil), "node should include fragment"
      assert_equal fragment.to_s, node.to_s

      node = db.find_fragment(Vines::JID.new("full@wonderland.lit/resource"), root)
      assert (node != nil), "node should include fragment"
      assert_equal fragment.to_s, node.to_s
    end
  end

  def test_save_fragment
    skip("not working probably")

    fibered do
      db = storage
      root = Nokogiri::XML(%(<characters xmlns="urn:wonderland"/>)).root
      db.save_fragment("test@test.de/resource1", fragment)
      node = db.find_fragment("test@test.de", root)
      assert (node != nil), "node should include fragment"
      assert_equal fragment.to_s, node.to_s
    end
  end
end