[perl #41809] [PATCH 2/6] [t/library/Test::More] move skip test to be first

[via RT]

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


The tested output from test_skip() depends on the number of tests
that ran in the unrelated sections before it.  Tidy this up.
---
  t/library/test_more.t |   16 ++++++++--------
  1 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/t/library/test_more.t b/t/library/test_more.t
index 7baefd5..23576eb 100644
--- a/t/library/test_more.t
+++ b/t/library/test_more.t
@@ -33,12 +33,12 @@
        .IMPORT( 'Test::Builder::Tester', 'test_test' )

        plan( 47 )
+       test_skip()
        test_ok()
        test_is()
        test_like()
        test_is_deeply()
        test_diagnostics()
-    test_skip()

        test.'finish'()
  .end
@@ -338,25 +338,25 @@
      .local pmc test
      test = new 'Test::Builder'

-       test_out( 'ok 43 #skip skipping' )
-       test_out( 'ok 44 #skip skipping' )
+       test_out( 'ok 1 #skip skipping' )
+       test_out( 'ok 2 #skip skipping' )
      test.'skip'( 2, 'skipping' )
        test_test( 'skip test should pass' )

-       test_out( 'ok 45 #skip skipped' )
+       test_out( 'ok 3 #skip skipped' )
        skip( 1 )
        test_test( 'skip(int)' )

-       test_out( 'ok 46 #skip jumping' )
+       test_out( 'ok 4 #skip jumping' )
        skip( "jumping" )
        test_test( 'skip(string)' )

-       test_out( 'ok 47 #skip lunch' )
-       test_out( 'ok 48 #skip lunch' )
+       test_out( 'ok 5 #skip lunch' )
+       test_out( 'ok 6 #skip lunch' )
        skip( 2, "lunch" )
        test_test( 'skip(int, string)' )

-       test_out( 'ok 49 #skip skipped' )
+       test_out( 'ok 7 #skip skipped' )
        skip()
        test_test( 'skip()' )
  .end
-- 
1.5.0.759.g41ffe