Change 33692 by [EMAIL PROTECTED] on 2008/04/15 15:04:29
Move the NoExporter test module under Test::Simple
(part of a plan to have modules self contained, and removing test
modules from t/lib)
Affected files ...
... //depot/perl/MANIFEST#1695 edit
... //depot/perl/lib/Test/Simple/t/lib/NoExporter.pm#1 branch
... //depot/perl/lib/Test/Simple/t/use_ok.t#5 edit
... //depot/perl/t/lib/NoExporter.pm#2 delete
Differences ...
==== //depot/perl/MANIFEST#1695 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST#1694~33691~ 2008-04-15 07:57:24.000000000 -0700
+++ perl/MANIFEST 2008-04-15 08:04:29.000000000 -0700
@@ -2753,7 +2753,8 @@
lib/Test/Simple/t/is_deeply_with_threads.t Test::More test
lib/Test/Simple/t/is_fh.t Test::Builder test, _is_fh()
lib/Test/Simple/t/lib/Dummy.pm Test::More test module
-lib/Test/Simple/t/lib/MyOverload.pm Test::More test module
+lib/Test/Simple/t/lib/MyOverload.pm Test::More test module
+lib/Test/Simple/t/lib/NoExporter.pm Test::Simple test module
lib/Test/Simple/t/maybe_regex.t Test::Builder->maybe_regex() tests
lib/Test/Simple/t/missing.t Test::Simple test, missing tests
lib/Test/Simple/t/More.t Test::More test, basic stuff
@@ -3619,7 +3620,6 @@
t/lib/Math/BigRat/Test.pm Math::BigRat test helper
t/lib/mypragma.pm An example user pragma
t/lib/mypragma.t Test the example user pragma
-t/lib/NoExporter.pm Part of Test-Simple
t/lib/NoFork.pm Module for testing Test::Harness
t/lib/no_load.t Test that some modules don't load others
t/lib/proxy_constant_subs.t Test that Proxy Constant Subs behave correctly
==== //depot/perl/lib/Test/Simple/t/lib/NoExporter.pm#1 (text) ====
Index: perl/lib/Test/Simple/t/lib/NoExporter.pm
--- /dev/null 2008-03-18 12:45:05.529577733 -0700
+++ perl/lib/Test/Simple/t/lib/NoExporter.pm 2008-04-15 08:04:29.000000000
-0700
@@ -0,0 +1,10 @@
+package NoExporter;
+
+$VERSION = 1.02;
+sub import {
+ shift;
+ die "NoExporter exports nothing. You asked for: @_" if @_;
+}
+
+1;
+
==== //depot/perl/lib/Test/Simple/t/use_ok.t#5 (text) ====
Index: perl/lib/Test/Simple/t/use_ok.t
--- perl/lib/Test/Simple/t/use_ok.t#4~23523~ 2004-11-20 14:17:18.000000000
-0800
+++ perl/lib/Test/Simple/t/use_ok.t 2008-04-15 08:04:29.000000000 -0700
@@ -3,7 +3,7 @@
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
- @INC = ('../lib', 'lib');
+ @INC = qw(../lib ../lib/Test/Simple/t/lib);
}
else {
unshift @INC, 't/lib';
End of Patch.
