summaryrefslogtreecommitdiff
path: root/gnu/usr.bin/perl/lib/Test/t/no_tests.t
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/usr.bin/perl/lib/Test/t/no_tests.t')
-rw-r--r--gnu/usr.bin/perl/lib/Test/t/no_tests.t44
1 files changed, 0 insertions, 44 deletions
diff --git a/gnu/usr.bin/perl/lib/Test/t/no_tests.t b/gnu/usr.bin/perl/lib/Test/t/no_tests.t
deleted file mode 100644
index eafa38cacc7..00000000000
--- a/gnu/usr.bin/perl/lib/Test/t/no_tests.t
+++ /dev/null
@@ -1,44 +0,0 @@
-#!perl -w
-
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-# Can't use Test.pm, that's a 5.005 thing.
-package My::Test;
-
-# This has to be a require or else the END block below runs before
-# Test::Builder's own and the ending diagnostics don't come out right.
-require Test::Builder;
-my $TB = Test::Builder->create;
-$TB->plan(tests => 3);
-
-
-package main;
-
-require Test::Simple;
-
-chdir 't';
-push @INC, '../t/lib/';
-require Test::Simple::Catch;
-my($out, $err) = Test::Simple::Catch::caught();
-local $ENV{HARNESS_ACTIVE} = 0;
-
-Test::Simple->import(tests => 1);
-
-END {
- $TB->is_eq($out->read, <<OUT);
-1..1
-OUT
-
- $TB->is_eq($err->read, <<ERR);
-# No tests run!
-ERR
-
- $TB->is_eq($?, 255, "exit code");
-
- exit grep { !$_ } $TB->summary;
-}