require File.dirname(__FILE__) + '/test_helper'

class SillyEncryptor
  def self.silly_encrypt(options)
    (options[:value] + options[:some_arg]).reverse
  end
  
  def self.silly_decrypt(options)
    options[:value].reverse.gsub(/#{options[:some_arg]}$/, '')
  end
end

class User
  self.attr_encrypted_options[:key] = Proc.new { |user| user.class.to_s } # default key
  
  attr_encrypted :email, :without_encoding, :key => 'secret key'
  attr_encrypted :password, :prefix => 'crypted_', :suffix => '_test'
  attr_encrypted :ssn, :key => :salt, :attribute => 'ssn_encrypted'
  attr_encrypted :credit_card, :encryptor => SillyEncryptor, :encrypt_method => :silly_encrypt, :decrypt_method => :silly_decrypt, :some_arg => 'test'
  attr_encrypted :with_encoding, :key => 'secret key', :encode => true
  attr_encrypted :with_custom_encoding, :key => 'secret key', :encode => 'm'
  attr_encrypted :with_marshaling, :key => 'secret key', :marshal => true
  attr_encrypted :with_true_if, :key => 'secret key', :if => true
  attr_encrypted :with_false_if, :key => 'secret key', :if => false
  attr_encrypted :with_true_unless, :key => 'secret key', :unless => true
  attr_encrypted :with_false_unless, :key => 'secret key', :unless => false
  attr_accessor :salt
  
  def initialize
    self.salt = Time.now.to_i.to_s
  end
end

class Admin < User
  attr_encrypted :testing
end

class SomeOtherClass
  def self.call(object)
    object.class
  end
end

class AttrEncryptedTest < Test::Unit::TestCase
  
  def test_should_store_email_in_encrypted_attributes
    assert User.encrypted_attributes.include?('email')
  end
  
  def test_should_not_store_salt_in_encrypted_attributes
    assert !User.encrypted_attributes.include?('salt')
  end
  
  def test_attr_encrypted_should_return_true_for_email
    assert User.attr_encrypted?('email')
  end
  
  def test_attr_encrypted_should_return_false_for_salt
    assert !User.attr_encrypted?('salt')
  end
  
  def test_should_generate_an_encrypted_attribute
    assert User.new.respond_to?(:encrypted_email)
  end
  
  def test_should_generate_an_encrypted_attribute_with_a_prefix_and_suffix
    assert User.new.respond_to?(:crypted_password_test)
  end
  
  def test_should_generate_an_encrypted_attribute_with_the_attribute_option
    assert User.new.respond_to?(:ssn_encrypted)
  end
  
  def test_should_not_encrypt_nil_value
    assert_nil User.encrypt_email(nil)
  end
  
  def test_should_encrypt_email
    assert_not_nil User.encrypt_email('test@example.com')
    assert_not_equal 'test@example.com', User.encrypt_email('test@example.com')
  end
  
  def test_should_encrypt_email_when_modifying_the_attr_writer
    @user = User.new
    assert_nil @user.encrypted_email
    @user.email = 'test@example.com'
    assert_not_nil @user.encrypted_email
    assert_equal User.encrypt_email('test@example.com'), @user.encrypted_email
  end
  
  def test_should_not_decrypt_nil_value
    assert_nil User.decrypt_email(nil)
  end
  
  def test_should_decrypt_email
    encrypted_email = User.encrypt_email('test@example.com')
    assert_not_equal 'test@test.com', encrypted_email
    assert_equal 'test@example.com', User.decrypt_email(encrypted_email)
  end
  
  def test_should_decrypt_email_when_reading
    @user = User.new
    assert_nil @user.email
    @user.encrypted_email = User.encrypt_email('test@example.com')
    assert_equal 'test@example.com', @user.email
  end
  
  def test_should_encrypt_with_encoding
    assert_equal User.encrypt_with_encoding('test'), [User.encrypt_without_encoding('test')].pack('m*')
  end
  
  def test_should_decrypt_with_encoding
    encrypted = User.encrypt_with_encoding('test')
    assert_equal 'test', User.decrypt_with_encoding(encrypted)
    assert_equal User.decrypt_with_encoding(encrypted), User.decrypt_without_encoding(encrypted.unpack('m*').to_s)
  end
  
  def test_should_encrypt_with_custom_encoding
    assert_equal User.encrypt_with_encoding('test'), [User.encrypt_without_encoding('test')].pack('m')
  end
  
  def test_should_decrypt_with_custom_encoding
    encrypted = User.encrypt_with_encoding('test')
    assert_equal 'test', User.decrypt_with_encoding(encrypted)
    assert_equal User.decrypt_with_encoding(encrypted), User.decrypt_without_encoding(encrypted.unpack('m').to_s)
  end
  
  def test_should_encrypt_with_marshaling
    @user = User.new
    @user.with_marshaling = [1, 2, 3]
    assert_not_nil @user.encrypted_with_marshaling
    assert_equal User.encrypt_with_marshaling([1, 2, 3]), @user.encrypted_with_marshaling
  end
  
  def test_should_decrypt_with_marshaling
    encrypted = User.encrypt_with_marshaling([1, 2, 3])
    @user = User.new
    assert_nil @user.with_marshaling
    @user.encrypted_with_marshaling = encrypted
    assert_equal [1, 2, 3], @user.with_marshaling
  end
  
  def test_should_use_custom_encryptor_and_crypt_method_names_and_arguments
    assert_equal SillyEncryptor.silly_encrypt(:value => 'testing', :some_arg => 'test'), User.encrypt_credit_card('testing')
  end
  
  def test_should_evaluate_a_key_passed_as_a_symbol
    @user = User.new
    assert_nil @user.ssn_encrypted
    @user.ssn = 'testing'
    assert_not_nil @user.ssn_encrypted
    assert_equal Huberry::Encryptor.encrypt(:value => 'testing', :key => @user.salt), @user.ssn_encrypted
  end
  
  def test_should_evaluate_a_key_passed_as_a_proc
    @user = User.new
    assert_nil @user.crypted_password_test
    @user.password = 'testing'
    assert_not_nil @user.crypted_password_test
    assert_equal Huberry::Encryptor.encrypt(:value => 'testing', :key => 'User'), @user.crypted_password_test
  end
  
  def test_should_use_options_found_in_the_attr_encrypted_options_attribute
    @user = User.new
    assert_nil @user.crypted_password_test
    @user.password = 'testing'
    assert_not_nil @user.crypted_password_test
    assert_equal Huberry::Encryptor.encrypt(:value => 'testing', :key => 'User'), @user.crypted_password_test
  end
  
  def test_should_inherit_encrypted_attributes
    assert_equal User.encrypted_attributes.merge('testing' => 'encrypted_testing'), Admin.encrypted_attributes
  end
  
  def test_should_inherit_attr_encrypted_options
    assert !User.attr_encrypted_options.empty?
    assert_equal User.attr_encrypted_options, Admin.attr_encrypted_options
  end
  
  def test_should_not_inherit_unrelated_attributes
    assert SomeOtherClass.attr_encrypted_options.empty?
    assert SomeOtherClass.encrypted_attributes.empty?
  end
  
  def test_should_evaluate_a_symbol_option
    assert_equal Object, Object.send(:evaluate_attr_encrypted_option, :class, Object.new)
  end
  
  def test_should_evaluate_a_proc_option
    assert_equal Object, Object.send(:evaluate_attr_encrypted_option, proc { |object| object.class }, Object.new)
  end
  
  def test_should_evaluate_a_lambda_option
    assert_equal Object, Object.send(:evaluate_attr_encrypted_option, lambda { |object| object.class }, Object.new)
  end
  
  def test_should_evaluate_a_method_option
    assert_equal Object, Object.send(:evaluate_attr_encrypted_option, SomeOtherClass.method(:call), Object.new)
  end
  
  def test_should_return_a_string_option
    assert_equal 'Object', Object.send(:evaluate_attr_encrypted_option, 'Object', Object.new)
  end
  
  def test_should_encrypt_with_true_if
    @user = User.new
    assert_nil @user.encrypted_with_true_if
    @user.with_true_if = 'testing'
    assert_not_nil @user.encrypted_with_true_if
    assert_equal Huberry::Encryptor.encrypt(:value => 'testing', :key => 'secret key'), @user.encrypted_with_true_if
  end
  
  def test_should_not_encrypt_with_false_if
    @user = User.new
    assert_nil @user.encrypted_with_false_if
    @user.with_false_if = 'testing'
    assert_not_nil @user.encrypted_with_false_if
    assert_equal 'testing', @user.encrypted_with_false_if
  end
  
  def test_should_encrypt_with_false_unless
    @user = User.new
    assert_nil @user.encrypted_with_false_unless
    @user.with_false_unless = 'testing'
    assert_not_nil @user.encrypted_with_false_unless
    assert_equal Huberry::Encryptor.encrypt(:value => 'testing', :key => 'secret key'), @user.encrypted_with_false_unless
  end
  
  def test_should_not_encrypt_with_true_unless
    @user = User.new
    assert_nil @user.encrypted_with_true_unless
    @user.with_true_unless = 'testing'
    assert_not_nil @user.encrypted_with_true_unless
    assert_equal 'testing', @user.encrypted_with_true_unless
  end
  
end