2472de3109
* TypeName+ObjectToString changes * test * cleanup * 32-битные тесты падают из-за "operator+="??? И только в тесте, а в самом PABCSystem он работает * sequence cleanup and tests * cleanup * prop error output * Порядок перегрузок _ObjectToString и ерегрузки для TextWriter
57 lines
1.4 KiB
ObjectPascal
57 lines
1.4 KiB
ObjectPascal
type
|
||
r1 = record
|
||
public a := 123;
|
||
public b := 'abc';
|
||
internal c := 'err';
|
||
|
||
public property p: byte read byte(a);
|
||
internal property e: string read 'err';
|
||
|
||
end;
|
||
|
||
var res := new StringBuilder;
|
||
procedure Test(o: object);
|
||
begin
|
||
TypeName(o, res);
|
||
res.Append('{ ');
|
||
_ObjectToString(o, res);
|
||
res.Append(' }'#10);
|
||
end;
|
||
|
||
begin
|
||
|
||
Test(1);
|
||
Test('abc');
|
||
Test(new System.UIntPtr(123));
|
||
|
||
Test(new byte[2,1,1,1,1,1,1,1,2]);
|
||
Test(new byte[2,1,1,1,0,1,1,1,2]);
|
||
Test(|1.2,3|.ToList);
|
||
Test(|1,2,3,4,5|.Skip(1).Take(3));
|
||
Test(new System.Collections.ArrayList(|6,7,8|)); // Пример НЕ типизированной последовательности
|
||
|
||
Test(new r1);
|
||
|
||
var d1 := procedure(b: byte)->exit();
|
||
var d2: Action<byte> := d1;
|
||
var d3 := function: object->d1;
|
||
var d4: Func0<object> := d3;
|
||
Test(d1);
|
||
Test(d2);
|
||
Test(Delegate(d3));
|
||
Test(Delegate(d4));
|
||
|
||
var otp_fname := 'ObjectToString.txt';
|
||
var otp_new_fname := 'ObjectToString[new].txt';
|
||
var enc := new System.Text.UTF8Encoding(true);
|
||
|
||
var dir := GetCurrentDir;
|
||
if System.IO.Path.GetFileName(dir)='exe' then
|
||
dir := System.IO.Path.GetDirectoryName(dir);
|
||
|
||
var expected := ReadAllText(dir+'\'+otp_fname, enc).Remove(#13);
|
||
var curr := res.ToString;
|
||
var tr := expected = curr;
|
||
if not tr then WriteAllText(dir+'\'+otp_new_fname, curr, enc);
|
||
Assert(tr);
|
||
end. |