This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Start a new test category: uni. Much of t/op/pat
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 13 Jan 2002 19:55:10 +0000 (19:55 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 13 Jan 2002 19:55:10 +0000 (19:55 +0000)
should probably be moved here, but holding on that
until Jeffrey finishes his big mktables rewrite.
Bits and pieces of op/split, op/pack, op/append,
op/join, could probably be moved to respective uni
tests, too.

p4raw-id: //depot/perl@14249

MANIFEST
t/TEST
t/harness
t/uni/fold.t [moved from t/op/unifold.t with 100% similarity]
t/uni/sprintf.t [moved from t/op/unisprintf.t with 100% similarity]

index 66a265b..450ea17 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -2333,8 +2333,6 @@ t/op/tiehandle.t          See if tie for handles works
 t/op/time.t                    See if time functions work
 t/op/tr.t                      See if tr works
 t/op/undef.t                   See if undef works
-t/op/unifold.t                 See if Unicode folding works
-t/op/unisprintf.t              See if Unicode sprintf works
 t/op/universal.t               See if UNIVERSAL class works
 t/op/unshift.t                 See if unshift works
 t/op/utf8decode.t              See if UTF-8 decoding works
@@ -2395,6 +2393,8 @@ t/run/switchx.t                 Test the -x switch
 t/TEST                         The regression tester
 t/test.pl                      Simple testing library
 t/TestInit.pm                  Preamble library for core tests
+t/uni/fold.t                   See if Unicode folding works
+t/uni/sprintf.t                        See if Unicode sprintf works
 taint.c                                Tainting code
 thrdvar.h                      Per-thread variables
 thread.h                       Threading header
diff --git a/t/TEST b/t/TEST
index 9f2081a..b788da9 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -72,7 +72,7 @@ sub _find_tests {
 }
 
 unless (@ARGV) {
-    foreach my $dir (qw(base comp cmd run io op)) {
+    foreach my $dir (qw(base comp cmd run io op uni)) {
         _find_tests($dir);
     }
     _find_tests("lib") unless $core;
index 36ee4ce..330cc43 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -50,6 +50,7 @@ if (@ARGV) {
         push @tests, <run/*.t>;
         push @tests, <io/*.t>;
         push @tests, <op/*.t>;
+        push @tests, <uni/*.t>;
         push @tests, <lib/*.t>;
        use File::Spec;
        my $updir = File::Spec->updir;
similarity index 100%
rename from t/op/unifold.t
rename to t/uni/fold.t
similarity index 100%
rename from t/op/unisprintf.t
rename to t/uni/sprintf.t