Test suite results for test file test/units/crt/tctrlc.pp

Test run data :

Test file "test/units/crt/tctrlc.pp" information:

t_id 259
t_adddate 2003/10/03
Flag t_interactive set
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 488056.

Source:

{ %INTERACTIVE }

program test_crt;

uses
  crt;

  var
    ch : char;

begin
  Write('Press Ctrl-C to test :');
  Read(ch);
  if ch=#3 then
    Writeln('It works correctly');
end.

Link to SVN view of test/units/crt/tctrlc.pp source.