t_id
239
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
| Result type | Cat. | Count | Percentage | First date | Last Date |
| Successfully run | 50 | 100.0 | 2024/05/20 22:37:00 176 | 2024/05/21 00:32:00 15 | |
| i386 | 18 | 36.0 | 2024/05/20 22:37:00 176 | 2024/05/21 00:08:00 23 | |
| sparc | 21 | 42.0 | 2024/05/20 23:25:00 38 | 2024/05/20 23:55:00 41 | |
| powerpc | 1 | 2.0 | 2024/05/20 23:05:00 185 | 2024/05/20 23:05:00 185 | |
| x86_64 | 5 | 10.0 | 2024/05/20 23:44:00 14 | 2024/05/21 00:32:00 15 | |
| powerpc64 | 2 | 4.0 | 2024/05/20 23:13:00 213 | 2024/05/20 23:20:00 71 | |
| mipsel | 1 | 2.0 | 2024/05/20 22:58:00 148 | 2024/05/20 22:58:00 148 | |
| aarch64 | 1 | 2.0 | 2024/05/21 00:12:00 32 | 2024/05/21 00:12:00 32 | |
| sparc64 | 1 | 2.0 | 2024/05/20 23:47:00 148 | 2024/05/20 23:47:00 148 | |
| linux | 17 | 34.0 | 2024/05/20 22:37:00 176 | 2024/05/21 00:32:00 15 | |
| win32 | 1 | 2.0 | 2024/05/20 23:41:00 23 | 2024/05/20 23:41:00 23 | |
| solaris | 32 | 64.0 | 2024/05/20 23:23:00 25 | 2024/05/20 23:55:00 41 | |
| 3.3.1 | 28 | 56.0 | 2024/05/20 23:23:00 25 | 2024/05/21 00:32:00 15 | |
| 3.2.3 | 22 | 44.0 | 2024/05/20 22:37:00 176 | 2024/05/21 00:08:00 23 |
Program trdtxt02;
{$ifdef fpc}
uses
strings;
{$else}
uses
SysUtils;
{$endif}
procedure test(b: boolean);
begin
if b then exit;
WriteLn('Error : Invalid data read!');
halt(1);
end;
var
T: Text;
value_char: char;
value_byte: byte;
value_shortint : shortint;
value_smallint : smallint;
value_word : word;
value_longint : longint;
value_longword : cardinal;
value_real : real;
value_shortstr : shortstring;
value_pchar : array[0..255] of char;
Begin
Assign(T,'testux.txt');
Reset(T);
{ Read all the data in the correct order }
{ Read some characters }
value_char := #0;
ReadLn(T,value_char);
test(value_char = 'a');
value_char := #0;
ReadLn(T,value_char);
test(value_char = 'c');
value_char := #0;
ReadLn(T,value_char);
test(value_char = 'z');
value_char := #0;
ReadLn(T,value_char);
test(value_char = '#');
{ ***** Read some integer values ***** }
{**** HEX ****}
value_byte := 0;
ReadLn(T,value_byte);
test(value_byte = 127);
value_byte := 0;
ReadLn(T,value_byte);
test(value_byte = 255);
value_byte := 0;
ReadLn(T,value_byte);
test(value_byte = 51);
value_shortint := 0;
ReadLn(T,value_shortint);
test(value_shortint = -127);
{*** Integral *** }
value_byte := 0;
ReadLn(T,value_byte);
test(value_byte = 127);
value_byte := 0;
ReadLn(T,value_byte);
test(value_byte = 255);
value_byte := 0;
ReadLn(T,value_byte);
test(value_byte = 33);
value_shortint := 0;
ReadLn(T,value_shortint);
test(value_shortint = -127);
{**** HEX ****}
value_word := 0;
ReadLn(T,value_word);
test(value_word = 32767);
value_word := 0;
ReadLn(T,value_word);
test(value_word = 65535);
value_word := 0;
ReadLn(T,value_word);
test(value_word = 4660);
value_smallint := 0;
ReadLn(T,value_smallint);
test(value_smallint = -32767);
{*** Integral *** }
value_word := 0;
ReadLn(T,value_word);
test(value_word = 12700);
value_word := 0;
ReadLn(T,value_word);
test(value_word = 2550);
value_word := 0;
ReadLn(T,value_word);
test(value_word = +33200);
value_smallint := 0;
ReadLn(T,value_smallint);
test(value_smallint = -12700);
{**** HEX ****}
value_longword := 0;
ReadLn(T,value_longword);
test(value_longword = +$7FFFFFFF);
value_longword := 0;
ReadLn(T,value_longword);
test(value_longword = $FFFFFFFF);
value_longword := 0;
ReadLn(T,value_longword);
test(value_longword = $12341234);
value_longint := 0;
ReadLn(T,value_longint);
test(value_longint = -$7FFFFFFF);
{*** Integral *** }
value_longword := 0;
ReadLn(T,value_longword);
test(value_longword = 12700);
value_longword := 0;
ReadLn(T,value_longword);
test(value_longword = 2550);
value_longword := 0;
ReadLn(T,value_longword);
test(value_longword = +2147483647);
value_longint := 0;
ReadLn(T,value_longint);
{ test(value_longint = -2147483648);}
{ Read some real type values }
value_real := 0.0;
ReadLn(T,value_real);
test(trunc(value_real) = trunc(01234));
value_real := 0.0;
ReadLn(T,value_real);
test(trunc(value_real) = trunc(1278.1278));
value_real := 0.0;
ReadLn(T,value_real);
test(trunc(value_real) = trunc(121223.1278E00));
value_real := 0.0;
ReadLn(T,value_real);
test(trunc(value_real) = trunc(121224.1278e2));
value_real := 0.0;
ReadLn(T,value_real);
test(trunc(value_real) = trunc(121225.1278E02));
value_real := 0.0;
ReadLn(T,value_real);
test(trunc(value_real) = trunc(121216.1278E+00));
value_real := 0.0;
ReadLn(T,value_real);
test(trunc(value_real) = trunc(121227.1278e+2));
value_real := 0.0;
ReadLn(T,value_real);
test(trunc(value_real) = trunc(121228.1278E+02));
value_real := 0.0;
ReadLn(T,value_real);
test(trunc(value_real) = trunc(121233.1278E-00));
value_real := 0.0;
ReadLn(T,value_real);
test(trunc(value_real) = trunc(121234.1278e-2));
{ Read some strings }
value_shortstr := '';
ReadLn(T,value_shortstr);
test(length(value_shortstr) = 255);
value_shortstr := '';
ReadLn(T,value_shortstr);
test(value_shortstr = 'Hello world!');
value_shortstr := '';
ReadLn(T,value_shortstr);
test(length(value_shortstr) = 42);
{ Read a null terminated value }
value_shortstr := '';
ReadLn(T,value_pchar);
test(strlen(value_pchar) = 33);
{ Read a value_charhar and make sure the value is value_chartrl-Z (#26) }
ReadLn(T,value_char);
test(value_char = #26);
Close(T);
WriteLn('All tests Ok!');
end.