From: Dave Rolsky Date: Mon, 22 Sep 2008 15:05:03 +0000 (+0000) Subject: Remove a bunch of hard tabs X-Git-Tag: 0.59~45 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4ed9b9b469714a25b9100149830f56df72adbb9e;p=gitmo%2FMoose.git Remove a bunch of hard tabs --- diff --git a/t/040_type_constraints/001_util_type_constraints.t b/t/040_type_constraints/001_util_type_constraints.t index 20ceae6..2c52f9a 100644 --- a/t/040_type_constraints/001_util_type_constraints.t +++ b/t/040_type_constraints/001_util_type_constraints.t @@ -18,14 +18,14 @@ type String => message { "This is not a string ($_)" }; subtype Natural - => as Number - => where { $_ > 0 }; + => as Number + => where { $_ > 0 }; subtype NaturalLessThanTen - => as Natural - => where { $_ < 10 } - => message { "The number '$_' is not less than 10" }; - + => as Natural + => where { $_ < 10 } + => message { "The number '$_' is not less than 10" }; + Moose::Util::TypeConstraints->export_type_constraints_as_functions(); ok(Number(5), '... this is a Num'); @@ -46,10 +46,10 @@ ok(NaturalLessThanTen(5), '... this is a NaturalLessThanTen'); is(NaturalLessThanTen(12), undef, '... this is not a NaturalLessThanTen'); is(NaturalLessThanTen(-5), undef, '... this is not a NaturalLessThanTen'); is(NaturalLessThanTen('Foo'), undef, '... this is not a NaturalLessThanTen'); - -# anon sub-typing - -my $negative = subtype Number => where { $_ < 0 }; + +# anon sub-typing + +my $negative = subtype Number => where { $_ < 0 }; ok(defined $negative, '... got a value back from negative'); isa_ok($negative, 'Moose::Meta::TypeConstraint');