paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 12:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added Array of const test.

Browse Source
This commit is contained in:
michael 1999-02-25 14:31:26 +00:00
parent 82d08fba5d
commit d230df984e
2 changed files with 98 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/README
View File

@ -46,3 +46,4 @@ testdos.pp test dos unit functions
testset.pp test set functions
testheap.pp test heap functions
teststr.pp test string functions and speed
testaoc.pp test Array of construct.

97
tests/testaoc.pp Normal file
View File

@ -0,0 +1,97 @@
Program TestAOC;
{ Program to test array of const }
{ All elements of the following record must be tested :
Elements not yet tested are commented out.
Type
PVarRec = ^TVarRec;
TVarRec = record
case vType: Byte of
vtInteger : (VInteger: Integer; VType:Longint);
vtBoolean : (VBoolean: Boolean);
vtChar : (VChar: Char);
vtExtended : (VExtended: PExtended);
vtString : (VString: PShortString);
vtPointer : (VPointer: Pointer);
vtPChar : (VPChar: PChar);
vtObject : (VObject: TObject);
vtClass : (VClass: TClass);
// vtWideChar : (VWideChar: WideChar);
// vtPWideChar : (VPWideChar: PWideChar);
vtAnsiString : (VAnsiString: Pointer);
// vtCurrency : (VCurrency: PCurrency);
// vtVariant : (VVariant: PVariant);
// vtInterface : (VInterface: Pointer);
// vtWideString : (VWideString: Pointer);
// vtInt64 : (VInt64: PInt64);
end;
}
Procedure Testit (Args: Array of const);
Var I : longint;
begin
If High(Args)<0 then
begin
Writeln ('No aguments');
exit;
end;
Writeln ('Got ',High(Args)+1,' arguments :');
For i:=0 to High(Args) do
begin
write ('Argument ',i,' has type ');
case Args[i].vtype of
vtinteger : Writeln ('Integer, Value :',args[i].vinteger);
vtboolean : Writeln ('Boolean, Value :',args[i].vboolean);
vtchar : Writeln ('Char, value : ',args[i].vchar);
vtextended : Writeln ('Extended, value : ',args[i].VExtended^);
vtString : Writeln ('ShortString, value :',args[i].VString^);
vtPointer : Writeln ('Pointer, value : ',Longint(Args[i].VPointer));
vtPChar : Writeln ('PCHar, value : ',Args[i].VPChar);
vtObject : Writeln ('Object, name : ',Args[i].VObject.Classname);
vtClass : Writeln ('Class reference, name : ',Args[i].VClass.Classname);
vtAnsiString : Writeln ('AnsiString, value :',AnsiString(Args[I].VAnsiString));
{
vtWideChar : (VWideChar: WideChar);
vtPWideChar : (VPWideChar: PWideChar);
vtCurrency : (VCurrency: PCurrency);
vtVariant : (VVariant: PVariant);
vtInterface : (VInterface: Pointer);
vtWideString : (VWideString: Pointer);
vtInt64 : (VInt64: PInt64);
}
else
Writeln ('(Unknown) : ',args[i].vtype);
end;
end;
end;
Const P1 : Pchar = 'Eerste Pchar';
p2 : Pchar = 'Tweede pchar';
Var ObjA,ObjB : TObject;
ACLass,BClass : TClass;
S,T : AnsiString;
begin
ObjA:=TObject.Create;
ObjB:=TObject.Create;
AClass:=TObject;
S:='Ansistring 1';
T:='AnsiString 2';
writeln ('Size of VarRec : ',Sizeof(TVarRec));
Testit ([1,2]);
Testit (['A','B']);
Testit ([TRUE,FALSE,TRUE]);
Testit (['String','Another string']);
Testit ([S,T]) ;
Testit ([P1,P2]);
Testit ([@testit,Nil]);
Testit ([ObjA,ObjB]);
Testit ([1.234,1.234]);
TestIt ([AClass]);
end.