Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[t/spec] 11 typos in 6 files.

git-svn-id: http://svn.pugscode.org/pugs@28703 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit 1e2c1f072b4085061c85a6b8ae1e1c7b360981d1 1 parent 38ab3ad
Util authored
View
4 S02-builtin_data_types/hash.t
@@ -44,8 +44,8 @@ isa_ok(%hash5, Hash);
my @slice1 = %hash5{"one", "three"};
is(+@slice1, 2, 'got the right amount of values from the %hash{} slice');
-is(@slice1[0], 1, '%hash{} slice successfull');
-is(@slice1[1], 3, '%hash{} slice successfull');
+is(@slice1[0], 1, '%hash{} slice successful');
+is(@slice1[1], 3, '%hash{} slice successful');
my @slice2 = %hash5<three one>;
is(+@slice2, 2, 'got the right amount of values from the %hash<> slice');
View
4 S02-builtin_data_types/hash_ref.t
@@ -46,8 +46,8 @@ plan 32;
my @slice1 = $hash{"1st", "3rd"};
is +@slice1, 2, 'got the right amount of values from the %hash{} slice';
- is @slice1[0], 1, '%hash{} slice successfull (1)';
- is @slice1[1], 3, '%hash{} slice successfull (2)';
+ is @slice1[0], 1, '%hash{} slice successful (1)';
+ is @slice1[1], 3, '%hash{} slice successful (2)';
my @slice2;
@slice2 = $hash<3rd 1st>;
View
4 S04-declarations/implicit-parameter.t
@@ -8,7 +8,7 @@ plan 18;
{
# test with explicit $_
my $f1 = { 2*$_ };
- is $f1(2), 4, 'Block with explit $_ has one formal paramter';
+ is $f1(2), 4, 'Block with explicit $_ has one formal parameter';
}
{
@@ -26,7 +26,7 @@ plan 18;
is(try { { $_ }.() }, 'Hello', '$_ in bare block defaults to outer');
is({ $_ }.('Goodbye'), 'Goodbye', 'but it is only a default');
is({ 42 }.(), 42, 'no implicit $_ usage checking');
- is({ 42 }.('Goodbye'), 42, '$_ gets assigned but isn\'t used');
+ is({ 42 }.('Goodbye'), 42, '$_ gets assigned but is not used');
is(({ $_ }.arity), 0, '{$_} is arity 0, of course');
is(({ .say }.arity), 0, 'Blocks that uses $_ implicitly have arity 0');
View
2  S06-multi/syntax.t
@@ -26,7 +26,7 @@ is(baz(), "empty", "multi with no signature");
is(baz(42), "one", "multi with parameter list");
# multi with some parameters not counting in dispatch (;;) - note that if the
-# second paramter is counted as part of the dispatch, then invoking with 2
+# second parameter is counted as part of the dispatch, then invoking with 2
# ints means they are tied candidates as one isn't narrower than the other.
# (Note Int is narrower than Num - any two types where one is narrower than
# the other will do it, though.)
View
4 S12-methods/lvalue.t
@@ -32,13 +32,13 @@ is $o.b, 4, '...also to the attribute';
my ($a, $b);
lives_ok { temp $o.l1 = 8; $a = $o.a },
- 'can use lvalue method in temp() statement (explit return)';
+ 'can use lvalue method in temp() statement (explicit return)';
is $o.l1, 3, '... and the value was reset';
is $o.a, 3, '... also on the attribute';
is $a, 8, 'but the temp assignment had worked';
lives_ok { temp $o.l2 = 9; $b = $o.b },
- 'can use lvalue method in temp() statement (explit return)';
+ 'can use lvalue method in temp() statement (explicit return)';
is $o.l2, 4, '... and the value was reset';
is $o.b, 3, '... also on the attribute';
is $a, 9, 'but the temp assignment had worked';
View
4 S32-list/first.t
@@ -40,13 +40,13 @@ my @list = (1 .. 10);
}
{
- ok(@list.first( { ($_ == 11) }) ~~ undef, 'first returns undef unsuccessfull match');
+ ok(@list.first( { ($_ == 11) }) ~~ undef, 'first returns undef unsuccessful match');
}
{
my $count = 0;
my $matcher = sub (Int $x) { $count++; $x % 2 };
- is(@list.first($matcher), 1, 'first() search for odd elements successfull');
+ is(@list.first($matcher), 1, 'first() search for odd elements successful');
is($count, 1, 'Matching closure in first() is only executed once');
}
#vim: ft=perl6
Please sign in to comment.
Something went wrong with that request. Please try again.