ShineOn Commit Details - 157 - ShineOn is a Delphi-win32 compatibility library

Date:	2010-10-13 11:41:11 (2 years 7 months ago)
Author:	Roman Kassebaum
Commit:	157
Parents:	156
Message:	Fixed a problem in Copy for arrays and wrote a test for it.

File differences

trunk/Source/ShineOn.RTL/System.pas
251	251	else
252	252	begin
253	253	if StartIndex + Length > Source.Length then
254		Result := new TBytes(Source.Length - StartIndex + 1)
	254	Result := new TBytes(Source.Length - StartIndex)
255	255	else
256	256	Result := new TBytes(Length);
257	257	Array.Copy(Source, StartIndex, Result, 0, Result.Length);

trunk/Source/NUnit/TestSystem.pas
55	55	method Insert;
56	56	[Test]
57	57	method Copy;
	58	[Test]
	59	method CopyArray;
58	60	[Test, Ignore('Test not implemented')]
59	61	method Str;
60	62	[Test]
...	...
234	236	NUnit.Framework.Assert.AreEqual('Test',ShineOn.RTL.Copy('TestString', 0, 4));
235	237	end;
236	238
	239	method SystemTests.CopyArray;
	240	begin
	241	var pBuffer := new TBytes(3);
	242	pBuffer[0] := 1;
	243	pBuffer[1] := 2;
	244	pBuffer[2] := 3;
	245
	246	var pCopy: TBytes;
	247	var iCount: Integer;
	248
	249	pCopy := ShineOn.RTL.Copy(pBuffer, 0, 1);
	250	NUnit.Framework.Assert.AreEqual(1, pCopy.Length);
	251	NUnit.Framework.Assert.AreEqual(pBuffer[0], pCopy[0]);
	252
	253	pCopy := ShineOn.RTL.Copy(pBuffer, 1, 1);
	254	NUnit.Framework.Assert.AreEqual(1, pCopy.Length);
	255	NUnit.Framework.Assert.AreEqual(pBuffer[1], pCopy[0]);
	256
	257	pCopy := ShineOn.RTL.Copy(pBuffer, 0, 4);
	258	NUnit.Framework.Assert.AreEqual(pBuffer.Length, pCopy.Length);
	259	for iCount := 0 to pBuffer.Length - 1 do
	260	NUnit.Framework.Assert.AreEqual(pBuffer[iCount], pCopy[iCount]);
	261
	262	pCopy := ShineOn.RTL.Copy(pBuffer, 2, 4);
	263	NUnit.Framework.Assert.AreEqual(1, pCopy.Length);
	264	NUnit.Framework.Assert.AreEqual(pBuffer[2], pCopy[0]);
	265	end;
	266
237	267	method SystemTests.Str;
238	268	begin
239	269	NUnit.Framework.Assert.IsTrue(false, 'Not implemented');