mirror of
https://github.com/emilybache/GildedRose-Refactoring-Kata.git
synced 2025-12-12 12:22:12 +00:00
30 lines
464 B
Plaintext
30 lines
464 B
Plaintext
{F+} { need to set Far Calls in Compiler Options too }
|
|
program Rose_T;
|
|
|
|
uses TPUnit, Rose;
|
|
|
|
var Items: ListOfItems;
|
|
|
|
procedure CreateItem;
|
|
begin
|
|
ResizeList(Items, 1);
|
|
end;
|
|
|
|
procedure DisposeItem;
|
|
begin
|
|
ClearList(Items);
|
|
end;
|
|
|
|
procedure Foo;
|
|
begin
|
|
InitItem(Items.Elements^[0], 'foo', 0, 0);
|
|
|
|
UpdateQuality(Items);
|
|
|
|
AssertEqualsStr('name', 'fixme', Items.Elements^[0].Name);
|
|
end;
|
|
|
|
begin
|
|
RunFixtures('foo', CreateItem, Foo, DisposeItem);
|
|
end.
|