paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-08 08:07:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Forgot to commit

Browse Source
This commit is contained in:
michael 2020-06-07 20:54:39 +00:00
parent 3fbb199385
commit 591d43ee9c
1 changed files with 12 additions and 0 deletions

12
test/tohelper.inc Normal file
View File

@ -0,0 +1,12 @@
V:=value;
AssertEquals('ToString',ValueAsString,V.ToString);
AssertEquals('ToBoolean',True,V.ToBoolean);
V:=0;
AssertEquals('ToBoolean (false)',False,V.ToBoolean);
V:=value;
AssertEquals('ToHexString',ValueAshex,V.ToHexString);
AssertEquals('ToHexString(digits)',ValueAsHexDigString,V.ToHexString(ValueAsHexDig));
AssertEquals('ToDouble',Double(Value+0.0),V.ToDouble,0.00001);
AssertEquals('ToExtended',Extended(Value+0.0),V.ToExtended,0.00001);