# HG changeset patch
# User unc0rr
# Date 1155244975 0
# Node ID e647d0589bffbc911d5be531170aacf632e784c1
# Parent  8c56db04ea52ed85c30777a5161017e323fd3a8f
Add simple SDL test app

diff -r 8c56db04ea52 -r e647d0589bff hedgewars/checksdl.dpr
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/hedgewars/checksdl.dpr	Thu Aug 10 21:22:55 2006 +0000
@@ -0,0 +1,31 @@
+program checksdl;
+{$APPTYPE CONSOLE}
+uses
+  SDLh;
+
+procedure fail;
+begin
+writeln('fail');
+halt
+end;
+
+var SDLPrimSurface: PSDL_Surface;
+    Color: Longword;
+begin
+Write('Init SDL... ');
+if SDL_Init(SDL_INIT_VIDEO) < 0 then fail;
+WriteLn('ok');
+
+Write('Create primsurface... ');
+SDLPrimSurface:= SDL_SetVideoMode(640, 480, 16, 0);
+if (SDLPrimSurface = nil) then fail;
+WriteLn('ok');
+
+Write('Try map color... ');
+Color:= $FFFFFF;
+Color:= SDL_MapRGB(SDLPrimSurface^.format, (Color shr 16) and $FF, (Color shr 8) and $FF, Color and $FF);
+Writeln('ok');
+Writeln('Result = ', Color);
+
+SDL_Quit()
+end.
\ No newline at end of file