Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Fix typos.
  • Loading branch information
Util committed Dec 31, 2014
1 parent d84f6bc commit 7759c2d
Show file tree
Hide file tree
Showing 10 changed files with 19 additions and 19 deletions.
2 changes: 1 addition & 1 deletion S02-types/native.t
Expand Up @@ -20,7 +20,7 @@ plan 29;
my str $str;
is $str, '', 'str default value';
my str $s2 = 'foo';
is $s2 ~ $s2, 'foofoo', 'string concatentation with native strings';
is $s2 ~ $s2, 'foofoo', 'string concatenation with native strings';
}

{
Expand Down
2 changes: 1 addition & 1 deletion S03-operators/range.t
Expand Up @@ -204,7 +204,7 @@ is (1..6 Z 'a' .. 'c').join, '1a2b3c', 'Ranges and infix:<Z>';
}

# L<S03/Nonchaining binary precedence/it is illegal to use a Range as
# implicity numeric>
# implicitly numeric>

#?niecza todo 'forbid Ranges as Range endpoints'
{
Expand Down
2 changes: 1 addition & 1 deletion S05-grammar/inheritance.t
Expand Up @@ -33,7 +33,7 @@ is(~('foo' ~~ /^<Grammar::Bar::foo>$/), 'foo', 'got right match (foo)');
is(~('foo' ~~ /^<Grammar::Bar::any>$/), 'foo', 'got right match (any)');
is(~('bar' ~~ /^<Grammar::Bar::any>$/), 'bar', 'got right match (any)');

ok Grammar::Bar.parse('foo'), 'can parse foo through .parsed and inhertied subrule';
ok Grammar::Bar.parse('foo'), 'can parse foo through .parsed and inherited subrule';
ok Grammar::Bar.parse('bar', :rule<bar>), 'got right match (bar)';
ok Grammar::Bar.parse('foo', :rule<foo>), 'got right match (foo)';
ok Grammar::Bar.parse('bar', :rule<any>), 'got right match (any)';
Expand Down
4 changes: 2 additions & 2 deletions S12-enums/non-int.t
Expand Up @@ -14,11 +14,11 @@ eval_dies_ok 'my enum B (a => 1, b => "bar")',
#?rakudo todo 'NYI'
#?niecza todo
eval_lives_ok 'my Cool enum C (a => 1, b => "bar")',
'... unles that type covers both enum value types';
'... unless that type covers both enum value types';

#?niecza todo
eval_dies_ok 'my Str enum D (a => 1)',
'violating an explict type constraint dies';
'violating an explicit type constraint dies';

{
my enum E ( a => 'x', 'b');
Expand Down
8 changes: 4 additions & 4 deletions S16-filehandles/io_in_for_loops.t
Expand Up @@ -27,7 +27,7 @@ my $filename = 'tempfile_io_in_for_loop';
}

#?DOES 6
{ # now read it in with the $fh controling the loop
{ # now read it in with the $fh controlling the loop
my $fh = open($filename);
my $num = 1;
for ($fh.lines) -> $line {
Expand All @@ -38,7 +38,7 @@ my $filename = 'tempfile_io_in_for_loop';
}

#?DOES 6
{ # now read it in with the $fh controling the loop w/out parens
{ # now read it in with the $fh controlling the loop w/out parens
my $fh = open($filename);
my $num = 1;
for $fh.lines -> $line {
Expand All @@ -65,7 +65,7 @@ my $filename = 'tempfile_io_in_for_loop';
$fh.close();
}

{ # now read it in with the $fh controling the loop but call
{ # now read it in with the $fh controlling the loop but call
# the $fh.get inside the loop inside parens (is this list context??)
my $fh = open($filename);
my $num = 1;
Expand All @@ -79,7 +79,7 @@ my $filename = 'tempfile_io_in_for_loop';
$fh.close();
}

{ # now read it in with the $fh controling the loop but call
{ # now read it in with the $fh controlling the loop but call
# the get $fh inside the loop w/out parens (is this scalar context??)
my $fh = open($filename);
my $num = 1;
Expand Down
2 changes: 1 addition & 1 deletion S16-filehandles/io_in_while_loops.t
Expand Up @@ -27,7 +27,7 @@ my $filename = 'tempfile_io_in_while_loop';
$fh.close();
}

{ # now read it in with the $fh controling the loop
{ # now read it in with the $fh controlling the loop
my $fh = open($filename);
my $num = 1;
my $line;
Expand Down
2 changes: 1 addition & 1 deletion S17-supply/minmax.t
Expand Up @@ -22,5 +22,5 @@ for ThreadPoolScheduler.new, CurrentThreadScheduler -> $*SCHEDULER {
"ascending alpha works";
tap_ok Supply.for("E"..."A","e".."a").minmax(*.lc),
[("E".."E"),("D".."E"),("C".."E"),("B".."E"),("A".."E")],
"decending alpha works";
"descending alpha works";
}
12 changes: 6 additions & 6 deletions integration/advent2011-day24.t
Expand Up @@ -18,24 +18,24 @@ is steve(35), "You are person number 35 to use this sub!", 'multi';
# This just tests two user defined subs that have been declared
# at the same level.

my $unambigous = q:to'--END--';
my $unambiguous = q:to'--END--';
proto sub Slurp(|) { * }
multi sub Slurp($filename) {
pass "Yum! $filename was tasty. Got another one?";
}
--END--
my $ambigous = $unambigous ~ q:to'--END--';
my $ambiguous = $unambiguous ~ q:to'--END--';
multi sub Slurp($filename) {
fail "Yuck! $filename is no good!";
}
--END--
lives_ok { EVAL $unambigous ~ 'Slurp("README.md")' },
'unambigous multi - lives';
throws_like { EVAL $ambigous ~ 'Slurp("README.md")' },
lives_ok { EVAL $unambiguous ~ 'Slurp("README.md")' },
'unambiguous multi - lives';
throws_like { EVAL $ambiguous ~ 'Slurp("README.md")' },
X::Multi::Ambiguous,
'ambigous multi - dies';
'ambiguous multi - dies';

class Present {
has $.item;
Expand Down
2 changes: 1 addition & 1 deletion integration/advent2012-day04.t
Expand Up @@ -112,7 +112,7 @@ is +(2..100 X=> 2..100).classify({ .key ** .value }), 9183, 'distinct term count

my (%powers, %count);

# find bases which are powers of a preceeding root base
# find bases which are powers of a preceding root base
# store decomposition into base and exponent relative to root
for 2..Int(sqrt A) -> \a {
next if a ~~ %powers;
Expand Down
2 changes: 1 addition & 1 deletion integration/advent2013-day20.t
Expand Up @@ -4,7 +4,7 @@ plan 22;

{
my $a = 42;
is_deeply $a, 42, 'scalar assigment sanity';
is_deeply $a, 42, 'scalar assignment sanity';
$a = Nil;
is_deeply $a, Any, 'scalar reset sanity';
}
Expand Down

0 comments on commit 7759c2d

Please sign in to comment.