OpenSource/GildedRose-Refactoring-Kata
1
0
Fork 0
mirror of https://github.com/emilybache/GildedRose-Refactoring-Kata.git synced 2026-02-18 07:51:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Delete perl6 directory

Browse Source
This commit is contained in:
Matt Decker 2022-06-26 09:17:22 -05:00 committed by GitHub
parent 34ac850b56
commit a57721c690
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
5 changed files with 0 additions and 164 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
perl6/.gitignore vendored
View File

@ -1 +0,0 @@
lib/.precomp

66
perl6/lib/GildedRose.pm6
View File

@ -1,66 +0,0 @@
use v6;
use Item;
class GildedRose {
has Item @.items;
method update_quality {
for @!items -> $item {
if ($item.name ne 'Aged Brie' && $item.name ne 'Backstage passes to a TAFKAL80ETC concert') {
if ( $item.quality > 0 ) {
if ( $item.name ne 'Sulfuras, Hand of Ragnaros' ) {
$item.quality = $item.quality - 1;
}
}
}
else {
if ( $item.quality < 50 ) {
$item.quality = $item.quality + 1;
if ( $item.name eq 'Backstage passes to a TAFKAL80ETC concert' )
{
if ( $item.sell_in < 11 ) {
if ( $item.quality < 50 ) {
$item.quality = $item.quality + 1;
}
}
if ( $item.sell_in < 6 ) {
if ( $item.quality < 50 ) {
$item.quality = $item.quality + 1;
}
}
}
}
}
if ( $item.name ne 'Sulfuras, Hand of Ragnaros' ) {
$item.sell_in = $item.sell_in - 1;
}
if ( $item.sell_in < 0 ) {
if ( $item.name ne 'Aged Brie' ) {
if ( $item.name ne
'Backstage passes to a TAFKAL80ETC concert' )
{
if ( $item.quality > 0 ) {
if ( $item.name ne 'Sulfuras, Hand of Ragnaros' ) {
$item.quality = $item.quality - 1;
}
}
}
else {
$item.quality = $item.quality - $item.quality;
}
}
else {
if ( $item.quality < 50 ) {
$item.quality = $item.quality + 1;
}
}
}
}
return;
}
};

11
perl6/lib/Item.pm6
View File

@ -1,11 +0,0 @@
use v6;
class Item {
has Str $.name;
has Int $.sell_in is rw = 0;
has Int $.quality is rw = 0;
method Str {
"{$!name}, {$!sell_in}, {$!quality}"
}
};

16
perl6/test.p6
View File

@ -1,16 +0,0 @@
#!/usr/bin/env perl6
use v6;
use Test;
use lib 'lib';
use GildedRose;
use Item;
my $item = Item.new(:name<foo>);
my $app = GildedRose.new(items => ($item));
$app.update_quality();
is $app.items[0].name, 'fixme', "first day pass";
done-testing;

70
perl6/texttest_fixture.p6
View File

@ -1,70 +0,0 @@
#!/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();
}
}