paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 19:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Graeme Geldenhuys to test postscript name and family name

Browse Source 
git-svn-id: trunk@36357 -
This commit is contained in:
michael 2017-05-28 08:49:08 +00:00
parent 42a676620d
commit 5d360ea1c4
1 changed files with 41 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
packages/fcl-pdf/tests/fpparsettf_test.pas
View File

@ -193,6 +193,10 @@ type
{ Utility functions }
procedure TestGetGlyphIndex;
procedure TestGetAdvanceWidth;
{ General info }
procedure TestPostScriptName;
procedure TestFamilyName;
end;
@ -202,6 +206,10 @@ type
published
{ PostScript data structure }
procedure TestPostScript_ItalicAngle;
{ General info }
procedure TestPostScriptName;
procedure TestFamilyName;
end;
@ -358,6 +366,10 @@ type
procedure TestPostScript_maxMemType42;
procedure TestPostScript_minMemType1;
procedure TestPostScript_maxMemType1;
{ General info }
procedure TestPostScriptName;
procedure TestFamilyName;
end;
implementation
@ -1159,6 +1171,16 @@ begin
AssertEquals('Failed on 12', 1139, FI.GetAdvanceWidth(20)); // '1'
end;
procedure TTestLiberationFont.TestPostScriptName;
begin
AssertEquals('Failed on 1', 'LiberationSans', FI.PostScriptName);
end;
procedure TTestLiberationFont.TestFamilyName;
begin
AssertEquals('Failed on 1', 'Liberation Sans', FI.FamilyName);
end;
{ TTestLiberationItalicFont }
procedure TTestLiberationItalicFont.SetUp;
@ -1176,6 +1198,16 @@ begin
AssertEquals('Failed on 2', -12.0, FI.ItalicAngle);
end;
procedure TTestLiberationItalicFont.TestPostScriptName;
begin
AssertEquals('Failed on 1', 'LiberationSans-Italic', FI.PostScriptName);
end;
procedure TTestLiberationItalicFont.TestFamilyName;
begin
AssertEquals('Failed on 1', 'Liberation Sans', FI.FamilyName);
end;
{ TTestFreeSansFont }
procedure TTestFreeSansFont.SetUp;
@ -1922,6 +1954,15 @@ begin
AssertEquals('Failed on 1', 0, FI.PostScript.maxMemType1);
end;
procedure TTestFreeSansFont.TestPostScriptName;
begin
AssertEquals('Failed on 1', 'FreeSans', FI.PostScriptName);
end;
procedure TTestFreeSansFont.TestFamilyName;
begin
AssertEquals('Failed on 1', 'FreeSans', FI.FamilyName);
end;
initialization
RegisterTest({$ifdef fptest}'fpParseTTF',{$endif}TTestEmptyParseTTF{$ifdef fptest}.Suite{$endif});