Changeset 2960

Timestamp:

05/11/05 11:38:52 (4 years ago)

Author:

juerd

svk:copy_cache_prev:

4536

Message:

more flattening tests

Files:

• READTHEM (modified) (2 diffs)
• t/pugsbugs/flattening.t (modified) (2 diffs)

READTHEM

@@ -27 +27 @@
   <http://conal.net/pan/haskell-primer.htm>  
 
+= Perl 6 books (always outdated :))
+
+Perl 6 and Parrot Essenti     - Allison Randal, Dan Sugalski, Leopold Tőtsch
+Perl 6 Now: The core ideas illustrated with Perl 5           - Scott Walters
+Perl 6 Bible (Perl6::Bible)                                             - VA
+
 = Non-Haskell books
 
@@ -38 +44 @@
 The Demolished Man                                           - Alfred Bester
 Flow My Tears the Policeman Said                           - Phillip K. Dick
-

t/pugsbugs/flattening.t

@@ -4 +4 @@
 use Test;
 
-plan 27;
+plan 34;
 
 {
@@ -57 +57 @@
     is(%hash<22>,    undef, 'nothing at key "22"');
 }
+
+{
+    my @a;
+    push @a, 1;
+    is(@a.elems, 1, 'Simple push works');
+    push @a, [];
+    is(@a.elems, 2, 'Arrayref literal not flattened');
+    push @a, {};
+    is(@a.elems, 3, 'Hashref literal not flattened');
+    my @foo;
+    push @a, \@foo;
+    is(@a.elems, 4, 'Arrayref not flattened');
+    my %foo;
+    push @a, \%foo;
+    is(@a.elems, 5, 'Hashref not flattened');
+    push @a, @foo;
+    is(@a.elems, 5, 'Array flattened');
+    push @a, %foo;
+    is(@a.elems, 5, 'Hash flattened');
+}
+