pastojs: set version 0.9.13

git-svn-id: trunk@38582 -

packages/pastojs/src/pas2jscompiler.pp

@@ -29,7 +29,7 @@ uses
 const
   VersionMajor = 0;
   VersionMinor = 9;
-  VersionRelease = 12;
+  VersionRelease = 13;
   VersionExtra = '+beta';
   DefaultConfigFile = 'pas2js.cfg';
 

packages/pastojs/tests/tcfiler.pas

@@ -153,6 +153,7 @@ type
     procedure TestPC_Initialization;
     procedure TestPC_BoolSwitches;
     procedure TestPC_IgnoreInterface;
+    procedure TestPC_IgnoreAttributes;
 
     procedure TestPC_UseUnit;
     procedure TestPC_UseUnit_Class;
@@ -1906,6 +1907,27 @@ begin
   WriteReadUnit;
 end;
 
+procedure TTestPrecompile.TestPC_IgnoreAttributes;
+begin
+  StartUnit(false);
+  Add([
+  'interface',
+  '{$modeswitch ignoreattributes}',
+  'type',
+  '  [custom1, custom2(1+3,''foo'')] [mod1.custom3]',
+  '  TObject = class',
+  '    [custom5()] FS: string;',
+  '    [customProp] property S: string read FS;',
+  '  end;',
+  'var',
+  '  [custom6]',
+  '  o: TObject;',
+  'implementation',
+  'end.',
+  '']);
+  WriteReadUnit;
+end;
+
 procedure TTestPrecompile.TestPC_UseUnit;
 begin
   AddModuleWithIntfImplSrc('unit2.pp',