path: root/fpcsrc/tests/test/tunit1.pp

uses
   erroru,uunit1;

begin
   if testvar<>1234567 then
     do_error(1000);
end.