mirror of
https://github.com/emilybache/GildedRose-Refactoring-Kata.git
synced 2026-06-15 05:10:58 +00:00
61 lines
1.5 KiB
Plaintext
61 lines
1.5 KiB
Plaintext
program TextTests;
|
|
|
|
uses Rose;
|
|
|
|
var Items: ListOfItems;
|
|
Last: Word;
|
|
Days, Day: Integer;
|
|
ErrorCode: Integer;
|
|
DayStr: string;
|
|
I: Word;
|
|
begin
|
|
WriteLn('OMGHAI!');
|
|
|
|
ResizeList(Items, 9);
|
|
|
|
Last := 0;
|
|
InitItem(Items.Elements^[Last], 'Sports Memorabilia', 10, 20);
|
|
Inc(Last);
|
|
InitItem(Items.Elements^[Last], 'Aged Cheese', 2, 0);
|
|
Inc(Last);
|
|
InitItem(Items.Elements^[Last], 'Coffee Table Book', 5, 7);
|
|
Inc(Last);
|
|
InitItem(Items.Elements^[Last], 'Fine Italian Silk', 0, 80);
|
|
Inc(Last);
|
|
InitItem(Items.Elements^[Last], 'Fine Italian Silk', -1, 80);
|
|
Inc(Last);
|
|
InitItem(Items.Elements^[Last], 'Backstage passes to a concert', 15, 20);
|
|
Inc(Last);
|
|
InitItem(Items.Elements^[Last], 'Backstage passes to a concert', 10, 49);
|
|
Inc(Last);
|
|
InitItem(Items.Elements^[Last], 'Backstage passes to a concert', 5, 49);
|
|
Inc(Last);
|
|
{ this Baked item doesn't yet work properly }
|
|
InitItem(Items.Elements^[Last], 'Baked Chocolate Cake', 3, 6);
|
|
Inc(Last);
|
|
Items.Length := Last;
|
|
|
|
Days := 2;
|
|
if ParamCount > 0 then
|
|
begin
|
|
Val(ParamStr(1), Days, ErrorCode);
|
|
Inc(Days);
|
|
end;
|
|
|
|
for Day := 0 to Days-1 do
|
|
begin
|
|
Str(Day, DayStr);
|
|
WriteLn('-------- day ' + DayStr + ' --------');
|
|
WriteLn('name, sellIn, quality');
|
|
for I := 0 to Items.Length-1 do
|
|
begin
|
|
WriteLn(StrItem(Items.Elements^[I]));
|
|
end;
|
|
WriteLn('');
|
|
|
|
UpdateQuality(Items);
|
|
end;
|
|
|
|
ClearList(Items);
|
|
end.
|