blob: ea8492b736337cf1f32555b99bd83761725350b9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
{$mode objfpc}
uses
ub0569;
type
TMyGen = specialize TGen<longint>;
var
MyGen : TMyGen;
begin
MyGen:=TMyGen.Create;
if MyGen.getstring<>'Free Pascal' then
halt(1);
if MyGen.getwidestring<>'Free Pascal'#1234 then
halt(2);
if MyGen.getint<>1234123412341234 then
halt(3);
if MyGen.getreal<>333.0 then
halt(4);
MyGen.Free;
writeln('ok');
end.
|
