Fixed some of the test-files.

2024-11-22 01:02:17 -05:00 · 2010-04-16 17:04:50 +02:00 · 2010-04-16 17:04:50 +02:00 · ea200096c1
commit ea200096c1
parent 900871715a
14 changed files with 63 additions and 112 deletions
--- a/Tests/PS/BmpTest.simba
+++ b/Tests/PS/BmpTest.simba
@ -1,76 +1,33 @@
 program new;
-//http://www.hawaiisunshine.org/wp-content/uploads/2008/12/sunshine1.jpg
+//http://farm4.static.flickr.com/3067/2612399892_7df428d482.jpg
+{Make the above bitmap your target}
 var
  Bmp : integer;
  x,y : integer;
  w,h : integer;
 begin
-  Bmp := BitmapFromString(37, 32, 'beNqFl3lwVuUVxp93veu3f1' +
-       'lI+EKCLCkIAuI6oIBl0ylWweJerSm2atAaUJYgZCMLBAKyTSAh+w4' +
-       'ERKnUpWoXERSBjtailDVACLS17Tj+13NvpB3tTHvnzOTOzb3vL+c5' +
-       'azIGaIDMYMwQ3BBSkSkD4J4xCa4gNKQBZTClTS5tMBNQgAAY6C3mG' +
-       'cN/zP/Wf0o3373oK0mfM8/E1UMMAa0YmZKQ4pvz6DUHzAJM3wwmpH' +
-       '/6t1j/D3f1He/Xyj/HFQgzhIEQEAHiQDIwAEjzbrjrQX2c7yNJwDn' +
-       '/5vh+Tb5l/3Vx77mhdFDLEEMMSPdtMDAGmMAwXWOWxWfb4s6APT4a' +
-       'S5iBCDgRLT8KnjhcEJEJIgvP/ieOccPgZpDrsO/FIGAUcI8TeMwJP' +
-       'heOLI/FVkZj5YFAuWEscANTw8lDnEgcMgQeBDd9hQXjQggu6ack+z' +
-       'b0u5enHpAEZADXA3MDwSWZgwtSB5aG4+VmoBxGOfgqYC2wVNrjIaJ' +
-       'gQV/nKBdh7rnpMPKUecnGhCI044xdzZ9+5tV40ZXMPenIo/ujumRk' +
-       '5oahA1cHCIEqsCqINZCV3Fpjhsp08CnDHe5RVAw86oeVLOoHN8W/T' +
-       '+YywpWnMPfj2h/d/iTm3xBHAHcHUDT2mi3jrqmISgJVK2yXvFbqjd' +
-       'ysYGah4S5xQ08b1t1CDZMi4COygKHANcBYYHbmwEUzpg33JUoSgiB' +
-       'aCWFKP+P75ca/U3j9iOH7pk2pHpRaAmwSaHJ0NbCRnkuxynFXhEN5' +
-       'SbHHosGpEsN9FzJtjBYYDcwCirPSm267pWbSLQuGDxrXn7rKO57O5' +
-       'dqyAuGrGeuB/CrjHZmZG6TYANQL3qpEE9g2YJvQa4ReBPYT4IfAFD' +
-       '+sQ/34kl93Glg1etBrk8Z1j8hYb2MpkGfh8RCboL1kiynpWK6fuRa' +
-       'D5lDcq2mvfMnaQnaj4g0AWSPQDNYIVSusddJ+ial5wA+AicANPnEa' +
-       'R/61SR3Tx+y+dXBnltGditfT+asJ/Up2rOumYQsTkZFAKqmtXC8Bj' +
-       'TiDzWFyD6p9KN8C1ADthuwyDWI1gDfB2OQJa20IRMqD4YWWkcNxP/' +
-       'AghfW6RNvYAV3XxbqGGjvT8Uoy9sWxN4LuKHYPjuy8YcSiRNpNnqr' +
-       'U+Dwih61AUfRwXt9iYksImy1slqiVvNV0W5TTCN0s3QZt15r2Jq2r' +
-       'tFxrmRuToo2J+GuDgntTsSMV3ZnYl403RuLd7+H9bH1omLsngpaYU' +
-       '2xbpMa1XgkrB5YFbVLieKnqFyNnm4LYFlI1rrFV6Rqu67nRLO1WaT' +
-       'UKUcdQyyiOaHB4V2rwjczIwSzzyBB5cKTxu9HGW9epX13L9w/Bmxn' +
-       'YH8EuEw0C9LctCUTvZeYQIAFGNRL2mx6lK/PTZZuFelc32FY1RL2y' +
-       'Opxwo9KtpqwXaLVRw9EewtvZgXdGhI7cmPLJGPvoSHZsvHtonLsvC' +
-       '3sHYV9CdATRotDAUc1QpTg5+LwVeFhY06GvB0v4zSrsdzxK0AaFRi' +
-       'VJxiZltxgu3Wynhxo7Y6gWaIvi9+OtD28N/mFy0rHbQ0dvlp9OtA6' +
-       'M5m8Nwfujo+9lx7tjssNlDRLbODYxrBMoN8VyQy+Uep7QD7uhmZY9' +
-       '0bFH2TrKvBpp9Ux0SqddOp6MhtFgojMJNQ5aUnFkWuCTWeHDM8zj9' +
-       'yV/MFUemi4/nGq9c714e4T1wai0NwdGWzij2qlnbCvDyxxrBCoUVi' +
-       'oUKpGv9S9Md54TfiASnRx0MihNgU6OLq7aBaWlbhSq3VWdcTTFURv' +
-       'FRzPNM48nfzLH/GyudXS2PnAXfjMDb07EgcmhwxPS96W7LZwKR20H' +
-       'q4PaygTh1nKUMawkAwo5WwDkcvNR05miJI0Y6khdFu+0dLMWJGmTJ' +
-       'ZuDaI5jWxgfTTMv5Aw4di+OPyRPPeES6+hs/s4d+O33xcczUt8dG2' +
-       '20vApqFW4DrBrwanAqnyoGaoPFQBFQwHg+RJ60HxHqNmpHAPX2Nhf' +
-       '0IQnYEjCagtgeQEMc799u9s7LOPlj5/ij7OQT+sgckB27j308S5x8' +
-       'MHHwtkhzCHUSrVJR1dTB2NLf95gn5iqGUoYSqEKmXxLmAsP9Edh4v' +
-       'yPRHGlwsN0CgVqisi6E1nT8+mbz77mje3KSTzyuLueFT+Sww3Pw5x' +
-       'zj0wdkz2MpX8yKv56FOk5+oY1zcrAabCPlJEeFRKn0WKXQpbCL4OZ' +
-       'B/cy0ZgLZ/tRwOSMcsTpSjLYUTvF6fRy/kjvy/FNpPU8Hr7wY+/xJ' +
-       'fJaDSy+ETj9jnvpp4G9PZu8fhjqNLgcdCnXUacFqhNoo2RrKEIEij' +
-       'kJPTFkCawXsZxnPsa07GM/yaoFpqbrjRnOAt8RY5yDszMb5nw+8mB' +
-       'c785w+MR+nntdfzBe9S8PHn8YXubi8IOXAJLc7Dc022ilvJSNWLcR' +
-       'mkhFYTU5xFAsUS1GidLEw86V+VuMhjQngaV7NKSizM8DbQ6otiXVk' +
-       '4eN73MsvppxZyE++gLP54vM8nF8WOLlAnV9sn1moz82PvzoCHTFeb' +
-       '6DZZNR2SMmtEFvA14Othp+T3MNRFazgaonk8w08aOAmyBRv/hg0ll' +
-       'ps7Egy25LRORSXnx98eVmkn9Vb5J5cLC4VBk7koe+l0KUl8cNzDKr' +
-       'EtoifWtRGpIcj1zYzsY68A8o5SgVKhCgSvAByMeO5ms3VfIw/8Q1O' +
-       'iyQ6w+hON5oHYP8t+HJZRu8yeXY5egr1uQLrQoF9Zom8sFReWGRfX' +
-       'pixewwaY9gRl5TMdQJ1Smxl7GVgAxhtMpUMFQJlHpEVgxeCLwbLVf' +
-       'JeybP9BSAgJE3nPenoTAMp+dmjQfLiYhEuluNsiTqzwuwpNM/ms8s' +
-       'rjCuLw6dz0uoHoD2GPclWm8Opl24nnCAZaavBGsJxD0fmVwEv8nCC' +
-       'Vo47ucjqX6X8WtiTgdYB+OWN5FriUqE6vxI9FThVzM6V2KeXo6/Yu' +
-       'LLc+Ud+4uA0pykZXXHsDMtmE9sYtgpsFp6MhFvrV1ylj6sA4TwHl8' +
-       'J4yg5OBhvo40hPGr67MrF3FP74kPPP0uS+Mpwtw6lSnC7DuTJ1vlh' +
-       'cKjC+XB7tm5+2ezi6UrArKjqoSA1s12yTn5DrOa/irNLvlmSruYcr' +
-       'BSuDXMasHCdyo19xUX9VnsSwKxsf3IWvChJ/WWn0VXqgUyTmKpwpw' +
-       'V8rndML8XXB4D/NjdRT1JJVd1S3GWixZKOjN/gaVknRD1pLpSf8CF' +
-       'KKghMuXwYecbx1gja0VO6tOvcZ4r0p6FuQ9HVFvHel59qFtR7rdDn' +
-       '61grKmUtLA725CYpsawy7U+2dAfKO1SlUc6//V/lOkWs05ip9SdcJ' +
-       'bwf2cMxcZATuD8dp3qULkJ60vD0TC/XkZnxVmtJbiIskYDlOFuN8J' +
-       'etZjd5V6FmGvkVJh+6ym1PQSgtJ3Njh0mTktcIbbV6G+E4Ra4Pma/' +
-       'xNm4T1vGOqVNp5ZnCashLeWPf+47gnwIv/BWSck+g=');
+  Bmp := BitmapFromString(19, 14, 'beNoBHgPh/KNEgOv1WOH6' +
+       'q9fq/fnf+P7z/P//tO/0ZMS7ZsOPdMmHY8GGXMWBXMV8cMmGddCYf' +
+       'ta2fNe+a9LPcc/WmOf1b+Trfdryz+nZ//zj//368///pOHbZMiqYs' +
+       'GCXr9zYsJ3b8N5YMZ5cbyJb8eKVcyKXMmjUsmuvvP6euPweOD1mNr' +
+       'd4u3a/v/u/v786fz3ld3aXsalacR8Z8B3XMF5ZcVprdRyrt6MbtGW' +
+       'VsWWTr6Q2/z0ieHzetjqfODoodzZ7PXT/f/q+v/+0PnyddHNUL6YW' +
+       '8V5cr1xx9Jq//Z8//7AqefNVM6sQLqL5PPZx+/litPUdd7hfNbhwN' +
+       '/V+f3Z//729P7/nufkPcS2aLuCzNNg/f1t/P7K////zvj3htXPRr2' +
+       'Xm86f2vPIwubLgtTJb93aidfT6O7D+f/h///9svT0U7vJtcR8//hP' +
+       '//63//7/y/z5vfD1wOLPhNKgOaxpc7uRyeK1s+vFaNHNbtXS0uHI/' +
+       '/vK///8svD/hsbW+uiK//6v9f//z/j9suvzo9TWwOO2ud+qI6RZEK' +
+       'lUbrxdl9qUV8q3Ub+6tNCz/Pmx/P/1xPP839/V+P2o//rmwPv/puH' +
+       'swtvVqti1ptiftd+ZJ6NUIKlZIaVLL6xgQ7J/Lq93bbqB5eiY+f/k' +
+       'xfX///fX//7X3fz/cd32wNvSs+O3sOScm9OeqtiJH6xIIKhWLKFRA' +
+       'KJJEqJHN6FNHKNAW75dfdeddc/Yrd+3tuzOaefqRbnWq9Cdhtijld' +
+       'WNmtWVoNF+MqxVJqlWJKJKG6I/UKs5hbtCWbNIQaVHYatXWq9yOq5' +
+       '8OqyGMaeZNKiMT7BuTrZ0aLpye8t0dspyM6xbL6dLLqBDJ6U8dKYy' +
+       '4upNx+J4yNt35OZ5yOh8W8eMRqNnQ6hWMqlTJaRXFaU5N6JBQrFIR' +
+       'rdaKqlIL6ZNKqM8CKc5VZw04N8w//2m/vq5/v7M6vzghtfEhr+Ohc' +
+       'NgYbRYU7lKUKo3O6k9K6s3KqQ/KKRILp8/D6k7GKZBMZwwqL86/P2' +
+       'S9f/j//zlzP73nNrfpMeprdp0hMlyqcxincxYY7tXOLFHDehUEnQ=' +
+       '');
  GetClientDimensions(w,h);
  if FindBitmapToleranceIn(bmp,x,y,0,0,w-1,h-1,25) then
    MoveMouse(x,y);
--- a/Tests/PS/ColourTest2.simba
+++ b/Tests/PS/ColourTest2.simba
@ -1,4 +1,6 @@
 program new;
+const
+  bmppath = 'C:\Carina_1_by_Eeitam.png';
 var
   p1, p2: TPointArray;
   w, h: integer;
@ -7,7 +9,7 @@ var

 begin
  SetColorToleranceSpeed(2);
-  bmp := LoadBitmap('/home/merlijn/Pictures/Mooi/Carina_1_by_Eeitam.png');
+  bmp := LoadBitmap(bmppath);
  SetTargetBitmap(bmp);
  GetClientDimensions(W, H);
  writeln(inttostr(w) + ' : ' + inttostr(h));
--- a/Tests/PS/FileTests.simba
+++ b/Tests/PS/FileTests.simba
@ -19,7 +19,6 @@ program Hoi;
 }

 Const
-    TestPath = './test';

    fsFromBeginning = 0; // offset must be pos or 0
    fsFromCurrent = 1; // offset pos or neg
@ -27,10 +26,12 @@ Const

 var
  s, s2: string;
+  testPath : string;
  myFile, myFile2: Integer;

 begin
-  s := apppath;
+  testPath := scriptpath +'Test';
+  s := ScriptPath;
  Writeln('Our current path is: ' + s);
 { If DirectoryExists(s) Then
    writeln('Directory ' + s + ' exists.');    }
--- a/Tests/PS/MaskTest.simba
+++ b/Tests/PS/MaskTest.simba
@ -1,5 +1,8 @@
 program new;
 //http://nl.wikipedia.org/wiki/Lily_Allen
+//This finds a mask of the text 'Op 24 september',
+//so target wikipedia halfway down. Might not work because of
+//different font's/sizes in your browser.

 var
  Bmp : integer;
@ -14,7 +17,7 @@ begin
       'KvJQNKa5mEcyAhoauI6N8ymAlkxWpdtwgL2bhPXCJc7+E7JLNJsgG' +
       'qQgL1jhHwX4VJdBsNZMbN5D//m/ob5XzwDp40wfg/jW9g024hbuPd' +
       'ritabVqaAj7zYVyxg9fol4M8FFG7YAfIG00k=');
-  Mask := CreateBitmapMask(Bmp);
+  Mask := CreateMaskFromBitmap(Bmp);
  GetClientDimensions(w,h);
 //  if FindBitmapMaskTolerance(Bmp,x,y,0, 0,w-1, h-1,1,5) then
  if FindMaskTolerance(Mask,x,y,0, 0,w-1, h-1,1,5) then
--- a/Tests/PS/PathTest.simba
+++ b/Tests/PS/PathTest.simba
@ -2,4 +2,7 @@ program new;
 begin
  Writeln(AppPath);
  Writeln(ScriptPath);
+  Writeln(IncludePath);
+  Writeln(FontPath);
+  writeln(PluginPath);
 end.
--- a/operations.simba
+++ b/operations.simba
@ -1,6 +1,6 @@
 program new;
 const
-  SaveDir = 'C:\';
+  SaveDir = ScriptPath;
 var
  Bmpz : integer;
  Bmp2 : integer;
--- a/Tests/PS/SimpleBMPLoader.simba
+++ b/Tests/PS/SimpleBMPLoader.simba
@ -1,4 +1,6 @@
 program new;
+const
+  savepath = scriptpath;
 var
  Bmpz : integer;
  w,h : integer;
@ -134,9 +136,9 @@ begin
   GetBitmapSize(bmpz,w,h);
   Writeln(inttostr(w) + '-' + inttostr(h));
   SetBitmapSize(Bmpz,w div 2, h div 2);
-   SaveBitmap(Bmpz,'/tmp/test.bmp');
+   SaveBitmap(Bmpz,savepath + 'test.bmp');
   //FreeBitmap(Bmpz);
-   Bmpz := LoadBitmap('/tmp/test.bmp');
+   Bmpz := LoadBitmap(savepath + 'test.bmp');
   SetBitmapSize(bmpz,w,h);
-   SaveBitmap(Bmpz,'/tmp/test2.bmp');
+   SaveBitmap(Bmpz,savepath + 'test2.bmp');
 end.
--- a/Tests/PS/Uptext.simba
+++ b/Tests/PS/Uptext.simba
@ -5,6 +5,6 @@ begin
  t:=getsystemtime;
  for i := 0 to 100 do
    rs_getuptext;
-  writeln(inttostr(round(getsystemtime - t) / 100));
+  writeln(floattostr(round(getsystemtime - t) / 100.0));
  writeln(rs_getuptext);
 end.
--- a/Tests/PS/blackchat.simba
+++ b/Tests/PS/blackchat.simba
@ -22,23 +22,10 @@ begin
  if (FindColorsTolerance(cArr, TextCol, MCX1, P.y, MCX2, P.y + 13, 0)) then
  begin
    B := GetTPABounds(cArr);
-   // Result := GetTextAt(B.x1 - 1, B.y1 - 1, 1, 3, 0, 0, 0, 100, 'SmallChars');
-
-    {Result := Trim(GetTextAtEx(B.x1 - 1, B.y1 - 2, 0, SmallChars, False, False,
-      0, 1, TextCol, 80, False, tr_AllChars)); }
+    Result := GetTextAt(B.x1 - 1, B.y1 - 1,1, 4, 1, 0, 0, 100, 'SmallChars');
  end;
 end;

-var
-  bmp: integer;
 begin
-  bmp := LoadBitmap('/home/merlijn/Programs/trunk/pics/17.bmp');
-  SetTargetBitmap(bmp);
- // freebitmap(bmp);
-{  GetChatBoxText(8, 0);    }
-
-  {SetDesktopAsClient;         }
-
-  // uncomment this for exception
-  freebitmap(bmp);
+  Writeln(GetChatBoxText(8, 0));
 end.
--- a/Tests/PS/dtmtest.simba
+++ b/Tests/PS/dtmtest.simba
@ -15,8 +15,7 @@ begin
    movemouse(x,y);
  end else
    writeln('not found');
-  if getdtm(dtm, ppdtm) then
-    writeln('yay');
+  ppdtm := GetDTM(Dtm);
  printpdtm(tdtmtopdtm(pdtmtotdtm(ppdtm)));
  dtm := addpdtm(ppdtm);
  freedtm(dtm);
--- a/Tests/PS/dtmtest2.simba
+++ b/Tests/PS/dtmtest2.simba
@ -53,7 +53,7 @@ begin
    movemouse(p[0].x,p[0].y);
  end;

-  if FindDTMRotated(dtm, x, y, 0, 0, w-1, h-1, -3.14, 3.14, 0.05, a) then
+  if FindDTMRotatedAlternating(dtm, x, y, 0, 0, w-1, h-1, -3.14, 3.14, 0.05, a) then
  begin
    writeln('Found DTM at ' + inttostr(x) + ', ' + inttostr(y) + ' Angle: ' + FloatToStr(a));
    movemouse(x,y);
--- a/Tests/PS/plugintest.simba
+++ b/Tests/PS/plugintest.simba
@ -59,6 +59,6 @@ begin
  writeln(inttostr(w) + ' , ' + inttostr(h));
  if findcolortolerance(w,h,clwhite,0,0,764,502,300) then
    smartmovemouse(w,h);
-  savescreenshot('/tmp/smart.bmp');
-  //Wait(5000);
+   Wait(5000);
+  savescreenshot(scriptPath + 'smart.bmp');
 end.
--- a/Tests/PS/settings_test.simba
+++ b/Tests/PS/settings_test.simba
@ -1,17 +1,16 @@
 program new;
 begin
-SettingsGetSetDefaultKeyValue('Kanker/wat', 'YO WAT');
-SettingsGetSetDefaultKeyValue('Kanker/wat2', 'YO WAT2');
-writeln(SettingsGetKeyValue('Kanker/wat'));
-
-if SettingsIsDirectory('Kanker') then
-  writeln('Kanker has at least one child!');
-if SettingsIsKey('Kanker/wat') then
-  writeln('wat exists!');
-SettingsDeleteKey('Kanker/wat');
-writeln(SettingsGetKeyValue('Kanker/wat2'));
-writeln(SettingsGetKeyValue('Kanker/wat'));
-SettingsDeleteSubKeys('Kanker');
-if SettingsIsKey('Kanker') then
-  writeln('kanker is a key now!');
+  GetSettingValueDef('Testme/wat','Yo wat');
+  GetSettingValueDef('Testme/wat2','Yo wat2');
+  Writeln(GetSettingValue('Testme/wat'));
+  if KeyIsDirectory('Testme') then
+    Writeln('Testme has atleast one child!');
+  if KeyIsSetting('Testme/wat') then
+    writeln('wat exists in the parent Testme!');
+  DeleteSetting('Testme/wat');
+  Writeln(GetSettingValue('Testme/wat2'));
+  Writeln(GetSettingValue('Testme/wat'));
+  writeln(DeleteSubSettings('Testme'));
+  if KeyIsSetting('Testme') then
+    writeln('Testme is a key now!');
 end.
--- a/Tests/PS/stringtest.simba
+++ b/Tests/PS/stringtest.simba
@ -34,6 +34,4 @@ begin
  end;
  Writeln(y);
  Writeln(TPointArray([Point(5,5),Point(20,1337),point(1,2)]));
-  J := TForm.Create(nil);
-  Writeln(j.canvas);
 end.