perl.cvs.parrot
[Top] [All Lists]

[svn:parrot] r32537 - trunk/t/op

Subject: [svn:parrot] r32537 - trunk/t/op
From:
Date: Tue, 11 Nov 2008 05:58:26 -0800 PST
Newsgroups: perl.cvs.parrot

Author: bernhard
Date: Tue Nov 11 05:58:26 2008
New Revision: 32537

Modified:
   trunk/t/op/sysinfo.t

Log:
[t] Codeformating, whitespace for t/op/sysinfo.t


Modified: trunk/t/op/sysinfo.t
==============================================================================
--- trunk/t/op/sysinfo.t        (original)
+++ trunk/t/op/sysinfo.t        Tue Nov 11 05:58:26 2008
@@ -54,110 +54,113 @@
 
 
 pasm_output_is( <<'CODE', $PConfig{intvalsize}, "sysinfo integer size" );
-               sysinfo_i_ic I1, 1
-               print I1
-               end
+   sysinfo_i_ic I1, 1
+   print I1
+end
 CODE
 
 # XXX is 'doublesize' the right thing to use?
 pasm_output_is( <<'CODE', $PConfig{doublesize}, "sysinfo float size" );
-               sysinfo_i_ic I1, 2
-               print I1
-               end
+   sysinfo_i_ic I1, 2
+   print I1
+end
 CODE
 
 pasm_output_is( <<'CODE', $PConfig{ptrsize}, "sysinfo pointer size" );
-               sysinfo_i_ic I1, 3
-               print I1
-               end
+   sysinfo_i_ic I1, 3
+   print I1
+end
 CODE
 
 pasm_output_is( <<'CODE', $PConfig{osname}, "sysinfo osname" );
-               sysinfo_s_ic S1, 4
-        print S1
-        end
+   sysinfo_s_ic S1, 4
+   print S1
+end
 CODE
 
 # 5 & 6
-if( $PConfig{osname} eq 'MSWin32' ){
-       # Windows 5 & 6
-       SKIP: {
-               eval{ require Win32; } or
-                   skip "requires package Win32 for these tests", 2;
-               
-               # specifically don't use $Config{osvers}
-               # because it probably was the system perl was compiled on
-               # and we can do much better than that
-               
-               my $osname = Win32::GetOSName();
-               $osname = 'WinXP' if $osname =~ m/^WinXP/;
-               TODO: {
-                       local $TODO = "Not Currently Implemented";
-pasm_output_is( <<'CODE', $osname, "sysinfo OS version string" );
-               sysinfo_s_ic S1, 5
-               print S1
-               end
-CODE
-               
-               my($osvername,$major,$minor,$id) = Win32::GetOSVersion();
-
-pasm_output_is( <<'CODE', "$major.$minor", "sysinfo OS version number string" 
);
-               sysinfo_s_ic S1, 6
-               print S1
-               end
-CODE
-               }
-       }
-
-}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
-TODO: {
-       local $TODO = "Not Currently Implemented";
-       
-pasm_output_is( <<'CODE', $Config{osvers}, "sysinfo OS version string" );
-               sysinfo_s_ic S1, 5
-               print S1
-               end
-CODE
-
-pasm_output_is( <<'CODE', $Config{osvers}, "sysinfo OS version number string" 
);
-               sysinfo_s_ic S1, 6
-               print S1
-               end
+if ( $PConfig{osname} eq 'MSWin32' ) {
+    # Windows 5 & 6
+    SKIP:
+    {
+        eval { require Win32; } or
+            skip "requires package Win32 for these tests", 2;
+
+        # specifically don't use $Config{osvers}
+        # because it probably was the system perl was compiled on
+        # and we can do much better than that
+
+        my $osname = Win32::GetOSName();
+        $osname = 'WinXP' if $osname =~ m/^WinXP/;
+        TODO: {
+            local $TODO = "Not Currently Implemented";
+            pasm_output_is( <<'CODE', $osname, "sysinfo OS version string" );
+    sysinfo_s_ic S1, 5
+    print S1
+end
+CODE
+
+            my ( $osvername, $major, $minor, $id ) = Win32::GetOSVersion();
+
+            pasm_output_is( <<'CODE', "$major.$minor", "sysinfo OS version 
number string" );
+    sysinfo_s_ic S1, 6
+    print S1
+end
 CODE
-       }
+        }
+    }
+}
+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
+    TODO:
+    {
+        local $TODO = "Not Currently Implemented";
+
+        pasm_output_is( <<'CODE', $Config{osvers}, "sysinfo OS version string" 
);
+    sysinfo_s_ic S1, 5
+    print S1
+end
+CODE
+
+        pasm_output_is( <<'CODE', $Config{osvers}, "sysinfo OS version number 
string" );
+    sysinfo_s_ic S1, 6
+    print S1
+end
+CODE
+    }
 }
 
 # 7
 
 pasm_output_is( <<'CODE', $PConfig{cpuarch}, "sysinfo CPU Arch Family" );
-               sysinfo_s_ic S1, 7
-               print S1
-               end
+    sysinfo_s_ic S1, 7
+    print S1
+end
 CODE
 
 # 8
 
-SKIP: {
-       skip "Requires a lot of work to find out the correct answer", 1;
-       
-pasm_output_is( <<'CODE', $PConfig{archname}, "sysinfo CPU Model" );
-               sysinfo_s_ic S1, 8
-               print S1
-               end
+SKIP:
+{
+    skip "Requires a lot of work to find out the correct answer", 1;
+
+    pasm_output_is( <<'CODE', $PConfig{archname}, "sysinfo CPU Model" );
+   sysinfo_s_ic S1, 8
+   print S1
+end
 CODE
 }
 
 # 9, 10
 
-SKIP: {
-        skip 'Testing only in some known platforms' => unless $PConfig{osname} 
eq 'linux';
+SKIP:
+{
+    skip 'Testing only in some known platforms' => unless $PConfig{osname} eq 
'linux';
 
-pir_output_like( <<'CODE', '/^-[1-9][0-9]*\n[1-9][0-9]*\n$/', 'INTVAL min and 
max values');
+    pir_output_like( <<'CODE', '/^-[1-9][0-9]*\n[1-9][0-9]*\n$/', 'INTVAL min 
and max values');
 .include 'sysinfo.pasm'
 .sub main :main
     $I0 = sysinfo .SYSINFO_PARROT_INTMIN

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r32537 - trunk/t/op, bernhard <=