diff options
Diffstat (limited to 't/test.pl')
| -rw-r--r-- | t/test.pl | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -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} |