# New Ticket Created by "Brad Gilbert"
# Please include the string: [perl #53924]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=53924 >
Fixed some typos in t/op/sysinfo.t
Index: t/op/sysinfo.t
===================================================================
--- t/op/sysinfo.t (revision 27394)
+++ t/op/sysinfo.t (working copy)
@@ -8,7 +8,6 @@
use warnings;
use lib qw( . lib ../lib ../../lib );
-use Test::More;
use Parrot::Test tests => 8;
use Parrot::Config;
@@ -16,15 +15,15 @@
=head1 NAME
-t/op/sys_ops.t - System Ops
+t/op/sysinfo.t - System Info
=head1 SYNOPSIS
- % prove t/op/sys_ops.t
+ % prove t/op/sysinfo.t
=head1 DESCRIPTION
-Tests basic string and branching operations.
+Tests for basic system information.
=over 4
@@ -75,10 +74,11 @@
end
CODE
-# 5
+# 5 & 6
if( $PConfig{osname} eq 'MSWin32' ){
- eval{ require Win32; };
+ # Windows 5 & 6
SKIP: {
+ eval{ require Win32; } OR
skip "requires package Win32 for these tests", 2;
# specifically don't use $Config{osvers}
@@ -106,6 +106,7 @@
}
}else{
+ # Other 5 & 6
# XXX I know this is wrong on Win32 but is it correct on any others?
# XXX also should it be %Config or %PConfig
@@ -127,7 +128,7 @@
}
-# Common
+# 7
TODO: {
local $TODO = "Not Currently Implemented";
@@ -139,6 +140,8 @@
CODE
}
+# 8
+
SKIP: {
skip "Requires a lot of work to find out the correct answer", 1;
