anchor.diff:      constructor(aScripts: Scripts);
       method Call;
     end;
  +
  +  SimpleCLRType = class
  +  public
  +    constructor();
  +
  +    property A: Int32 read write;
  +    property B: String read write;
  +
  +    class method Foo(): String;
  +  end;
  +
  +
   implementation
   
   method Scripts.EvalTest;
  
positive.code: Assert.Equal(fResult, 'LDA.CALL CALLED'#13#10);
  end;
  
  constructor LDA(aScripts: Scripts);
  begin
    fScripts := aScripts;
  end;
  
  method LDA.Call;
  begin
    fScripts.fResult := fScripts.fResult + 'LDA.CALL CALLED'#13#10;
  end;
  
  end.
  
negative.code:     method UnknownCall2;
      [Fact]
      method NativeMethodCall;
  
      [Theory]
      [InlineData('var x = new JSType(); writeln(x.A);',        'JSType', '42')]
      [InlineData('var x = new JSType(); writeln(x.B);',        'JSType', 'Foo')]
      [InlineData('writeln(JSType.Foo());',                     'JSType', 'Bar')]
      [InlineData('var x = new SimpleCLRType(); writeln(x.A);', '',       '42')]
      method ExposeType(aScript: String;  aTypeName: String;  aExpectedResult: String);
    end;
  
    LDA = public class
  