perl6/texttest_fixture.p6

#!/usr/bin/env perl6

use v6;

use lib 'lib';

use GildedRose;
use Item;

print 'OMGHAI!', "\n";
my @items = (
    Item.new(
        name    => '+5 Dexterity Vest',
        sell_in => 10,
        quality => 20
    ),
    Item.new(
        name    => 'Aged Brie',
        sell_in => 2,
        quality => 0
    ),
    Item.new(
        name    => 'Elixir of the Mongoose',
        sell_in => 5,
        quality => 7
    ),
    Item.new(
        name    => 'Sulfuras, Hand of Ragnaros',
        sell_in => 0,
        quality => 80
    ),
    Item.new(
        name    => 'Sulfuras, Hand of Ragnaros',
        sell_in => -1,
        quality => 80
    ),
    Item.new(
        name    => 'Backstage passes to a TAFKAL80ETC concert',
        sell_in => 15,
        quality => 20
    ),
    Item.new(
        name    => 'Backstage passes to a TAFKAL80ETC concert',
        sell_in => 10,
        quality => 49
    ),
    Item.new(
        name    => 'Backstage passes to a TAFKAL80ETC concert',
        sell_in => 5,
        quality => 49
    ),
    Item.new(    # This Conjured item does not work properly yet
        name    => 'Conjured Mana Cake',
        sell_in => 3,
        quality => 6
    ),
);

sub MAIN(Int $days = 2) {
    my $gilded-rose = GildedRose.new( items => @items );
    for ^$days -> $day {
        say "-------- day $day --------";
        say 'name, sellIn, quality';

        .Str.say for $gilded-rose.items;

	"".say;
	$gilded-rose.update_quality();
    }
}