1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
program TTestDBBasics_TestSetFieldValues;
{$mode objfpc}{$H+}
uses
Classes, SysUtils,
Assertions,
ToolsUnit,
dbftoolsunit,
variants,
db;
var PassException : boolean;
begin
DBConnectorName := 'dbf';
InitialiseDBConnector;
with DBConnector.GetNDataset(true,11) do
begin
open;
first;
edit;
FieldValues['id']:=5;
post;
AssertEquals('TestName1',FieldByName('name').AsString);
AssertEquals(5,FieldByName('id').AsInteger);
edit;
FieldValues['name']:='FieldValuesTestName';
post;
AssertEquals('FieldValuesTestName',FieldByName('name').AsString);
AssertEquals(5,FieldByName('id').AsInteger);
edit;
FieldValues['id;name']:= VarArrayOf([243,'ValuesTestName']);
post;
AssertEquals('ValuesTestName',FieldByName('name').AsString);
AssertEquals(243,FieldByName('id').AsInteger);
PassException:=false;
try
edit;
FieldValues['id;name;fake']:= VarArrayOf([243,'ValuesTestName',4]);
except
on E: EDatabaseError do PassException := True;
end;
post;
AssertTrue(PassException);
end;
FreeDBConnector;
end.
|
