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

* Improved testunit coverage

Browse Source 
git-svn-id: trunk@31234 -
This commit is contained in:
michael 2015-07-26 08:31:28 +00:00
parent a32160131b
commit 722fdea993
4 changed files with 212 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -15453,6 +15453,7 @@ utils/fpdoc/fpdocstripper.lpi svneol=native#text/plain
utils/fpdoc/fpdocstripper.pp svneol=native#text/plain utils/fpdoc/fpdocstripper.pp svneol=native#text/plain
utils/fpdoc/fpdocxmlopts.pas svneol=native#text/plain utils/fpdoc/fpdocxmlopts.pas svneol=native#text/plain
utils/fpdoc/fpmake.pp svneol=native#text/plain utils/fpdoc/fpmake.pp svneol=native#text/plain
utils/fpdoc/gentest.sh svneol=native#text/plain
utils/fpdoc/images/minus.png -text svneol=unset#image/png utils/fpdoc/images/minus.png -text svneol=unset#image/png
utils/fpdoc/images/plus.png -text svneol=unset#image/png utils/fpdoc/images/plus.png -text svneol=unset#image/png
utils/fpdoc/intl/Makefile svneol=native#text/plain utils/fpdoc/intl/Makefile svneol=native#text/plain

10
utils/fpdoc/gentest.sh Normal file
View File

@ -0,0 +1,10 @@
if [ -e ./fpdoc ]; then
FPDOC=./fpdoc
fi
NEWERDOC=`find bin -newer ./fpdoc -type f | xargs -r ls -t | head -1`
if [ ! -z "$NEWERDOC" ]; then
FPDOC="$NEWERDOC"
fi
echo "Using fpdoc executable $FPDOC"
echo "Writing output to fpdoctest"
$FPDOC --package=fpdoc --input='-S2 testunit.pp' --output=fpdoctest --format=html --warn-no-node -v --descr=testunit.xml

19
utils/fpdoc/testunit.pp
View File

@ -45,7 +45,9 @@ Type
TADeprecatedType = Integer deprecated; TADeprecatedType = Integer deprecated;
TMethodRecord = Record TMethodRecord = Record
Private Private
Const aconst = 123;
X22 : Integer; X22 : Integer;
Procedure SetX(AValue : Integer); Procedure SetX(AValue : Integer);
Function GetX : Integer; Function GetX : Integer;
@ -56,6 +58,10 @@ Type
1 : (X2,Y2 : Integer); 1 : (X2,Y2 : Integer);
2 : (phi,Omega : Real); 2 : (phi,Omega : Real);
end; end;
TAExtRecordType = Record
Const X = 100;
operator assign(Y : Integer) : TAExtRecordType;
end;
Var Var
ASimpleVar : Integer; ASimpleVar : Integer;
@ -138,6 +144,9 @@ Type
Published Published
Property AProtectedProp; Property AProtectedProp;
end; end;
Operator + (A,B : TAnArrayType) : TAnArrayType;
Operator multiply (A,B : TAnArrayType) : TAnArrayType;
Implementation Implementation
@ -305,4 +314,14 @@ Procedure TMEthodRecord.MyMethod;
begin begin
end; end;
Operator + (A,B : TAnArrayType) : TAnArrayType;
begin
end;
Operator subtract (A,B : TAnArrayType) : TAnArrayType;
begin
end;
end. end.

182
utils/fpdoc/testunit.xml
View File

@ -1114,6 +1114,188 @@ Appears in 2.0
</notes> </notes>
</element> </element>
<element name="add(TAnArrayType,TAnArrayType):TAnArrayType">
<short>Something short about operator add</short>
<descr>
Something long about operator add
</descr>
</element>
<element name="operator *(TAnArrayType, TAnArrayType): TAnArrayType">
<short>Something short about operator -</short>
<descr>
Something long about operator -
</descr>
</element>
<element name="TAExtRecordType.assign(Integer):TAExtRecordType">
<short>An operator</short>
</element>
<element name="TMethodRecord.MyX"/>
<!-- alias type Visibility: default -->
<element name="TADeprecatedType">
<short></short>
<descr>
</descr>
<seealso>
</seealso>
</element>
<!-- constant Visibility: default -->
<element name="TMethodRecord.aconst">
<short></short>
<descr>
</descr>
<seealso>
</seealso>
</element>
<!-- variable Visibility: private -->
<element name="TMethodRecord.X22">
<short></short>
<descr>
</descr>
<seealso>
</seealso>
</element>
<!-- procedure Visibility: private -->
<element name="TMethodRecord.SetX">
<short></short>
<descr>
</descr>
<errors>
</errors>
<seealso>
</seealso>
</element>
<!-- argument Visibility: private -->
<element name="TMethodRecord.SetX.AValue">
<short></short>
</element>
<!-- function Visibility: private -->
<element name="TMethodRecord.GetX">
<short></short>
<descr>
</descr>
<errors>
</errors>
<seealso>
</seealso>
</element>
<!-- function result Visibility: private -->
<element name="TMethodRecord.GetX.Result">
<short></short>
</element>
<!-- variable Visibility: default -->
<element name="TMethodRecord.X2">
<short></short>
<descr>
</descr>
<seealso>
</seealso>
</element>
<!-- variable Visibility: default -->
<element name="TMethodRecord.Y2">
<short></short>
<descr>
</descr>
<seealso>
</seealso>
</element>
<!-- variable Visibility: default -->
<element name="TMethodRecord.phi">
<short></short>
<descr>
</descr>
<seealso>
</seealso>
</element>
<!-- variable Visibility: default -->
<element name="TMethodRecord.Omega">
<short></short>
<descr>
</descr>
<seealso>
</seealso>
</element>
<!-- constant Visibility: default -->
<element name="TAExtRecordType.X">
<short></short>
<descr>
</descr>
<seealso>
</seealso>
</element>
<!-- function result Visibility: default -->
<element name="TAExtRecordType.assign(Integer):TAExtRecordType.Result">
<short></short>
</element>
<!-- argument Visibility: default -->
<element name="TAExtRecordType.assign(Integer):TAExtRecordType.Y">
<short></short>
</element>
<!-- variable Visibility: default -->
<element name="A">
<short></short>
<descr>
</descr>
<seealso>
</seealso>
</element>
<!-- variable Visibility: default -->
<element name="B">
<short></short>
<descr>
</descr>
<seealso>
</seealso>
</element>
<!-- function result Visibility: default -->
<element name="add(TAnArrayType,TAnArrayType):TAnArrayType.Result">
<short></short>
</element>
<!-- argument Visibility: default -->
<element name="add(TAnArrayType,TAnArrayType):TAnArrayType.A">
<short></short>
</element>
<!-- argument Visibility: default -->
<element name="add(TAnArrayType,TAnArrayType):TAnArrayType.B">
<short></short>
</element>
<!-- function result Visibility: default -->
<element name="multiply(TAnArrayType,TAnArrayType):TAnArrayType.Result">
<short></short>
</element>
<!-- argument Visibility: default -->
<element name="multiply(TAnArrayType,TAnArrayType):TAnArrayType.A">
<short></short>
</element>
<!-- argument Visibility: default -->
<element name="multiply(TAnArrayType,TAnArrayType):TAnArrayType.B">
<short></short>
</element>
</module> <!-- testunit --> </module> <!-- testunit -->
</package> </package>