Added a Keywords test to VarPythTest.pas

Author: pyscripter

Tests/VarPythTest.pas

@@ -36,6 +36,8 @@   TTestVarPyth = class(TObject)
     procedure TestDates;
     [Test]
     procedure TestObjects;
+    [Test]
+    procedure Keywords;
   end;
 
 implementation
@@ -46,6 +48,14 @@ implementation
   Classes,
   VarPyth;
 
+procedure TTestVarPyth.Keywords;
+var
+  D: Variant;
+begin
+  D := BuiltinModule.dict(a := 1, b := 2);
+  Assert.AreEqual<Integer>(D.GetItem('a'), 1);
+end;
+
 procedure TTestVarPyth.SetupFixture;
 begin
   PythonEngine := TPythonEngine.Create(nil);