[svn:parrot] r34904 - trunk/languages/perl6

[masak]

Author: masak
Date: Sat Jan  3 15:24:38 2009
New Revision: 34904

Modified:
   trunk/languages/perl6/Test.pm

Log:
[rakudo] in Tests.pm, made the smartmatch check for List, not Array


Modified: trunk/languages/perl6/Test.pm
==============================================================================
--- trunk/languages/perl6/Test.pm       (original)
+++ trunk/languages/perl6/Test.pm       Sat Jan  3 15:24:38 2009
@@ -157,7 +157,7 @@
 
 sub _is_deeply( $this, $that) {
 
-    if $this ~~ Array && $that ~~ Array {
+    if $this ~~ List && $that ~~ List {
         return if +$this.values != +$that.values;
         for $this Z $that -> $a, $b {
             return if ! _is_deeply( $a, $b );