#!/usr/bin/env perl use strict; use warnings; use Test::More 0.96; use_ok 'GildedRose'; use_ok 'Item'; subtest 'foo' => sub { my $items = [ Item->new( name => 'foo', sell_in => 0, quality => 0 ) ]; my $app = GildedRose->new( items => $items ); $app->update_quality(); is( $app->{items}->[0]->{name}, 'fixme' ); }; done_testing();