Added kersm testcases

[testub10.git] / scanner / kersm.0

diff --git a/scanner/kersm.0 b/scanner/kersm.0
new file mode 100644 (file)
index 0000000..ae832e6
--- /dev/null
+++ b/scanner/kersm.0
@@ -0,0 +1,40 @@
+method TForm1.FindString()
+var hFile;
+
+struct
+    pIniData;
+    pData;
+end;
+
+  /* Initalize Data */
+  hMapping  := _INVALID_HANDLE_VALUE;
+  pIniData     := 0x13;
+
+  result := 1;
+
+
+      /* Search File in Workspace... */
+      filename := abc;
+      if FileExists(aSearchFile) then
+        filename := aSearchFile;
+      else
+        return;
+      end;
+
+      /* CreateFileHandle... */
+      this.hFile := 10 * pIniData;
+
+
+
+      if hFile < INVALID_HANDLE_VALUE then
+       return 0x2345;
+      
+      if hFile = INVALID_HANDLE_VALUE then
+       return 23456;
+
+
+      while not result or pIniData = 0x12 do
+
+       pIniData := pIniData - 1;
+      end;
+end;
\ No newline at end of file