add texttest fixture for Perl 5 code

perl/Item.pm

@@ -8,8 +8,8 @@ sub new {
     return bless \%attrs, $class;
 }
 
-sub _data_printer {    ## no critic (ProhibitUnusedPrivateSubroutines)
-    my ( $self, $properties ) = @_;
+sub to_string {
+    my ($self) = @_;
     return $self->{name} . ', ' . $self->{sell_in} . ', ' . $self->{quality};
 }
 

perl/texttest_fixture.pl

@@ -0,0 +1,72 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+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
+    ),
+];
+
+my $days = 2;
+if ( $#ARGV >= 0 ) {
+    $days = $ARGV[0];
+}
+
+my $gilded_rose = GildedRose->new( items => $items );
+for my $day ( 0 .. $days ) {
+    print "-------- day $day --------", "\n";
+    print 'name, sellIn, quality',      "\n";
+    for my $item ( @{$items} ) {
+        print $item->to_string(), "\n";
+    }
+    print "\n";
+    $gilded_rose->update_quality();
+}