test tweaks

diff --git a/Changes b/Changes
index 5b36c67..66fece4 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,13 @@
 Revision history for Perl extension Class-MOP.
 
+0.54
+    * t/
+      - fixed the filename length on several 
+        test files so we install on VMS better
+        (RT #32295)
+      - fixed incorrect use of catdir when it 
+        should be catfile (RT #32385)
+
 0.53 Thurs. Feb. 14, 1008
     ~~ several doc. fixes and updates ~~
         

diff --git a/MANIFEST b/MANIFEST
index 3c3eb9c..59b8deb 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -30,11 +30,12 @@ lib/Class/MOP/Module.pm
 lib/Class/MOP/Object.pm
 lib/Class/MOP/Package.pm
 lib/metaclass.pm
-MOP.xs
-ppport.h
 Makefile.PL
 MANIFEST
+MANIFEST.SKIP
 META.yml
+MOP.xs
+ppport.h
 README
 scripts/class_browser.pl
 t/000_load.t
@@ -58,14 +59,16 @@ t/020_attribute.t
 t/021_attribute_errors_and_edge_cases.t
 t/022_attribute_duplication.t
 t/023_attribute_get_read_write.t
+t/024_attribute_initializer.t
 t/030_method.t
 t/031_method_modifiers.t
 t/040_metaclass.t
 t/041_metaclass_incompatability.t
-t/042_metaclass_incompatibility_dynamic.t
-t/043_instance_metaclass_incompatibility.t
-t/044_instance_metaclass_incompatibility_dynamic.t
+t/042_metaclass_incompatibility_dyn.t
+t/043_instance_metaclass_incompat.t
+t/044_instance_metaclass_incompat_dyn.t
 t/045_metaclass_loads_classes.t
+t/046_rebless_instance.t
 t/050_scala_style_mixin_composition.t
 t/060_instance.t
 t/061_instance_inline.t
@@ -75,6 +78,7 @@ t/072_immutable_w_constructors.t
 t/073_make_mutable.t
 t/080_meta_package.t
 t/081_meta_package_extension.t
+t/082_get_code_info.t
 t/100_BinaryTree_test.t
 t/101_InstanceCountingClass_test.t
 t/102_InsideOutClass_test.t

diff --git a/MANIFEST.SKIP b/MANIFEST.SKIP
index da5b66e..d5c63f3 100644 (file)
--- a/MANIFEST.SKIP
+++ b/MANIFEST.SKIP
@@ -4,7 +4,6 @@
 ^blib
 ~$
 \.bak$
-^MANIFEST\.SKIP$
 CVS
 \.svn
 \.DS_Store
@@ -17,4 +16,5 @@ bench
 ^blibdirs$
 \.old$
 ^#.*#$
-^\.#
\ No newline at end of file
+^\.#
+^TODO$
\ No newline at end of file

diff --git a/README b/README
index cc7f15a..4eea3e1 100644 (file)
--- a/README
+++ b/README
@@ -1,4 +1,4 @@
-Class::MOP version 0.53
+Class::MOP version 0.54
 ===========================
 
 See the individual module documentation for more information

diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm
index f5db6bd..619fca7 100644 (file)
--- a/lib/Class/MOP.pm
+++ b/lib/Class/MOP.pm
@@ -14,7 +14,7 @@ use Class::MOP::Method;
 use Class::MOP::Immutable;
 
 BEGIN {
-    our $VERSION   = '0.53';
+    our $VERSION   = '0.54';
     our $AUTHORITY = 'cpan:STEVAN';    
     
     use XSLoader;

diff --git a/t/042_metaclass_incompatibility_dynamic.t b/t/042_metaclass_incompatibility_dyn.t
similarity index 100%
rename from t/042_metaclass_incompatibility_dynamic.t
rename to t/042_metaclass_incompatibility_dyn.t

diff --git a/t/043_instance_metaclass_incompatibility.t b/t/043_instance_metaclass_incompat.t
similarity index 100%
rename from t/043_instance_metaclass_incompatibility.t
rename to t/043_instance_metaclass_incompat.t

diff --git a/t/044_instance_metaclass_incompatibility_dynamic.t b/t/044_instance_metaclass_incompat_dyn.t
similarity index 100%
rename from t/044_instance_metaclass_incompatibility_dynamic.t
rename to t/044_instance_metaclass_incompat_dyn.t

diff --git a/t/046-rebless.t b/t/046_rebless_instance.t
similarity index 100%
rename from t/046-rebless.t
rename to t/046_rebless_instance.t

diff --git a/t/101_InstanceCountingClass_test.t b/t/101_InstanceCountingClass_test.t
index 0cc7b7a..0d422b2 100644 (file)
--- a/t/101_InstanceCountingClass_test.t
+++ b/t/101_InstanceCountingClass_test.t
@@ -8,7 +8,7 @@ use File::Spec;
 
 BEGIN { 
     use_ok('Class::MOP');    
-    require_ok(File::Spec->catdir('examples', 'InstanceCountingClass.pod'));
+    require_ok(File::Spec->catfile('examples', 'InstanceCountingClass.pod'));
 }
 
 =pod

diff --git a/t/102_InsideOutClass_test.t b/t/102_InsideOutClass_test.t
index 615203d..a29f00c 100644 (file)
--- a/t/102_InsideOutClass_test.t
+++ b/t/102_InsideOutClass_test.t
@@ -9,7 +9,7 @@ use Scalar::Util 'reftype';
 
 BEGIN { 
     use_ok('Class::MOP');    
-    require_ok(File::Spec->catdir('examples', 'InsideOutClass.pod'));
+    require_ok(File::Spec->catfile('examples', 'InsideOutClass.pod'));
 }
 
 {

diff --git a/t/103_Perl6Attribute_test.t b/t/103_Perl6Attribute_test.t
index d9e77bf..3b14e26 100644 (file)
--- a/t/103_Perl6Attribute_test.t
+++ b/t/103_Perl6Attribute_test.t
@@ -8,7 +8,7 @@ use File::Spec;
 
 BEGIN { 
     use_ok('Class::MOP');    
-    require_ok(File::Spec->catdir('examples', 'Perl6Attribute.pod'));
+    require_ok(File::Spec->catfile('examples', 'Perl6Attribute.pod'));
 }
 
 {

diff --git a/t/104_AttributesWithHistory_test.t b/t/104_AttributesWithHistory_test.t
index 5b74faa..741e388 100644 (file)
--- a/t/104_AttributesWithHistory_test.t
+++ b/t/104_AttributesWithHistory_test.t
@@ -8,7 +8,7 @@ use File::Spec;
 
 BEGIN { 
     use_ok('Class::MOP');    
-    require_ok(File::Spec->catdir('examples', 'AttributesWithHistory.pod'));
+    require_ok(File::Spec->catfile('examples', 'AttributesWithHistory.pod'));
 }
 
 {

diff --git a/t/105_ClassEncapsulatedAttributes_test.t b/t/105_ClassEncapsulatedAttributes_test.t
index 57b9760..0f1047d 100644 (file)
--- a/t/105_ClassEncapsulatedAttributes_test.t
+++ b/t/105_ClassEncapsulatedAttributes_test.t
@@ -8,7 +8,7 @@ use File::Spec;
 
 BEGIN { 
     use_ok('Class::MOP');    
-    require_ok(File::Spec->catdir('examples', 'ClassEncapsulatedAttributes.pod'));
+    require_ok(File::Spec->catfile('examples', 'ClassEncapsulatedAttributes.pod'));
 }
 
 {

diff --git a/t/106_LazyClass_test.t b/t/106_LazyClass_test.t
index f457f55..866cbe1 100644 (file)
--- a/t/106_LazyClass_test.t
+++ b/t/106_LazyClass_test.t
@@ -8,7 +8,7 @@ use File::Spec;
 
 BEGIN { 
     use_ok('Class::MOP');    
-    require_ok(File::Spec->catdir('examples', 'LazyClass.pod'));
+    require_ok(File::Spec->catfile('examples', 'LazyClass.pod'));
 }
 
 {

diff --git a/t/107_C3MethodDispatchOrder_test.t b/t/107_C3MethodDispatchOrder_test.t
index 2911e18..c00f037 100644 (file)
--- a/t/107_C3MethodDispatchOrder_test.t
+++ b/t/107_C3MethodDispatchOrder_test.t
@@ -12,7 +12,7 @@ BEGIN {
     plan tests => 5;    
 
     use_ok('Class::MOP');    
-    require_ok(File::Spec->catdir('examples', 'C3MethodDispatchOrder.pod'));
+    require_ok(File::Spec->catfile('examples', 'C3MethodDispatchOrder.pod'));
 }
 
 {

diff --git a/t/108_ArrayBasedStorage_test.t b/t/108_ArrayBasedStorage_test.t
index 43e079f..efedf25 100644 (file)
--- a/t/108_ArrayBasedStorage_test.t
+++ b/t/108_ArrayBasedStorage_test.t
@@ -9,7 +9,7 @@ use Scalar::Util 'reftype';
 
 BEGIN {
     use_ok('Class::MOP');
-    require_ok(File::Spec->catdir('examples', 'ArrayBasedStorage.pod'));
+    require_ok(File::Spec->catfile('examples', 'ArrayBasedStorage.pod'));
 }
 
 {