paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 08:49:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* small extension of the test for completeness sake

Browse Source 
git-svn-id: trunk@38369 -
This commit is contained in:
svenbarth 2018-02-27 21:45:50 +00:00
parent 0e5a598b6a
commit 332b078c22
1 changed files with 6 additions and 0 deletions

6
tests/test/tarray12.pp
View File

@ -107,6 +107,12 @@ begin
PrintArray(t);
CheckArray(t, [1, 3, 5]);
t := Nil;
t2 := Nil;
Insert(t2, t, 0);
PrintArray(t);
CheckArray(t, []);
t := Nil;
Insert([], t, 0);
PrintArray(t);