* test for last commit

git-svn-id: trunk@13434 -

.gitattributes

@@ -9212,6 +9212,7 @@ tests/webtbs/tw1412.pp svneol=native#text/plain
 tests/webtbs/tw14134.pp svneol=native#text/plain
 tests/webtbs/tw1414.pp svneol=native#text/plain
 tests/webtbs/tw14143.pp svneol=native#text/plain
+tests/webtbs/tw14149.pp svneol=native#text/plain
 tests/webtbs/tw14155.pp svneol=native#text/plain
 tests/webtbs/tw1416.pp svneol=native#text/plain
 tests/webtbs/tw14174.pp svneol=native#text/plain

tests/webtbs/tw14149.pp

@@ -0,0 +1,22 @@
+{ %target=linux,darwin,freebsd,netbsd,openbsd,sunos,beos,haiku }
+Program Example59;
+
+{ Program to demonstrate the Alarm function. }
+
+Uses BaseUnix;
+
+Procedure AlarmHandler(Sig : cint);cdecl;
+
+begin
+  Writeln ('Got to alarm handler');
+end;
+
+begin
+  Writeln('Setting alarm handler');
+  fpSignal(SIGALRM,SignalHandler(@AlarmHandler));
+  Writeln ('Scheduling Alarm in 10 seconds');
+  fpAlarm(10);
+  Writeln ('Pausing');
+  fpPause;
+  Writeln ('Pause returned');
+end.