Fix typos (spelling errors) in t/*.

# New Ticket Created by  (Peter J. Acklam)
# Please include the string:  [perl #81916]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=81916 >

49 files changed, 69 insertions, 69 deletions

diff --git a/t/base/num.t b/t/base/num.t
index fbeddc9434..8a61fb9890 100644
--- a/t/base/num.t
+++ b/t/base/num.t
@@ -3,7 +3,7 @@
 print "1..53\n";
 
 # First test whether the number stringification works okay.
-# (Testing with == would exercize the IV/NV part, not the PV.)
+# (Testing with == would exercise the IV/NV part, not the PV.)
 
 $a = 1; "$a";
 print $a eq "1"       ? "ok 1\n"  : "not ok 1 # $a\n";
diff --git a/t/comp/decl.t b/t/comp/decl.t
index fb9486db98..414b3cd2db 100644
--- a/t/comp/decl.t
+++ b/t/comp/decl.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# check to see if subroutine declarations work everwhere
+# check to see if subroutine declarations work everywhere
 
 sub one {
     print "ok 1\n";
diff --git a/t/io/inplace.t b/t/io/inplace.t
index a27881895b..ed85dacd57 100644
--- a/t/io/inplace.t
+++ b/t/io/inplace.t
@@ -66,7 +66,7 @@ SKIP:
 	    "normal inplace edit");
     }
     
-    # test * equivalency RT #70802
+    # test * equivalence RT #70802
     {
 	for my $file (@ifiles) {
 	    runperl( prog => 'print qq(bar\n);',
diff --git a/t/lib/charnames/alias b/t/lib/charnames/alias
index bcbd2a63fb..2eaf595651 100644
--- a/t/lib/charnames/alias
+++ b/t/lib/charnames/alias
@@ -214,7 +214,7 @@ EXPECT
 OPTIONS regex
 Unknown charname 'e_ACUTE' at
 ########
-# alias with file OK but file has :short aliasses
+# alias with file OK but file has :short aliases
 --FILE-- ../../lib/unicore/xyzzy_alias.pl
 #!perl
 (   e_ACUTE => "LATIN:e WITH ACUTE",
@@ -244,7 +244,7 @@ EXPECT
 OPTIONS regex
 $
 ########
-# alias with :short and file OK has :long aliasses
+# alias with :short and file OK has :long aliases
 --FILE-- ../../lib/unicore/xyzzy_alias.pl
 #!perl
 (   e_ACUTE => "LATIN SMALL LETTER E WITH ACUTE",
@@ -259,7 +259,7 @@ EXPECT
 OPTIONS regex
 Unknown charname 'LATIN SMALL LETTER E WITH ACUTE' at
 ########
-# alias with file implicit :full but file has :short aliasses
+# alias with file implicit :full but file has :short aliases
 --FILE-- ../../lib/unicore/xyzzy_alias.pl
 #!perl
 (   e_ACUTE => "LATIN:e WITH ACUTE",
@@ -274,7 +274,7 @@ EXPECT
 OPTIONS regex
 Unknown charname 'LATIN:e WITH ACUTE' at
 ########
-# alias with file implicit :full and file has :long aliasses
+# alias with file implicit :full and file has :long aliases
 --FILE-- ../../lib/unicore/xyzzy_alias.pl
 #!perl
 (   e_ACUTE => "LATIN SMALL LETTER E WITH ACUTE",
diff --git a/t/lib/strict/vars b/t/lib/strict/vars
index 87f820f1d2..804d7ec3ab 100644
--- a/t/lib/strict/vars
+++ b/t/lib/strict/vars
@@ -440,7 +440,7 @@ EXPECT
 Global symbol "$foo" requires explicit package name at (re_eval 1) line 1.
 Compilation failed in regexp at - line 3.
 ########
-# [perl #73712] 'Variable is not imported' should be suppressable
+# [perl #73712] 'Variable is not imported' should be suppressible
 $dweck;
 use strict 'vars';
 no warnings;
diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke
index 5468ef0c65..f37c36e7df 100644
--- a/t/lib/warnings/toke
+++ b/t/lib/warnings/toke
@@ -739,10 +739,10 @@ dump() better written as CORE::dump() at - line 4.
 # toke.c
 use warnings 'misc';
 use subs qw/dump/;
-sub dump { print "no warning for overriden dump\n"; }
+sub dump { print "no warning for overridden dump\n"; }
 dump;
 EXPECT
-no warning for overriden dump
+no warning for overridden dump
 ########
 # toke.c
 use warnings 'ambiguous';
diff --git a/t/lib/warnings/utf8 b/t/lib/warnings/utf8
index fe1cbf0133..9dbbcb918d 100644
--- a/t/lib/warnings/utf8
+++ b/t/lib/warnings/utf8
@@ -11,7 +11,7 @@
 
      [utf16_to_utf8]
      Malformed UTF-16 surrogate		
-     <<<<<< Add a test when somethig actually calls utf16_to_utf8
+     <<<<<< Add a test when something actually calls utf16_to_utf8
 
 __END__
 # utf8.c [utf8_to_uv] -W
diff --git a/t/mro/basic.t b/t/mro/basic.t
index b42c802b49..9955b813b6 100644
--- a/t/mro/basic.t
+++ b/t/mro/basic.t
@@ -60,7 +60,7 @@ ok(mro::is_universal('MRO_B'));
 ok(!mro::is_universal('MRO_B'));
 
 # is_universal, get_mro, and get_linear_isa should
-# handle non-existant packages sanely
+# handle non-existent packages sanely
 ok(!mro::is_universal('Does_Not_Exist'));
 is(mro::get_mro('Also_Does_Not_Exist'), 'dfs');
 ok(eq_array(
diff --git a/t/mro/basic_01_c3.t b/t/mro/basic_01_c3.t
index 2bcb22556a..bf32dd3edd 100644
--- a/t/mro/basic_01_c3.t
+++ b/t/mro/basic_01_c3.t
@@ -7,7 +7,7 @@ require q(./test.pl); plan(tests => 4);
 
 =pod
 
-This tests the classic diamond inheritence pattern.
+This tests the classic diamond inheritance pattern.
 
    <A>
   /   \
diff --git a/t/mro/basic_01_dfs.t b/t/mro/basic_01_dfs.t
index dfa6d3b982..c4ea2be199 100644
--- a/t/mro/basic_01_dfs.t
+++ b/t/mro/basic_01_dfs.t
@@ -7,7 +7,7 @@ require q(./test.pl); plan(tests => 4);
 
 =pod
 
-This tests the classic diamond inheritence pattern.
+This tests the classic diamond inheritance pattern.
 
    <A>
   /   \
diff --git a/t/mro/next_edgecases.t b/t/mro/next_edgecases.t
index c0da963ede..7402ec90ad 100644
--- a/t/mro/next_edgecases.t
+++ b/t/mro/next_edgecases.t
@@ -54,7 +54,7 @@ plan(tests => 12);
 
         can_ok($bar, 'bar');
         my $value = eval { $bar->bar() };
-        ok(!$@, '... calling bar() succedded') || diag $@;
+        ok(!$@, '... calling bar() succeeded') || diag $@;
         is($value, 'Foo::bar', '... got the right return value too');
     }
     
diff --git a/t/mro/next_method.t b/t/mro/next_method.t
index ffeda1e37a..b7379177d4 100644
--- a/t/mro/next_method.t
+++ b/t/mro/next_method.t
@@ -7,7 +7,7 @@ require q(./test.pl); plan(tests => 5);
 
 =pod
 
-This tests the classic diamond inheritence pattern.
+This tests the classic diamond inheritance pattern.
 
    <A>
   /   \
diff --git a/t/mro/next_skip.t b/t/mro/next_skip.t
index 42a276e8e6..1614855de0 100644
--- a/t/mro/next_skip.t
+++ b/t/mro/next_skip.t
@@ -7,7 +7,7 @@ require q(./test.pl); plan(tests => 10);
 
 =pod
 
-This tests the classic diamond inheritence pattern.
+This tests the classic diamond inheritance pattern.
 
    <A>
   /   \
diff --git a/t/mro/pkg_gen.t b/t/mro/pkg_gen.t
index 0d319fad48..e236ea911a 100644
--- a/t/mro/pkg_gen.t
+++ b/t/mro/pkg_gen.t
@@ -14,7 +14,7 @@ require mro;
 }
 
 ok(!mro::get_pkg_gen('ReallyDoesNotExist'),
-    "pkg_gen 0 for non-existant pkg");
+    "pkg_gen 0 for non-existent pkg");
 
 my $f_gen = mro::get_pkg_gen('Foo');
 ok($f_gen > 0, 'Foo pkg_gen > 0');
diff --git a/t/mro/recursion_c3.t b/t/mro/recursion_c3.t
index cc45250714..cd1db3355a 100644
--- a/t/mro/recursion_c3.t
+++ b/t/mro/recursion_c3.t
@@ -62,7 +62,7 @@ into an infinite loop
     our @ISA = qw//;
 }
 
-# A series of 8 abberations that would cause infinite loops,
+# A series of 8 aberations that would cause infinite loops,
 #  each one undoing the work of the previous
 my @loopies = (
     sub { @E::ISA = qw/F/ },
diff --git a/t/mro/recursion_dfs.t b/t/mro/recursion_dfs.t
index b7bf6d42cd..ddb4d31a08 100644
--- a/t/mro/recursion_dfs.t
+++ b/t/mro/recursion_dfs.t
@@ -49,7 +49,7 @@ into an infinite loop
     our @ISA = qw//;
 }
 
-# A series of 8 abberations that would cause infinite loops,
+# A series of 8 aberations that would cause infinite loops,
 #  each one undoing the work of the previous
 my @loopies = (
     sub { @E::ISA = qw/F/ },
diff --git a/t/op/attrs.t b/t/op/attrs.t
index a8bcd6f455..d568af6b2f 100644
--- a/t/op/attrs.t
+++ b/t/op/attrs.t
@@ -201,7 +201,7 @@ ok !defined(attributes::get(\PVBM)),
     'PVBMs don\'t segfault attributes::get';
 
 {
-    #  [perl #49472] Attributes + Unkown Error
+    #  [perl #49472] Attributes + Unknown Error
     eval '
 	use strict;
 	sub MODIFY_CODE_ATTRIBUTE{}
diff --git a/t/op/dbm.t b/t/op/dbm.t
index 24033703ba..c9add50140 100644
--- a/t/op/dbm.t
+++ b/t/op/dbm.t
@@ -42,7 +42,7 @@ EOC
 
 $prog =~ s/\@\@\@\@/$filename/;
 
-fresh_perl_is("require AnyDBM_File;\n$prog", 'ok', {}, 'explict require');
+fresh_perl_is("require AnyDBM_File;\n$prog", 'ok', {}, 'explicit require');
 fresh_perl_is($prog, 'ok', {}, 'implicit require');
 
 $prog = <<'EOC';
diff --git a/t/op/eval.t b/t/op/eval.t
index a1c1c1a94c..5ef30096c8 100644
--- a/t/op/eval.t
+++ b/t/op/eval.t
@@ -500,7 +500,7 @@ print "ok $test # length of \$@ after eval\n"; $test++;
 print "not " if (length $@ != 0);
 print "ok $test # length of \$@ after eval\n"; $test++;
 
-# Check if eval { 1 }; compeltly resets $@
+# Check if eval { 1 }; completely resets $@
 if (eval "use Devel::Peek; 1;") {
   $tempfile = tempfile();
   $outfile = tempfile();
@@ -540,10 +540,10 @@ END_EVAL_TEST
 
    my $ok = runperl(progfile => $tempfile);
    print "not " unless $ok;
-   print "ok $test # eval { 1 } completly resets \$@\n";
+   print "ok $test # eval { 1 } completely resets \$@\n";
 }
 else {
-  print "ok $test # skipped - eval { 1 } completly resets \$@\n";
+  print "ok $test # skipped - eval { 1 } completely resets \$@\n";
 }
 $test++;
 
diff --git a/t/op/exec.t b/t/op/exec.t
index 73e9a9c4a8..fb0b104f83 100644
--- a/t/op/exec.t
+++ b/t/op/exec.t
@@ -25,7 +25,7 @@ if ($^O eq 'VMS') {
 }
 
 
-# supress VMS whinging about bad execs.
+# suppress VMS whinging about bad execs.
 use vmsish qw(hushed);
 
 $| = 1;				# flush stdout
diff --git a/t/op/grep.t b/t/op/grep.t
index 456b6c5c17..9087f2c4a7 100644
--- a/t/op/grep.t
+++ b/t/op/grep.t
@@ -203,7 +203,7 @@ plan( tests => 61 );
 }
 
 {
-    # This shouldn't loop indefinitively.
+    # This shouldn't loop indefinitely.
     my @empty = map { while (1) {} } ();
     cmp_ok("@empty", 'eq', '', 'staying alive');
 }
diff --git a/t/op/gv.t b/t/op/gv.t
index e9fde9d757..c1d5f8304e 100644
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -366,7 +366,7 @@ is (ref $::{ga_shloip}, 'SCALAR', "Export of proxy constant as is");
 is (ref $::{oonk}, 'SCALAR', "Export doesn't affect original");
 is (eval 'ga_shloip', "Value", "Constant has correct value");
 is (ref $::{ga_shloip}, 'SCALAR',
-    "Inlining of constant doesn't change represenatation");
+    "Inlining of constant doesn't change representation");
 
 delete $::{ga_shloip};
 
@@ -566,7 +566,7 @@ foreach my $value ([1,2,3], {1=>2}, *STDOUT{IO}, \&ok, *STDOUT{FORMAT}) {
     $::{BONK} = \"powie";
     *{"BONK"} = \&{"BONK"};
     eval 'is(BONK(), "powie",
-             "Assigment works when glob created midway (bug 45607)"); 1'
+             "Assignment works when glob created midway (bug 45607)"); 1'
 	or die $@;
 }
 
@@ -610,7 +610,7 @@ foreach my $type (qw(integer number string)) {
     local $SIG{__WARN__} = sub { $warn = $_[0] };
     use warnings;
     my $str = "$glob";
-    is($warn, '', "RT #60954 anon glob stringification shouln't warn");
+    is($warn, '', "RT #60954 anon glob stringification shouldn't warn");
     is($str,  '', "RT #60954 anon glob stringification should be empty");
 }
 
diff --git a/t/op/incfilter.t b/t/op/incfilter.t
index 7b09966fb4..0b763e4d35 100644
--- a/t/op/incfilter.t
+++ b/t/op/incfilter.t
@@ -201,7 +201,7 @@ do [$fh, sub {$_ .= $_ . $_; return;}] or die;
 do \"pass\n(\n'Scalar references are treated as initial file contents'\n)\n"
 or die;
 
-open $fh, "<", \"ss('The file is concatentated');";
+open $fh, "<", \"ss('The file is concatenated');";
 
 do [\'pa', $fh] or die;
 
diff --git a/t/op/mydef.t b/t/op/mydef.t
index e034c78d3a..ca77c27032 100644
--- a/t/op/mydef.t
+++ b/t/op/mydef.t
@@ -71,7 +71,7 @@ $_ = "global";
     for ("implicit foo") { # implicit "my $_"
 	ok( $_ eq "implicit foo", 'for implicit my $_' );
 	/(.)/;
-	ok( $1 eq "i", '...m// in for implicity my $_' );
+	ok( $1 eq "i", '...m// in for implicit my $_' );
 	ok( our $_ eq 'global', '...our $_ inside for implicit my $_' );
     }
     ok( $_ eq 'local', '...my $_ restored outside for implicit my $_' );
diff --git a/t/op/numconvert.t b/t/op/numconvert.t
index d35386187f..73a35864cb 100644
--- a/t/op/numconvert.t
+++ b/t/op/numconvert.t
@@ -105,7 +105,7 @@ my $max_uv_p1 = "$max_uv"; $max_uv_p1+=0; $max_uv_p1++;
 
 # Also need to cope with %g notation for max_uv_p1 that actually gives an
 # integer less than max_uv because of correct rounding for the limited
-# precisision. This bites for 12 byte long doubles and 8 byte UVs
+# precision. This bites for 12 byte long doubles and 8 byte UVs
 
 my $temp = $max_uv_p1;
 my $max_uv_p1_as_iv;
diff --git a/t/op/override.t b/t/op/override.t
index e80cf6198e..413ba77e84 100644
--- a/t/op/override.t
+++ b/t/op/override.t
@@ -93,7 +93,7 @@ BEGIN { *Rgs::readpipe = sub ($) { ++$r . " $_[0]" }; }
     ::is( qx/cp/,	  "11 cp", 'qx' );
 }
 
-# Verify that the parsing of overriden keywords isn't messed up
+# Verify that the parsing of overridden keywords isn't messed up
 # by the indirect object notation
 {
     local $SIG{__WARN__} = sub {
diff --git a/t/op/pack.t b/t/op/pack.t
index 5775cafb53..025bb09f29 100644
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -671,7 +671,7 @@ numbers ('d', -(2**34), -1, 0, 1, 2**34);
 numbers_with_total ('q', -1,
                     -9223372036854775808, -1, 0, 1,9223372036854775807);
 # This total is icky, but the true total is 2**65-1, and need a way to generate
-# the epxected checksum on any system including those where NVs can preserve
+# the expected checksum on any system including those where NVs can preserve
 # 65 bits. (long double is 128 bits on sparc, so they certainly can)
 # or where rounding is down not up on binary conversion (crays)
 numbers_with_total ('Q', sub {
diff --git a/t/op/pos.t b/t/op/pos.t
index 38fd03496b..56a8d28bb0 100644
--- a/t/op/pos.t
+++ b/t/op/pos.t
@@ -29,7 +29,7 @@ is(pos($x), 4);
 { local $x }
 is(pos($x), 4);
 
-# Explict test that triggers the utf8_mg_len_cache_update() code path in
+# Explicit test that triggers the utf8_mg_len_cache_update() code path in
 # Perl_sv_pos_b2u().
 
 $x = "\x{100}BC";
diff --git a/t/op/pow.t b/t/op/pow.t
index f6d752d868..c6a7ad6385 100644
--- a/t/op/pow.t
+++ b/t/op/pow.t
@@ -7,7 +7,7 @@ BEGIN {
     require './test.pl';
 }
 
-# This calcualtion ought to be within 0.001 of the right answer.
+# This calculation ought to be within 0.001 of the right answer.
 my $bits_in_uv = int (0.001 + log (~0+1) / log 2);
 
 # 3**30 < 2**48, don't trust things outside that range on a Cray
diff --git a/t/op/rand.t b/t/op/rand.t
index eb29ff94b0..0d602643a5 100644
--- a/t/op/rand.t
+++ b/t/op/rand.t
@@ -174,7 +174,7 @@ DIAG
     # to find out what's wrong with your rand. Or with this
     # algorithm. :-)
     #
-    # Calculating absoulute standard deviation for number of bits set
+    # Calculating absolute standard deviation for number of bits set
     # (eight bits per rep)
     $dev = abs ($bits - $reps * 4) / sqrt($reps * 2);
 
diff --git a/t/op/range.t b/t/op/range.t
index 81f7b0fcf3..a30e6f6aa7 100644
--- a/t/op/range.t
+++ b/t/op/range.t
@@ -341,7 +341,7 @@ foreach my $ii (~0, ~0+1, ~0+(~0>>4)) {
     ok($@, 'Lower bound rejected: ' . -$ii);
 }
 
-# double/tripple magic tests
+# double/triple magic tests
 sub TIESCALAR { bless { value => $_[1], orig => $_[1] } }
 sub STORE { $_[0]{store}++; $_[0]{value} = $_[1] }
 sub FETCH { $_[0]{fetch}++; $_[0]{value} }
diff --git a/t/op/ref.t b/t/op/ref.t
index 0a39f106c7..38c680088f 100644
--- a/t/op/ref.t
+++ b/t/op/ref.t
@@ -659,7 +659,7 @@ is( runperl(stderr => 1, prog => 'my $i;for $i (1) { for $i (2) { } }'), "");
 #    GV => blessed(AV) => RV => GV => blessed(SV)
 # all with a refcnt of 1, and hope that the second GV gets processed first
 # by do_clean_named_objs.  Then when the first GV is processed, it mustn't
-# find anything nastly left by the previous GV processing.
+# find anything nasty left by the previous GV processing.
 # The eval is stop things in the main body of the code holding a reference
 # to a GV, and the print at the end seems to bee necessary to ensure
 # the correct freeing order of *x and *y (no, I don't know why - DAPM).
diff --git a/t/op/stat.t b/t/op/stat.t
index 8d1b9f25c9..583191ca8e 100644
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -499,7 +499,7 @@ SKIP: {
     ok(-d -r _ , "chained -x's on dirhandle"); 
     ok(-d DIR, "-d on a dirhandle works");
 
-    # And now for the ambigious bareword case
+    # And now for the ambiguous bareword case
     {
 	no warnings 'deprecated';
 	ok(open(DIR, "TEST"), 'Can open "TEST" dir')
@@ -532,7 +532,7 @@ SKIP: {
 	ok(-d _ , "The special file handle _ is set correctly"); 
         ok(-d -r *DIR{IO} , "chained -x's on *DIR{IO}");
 
-	# And now for the ambigious bareword case
+	# And now for the ambiguous bareword case
 	{
 	    no warnings 'deprecated';
 	    ok(open(DIR, "TEST"), 'Can open "TEST" dir')
diff --git a/t/op/taint.t b/t/op/taint.t
index ee8e2aae49..99a6a59a98 100644
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -1358,7 +1358,7 @@ foreach my $ord (78, 163, 256) {
 # when the args were tainted. This only occured on the first use of
 # sprintf; after that, its TARG has taint magic attached, so setmagic
 # at the end works.  That's why there are multiple sprintf's below, rather
-# than just one wrapped in an inner loop. Also, any plantext betwerrn
+# than just one wrapped in an inner loop. Also, any plaintext between
 # fprmat entires would correctly cause tainting to get set. so test with
 # "%s%s" rather than eg "%s %s".
 
diff --git a/t/op/threads.t b/t/op/threads.t
index cf11ead1f8..240c00f7c6 100644
--- a/t/op/threads.t
+++ b/t/op/threads.t
@@ -166,7 +166,7 @@ curr_test(curr_test() + 2);
 
 
 # the seen_evals field of a regexp was getting zeroed on clone, so
-# within a thread it didn't  know that a regex object contrained a 'safe'
+# within a thread it didn't  know that a regex object contained a 'safe'
 # re_eval expression, so it later died with 'Eval-group not allowed' when
 # you tried to interpolate the object
 
diff --git a/t/op/tie.t b/t/op/tie.t
index 98f42799b9..a63c39cd6c 100644
--- a/t/op/tie.t
+++ b/t/op/tie.t
@@ -370,7 +370,7 @@ EXPECT
 # Test case from perlmonks by runrig
 # http://www.perlmonks.org/index.pl?node_id=273490
 # "Here is what I tried. I think its similar to what you've tried
-#  above. Its odd but convienient that after untie'ing you are left with
+#  above. Its odd but convenient that after untie'ing you are left with
 #  a variable that has the same value as was last returned from
 #  FETCH. (At least on my perl v5.6.1). So you don't need to pass a
 #  reference to the variable in order to set it after the untie (here it
diff --git a/t/op/utfhash.t b/t/op/utfhash.t
index a9af502fbf..ebb2934459 100644
--- a/t/op/utfhash.t
+++ b/t/op/utfhash.t
@@ -21,7 +21,7 @@ my %hashu = ( "\xff" => 0xff,
               "\x{1ff}" => 0x1ff,
             );
 
-# Check that we can find the 8-bit things by various litterals
+# Check that we can find the 8-bit things by various literals
 is($hash8{"\x{00ff}"},0xFF);
 is($hash8{"\x{007f}"},0x7F);
 is($hash8{"\xff"},0xFF);
diff --git a/t/porting/args_assert.t b/t/porting/args_assert.t
index df62755b34..e1a2fa5d8e 100644
--- a/t/porting/args_assert.t
+++ b/t/porting/args_assert.t
@@ -16,7 +16,7 @@ my $prefix = '';
 
 unless (-d 't' && -f 'MANIFEST') {
     # we'll assume that we are in t then.
-    # All files are interal to perl, so Unix-style is sufficiently portable.
+    # All files are internal to perl, so Unix-style is sufficiently portable.
     $prefix = '../';
 }
 
diff --git a/t/porting/diag.t b/t/porting/diag.t
index 073156a317..73270d4182 100644
--- a/t/porting/diag.t
+++ b/t/porting/diag.t
@@ -270,7 +270,7 @@ sub check_file {
     }
   }
 }
-# Lists all missing things as of the inaguration of this script, so we
+# Lists all missing things as of the inauguration of this script, so we
 # don't have to go from "meh" to perfect all at once.
 # 
 # PLEASE DO NOT ADD TO THIS LIST.  Instead, write an entry in
diff --git a/t/re/ReTest.pl b/t/re/ReTest.pl
index 4e69145ea4..5baa9539e7 100644
--- a/t/re/ReTest.pl
+++ b/t/re/ReTest.pl
@@ -104,7 +104,7 @@ sub skip {
     safe_globals();
     $why =~ s/\n.*//s;
     $why .= "; Bug $BugId" if defined $BugId;
-    # seems like the new harness code doesnt like todo and skip to be mixed.
+    # seems like the new harness code doesn't like todo and skip to be mixed.
     # which seems like a bug in the harness to me. -- dmq
     #$why .= " # TODO $TODO" if defined $TODO;
     
diff --git a/t/re/pat.t b/t/re/pat.t
index 2dd9503ed6..4d2e582645 100644
--- a/t/re/pat.t
+++ b/t/re/pat.t
@@ -305,7 +305,7 @@ sub run_tests {
         $::reg_infty   = $Config {reg_infty} // 32767;
         $::reg_infty_m = $::reg_infty - 1;
         $::reg_infty_p = $::reg_infty + 1;
-        $::reg_infty_m = $::reg_infty_m;   # Surpress warning.
+        $::reg_infty_m = $::reg_infty_m;   # Suppress warning.
 
         # As well as failing if the pattern matches do unexpected things, the
         # next three tests will fail if you should have picked up a lower-than-
@@ -1036,12 +1036,12 @@ sub run_tests {
     }
     {
         my $n= 50;
-        # this must be a high number and go from 0 to N, as the bug we are looking for doesnt
+        # this must be a high number and go from 0 to N, as the bug we are looking for doesn't
         # seem to be predictable. Slight changes to the test make it fail earlier or later.
         foreach my $i (0 .. $n)
         {
             my $str= "\n" x $i;
-            ok $str=~/.*\z/, "implict MBOL check string disable does not break things length=$i";
+            ok $str=~/.*\z/, "implicit MBOL check string disable does not break things length=$i";
         }
     }
     {
@@ -1119,7 +1119,7 @@ sub run_tests {
         # (without the string eval the test script might be unparseable)
 
         # Note: these test check the behaviour that currently is valid syntax
-        # If a new regex modifier is added and a test fails then there is a backwards-compatibilty issue
+        # If a new regex modifier is added and a test fails then there is a backwards-compatibility issue
         # Note-2: a new deprecate warning was added for this with commit e6897b1a5db0410e387ccbf677e89fc4a1d8c97a
         # which indicate that this syntax will be removed in 5.16.
         # When this happens the tests can be removed
diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t
index ff96079296..0254813d10 100644
--- a/t/re/pat_advanced.t
+++ b/t/re/pat_advanced.t
@@ -943,7 +943,7 @@ sub run_tests {
     {   # TRIE related
         our @got = ();
         "words" =~ /(word|word|word)(?{push @got, $1})s$/;
-        iseq @got, 1, "TRIE optimation";
+        iseq @got, 1, "TRIE optimisation";
 
         @got = ();
         "words" =~ /(word|word|word)(?{push @got,$1})s$/i;
@@ -1758,7 +1758,7 @@ sub run_tests {
         my @notIsPunct = grep {/[[:punct:]]/ and not /\p{IsPunct}/}
                                 map {chr} 0x20 .. 0x7f;
         iseq join ('', @notIsPunct), '$+<=>^`|~',
-            '[:punct:] disagress with IsPunct on Symbols';
+            '[:punct:] disagrees with IsPunct on Symbols';
 
         my @isPrint = grep {not /[[:print:]]/ and /\p{IsPrint}/}
                             map {chr} 0 .. 0x1f, 0x7f .. 0x9f;
diff --git a/t/re/pat_rt_report.t b/t/re/pat_rt_report.t
index a811d2b3b5..7331756028 100644
--- a/t/re/pat_rt_report.t
+++ b/t/re/pat_rt_report.t
@@ -34,7 +34,7 @@ sub run_tests {
     {
         local $BugId = '20000731.001';
         ok "A \x{263a} B z C" =~ /A . B (??{ "z" }) C/,
-           "Match UTF-8 char in presense of (??{ })";
+           "Match UTF-8 char in presence of (??{ })";
     }
 
 
@@ -928,7 +928,7 @@ sub run_tests {
         my @words = ('word1', 'word3', 'word5');
         my $count;
         foreach my $word (@words) {
-            $text =~ s/$word\s//gi; # Leave a space to seperate words
+            $text =~ s/$word\s//gi; # Leave a space to separate words
                                     # in the resultant str.
             # The following block is not working.
             if ($&) {
diff --git a/t/re/reg_unsafe.t b/t/re/reg_unsafe.t
index fe2c718e31..49c701195b 100644
--- a/t/re/reg_unsafe.t
+++ b/t/re/reg_unsafe.t
@@ -7,8 +7,8 @@ BEGIN {
 }
 print "1..1\n";
 
-# there is an equivelent test in t/re/pat.t which does NOT fail
-# its not clear why it doesnt fail, so this todo gets its own test
+# there is an equivalent test in t/re/pat.t which does NOT fail
+# its not clear why it doesn't fail, so this todo gets its own test
 # file until we can work it out.
 
 my $x; 
diff --git a/t/re/regexp.t b/t/re/regexp.t
index 558c6f05d6..56a77ae0c2 100644
--- a/t/re/regexp.t
+++ b/t/re/regexp.t
@@ -123,7 +123,7 @@ foreach (@tests) {
 
     for my $study ('', 'study $subject', 'utf8::upgrade($subject)',
 		   'utf8::upgrade($subject); study $subject') {
-	# Need to make a copy, else the utf8::upgrade of an alreay studied
+	# Need to make a copy, else the utf8::upgrade of an already studied
 	# scalar confuses things.
 	my $subject = $subject;
 	my $c = $iters;
diff --git a/t/re/uniprops.t b/t/re/uniprops.t
index 81d31d12e7..fea734dd30 100644
--- a/t/re/uniprops.t
+++ b/t/re/uniprops.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-# This is just a wrapper for a generated file.  Asssumes being run from 't'
+# This is just a wrapper for a generated file.  Assumes being run from 't'
 # directory
 
 do '../lib/unicore/TestProp.pl';
diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t
index 927d7f6426..17cb0822e7 100644
--- a/t/run/fresh_perl.t
+++ b/t/run/fresh_perl.t
@@ -755,7 +755,7 @@ if ($name =~ /(\p{IsUpper}) (\p{IsUpper})/){
 }
 EXPECT
 It's good! >A< >B<
-######## [perl #8760] strangness with utf8 and warn
+######## [perl #8760] strangeness with utf8 and warn
 $_="foo";utf8::upgrade($_);/bar/i,warn$_;
 EXPECT
 foo at - line 1.
diff --git a/t/test.pl b/t/test.pl
index 56cf646b81..f47bebbf0e 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -84,13 +84,13 @@ sub _diag {
     $TODO ? _print(@mess) : _print_stderr(@mess);
 }
 
-# Use this instead of "print STDERR" when outputing failure diagnostic
+# Use this instead of "print STDERR" when outputting failure diagnostic
 # messages
 sub diag {
     _diag(@_);
 }
 
-# Use this instead of "print" when outputing informational messages
+# Use this instead of "print" when outputting informational messages
 sub note {
     return unless @_;
     _print( _comment(@_) );
@@ -258,12 +258,12 @@ sub cmp_ok ($$$@) {
     }
     unless ($pass) {
         # It seems Irix long doubles can have 2147483648 and 2147483648
-        # that stringify to the same thing but are acutally numerically
+        # that stringify to the same thing but are actually numerically
         # different. Display the numbers if $type isn't a string operator,
         # and the numbers are stringwise the same.
         # (all string operators have alphabetic names, so tr/a-z// is true)
-        # This will also show numbers for some uneeded cases, but will
-        # definately be helpful for things such as == and <= that fail
+        # This will also show numbers for some unneeded cases, but will
+        # definitely be helpful for things such as == and <= that fail
         if ($got eq $expected and $type !~ tr/a-z//) {
             unshift @mess, "# $got - $expected = " . ($got - $expected) . "\n";
         }
@@ -500,7 +500,7 @@ sub _create_runperl { # Create the string to qx in runperl().
     } elsif (defined $args{progfile}) {
 	$runperl = $runperl . qq( "$args{progfile}");
     } else {
-	# You probaby didn't want to be sucking in from the upstream stdin
+	# You probably didn't want to be sucking in from the upstream stdin
 	die "test.pl:runperl(): none of prog, progs, progfile, args, "
 	    . " switches or stdin specified"
 	    unless defined $args{args} or defined $args{switches}
diff --git a/t/x2p/s2p.t b/t/x2p/s2p.t
index 95db0e2264..353ac6499b 100644
--- a/t/x2p/s2p.t
+++ b/t/x2p/s2p.t
@@ -789,7 +789,7 @@ my $plsed  = "s2pt$$.pl";
 my $s2p  = File::Spec->catfile( File::Spec->updir(), 'x2p', 's2p' );
 my $psed = File::Spec->catfile( File::Spec->curdir(), 'psed' );
 if ($^O eq 'VMS') {
-  # default in the .com extenson if it's not already there
+  # default in the .com extension if it's not already there
   $s2p = VMS::Filespec::vmsify($s2p);
   $psed = VMS::Filespec::vmsify($psed);
   # Converting file specs from Unix format to VMS with the extended