From: Florian Ragwitz Date: Fri, 3 Jul 2009 02:37:19 +0000 (+0200) Subject: Detabify tests. X-Git-Tag: 0.86~1^2~3 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f4fce6c81b07df08698798d87f6e7c0080b639cc;p=gitmo%2FMoose.git Detabify tests. Making xt/author/tabs.t pass again. --- diff --git a/t/010_basics/001_basic_class_setup.t b/t/010_basics/001_basic_class_setup.t index acfde73..00d709c 100644 --- a/t/010_basics/001_basic_class_setup.t +++ b/t/010_basics/001_basic_class_setup.t @@ -31,14 +31,14 @@ dies_ok { can_ok('Foo', 'does'); foreach my $function (qw( - extends - has - before after around - blessed confess - type subtype as where - coerce from via - find_type_constraint - )) { + extends + has + before after around + blessed confess + type subtype as where + coerce from via + find_type_constraint + )) { ok(!Foo->meta->has_method($function), '... the meta does not treat "' . $function . '" as a method'); } diff --git a/t/020_attributes/010_attribute_delegation.t b/t/020_attributes/010_attribute_delegation.t index eb05ac7..100ac3d 100644 --- a/t/020_attributes/010_attribute_delegation.t +++ b/t/020_attributes/010_attribute_delegation.t @@ -262,7 +262,7 @@ is($car->stop, 'Engine::stop', '... got the right value from ->stop'); my $self = shift; my $name = our $AUTOLOAD; - $name =~ s/.*://; # strip fully-qualified portion + $name =~ s/.*://; # strip fully-qualified portion if (@_) { return $self->{$name} = shift;