Test suite results for test file ../packages/pastojs/tests/testpas2js.pp

Test run data :

Test file "../packages/pastojs/tests/testpas2js.pp" information:

t_id 6288
t_adddate 2021/08/18 08:34:07
t_result 0
t_knownrunerror 0
t_opts -Sc

Detailed test run results:

Record count: 1

Log of 939770:

TTestStatementConverter.TestTryExceptStatementOnE TJSVariableStatement
TTestStatementConverter.TestTryExceptStatementOnE TJSVariableStatement
// Test : TestEmptyProgram
program test1;

begin
end.

// Test : TestEmptyProgramUseStrict
program test1;

begin
end.

// Test : TestEmptyUnit
unit Test1;

interface
implementation
end.

// Test : TestEmptyUnitUseStrict
unit Test1;

interface
implementation
end.

// Test : TestDottedUnitNames
program ns1.test1;

uses unIt2;
var
  i: longint;
begin
  i:=iv;
  i:=uNit2.iv;
  i:=Ns1.TEst1.i;
end.

// Test : TestDottedUnitNameImpl
program test1;

uses TEST.UnitA;
begin
end.

// Test : TestDottedUnitExpr
program Ns1.SubNs1.Test1;

uses Ns2.sUbnS2.unIt2;
var
  i: longint;
begin
  ns2.subns2.unit2.doit;
  i:=Ns1.SubNS1.TEst1.i;
end.

// Test : Test_ModeFPCFail
program test1;

{$mode FPC}
begin
end.

// Test : Test_ModeSwitchCBlocksFail
program test1;

{$modeswitch cblocks-}
begin
end.

// Test : TestUnit_UseSystem
unit Test1;

interface
var i: integer;
implementation
end.

// Test : TestUnit_Intf1Impl2Intf1
unit Test1;

interface
uses unit1;
var i: number;
implementation
end.

// Test : TestIncludeVersion
program test1;

var
  s: string;
  i: word;
begin
  s:={$I %line%};
  i:={$I %linenum%};
  s:={$I %currentroutine%};
  s:={$I %pas2jsversion%};
  s:={$I %pas2jstarget%};
  s:={$I %pas2jstargetos%};
  s:={$I %pas2jstargetcpu%};
  s:={$I %file%};

end.

// Test : TestVarInt
program test1;

var MyI: longint;
begin
end.

// Test : TestVarBaseTypes
program test1;

var
  i: longint;
  s: string;
  c: char;
  b: boolean;
  d: double;
  i2: longint = 3;
  s2: string = 'foo';
  c2: char = '4';
  b2: boolean = true;
  d2: double = 5.6;
  i3: longint = $707;
  i4: nativeint = 9007199254740991;
  i5: nativeint = -9007199254740991-1;
  i6: nativeint =   $fffffffffffff;
  i7: nativeint = -$fffffffffffff-1;
  i8: byte = 00;
  u8: nativeuint =  $fffffffffffff;
  u9: nativeuint =  $0000000000000;
  u10: nativeuint = $00ff00;
begin
end.

// Test : TestBaseTypeSingleFail
program test1;

var s: single;
end.

// Test : TestBaseTypeExtendedFail
program test1;

var e: extended;
end.

// Test : TestConstBaseTypes
program test1;

const
  i: longint = 3;
  s: string = 'foo';
  c: char = '4';
  b: boolean = true;
  d: double = 5.6;
  e = low(word);
  f = high(word);
begin
end.

// Test : TestUnitImplVars
unit Test1;

interface
implementation
var
  V1:longint;
  V2:longint = 3;
  V3:string = 'abc';
end.

// Test : TestUnitImplConsts
unit Test1;

interface
implementation
const
  v1 = 3;
  v2:longint = 4;
  v3:string = 'abc';
end.

// Test : TestUnitImplRecord
unit Test1;

interface
implementation
type
  TMyRecord = record
    i: longint;
  end;
var aRec: TMyRecord;
initialization
  arec.i:=3;
end.

// Test : TestRenameJSNameConflict
program test1;

var apply: longint;
var bind: longint;
var call: longint;
begin
end.

// Test : TestLocalConst
program test1;

procedure DoIt;
const
  cA: longint = 1;
  cB = 2;
  procedure Sub;
  const
    csA = 3;
    cB: double = 4;
  begin
    cb:=cb+csa;
    ca:=ca+csa+5;
  end;
begin
  ca:=ca+cb+6;
end;
begin
end.

// Test : TestVarExternal
program test1;

var
  NaN: double; external name 'Global.NaN';
  d: double;
begin
  d:=NaN;
end.

// Test : TestVarExternalOtherUnit
unit Test1;

interface
uses unit2;
implementation
var
  d: double;
  i: longint; external name '$i';
begin
  d:=nan;
  d:=uNit2.nan;
  d:=test1.d;
  i:=iv;
  i:=uNit2.iv;
  i:=test1.i;
end.

// Test : TestVarAbsoluteFail
program test1;

var
  a: longint;
  b: longword absolute a;
begin
end.

// Test : TestConstExternal
program test1;

const
  PI: double; external name 'Global.PI';
  Tau = 2*pi;
var d: double;
begin
  d:=pi;
  d:=tau+pi;
end.

// Test : TestDouble
program test1;

type
  TDateTime = double;
const
  a = TDateTime(2.7);
  b = a + TDateTime(1.7);
  c = 0.9 + 0.1;
  f0_1 = 0.1;
  f0_3 = 0.3;
  fn0_1 = -0.1;
  fn0_3 = -0.3;
  fn0_003 = -0.003;
  fn0_123456789 = -0.123456789;
  fn300_0 = -300.0;
  fn123456_0 = -123456.0;
  fn1234567_8 = -1234567.8;
  fn12345678_9 = -12345678.9;
  f1_0En12 = 1E-12;
  fn1_0En12 = -1E-12;
  maxdouble = 1.7e+308;
  mindouble = -1.7e+308;
  MinSafeIntDouble  = -$1fffffffffffff;
  MinSafeIntDouble2 = -$20000000000000-1;
  MaxSafeIntDouble =   $1fffffffffffff;
  DZeroResolution = 1E-12;
  Minus1 = -1E-12;
  EPS = 1E-9;
  DELTA = 0.001;
  Big = 129.789E+100;
  Test0_15 = 0.15;
  Test999 = 2.9999999999999;
  Test111999 = 211199999999999000.0;
  TestMinus111999 = -211199999999999000.0;
  Inf = 1.0 / 0.0;
  NegInf = -1.0 / 0.0;
procedure Run(d: double); external name 'Run';
var
  d: double = b;
begin
  d:=1.0;
  d:=1.0/3.0;
  d:=1.0/(3-2-1);
  d:=1/3;
  d:=5.0E-324;
  d:=1.7E308;
  d:=001.00E00;
  d:=002.00E001;
  d:=003.000E000;
  d:=-004.00E-00;
  d:=-005.00E-001;
  d:=10**3;
  d:=100*9**0.5;
  d:=10 mod 3;
  d:=10 div 3;
  d:=c;
  d:=f0_1;
  d:=f0_3;
  d:=fn0_1;
  d:=fn0_3;
  d:=fn0_003;
  d:=fn0_123456789;
  d:=fn300_0;
  d:=fn123456_0;
  d:=fn1234567_8;
  d:=fn12345678_9;
  d:=f1_0En12;
  d:=fn1_0En12;
  d:=maxdouble;
  d:=mindouble;
  d:=MinSafeIntDouble;
  d:=double(MinSafeIntDoub/home/muller/bin/qemu-sparc64-linux.sh: line 73: 3461290 Segmentation fault      $GDB_QEMU $QEMU_BIN $LOCAL_QEMU_OPT "${@}"

No Source in TestSuite DataBase.

Link to SVN view of ../packages/pastojs/tests/testpas2js.pp source.