[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