t_id
218
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 23:33:00 38 | 2024/05/21 01:32:00 28 | |
| i386 | 33 | 66.0 | 2024/05/21 00:08:00 23 | 2024/05/21 01:32:00 28 | |
| sparc | 5 | 10.0 | 2024/05/20 23:33:00 38 | 2024/05/20 23:55:00 41 | |
| x86_64 | 7 | 14.0 | 2024/05/20 23:44:00 14 | 2024/05/21 01:25:00 26 | |
| powerpc64 | 2 | 4.0 | 2024/05/21 01:10:00 101 | 2024/05/21 01:11:00 108 | |
| aarch64 | 3 | 6.0 | 2024/05/21 00:12:00 32 | 2024/05/21 01:29:00 35 | |
| linux | 45 | 90.0 | 2024/05/20 23:44:00 14 | 2024/05/21 01:32:00 28 | |
| solaris | 5 | 10.0 | 2024/05/20 23:33:00 38 | 2024/05/20 23:55:00 41 | |
| 3.3.1 | 30 | 60.0 | 2024/05/20 23:37:00 42 | 2024/05/21 01:32:00 28 | |
| 3.2.3 | 20 | 40.0 | 2024/05/20 23:33:00 38 | 2024/05/21 01:30:00 34 |
{$C+}
program tassert1;
var
global_boolean : boolean;
const
RESULT_BOOLEAN = true;
function get_boolean : boolean;
begin
get_boolean := RESULT_BOOLEAN;
end;
procedure test_assert_reference_global;
begin
global_boolean:=RESULT_BOOLEAN;
assert(global_boolean);
end;
procedure test_assert_reference_local;
var
b: boolean;
begin
b:=RESULT_BOOLEAN;
assert(b);
end;
procedure test_assert_register;
var
b: boolean;
begin
assert(get_boolean);
end;
procedure test_assert_flags;
var
b: boolean;
i,j : integer;
begin
i:=0;
j:=-12;
assert(i > j);
end;
procedure test_assert_constant;
begin
assert(RESULT_BOOLEAN);
end;
begin
Write('Assert test (TRUE)...');
test_assert_reference_global;
test_assert_reference_local;
test_assert_register;
test_assert_flags;
test_assert_constant;
WriteLn('Success!');
end.
{
$Log: tassert1.pp,v $
Revision 1.1 2002/09/16 19:16:36 carl
* several new routines have a testsuit.
}