소스 검색

* fcl-db: test sql scanner: fix test case

git-svn-id: trunk@27871 -
reiniero 11 년 전
부모
커밋
a025a87c19
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      packages/fcl-db/tests/tcparser.pas

+ 1 - 1
packages/fcl-db/tests/tcparser.pas

@@ -2252,7 +2252,7 @@ begin
   T:=D.TypeDefinition;
   AssertNull('No default value',T.DefaultValue);
   AssertEquals('Character data type',sdtChar,T.DataType);
-  AssertEquals('Not null',True,T.NotNull);
+  AssertEquals('Not null must be allowed',False,T.NotNull);
 end;
 
 procedure TTestDomainParser.TestDefaultCheckNotNullDomain;