public void SettingPrivateIndexedPropertyFromOutsideContextOfClassShouldThrow()
{
const string name = "test";
var i = new object();
var classWithPrivateMember = new ClassWithPrivateIndexedProperty();
var _ = DefaultRuntimeSupportClassFactory.DefaultVBScriptValueRetriever;
Assert.Throws <MissingMethodException>(() =>
_.SET(name, context: null, target: classWithPrivateMember, optionalMemberAccessor: "Test", argumentProviderBuilder: _.ARGS.Val(i))
);
}
public void SettingPrivateIndexedPropertyFromWithinContextOfClassShouldWork()
{
const string name = "test";
var i = new object();
var classWithPrivateMember = new ClassWithPrivateIndexedProperty();
var _ = DefaultRuntimeSupportClassFactory.DefaultVBScriptValueRetriever;
_.SET(name, context: classWithPrivateMember, target: classWithPrivateMember, optionalMemberAccessor: "Test", argumentProviderBuilder: _.ARGS.Val(i));
Assert.Equal(
name,
_.CALL(context: classWithPrivateMember, target: classWithPrivateMember, member1: "Test", argumentProviderBuilder: _.ARGS.Val(i))
);
}
