[svn:parrot] r40515 - trunk/t/pharness

mikehh at svn.parrot.org mikehh at svn.parrot.org
Thu Aug 13 07:09:41 UTC 2009


Author: mikehh
Date: Thu Aug 13 07:09:36 2009
New Revision: 40515
URL: https://trac.parrot.org/parrot/changeset/40515

Log:
fix t/pharness/01-default_tests.t to reflect changes in Parrot::Harness::DefaultTests

Modified:
   trunk/t/pharness/01-default_tests.t

Modified: trunk/t/pharness/01-default_tests.t
==============================================================================
--- trunk/t/pharness/01-default_tests.t	Thu Aug 13 04:33:29 2009	(r40514)
+++ trunk/t/pharness/01-default_tests.t	Thu Aug 13 07:09:36 2009	(r40515)
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2007, Parrot Foundation.
+# Copyright (C) 2007-2009, Parrot Foundation.
 # $Id$
 # 01-default_tests.t
 
@@ -23,6 +23,8 @@
 @Parrot::Harness::DefaultTests::configure_tests = qw( gamma.t );
 @Parrot::Harness::DefaultTests::standard_tests = qw( delta.t );
 @Parrot::Harness::DefaultTests::developing_tests = qw( epsilon.t );
+ at Parrot::Harness::DefaultTests::library_tests = qw( zeta.t );
+
 
 my ($core_tests_only, $runcore_tests_only);
 my (@default_tests, $default_tests_ref);
@@ -54,16 +56,16 @@
     ok(@default_tests =
         get_default_tests($core_tests_only, $runcore_tests_only),
         "get_default_tests() returned successfully");
-    is(scalar(@default_tests), 3, "Got expected 3 tests");
+    is(scalar(@default_tests), 4, "Got expected 4 tests");
     is($default_tests[0], q{gamma.t}, "Start with configure_tests as expected");
-    is($default_tests[2], q{beta.t}, "End with core_tests as expected");
+    is($default_tests[3], q{zeta.t}, "End with library_tests as expected");
 
     @default_tests = ();
     ($core_tests_only, $runcore_tests_only) = (0,0);
     ok($default_tests_ref =
         get_default_tests($core_tests_only, $runcore_tests_only),
         "get_default_tests() returned successfully");
-    is(scalar(@{ $default_tests_ref }), 3, "Got expected 3 tests");
+    is(scalar(@{ $default_tests_ref }), 4, "Got expected 4 tests");
 
     ok(chdir $cwd, "Able to change back to starting directory after testing");
 }
@@ -101,9 +103,9 @@
     ok(@default_tests =
         get_default_tests($core_tests_only, $runcore_tests_only),
         "get_default_tests() returned successfully");
-    is(scalar(@default_tests), 3, "Got expected 3 tests");
+    is(scalar(@default_tests), 4, "Got expected 4 tests");
     is($default_tests[0], q{gamma.t}, "Start with configure_tests as expected");
-    is($default_tests[2], q{beta.t}, "End with core_tests as expected");
+    is($default_tests[3], q{zeta.t}, "End with library_tests as expected");
     is(scalar(@Parrot::Harness::DefaultTests::standard_tests),
         2, "Got expected 2 coding standards tests");
     # reset for subsequent tests
@@ -114,7 +116,7 @@
     ok($default_tests_ref =
         get_default_tests($core_tests_only, $runcore_tests_only),
         "get_default_tests() returned successfully");
-    is(scalar(@{ $default_tests_ref }), 3, "Got expected 3 tests");
+    is(scalar(@{ $default_tests_ref }), 4, "Got expected 4 tests");
     # reset for subsequent tests
     @Parrot::Harness::DefaultTests::standard_tests = qw( delta.t );
 


More information about the parrot-commits mailing list