mORMot Open Source

edwinsn

Member

Registered: 2010-07-02

Posts: 1,215

200 tests for TSynTable failed in TestSQL3.dpr

Hi Arnaud,

There are 200 tests for TSynTable failed in TestSQL3.dpr on my computer. The following are the first 15 of log messages generated by TestSQL3.exe, let me know if you want me to send you the log file.

D:\RadStudioComponents\Synopse Framework\SQLite3\TestSQL3.exe 0.0.0.0 (2014-06-06 12:52:00)

2014-06-06T12:57:26

20140606 12572632 warn  Test failed 
20140606 12572632 fail  TTestLowLevelCommon(029E6840) Low level common: TSynTable "" stack trace API 002EA594 SynSelfTests.TTestLowLevelCommon._TSynTable (2899) 0033E587 mORMotSelfTests.SQLite3ConsoleTests (204) 
20140606 12572632 warn  Test failed 
20140606 12572632 fail  TTestLowLevelCommon(029E6840) Low level common: TSynTable "" stack trace API 002EA594 SynSelfTests.TTestLowLevelCommon._TSynTable (2899) 0033E587 mORMotSelfTests.SQLite3ConsoleTests (204) 
20140606 12572632 warn  Test failed 
20140606 12572632 fail  TTestLowLevelCommon(029E6840) Low level common: TSynTable "" stack trace API 002EA594 SynSelfTests.TTestLowLevelCommon._TSynTable (2899) 0033E587 mORMotSelfTests.SQLite3ConsoleTests (204) 
20140606 12572632 warn  Test failed 
20140606 12572632 fail  TTestLowLevelCommon(029E6840) Low level common: TSynTable "" stack trace API 002EA594 SynSelfTests.TTestLowLevelCommon._TSynTable (2899) 0033E587 mORMotSelfTests.SQLite3ConsoleTests (204) 
20140606 12572632 warn  Test failed 
20140606 12572632 fail  TTestLowLevelCommon(029E6840) Low level common: TSynTable "" stack trace API 002EA594 SynSelfTests.TTestLowLevelCommon._TSynTable (2899) 0033E587 mORMotSelfTests.SQLite3ConsoleTests (204) 
20140606 12572632 warn  Test failed 
20140606 12572632 fail  TTestLowLevelCommon(029E6840) Low level common: TSynTable "" stack trace API 002EA594 SynSelfTests.TTestLowLevelCommon._TSynTable (2899) 0033E587 mORMotSelfTests.SQLite3ConsoleTests (204) 
20140606 12572632 warn  Test failed 
20140606 12572632 fail  TTestLowLevelCommon(029E6840) Low level common: TSynTable "" stack trace API 002EA594 SynSelfTests.TTestLowLevelCommon._TSynTable (2899) 0033E587 mORMotSelfTests.SQLite3ConsoleTests (204) 
20140606 12572632 warn  Test failed 

---

Delphi XE4 Pro on Windows 7 64bit.
Lazarus trunk built with fpcupdelux on Windows with cross-compile for Linux 64bit.

edwinsn

Member

Registered: 2010-07-02

Posts: 1,215

Re: 200 tests for TSynTable failed in TestSQL3.dpr

PS, the source version is 2014-06-01 203737 -edefb1afafa84ad3

---

Delphi XE4 Pro on Windows 7 64bit.
Lazarus trunk built with fpcupdelux on Windows with cross-compile for Linux 64bit.

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,245

Website

Re: 200 tests for TSynTable failed in TestSQL3.dpr

Your system code page is not 1252.

marius maximus

Member

From: Olsztyn

Registered: 2015-06-11

Posts: 30

Re: 200 tests for TSynTable failed in TestSQL3.dpr

I have similar

"TSynTable: 100/458 FAILED 8.78ms"

For example
20150612 00312207 fail  TTestLowLevelCommon(00303548) Low level common: TSynTable "" stack trace API 0046C050 004720FC 00470645 00523DD1 00471419 00563959
20150612 00312207 fail  #57  stack trace API 0046C432 00470630 00523DD1 00471419 00563959

My Windows  (64bit 8.1) code page is 1250

I use lazarus i386  build over fpcup

------------------------------------------------------------------------
PATH=c:\windows\system32;c:\windows;C:\Program Files\TortoiseSVN\bin
set

fpcup ^
    --noconfirm --verbose ^
    --fpcURL=trunk --lazURL=trunk ^
    --fpcopt="-g -gl -O1" --lazopt="-g -gl -O1" ^
    --installdir=d:\fpc32  --lazlinkname=LAZ_32  ^
    --lazrevision=49313  ^
    --fpcrevision=31024  ^
    --logfilename=fpc32.log
------------------------------------------------------------------------

First fail is in SynSelfTest.pas

// test TSynTableVariantType
      rec := T.Data;  // << HERE

In function TSynTable.Data in line "VValue := DefaultRecordData" is exception   
------------------------------------------------------------------------

In Delphi XE5 all is correct !!!

Last edited by marius maximus (2015-06-11 23:15:46)

---

Lazarus x64 Linux

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,245

Website

Re: 200 tests for TSynTable failed in TestSQL3.dpr

Yes, FPC has issues with variant late binding.

This is linked to some implementation incompatibility, at FPC RTL level.
Some have already been fixed: http://mantis.freepascal.org/view.php?id=26773
But sounds like if not everything is Delphi compatible.
Ensure FPC_VARIANTSETVAR is defined in SynCommons.pas, BTW.

You should not use TSynTable with variant late binding under FPC.