/*
 * CPKeyValueCodingTest.j
 * Foundation
 *
 * Created by Daniel Stolzenberg
 * Copyright 2010, University of Rostock
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 */

@import <Foundation/CPObject.j>

var accessIVARS = YES;

@implementation KVCTestClass : CPObject
{
	id			_privatePropertyWithoutAccessors;
	id			publicPropertyWithoutAccessors;
	id			_isPrivateBoolPropertyWithoutAccessors;
	id			isPublicBoolPropertyWithoutAccessors;

	id			___propertyWithPublicGetAccessor			@accessors(getter=getPropertyWithPublicGetAccessor);
	id			___propertyWithPublicAccessor				@accessors(getter=propertyWithPublicAccessor, setter=setPropertyWithPublicAccessor:);
	id			___propertyWithPublicBoolAccessor			@accessors(getter=isPropertyWithPublicBoolAccessor);
	id			___propertyWithPrivateGetAccessor			@accessors(getter=_getPropertyWithPrivateGetAccessor);
	id			___propertyWithPrivateAccessor				@accessors(getter=_propertyWithPrivateAccessor, setter=_setPropertyWithPrivateAccessor:);
	id			___propertyWithPrivateBoolAccessor			@accessors(getter=_isPropertyWithPrivateBoolAccessor);
}

+ (BOOL)accessInstanceVariablesDirectly
{
    return accessIVARS;
}

+ (void)setAccessInstanceVariablesDirectly:(BOOL)accessDirectly
{
	accessIVARS = accessDirectly;
}

- (id)init
{
	if(self = [super init])
	{
		_privatePropertyWithoutAccessors = "_privatePropertyWithoutAccessors";
		publicPropertyWithoutAccessors = "publicPropertyWithoutAccessors";
		_isPrivateBoolPropertyWithoutAccessors = "_isPrivateBoolPropertyWithoutAccessors";
		isPublicBoolPropertyWithoutAccessors = "isPublicBoolPropertyWithoutAccessors";

		___propertyWithPublicGetAccessor = "___propertyWithPublicGetAccessor";
		___propertyWithPublicAccessor = "___propertyWithPublicAccessor";
		___propertyWithPublicBoolAccessor = "___propertyWithPublicBoolAccessor";
		___propertyWithPrivateGetAccessor = "___propertyWithPrivateGetAccessor";
		___propertyWithPrivateAccessor = "___propertyWithPrivateAccessor";
		___propertyWithPrivateBoolAccessor = "___propertyWithPrivateBoolAccessor";
	}
	return self;
}

@end


@implementation CPKeyValueCodingTest : OJTestCase
{
	id	kvcTestObject;
}

- (void)setUp
{
	//do not allow direct access to assure that accessor are used by default
	[KVCTestClass setAccessInstanceVariablesDirectly: NO];
	kvcTestObject = [[KVCTestClass alloc] init];
}

- (void)tearDown
{
}

@end

// "valueForKey:"

@implementation CPKeyValueCodingTest (CPNullTest)

- (void)testIfCPNullReturnsCPNullForAllKeys
{
    var nullObject = [CPNull null];
    [self assert:[CPNull null] equals:[nullObject valueForKey:@"a"] message:@"CPNull valueForKey:X returns nil"];
}

@end

@implementation CPKeyValueCodingTest (AccessValueForUndefinedKey)

- (void)testIfExceptionIsThrownWhenUndefinedKeyIsAccessed
{
	[self assertThrows:function(){[kvcTestObject valueForKey:@"anUndefinedKey"];}];
}

@end

@implementation CPKeyValueCodingTest (AccessInstanceVariablesDirectly)

- (void)testIfPrivateInstanceVariableCanDirectlyBeAccessedWhenAllowedByClassMethod
{
	[KVCTestClass setAccessInstanceVariablesDirectly: YES];
	[self assertNoThrow:function(){[kvcTestObject valueForKey:@"privatePropertyWithoutAccessors"];}];
}

- (void)testIfPublicInstanceVariableCanDirectlyBeAccessedWhenAllowedByClassMethod
{
	[KVCTestClass setAccessInstanceVariablesDirectly: YES];
	[self assertNoThrow:function(){[kvcTestObject valueForKey:@"publicPropertyWithoutAccessors"];}];
}

- (void)testIfBooleanPrivateInstanceVariableCanDirectlyBeAccessedWhenAllowedByClassMethod
{
	[KVCTestClass setAccessInstanceVariablesDirectly: YES];
	[self assertNoThrow:function(){[kvcTestObject valueForKey:@"privateBoolPropertyWithoutAccessors"];}];
}

- (void)testIfBooleanPublicInstanceVariableCanDirectlyBeAccessedWhenAllowedByClassMethod
{
	[KVCTestClass setAccessInstanceVariablesDirectly: YES];
	[self assertNoThrow:function(){[kvcTestObject valueForKey:@"publicBoolPropertyWithoutAccessors"];}];
}

@end

@implementation CPKeyValueCodingTest (DoNotAccessInstanceVariables)

- (void)testIfPrivateInstanceVariableCanNotDirectlyBeAccessedWhenProhibitedByClassMethod
{
	[self assertThrows:function(){[kvcTestObject valueForKey:@"privatePropertyWithoutAccessors"];}];
}

- (void)testIfPublicInstanceVariableCanNotDirectlyBeAccessedWhenProhibitedByClassMethod
{
	[self assertThrows:function(){[kvcTestObject valueForKey:@"publicPropertyWithoutAccessors"];}];
}

- (void)testIfBooleanPrivateInstanceVariableCanNotDirectlyBeAccessedWhenProhibitedByClassMethod
{
	[self assertThrows:function(){[kvcTestObject valueForKey:@"privateBoolPropertyWithoutAccessors"];}];
}

- (void)testIfBooleanPublicInstanceVariableCanNotDirectlyBeAccessedWhenProhibitedByClassMethod
{
	[self assertThrows:function(){[kvcTestObject valueForKey:@"publicBoolPropertyWithoutAccessors"];}];
}

@end

@implementation CPKeyValueCodingTest (AccessorMethodPatterns)

- (void)testIfPublicGetAccessorIsFound
{
	[self assertNoThrow:function(){[kvcTestObject valueForKey:@"propertyWithPublicGetAccessor"];}];
}

- (void)testIfPublicAccessorIsFound
{
	[self assertNoThrow:function(){[kvcTestObject valueForKey:@"propertyWithPublicAccessor"];}];
}

- (void)testIfPublicBoolAccessorIsFound
{
	[self assertNoThrow:function(){[kvcTestObject valueForKey:@"propertyWithPublicBoolAccessor"];}];
}

- (void)testIfPrivateGetAccessorIsFound
{
	[self assertNoThrow:function(){[kvcTestObject valueForKey:@"propertyWithPrivateGetAccessor"];}];
}

- (void)testIfPrivateAccessorIsFound
{
	[self assertNoThrow:function(){[kvcTestObject valueForKey:@"propertyWithPrivateAccessor"];}];
}

- (void)testIfPrivateBoolAccessorIsFound
{
	[self assertNoThrow:function(){[kvcTestObject valueForKey:@"propertyWithPrivateBoolAccessor"];}];
}

@end

@implementation CPKeyValueCodingTest (DictionaryWithValuesForKeys)

- (void)testIfDictionaryWithValuesForKeysDoesNotThrowsUndefinedKeyException
{
	[KVCTestClass setAccessInstanceVariablesDirectly: YES];
	var allKeys = [	"privatePropertyWithoutAccessors","publicPropertyWithoutAccessors",
					"privateBoolPropertyWithoutAccessors","publicBoolPropertyWithoutAccessors",
	 				"propertyWithPublicGetAccessor", "propertyWithPublicAccessor","propertyWithPublicBoolAccessor",
					"propertyWithPrivateGetAccessor", "propertyWithPrivateAccessor", "propertyWithPrivateBoolAccessor"
					];
	[self assertNoThrow:function(){[kvcTestObject dictionaryWithValuesForKeys: allKeys];}];
}

- (void)testIfDictionaryWithValuesForKeysDoesThrowUndefinedKeyExceptionBecauseOfProhibitedDirectInstanceVariableAccess
{
	var allKeys = [	"privatePropertyWithoutAccessors","publicPropertyWithoutAccessors",
					"privateBoolPropertyWithoutAccessors","publicBoolPropertyWithoutAccessors",
	 				"propertyWithPublicGetAccessor", "propertyWithPublicAccessor","propertyWithPublicBoolAccessor",
					"propertyWithPrivateGetAccessor", "propertyWithPrivateAccessor", "propertyWithPrivateBoolAccessor"
					];
	[self assertThrows:function(){[kvcTestObject dictionaryWithValuesForKeys: allKeys];}];
}

- (void)testIfDictionaryWithValuesForKeysCountIsEqualToNumberOfPropertyKeysGiven
{
	[KVCTestClass setAccessInstanceVariablesDirectly: YES];
	var allKeys = [	"privatePropertyWithoutAccessors","publicPropertyWithoutAccessors",
					"privateBoolPropertyWithoutAccessors","publicBoolPropertyWithoutAccessors",
	 				"propertyWithPublicGetAccessor", "propertyWithPublicAccessor","propertyWithPublicBoolAccessor",
					"propertyWithPrivateGetAccessor", "propertyWithPrivateAccessor", "propertyWithPrivateBoolAccessor"
					];
	var dictForKeys = [kvcTestObject dictionaryWithValuesForKeys: allKeys];

	[self assert: [allKeys count] equals: [dictForKeys count]];
}

- (void)testIfDictionaryWithValuesForKeysAreSameAsPropertyValues
{
	[KVCTestClass setAccessInstanceVariablesDirectly: YES];
	var allKeys = [	"privatePropertyWithoutAccessors","publicPropertyWithoutAccessors",
					"privateBoolPropertyWithoutAccessors","publicBoolPropertyWithoutAccessors",
	 				"propertyWithPublicGetAccessor", "propertyWithPublicAccessor","propertyWithPublicBoolAccessor",
					"propertyWithPrivateGetAccessor", "propertyWithPrivateAccessor", "propertyWithPrivateBoolAccessor"
					];
	var dictForKeys = [kvcTestObject dictionaryWithValuesForKeys: allKeys];
	var key, value, keyEnumerator = [dictForKeys keyEnumerator];
	while(key = [keyEnumerator nextObject])
	{
		value = [dictForKeys objectForKey: key];
		[self assert: [kvcTestObject valueForKey: key] same: value];
	}
}

@end

// "setValue: forKey:"

@implementation CPKeyValueCodingTest (ModifyValueForUndefinedKey)

- (void)testIfExceptionIsThrownWhenUndefinedKeyIsModified
{
	[self assertThrows:function(){[kvcTestObject setValue: "aValue" forKey:@"anUndefinedKey"];}];
}

@end

@implementation CPKeyValueCodingTest (ModifyInstanceVariablesDirectly)

- (void)testIfPrivateInstanceVariableCanDirectlyBeModifiedWhenAllowedByClassMethod
{
	var aValue = @"aValue";
	[KVCTestClass setAccessInstanceVariablesDirectly: YES];
	[self assert: aValue notSame: [kvcTestObject valueForKey:@"privatePropertyWithoutAccessors"]];
	[self assertNoThrow:function(){[kvcTestObject setValue: aValue forKey:@"privatePropertyWithoutAccessors"];}];
	[self assert: aValue same: [kvcTestObject valueForKey:@"privatePropertyWithoutAccessors"]];
}

- (void)testIfPublicInstanceVariableCanDirectlyBeModifiedWhenAllowedByClassMethod
{
	var aValue = @"aValue";
	[KVCTestClass setAccessInstanceVariablesDirectly: YES];
	[self assert: aValue notSame: [kvcTestObject valueForKey:@"publicPropertyWithoutAccessors"]];
	[self assertNoThrow:function(){[kvcTestObject setValue: aValue forKey:@"publicPropertyWithoutAccessors"];}];
	[self assert: aValue same: [kvcTestObject valueForKey:@"publicPropertyWithoutAccessors"]];
}

- (void)testIfBooleanPrivateInstanceVariableCanDirectlyBeModifiedWhenAllowedByClassMethod
{
	var aValue = @"aValue";
	[KVCTestClass setAccessInstanceVariablesDirectly: YES];
	[self assert: aValue notSame: [kvcTestObject valueForKey:@"privateBoolPropertyWithoutAccessors"]];
	[self assertNoThrow:function(){[kvcTestObject setValue: aValue forKey:@"privateBoolPropertyWithoutAccessors"];}];
	[self assert: aValue same: [kvcTestObject valueForKey:@"privateBoolPropertyWithoutAccessors"]];
}

- (void)testIfBooleanPublicInstanceVariableCanDirectlyBeModifiedWhenAllowedByClassMethod
{
	var aValue = @"aValue";
	[KVCTestClass setAccessInstanceVariablesDirectly: YES];
	[self assert: aValue notSame: [kvcTestObject valueForKey:@"publicBoolPropertyWithoutAccessors"]];
	[self assertNoThrow:function(){[kvcTestObject setValue: aValue forKey:@"publicBoolPropertyWithoutAccessors"];}];
	[self assert: aValue same: [kvcTestObject valueForKey:@"publicBoolPropertyWithoutAccessors"]];
}

@end

@implementation CPKeyValueCodingTest (DoNotModifyInstanceVariables)

- (void)testIfPrivateInstanceVariableCanNotDirectlyBeModifiedWhenProhibitedByClassMethod
{
	[self assertThrows:function(){[kvcTestObject setValue: @"aValue" forKey:@"privatePropertyWithoutAccessors"];}];
}

- (void)testIfPublicInstanceVariableCanNotDirectlyBeModifiedWhenProhibitedByClassMethod
{
	[self assertThrows:function(){[kvcTestObject setValue: @"aValue" forKey:@"publicPropertyWithoutAccessors"];}];
}

- (void)testIfBooleanPrivateInstanceVariableCanNotDirectlyBeModifiedWhenProhibitedByClassMethod
{
	[self assertThrows:function(){[kvcTestObject setValue: @"aValue" forKey:@"privateBoolPropertyWithoutAccessors"];}];
}

- (void)testIfBooleanPublicInstanceVariableCanNotDirectlyBeModifiedWhenProhibitedByClassMethod
{
	[self assertThrows:function(){[kvcTestObject setValue: @"aValue" forKey:@"publicBoolPropertyWithoutAccessors"];}];
}

@end

@implementation CPKeyValueCodingTest (ModifierMethodPatterns)

- (void)testIfPublicModifierIsFound
{
	var aValue = @"aValue";
	[self assert: aValue notSame: [kvcTestObject valueForKey:@"propertyWithPublicAccessor"]];
	[self assertNoThrow:function(){[kvcTestObject setValue: aValue forKey:@"propertyWithPublicAccessor"];}];
	[self assert: aValue same: [kvcTestObject valueForKey:@"propertyWithPublicAccessor"]];
}

- (void)testIfPrivateModifierIsFound
{
	var aValue = @"aValue";
	[self assert: aValue notSame: [kvcTestObject valueForKey:@"propertyWithPrivateAccessor"]];
	[self assertNoThrow:function(){[kvcTestObject setValue: aValue forKey:@"propertyWithPrivateAccessor"];}];
	[self assert: aValue same: [kvcTestObject valueForKey:@"propertyWithPrivateAccessor"]];
}

@end

@implementation CPKeyValueCodingTest (SetValuesForKeysWithDictionary)

- (void)testIfSetValuesForKeysWithDictionaryDoesNotThrowsUndefinedKeyException
{
	var value = @"aValue";
	[KVCTestClass setAccessInstanceVariablesDirectly: YES];
	var allKeys = [	"privatePropertyWithoutAccessors","publicPropertyWithoutAccessors",
					"privateBoolPropertyWithoutAccessors","publicBoolPropertyWithoutAccessors",
	 				"propertyWithPublicAccessor","propertyWithPrivateAccessor"
					];
	var allValues = [value,value,value,value,value,value];
	var dictForKeys = [CPDictionary dictionaryWithObjects: allValues forKeys: allKeys];				
	[self assertNoThrow:function(){[kvcTestObject setValuesForKeysWithDictionary: dictForKeys];}];
}

- (void)testIfSetValuesForKeysWithDictionaryDoesThrowUndefinedKeyExceptionBecauseOfProhibitedDirectInstanceVariableAccess
{
	var value = @"aValue";
	var allKeys = [	"privatePropertyWithoutAccessors","publicPropertyWithoutAccessors",
					"privateBoolPropertyWithoutAccessors","publicBoolPropertyWithoutAccessors",
	 				"propertyWithPublicAccessor","propertyWithPrivateAccessor"
					];
	var allValues = [value,value,value,value,value,value];
	var dictForKeys = [CPDictionary dictionaryWithObjects: allValues forKeys: allKeys];				
	[self assertThrows:function(){[kvcTestObject setValuesForKeysWithDictionary: dictForKeys];}];
}

- (void)testIfDictionaryWithValuesForKeysAreSameAsPropertyValues
{
	var value = @"aValue";
	[KVCTestClass setAccessInstanceVariablesDirectly: YES];
	var allKeys = [	"privatePropertyWithoutAccessors","publicPropertyWithoutAccessors",
					"privateBoolPropertyWithoutAccessors","publicBoolPropertyWithoutAccessors",
	 				"propertyWithPublicAccessor","propertyWithPrivateAccessor"
					];
	var allValues = [value,value,value,value,value,value];
	var dictForKeys = [CPDictionary dictionaryWithObjects: allValues forKeys: allKeys];				
	[kvcTestObject setValuesForKeysWithDictionary: dictForKeys];

	var key, aValue, keyEnumerator = [dictForKeys keyEnumerator];
	while(key = [keyEnumerator nextObject])
	{
		aValue = [dictForKeys objectForKey: key];
		[self assert: [kvcTestObject valueForKey: key] same: aValue];
	}
}

@end