mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-20 13:49:40 +02:00
* new interactive test for Ctrl-C
This commit is contained in:
parent
f22c4d2a62
commit
b7eaf118e8
16
tests/test/units/crt/tctrlc.pp
Normal file
16
tests/test/units/crt/tctrlc.pp
Normal file
@ -0,0 +1,16 @@
|
|||||||
|
{ %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.
|
Loading…
Reference in New Issue
Block a user