소스 검색

fcl-css: fixed string to CSS - no quotes needed, as spaces are converted

mattias 1 년 전
부모
커밋
d9e7f845c3
2개의 변경된 파일1개의 추가작업 그리고 2개의 파일을 삭제
  1. 0 1
      packages/fcl-css/src/fpcsstree.pp
  2. 1 1
      packages/fcl-css/tests/tccsstree.pp

+ 0 - 1
packages/fcl-css/src/fpcsstree.pp

@@ -537,7 +537,6 @@ begin
     Inc(iIn);
     end;
   SetLength(Result,iOut);
-  Result:='"'+Result+'"';
 end;
 
 function StringToIdentifier(const S: TCSSString): TCSSString;

+ 1 - 1
packages/fcl-css/tests/tccsstree.pp

@@ -402,7 +402,7 @@ end;
 procedure TCSSTreeAsStringTest.TestSTRING;
 begin
   TCSSStringElement(CreateElement(TCSSStringElement)).Value:='abc';
-  AssertEquals('Value','"abc"',Element.AsString);
+  AssertEquals('Value','abc',Element.AsString);
 end;
 
 procedure TCSSTreeAsStringTest.TestFLOAT;