erabo/spiegel-keyman
1
0
Fork 0
mirror of https://github.com/keymanapp/keyman.git synced 2026-10-07 22:47:29 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 8

Fix compile error (spurious include of plusmemo), improve tests slightly

Browse source
This commit is contained in:
Marc Durdin 2018-01-04 06:47:23 +11:00
parent 6d344aa21f
commit fdcedca686
2 changed files with 15 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
windows/src/developer/TIKE/child/UfrmTestKeyboard.pas
View file

@ -29,7 +29,7 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, ComCtrls, Buttons, int_kmdebug, Menus, ErrorControlledRegistry,
RegistryKeys, UfrmMDIChild, KeymanDeveloperDebuggerMemo, PlusMemo,
RegistryKeys, UfrmMDIChild, KeymanDeveloperDebuggerMemo,
KeymanDeveloperMemo;
type

18
windows/src/test/test-kmcomapi-win64/Keyman.Test.Console.KeymanAPIHost.pas
View file

@ -379,8 +379,7 @@ begin
k.Hotkeys[0].Modifiers;
k.Hotkeys[0].VirtualKey;
k.Hotkeys[0].RawValue;
Assert.IsTrue({(k.Hotkeys[0].Target >= kh__Low) and <-- always true}
(k.Hotkeys[0].Target <= kh__High));
Assert.IsTrue(k.Hotkeys[0].Target <= kh__High);
end;
//
@ -632,16 +631,18 @@ begin
//kbd.Loaded;
//kbd.Options
Assert.IsNull(kbd.OwnerPackage);
// Assert.IsNotNull(kbd.VisualKeyboard); todo
// Assert.IsNull(kbd.VisualKeyboard);
// kbd.InstallVisualKeyboard(const Filename: WideString); todo
// kbd.InstallVisualKeyboard(const Filename: WideString); //todo
kbd.Uninstall;
k.Keyboards.Refresh;
k.Keyboards.Apply;
end;
procedure TKeymanAPITest_Elevated.Test_IKeymanPackageInstalled;
var
pkg: IKeymanPackageInstalled;
kbd: IKeymanKeyboardInstalled;
begin
k.Packages.Install(FTestPath + 'test.kmp', True);
k.Packages.Refresh;
@ -650,9 +651,18 @@ begin
Assert.IsNotNull(pkg);
Assert.AreEqual('kmp.inf', ExtractFileName(pkg.Filename));
CheckPackageProperties(pkg);
kbd := k.Keyboards['test'];
Assert.IsNotNull(kbd);
CheckKeyboardProperties(kbd);
Assert.IsNotNull(kbd.OwnerPackage);
Assert.AreEqual('test', kbd.OwnerPackage.ID);
Assert.IsNotNull(kbd.VisualKeyboard);
pkg.Uninstall(True);
k.Packages.Refresh;
k.Keyboards.Refresh;
k.Keyboards.Apply;
end;