Fixes for the test suite on OS/2

Message-ID: <20061214023222.GA29084@powdermilk.math.berkeley.edu>

p4raw-id: //depot/perl@29578

1 files changed, 14 insertions, 8 deletions

diff --git a/os2/OS2/ExtAttr/t/os2_ea.t b/os2/OS2/ExtAttr/t/os2_ea.t
index a1da398d45..947e2f1916 100644
--- a/os2/OS2/ExtAttr/t/os2_ea.t
+++ b/os2/OS2/ExtAttr/t/os2_ea.t
@@ -37,9 +37,14 @@ system 'cmd', '/c', 'echo OK > t.out';
   print "ok 2\n";
   
   keys %a == 0 ? print "ok 3\n" : print "not ok 3\n";
-  $a{'++'} = '---';
+# Standard Extended Attributes (SEAs) have a dot (.) as a prefix.
+# This identifies the extended attribute as a SEA. The leading dot is reserved,
+# so applications should not define extended attributes that start with a dot.
+# Also, extended attributes 
+# that start with the characters $, @, &, or + are reserved for system use.
+  $a{'X--Y'} = '---';		# '++', -++', '!++', 'X++Y' fail on JFS
   print "ok 4\n";
-  $a{'AAA'} = 'xyz';
+  $a{'AAA'} = 'xyz';		# Name is going to be uppercased???
   print "ok 5\n";
 }
 
@@ -51,10 +56,10 @@ system 'cmd', '/c', 'echo OK > t.out';
   my $c = keys %a;
   $c == 2 ? print "ok 7\n" : print "not ok 7\n# c=$c\n";
   my @b = sort keys %a;
-  "@b" eq '++ AAA' ? print "ok 8\n" : print "not ok 8\n# keys=`@b'\n";
-  $a{'++'} eq '---' ? print "ok 9\n" : print "not ok 9\n";;
+  "@b" eq 'AAA X--Y' ? print "ok 8\n" : print "not ok 8\n# keys=`@b'\n";
+  $a{'X--Y'} eq '---' ? print "ok 9\n" : print "not ok 9\n";;
   $a{'AAA'} eq 'xyz' ? print "ok 10\n" : print "not ok 10\n# aaa->`$a{AAA}'\n";
-  $c = delete $a{'++'};
+  $c = delete $a{'X--Y'};
   $c eq '---' ? print "ok 11\n" : print "not ok 11\n# deleted->`$c'\n";;
 }
 
@@ -70,10 +75,11 @@ print "ok 12\n";
   "@b" eq 'AAA' ? print "ok 15\n" : print "not ok 15\n";
   $a{'AAA'} eq 'xyz' ? print "ok 16\n" : print "not ok 16\n";;
   ! exists $a{'+'} ? print "ok 17\n" : print "not ok 17\n";;
-  ! defined $a{'+'} ? print "ok 18\n" : print "not ok 18\n# ->`$a{'++'}'\n";;
-  ! exists $a{'++'} ? print "ok 19\n" : print "not ok 19\n";;
-  ! defined $a{'++'} ? print "ok 20\n" : print "not ok 20\n# ->`$a{'++'}'\n";;
+  ! defined $a{'+'} ? print "ok 18\n" : print "not ok 18\n# ->`$a{'X--Y'}'\n";;
+  ! exists $a{'X--Y'} ? print "ok 19\n" : print "not ok 19\n";;
+  ! defined $a{'X--Y'} ? print "ok 20\n" : print "not ok 20\n# ->`$a{'X--Y'}'\n";;
 }
 
 print "ok 21\n";
 unlink 't.out';
+