package Test::Builder;
-# $Id: /mirror/googlecode/test-more-trunk/lib/Test/Builder.pm 67223 2008-10-15T03:08:18.888155Z schwern $
+# $Id$
use 5.006;
use strict;
package Test::Builder::Module;
-# $Id: /mirror/googlecode/test-more-trunk/lib/Test/Builder/Module.pm 67223 2008-10-15T03:08:18.888155Z schwern $
+# $Id$
use strict;
package Test::Builder::Tester;
-# $Id: /mirror/googlecode/test-more-trunk/lib/Test/Builder/Tester.pm 67223 2008-10-15T03:08:18.888155Z schwern $
+# $Id$
use strict;
our $VERSION = "1.18";
package Test::Builder::Tester::Color;
-# $Id: /mirror/googlecode/test-more-trunk/lib/Test/Builder/Tester/Color.pm 67132 2008-10-01T01:11:04.501643Z schwern $
+# $Id$
use strict;
package Test::More;
-# $Id: /mirror/googlecode/test-more-trunk/lib/Test/More.pm 67223 2008-10-15T03:08:18.888155Z schwern $
+# $Id$
use 5.006;
use strict;
package Test::Simple;
-# $Id: /mirror/googlecode/test-more-trunk/lib/Test/Simple.pm 67223 2008-10-15T03:08:18.888155Z schwern $
+# $Id$
use 5.004;
-# $Id: /mirror/googlecode/test-more/README 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
This is the README file for Test::Simple, basic utilities for
writing tests, by Michael G Schwern <schwern@pobox.com>.
-# $Id: /mirror/googlecode/test-more/TODO 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
See https://rt.cpan.org/NoAuth/Bugs.html?Dist=Test-Simple plus here's
a few more I haven't put in RT yet.
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/00test_harness_check.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
# A test to make sure the new Test::Harness was installed properly.
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/BEGIN_require_ok.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/BEGIN_use_ok.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
# [rt.cpan.org 28345]
#
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/Builder/Builder.t 60332 2008-09-09T12:24:03.060291Z schwern $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl
-# $Id: /mirror/googlecode/test-more/t/Builder/carp.t 60332 2008-09-09T12:24:03.060291Z schwern $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/Builder/create.t 60332 2008-09-09T12:24:03.060291Z schwern $
+# $Id$
#!perl -w
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/Builder/curr_test.t 60332 2008-09-09T12:24:03.060291Z schwern $
+# $Id$
# Dave Rolsky found a bug where if current_test() is used and no
# tests are run via Test::Builder it will blow up.
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/Builder/details.t 60332 2008-09-09T12:24:03.060291Z schwern $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/Builder/has_plan.t 60332 2008-09-09T12:24:03.060291Z schwern $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/Builder/has_plan2.t 60332 2008-09-09T12:24:03.060291Z schwern $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/Builder/is_fh.t 60332 2008-09-09T12:24:03.060291Z schwern $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/Builder/maybe_regex.t 60332 2008-09-09T12:24:03.060291Z schwern $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/Builder/no_diag.t 60332 2008-09-09T12:24:03.060291Z schwern $
+# $Id$
use Test::More 'no_diag', tests => 2;
-# $Id: /mirror/googlecode/test-more/t/Builder/no_ending.t 60332 2008-09-09T12:24:03.060291Z schwern $
+# $Id$
use Test::Builder;
BEGIN {
-# $Id: /mirror/googlecode/test-more/t/Builder/no_header.t 60332 2008-09-09T12:24:03.060291Z schwern $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/Builder/ok_obj.t 60332 2008-09-09T12:24:03.060291Z schwern $
+# $Id$
# Testing to make sure Test::Builder doesn't accidentally store objects
# passed in as test arguments.
#!perl -w
-# $Id: /mirror/googlecode/test-more/t/Builder/output.t 60332 2008-09-09T12:24:03.060291Z schwern $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/Builder/reset.t 60332 2008-09-09T12:24:03.060291Z schwern $
+# $Id$
# Test Test::Builder->reset;
#!perl -w
-# $Id: /mirror/googlecode/test-more/t/Builder/try.t 60332 2008-09-09T12:24:03.060291Z schwern $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!perl -w
-# $Id: /mirror/googlecode/test-more/t/More.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl
-# $Id: /mirror/googlecode/test-more/t/Tester/tbt_01basic.t 60331 2008-09-09T12:17:12.607612Z schwern $
+# $Id$
use Test::Builder::Tester tests => 9;
use Test::More;
#!/usr/bin/perl
-# $Id: /mirror/googlecode/test-more/t/Tester/tbt_02fhrestore.t 60331 2008-09-09T12:17:12.607612Z schwern $
+# $Id$
use Test::Builder::Tester tests => 4;
use Test::More;
#!/usr/bin/perl
-# $Id: /mirror/googlecode/test-more/t/Tester/tbt_03die.t 60331 2008-09-09T12:17:12.607612Z schwern $
+# $Id$
use Test::Builder::Tester tests => 1;
use Test::More;
#!/usr/bin/perl
-# $Id: /mirror/googlecode/test-more/t/Tester/tbt_04line_num.t 60331 2008-09-09T12:17:12.607612Z schwern $
+# $Id$
use Test::More tests => 3;
use Test::Builder::Tester;
#!/usr/bin/perl
-# $Id: /mirror/googlecode/test-more/t/Tester/tbt_05faildiag.t 60331 2008-09-09T12:17:12.607612Z schwern $
+# $Id$
use Test::Builder::Tester tests => 5;
use Test::More;
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/Tester/tbt_06errormess.t 60331 2008-09-09T12:17:12.607612Z schwern $
+# $Id$
use Test::More tests => 8;
use Symbol;
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/Tester/tbt_07args.t 60331 2008-09-09T12:17:12.607612Z schwern $
+# $Id$
use Test::More tests => 18;
use Symbol;
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/bad_plan.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/bail_out.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl
-# $Id: /mirror/googlecode/test-more/t/buffer.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/circular_data.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
# Test is_deeply and friends with circular data structures [rt.cpan.org 7289]
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/cmp_ok.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!perl -w
-# $Id: /mirror/googlecode/test-more/t/diag.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!perl -w
-# $Id: /mirror/googlecode/test-more/t/died.t 60310 2008-09-07T23:47:22.837229Z schwern $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/dont_overwrite_die_handler.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!perl -w
-# $Id: /mirror/googlecode/test-more/t/eq_set.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/exit.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
# Can't use Test.pm, that's a 5.005 thing.
package My::Test;
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/explain.t 60308 2008-09-07T22:36:18.175234Z schwern $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!perl -w
-# $Id: /mirror/googlecode/test-more/t/extra.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/extra_one.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/fail-like.t 60310 2008-09-07T23:47:22.837229Z schwern $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!perl -w
-# $Id: /mirror/googlecode/test-more/t/fail-more.t 60310 2008-09-07T23:47:22.837229Z schwern $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!perl -w
-# $Id: /mirror/googlecode/test-more/t/fail.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/fail_one.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!perl -w
-# $Id: /mirror/googlecode/test-more/t/filehandles.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/fork.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!perl -w
-# $Id: /mirror/googlecode/test-more/t/harness_active.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
-# $Id: /mirror/googlecode/test-more/t/import.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/is_deeply_dne_bug.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
# test for rt.cpan.org 20768
#
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/is_deeply_fail.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more-trunk/t/is_deeply_with_threads.t 60989 2008-09-10T03:05:54.548376Z schwern $
+# $Id$
# Test to see if is_deeply() plays well with threads.
package Dummy;
-# $Id: /mirror/googlecode/test-more/t/lib/Dummy.pm 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
$VERSION = '0.01';
package Overloaded;
-# $Id: /mirror/googlecode/test-more-trunk/t/lib/MyOverload.pm 67132 2008-10-01T01:11:04.501643Z schwern $
+# $Id$
sub new {
my $class = shift;
package NoExporter;
-# $Id: /mirror/googlecode/test-more-trunk/t/lib/NoExporter.pm 67132 2008-10-01T01:11:04.501643Z schwern $
+# $Id$
$VERSION = 1.02;
-# $Id: /mirror/googlecode/test-more/t/missing.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/no_plan.t 60319 2008-09-08T21:16:57.125001Z schwern $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!perl -w
-# $Id: /mirror/googlecode/test-more/t/no_tests.t 60310 2008-09-07T23:47:22.837229Z schwern $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/note.t 60308 2008-09-07T22:36:18.175234Z schwern $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/overload.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!perl -w
-# $Id: /mirror/googlecode/test-more/t/overload_threads.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/plan.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/plan_bad.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
-# $Id: /mirror/googlecode/test-more/t/plan_is_noplan.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
-# $Id: /mirror/googlecode/test-more/t/plan_no_plan.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/plan_shouldnt_import.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
# plan() used to export functions by mistake [rt.cpan.org 8385]
-# $Id: /mirror/googlecode/test-more/t/plan_skip_all.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/require_ok.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
-# $Id: /mirror/googlecode/test-more/t/simple.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
#!perl -w
-# $Id: /mirror/googlecode/test-more/t/skip.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
-# $Id: /mirror/googlecode/test-more/t/skipall.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/tbm_doesnt_set_exported_to.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/thread_taint.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
use Test::More tests => 1;
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/threads.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!perl -w
-# $Id: /mirror/googlecode/test-more-trunk/t/todo.t 62094 2008-09-19T07:21:50.720642Z schwern $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/undef.t 60310 2008-09-07T23:47:22.837229Z schwern $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/use_ok.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
-# $Id: /mirror/googlecode/test-more/t/useing.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
#!/usr/bin/perl -w
-# $Id: /mirror/googlecode/test-more/t/utf8.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
BEGIN {
if( $ENV{PERL_CORE} ) {
-# $Id: /mirror/googlecode/test-more/lib/Test/Tutorial.pod 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
=head1 NAME
Test::Tutorial - A tutorial about writing really basic tests
package Dev::Null;
-# $Id: /mirror/googlecode/test-more/t/lib/Dev/Null.pm 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
sub TIEHANDLE { bless {} }
sub PRINT { 1 }
# For testing Test::Simple;
-# $Id: /mirror/googlecode/test-more-trunk/t/lib/Test/Simple/Catch.pm 67132 2008-10-01T01:11:04.501643Z schwern $
+# $Id$
package Test::Simple::Catch;
use Symbol;
require Test::Simple;
-# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/death.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
push @INC, 't/lib';
require Test::Simple::Catch;
require Test::Simple;
-# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/death_in_eval.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
use Carp;
push @INC, 't/lib';
require Test::Simple;
-# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/death_with_handler.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
push @INC, 't/lib';
require Test::Simple::Catch;
require Test::Builder;
-# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/exit.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
exit 1;
require Test::Simple;
-# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/extras.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
push @INC, 't/lib';
require Test::Simple::Catch;
require Test::Simple;
-# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/five_fail.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
use lib 't/lib';
require Test::Simple::Catch;
require Test::Simple;
-# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/last_minute_death.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
push @INC, 't/lib';
require Test::Simple::Catch;
require Test::Simple;
-# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/one_fail.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
push @INC, 't/lib';
require Test::Simple::Catch;
# ID 20020716.013, the exit code would become 0 if the test died
-# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/pre_plan_death.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
# before a plan.
require Test::Simple;
require Test::Simple;
-# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/require.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
require Test::Simple;
-# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/success.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
push @INC, 't/lib';
require Test::Simple::Catch;
require Test::Simple;
-# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/too_few.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
push @INC, 't/lib';
require Test::Simple::Catch;
require Test::Simple;
-# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/too_few_fail.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
push @INC, 't/lib';
require Test::Simple::Catch;
require Test::Simple;
-# $Id: /mirror/googlecode/test-more/t/lib/Test/Simple/sample_tests/two_fail.plx 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
+# $Id$
push @INC, 't/lib';
require Test::Simple::Catch;