DEATH TO ALL zionist ELLIPSES
[gitmo/Moose.git] / t / 200_examples / 001_example.t
index d7dd836..3c482e1 100644 (file)
@@ -89,18 +89,18 @@ use Test::Exception;
 my $no_more_than_10 = Constraint::NoMoreThan->new(value => 10);
 isa_ok($no_more_than_10, 'Constraint::NoMoreThan');
 
-ok($no_more_than_10->does('Constraint'), '... Constraint::NoMoreThan does Constraint');
+ok($no_more_than_10->does('Constraint'), 'Constraint::NoMoreThan does Constraint');
 
-ok(!defined($no_more_than_10->validate(1)), '... validated correctly');
-is($no_more_than_10->validate(11), 'must be no more than 10', '... validation failed correctly');
+ok(!defined($no_more_than_10->validate(1)), 'validated correctly');
+is($no_more_than_10->validate(11), 'must be no more than 10', 'validation failed correctly');
 
 my $at_least_10 = Constraint::AtLeast->new(value => 10);
 isa_ok($at_least_10, 'Constraint::AtLeast');
 
-ok($at_least_10->does('Constraint'), '... Constraint::AtLeast does Constraint');
+ok($at_least_10->does('Constraint'), 'Constraint::AtLeast does Constraint');
 
-ok(!defined($at_least_10->validate(11)), '... validated correctly');
-is($at_least_10->validate(1), 'must be at least 10', '... validation failed correctly');
+ok(!defined($at_least_10->validate(11)), 'validated correctly');
+is($at_least_10->validate(1), 'must be at least 10', 'validation failed correctly');
 
 # onlength
 
@@ -108,21 +108,21 @@ my $no_more_than_10_chars = Constraint::LengthNoMoreThan->new(value => 10, units
 isa_ok($no_more_than_10_chars, 'Constraint::LengthNoMoreThan');
 isa_ok($no_more_than_10_chars, 'Constraint::NoMoreThan');
 
-ok($no_more_than_10_chars->does('Constraint'), '... Constraint::LengthNoMoreThan does Constraint');
-ok($no_more_than_10_chars->does('Constraint::OnLength'), '... Constraint::LengthNoMoreThan does Constraint::OnLength');
+ok($no_more_than_10_chars->does('Constraint'), 'Constraint::LengthNoMoreThan does Constraint');
+ok($no_more_than_10_chars->does('Constraint::OnLength'), 'Constraint::LengthNoMoreThan does Constraint::OnLength');
 
-ok(!defined($no_more_than_10_chars->validate('foo')), '... validated correctly');
+ok(!defined($no_more_than_10_chars->validate('foo')), 'validated correctly');
 is($no_more_than_10_chars->validate('foooooooooo'),
     'must be no more than 10 chars',
-    '... validation failed correctly');
+    'validation failed correctly');
 
 my $at_least_10_chars = Constraint::LengthAtLeast->new(value => 10, units => 'chars');
 isa_ok($at_least_10_chars, 'Constraint::LengthAtLeast');
 isa_ok($at_least_10_chars, 'Constraint::AtLeast');
 
-ok($at_least_10_chars->does('Constraint'), '... Constraint::LengthAtLeast does Constraint');
-ok($at_least_10_chars->does('Constraint::OnLength'), '... Constraint::LengthAtLeast does Constraint::OnLength');
+ok($at_least_10_chars->does('Constraint'), 'Constraint::LengthAtLeast does Constraint');
+ok($at_least_10_chars->does('Constraint::OnLength'), 'Constraint::LengthAtLeast does Constraint::OnLength');
 
-ok(!defined($at_least_10_chars->validate('barrrrrrrrr')), '... validated correctly');
-is($at_least_10_chars->validate('bar'), 'must be at least 10 chars', '... validation failed correctly');
+ok(!defined($at_least_10_chars->validate('barrrrrrrrr')), 'validated correctly');
+is($at_least_10_chars->validate('bar'), 'must be at least 10 chars', 'validation failed correctly');