develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35207 - trunk/languages/perl6/t/00-parrot

From:
infinoid
Date:
January 8, 2009 08:34
Subject:
[svn:parrot] r35207 - trunk/languages/perl6/t/00-parrot
Message ID:
20090108163420.30D2FCB9F9@x12.develooper.com
Author: infinoid
Date: Thu Jan  8 08:34:19 2009
New Revision: 35207

Modified:
   trunk/languages/perl6/t/00-parrot/07-op-string.t

Log:
[rakudo] Fix a couple of broken tests uncovered by r35190 (implementing the binary compare function).

Modified: trunk/languages/perl6/t/00-parrot/07-op-string.t
==============================================================================
--- trunk/languages/perl6/t/00-parrot/07-op-string.t	(original)
+++ trunk/languages/perl6/t/00-parrot/07-op-string.t	Thu Jan  8 08:34:19 2009
@@ -30,10 +30,10 @@
 
 $s = 'a';
 $s ~&= ' ';
-$s eq 'A' and say 'ok 14';
+$s eq ' ' and say 'ok 14';
 $s = 'abc';
 $s ~&= '    ';
-$s eq 'ABC' and say 'ok 15';
+$s eq '   ' and say 'ok 15';
 
 $s = 'ABC' ~| '   ';
 $s eq 'abc' and say 'ok 16';



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About