GildedRose-Refactoring-Kata/Ada/items.ads
2018-11-24 20:20:56 +01:00

15 lines
273 B
Ada

with Ada.Strings.Unbounded;
package Items is
package SU renames Ada.Strings.Unbounded;
type Item is record
Name : SU.Unbounded_String;
Sell_In : Integer;
Quality : Integer;
end record;
function To_String(Self : in Item) return String;
end Items;