Adjust MANIFEST, Makefiles, test harnesses, documentation, etc., aware of new
authorJames E Keenan <jkeenan@cpan.org>
Sun, 2 Dec 2012 13:25:42 +0000 (08:25 -0500)
committerJames E Keenan <jkeenan@cpan.org>
Sat, 8 Dec 2012 01:05:01 +0000 (20:05 -0500)
directory t/opbasic.

For RT #115838

MANIFEST
Makefile.SH
pod/perlhack.pod
pod/perlsource.pod
t/TEST
t/harness
t/run/dtrace.t
win32/Makefile

index 4d6473d..8060e36 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -5235,7 +5235,6 @@ t/op/alarm.t                      See if alarm works
 t/op/anonsub.t                 See if anonymous subroutines work
 t/op/append.t                  See if . works
 t/op/args.t                    See if operations on @_ work
-t/op/arith.t                   See if arithmetic works
 t/op/array_base.t              Tests for the remnant of $[
 t/op/array.t                   See if array operations work
 t/op/assignwarn.t              See if OP= operators warn correctly for undef targets
@@ -5243,6 +5242,12 @@ t/op/attrhand.t                  See if attribute handlers work
 t/op/attrs.t                   See if attributes on declarations work
 t/op/auto.t                    See if autoincrement et all work
 t/op/avhv.t                    See if pseudo-hashes work
+t/opbasic/arith.t                      See if arithmetic works
+t/opbasic/cmp.t                        See if the various string and numeric compare work
+t/opbasic/concat.t                     See if string concatenation works
+t/opbasic/magic_phase.t                See if ${^GLOBAL_PHASE} works
+t/opbasic/qq.t                 See if qq works
+t/opbasic/sprintf.t                    See if sprintf works
 t/op/bless.t                   See if bless works
 t/op/blocks.t                  See if BEGIN and friends work
 t/op/bop.t                     See if bitops work
@@ -5254,9 +5259,7 @@ t/op/chop.t                       See if chop works
 t/op/chr.t                     See if chr works
 t/op/closure.t                 See if closures work
 t/op/closure_test.pl           Extra file for closure.t
-t/op/cmp.t                     See if the various string and numeric compare work
 t/op/concat2.t                 Tests too complex for concat.t
-t/op/concat.t                  See if string concatenation works
 t/op/cond.t                    See if conditional expressions work
 t/op/context.t                 See if context propagation works
 t/op/coreamp.t                 Test &foo() calls for CORE subs
@@ -5327,7 +5330,6 @@ t/op/lock.t                       Tests for lock args & retval (no threads)
 t/op/loopctl.t                 See if next/last/redo work
 t/op/lop.t                     See if logical operators work
 t/op/magic-27839.t             Test for #27839, skipped for minitest
-t/op/magic_phase.t             See if ${^GLOBAL_PHASE} works
 t/op/magic.t                   See if magic variables work
 t/op/method.t                  See if method calls work
 t/op/mkdir.t                   See if mkdir works
@@ -5350,7 +5352,6 @@ t/op/print.t                      See if print works
 t/op/protowarn.t               See if the illegalproto warnings work
 t/op/push.t                    See if push and pop work
 t/op/pwent.t                   See if getpw*() functions work
-t/op/qq.t                      See if qq works
 t/op/qr.t                      See if qr works
 t/op/quotemeta.t               See if quotemeta works
 t/op/rand.t                    See if rand works
@@ -5378,7 +5379,6 @@ t/op/splice.t                     See if splice works
 t/op/split.t                   See if split works
 t/op/split_unicode.t           Test split /\s/ and Unicode
 t/op/sprintf2.t                        See if sprintf works
-t/op/sprintf.t                 See if sprintf works
 t/op/srand.t                   See if srand works
 t/op/sselect.t                 See if 4 argument select works
 t/op/stash.t                   See if %:: stashes work
index 8fa9f5f..220bf70 100755 (executable)
@@ -1454,7 +1454,7 @@ test.torture torturetest: test_prep
 
 minitest.utf16: minitest.prep
        - cd t && (rm -f $(PERL_EXE); $(LNS) ../$(MINIPERL_EXE) $(PERL_EXE)) \
-               && $(RUN_PERL) TEST -utf16 base/*.t comp/*.t cmd/*.t run/*.t io/*.t op/*.t uni/*.t </dev/tty
+               && $(RUN_PERL) TEST -utf16 base/*.t comp/*.t cmd/*.t run/*.t io/*.t opbasic/*.t op/*.t uni/*.t </dev/tty
 
 test.utf16 check.utf16: test_prep
        TEST_ARGS=-utf16 $(RUN_TESTS) choose
@@ -1523,7 +1523,7 @@ minitest.prep:
 # is crashing.
 minitest: $(MINIPERL_EXE) minitest.prep
        - cd t && (rm -f $(PERL_EXE); $(LNS) ../$(MINIPERL_EXE) $(PERL_EXE)) \
-               && $(RUN_PERL) TEST base/*.t comp/*.t cmd/*.t run/*.t io/*.t re/*.t op/*.t uni/*.t </dev/tty
+               && $(RUN_PERL) TEST base/*.t comp/*.t cmd/*.t run/*.t io/*.t re/*.t opbasic/*.t op/*.t uni/*.t </dev/tty
 
 # Test via harness
 
index 0385676..8332e6e 100644 (file)
@@ -708,20 +708,19 @@ Protocol|http://testanything.org>.
 
 =over 4
 
-=item * F<t/base> and F<t/comp>
+=item * F<t/base>, F<t/comp> and F<t/opbasic>
 
 Since we don't know if require works, or even subroutines, use ad hoc
-tests for these two. Step carefully to avoid using the feature being
-tested.
+tests for these three. Step carefully to avoid using the feature being
+tested.  Tests in F<t/opbasic>, for instance, have been placed there rather
+than in F<t/op> because they test functionality which F<t/test.pl> presumes
+has already been demonstrated to work.
 
 =item * F<t/cmd>, F<t/run>, F<t/io> and F<t/op>
 
 Now that basic require() and subroutines are tested, you can use the
 F<t/test.pl> library.
 
-Note, however, that some test scripts still avoid F<t/test.pl> if they test
-features that F<t/test.pl> relies on heavily. 
-
 You can also use certain libraries like Config conditionally, but be
 sure to skip the test gracefully if it's not there.
 
index 16252eb..81e3e94 100644 (file)
@@ -116,6 +116,13 @@ Tests for perl's method resolution order implementations (see L<mro>).
 Tests for perl's built in functions that don't fit into any of the
 other directories.
 
+=item * F<t/opbasic/>
+
+Tests for perl's built in functions which, like those in F<t/op/>, do not fit
+into any of the other directories, but which, in addition, cannot use
+F<t/test.pl>,as that program depends on functionality which the
+test file itself is testing.
+
 =item * F<t/re/>
 
 Tests for regex related functions or behaviour. (These used to live in
diff --git a/t/TEST b/t/TEST
index 0ea518d..00d8159 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -430,7 +430,7 @@ unless (@ARGV) {
     # then comp, to validate that require works
     # then run, to validate that -M works
     # then we know we can -MTestInit for everything else, making life simpler
-    foreach my $dir (qw(base comp run cmd io re op uni mro)) {
+    foreach my $dir (qw(base comp run cmd io re opbasic op uni mro)) {
        _find_tests($dir);
     }
     unless ($::core) {
index 1a1efdb..4f7070f 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -131,7 +131,7 @@ if (@ARGV) {
     unless (@tests) {
        my @seq = <base/*.t>;
 
-       my @next = qw(comp run cmd io re op uni mro lib porting);
+       my @next = qw(comp run cmd io re opbasic op uni mro lib porting);
        push @next, 'japh' if $torture;
        push @next, 'win32' if $^O eq 'MSWin32';
        push @next, 'benchmark' if $ENV{PERL_BENCHMARK};
index 2fa27a3..49bda66 100644 (file)
@@ -62,7 +62,7 @@ dtrace_like(
     'phase changes of a simple script',
 );
 
-# this code taken from t/op/magic_phase.t which tests all of the
+# this code taken from t/opbasic/magic_phase.t which tests all of the
 # transitions of ${^GLOBAL_PHASE}. instead of printing (which will
 # interact nondeterministically with the DTrace output), we increment
 # an unused variable for side effects
index 2c3d52d..b5728fe 100644 (file)
@@ -1307,7 +1307,7 @@ minitest : $(MINIPERL) $(GLOBEXE) $(CONFIGPM) utils $(UNIDATAFILES)
        $(XCOPY) $(GLOBEXE) ..\t\$(NULL)
        attrib -r ..\t\*.*
        cd ..\t && \
-       $(MINIPERL) -I..\lib harness base/*.t comp/*.t cmd/*.t io/*.t op/*.t pragma/*.t
+       $(MINIPERL) -I..\lib harness base/*.t comp/*.t cmd/*.t io/*.t opbasic/*.t op/*.t pragma/*.t
 
 test-prep : all utils ../pod/perltoc.pod
        $(XCOPY) $(PERLEXE) ..\t\$(NULL)