Changeset 21157

Timestamp:

07/02/08 03:02:00 (3 months ago)

Author:

Auzon

Message:

[gsoc_spectest] Added tests for the little-mentioned reverse method on Hashes. (added 4 tests)

Files:

• t/spec/S29-list/reverse.t (modified) (3 diffs)

t/spec/S29-list/reverse.t

@@ -10 +10 @@
 =end pod
 
-plan 45;
+plan 49;
 
 # As a function :
@@ -32 +32 @@
 is( '䀻«'.reverse,   '«»€ä', "some unicode characters" );
 
-
-# L<S29/"List"/"=item reverse">
 
 =begin pod
@@ -151 +149 @@
     is(@b[0], (@b.reverse)[0], 'one item list is left alone');
 }
+
+=begin pod
+
+Tests for %hash.reverse, which inverts the keys and values of a hash.
+
+=end pod
+
+{
+    my %hash = <a b c d>;
+    is(%hash.reverse, {'b' => 'a', 'd' => 'c'}, 'simple hash reversal');
+    is(%hash, {'a' => 'b', 'c' => 'd'}, 'original hash is intact');
+}
+
+{
+    my %hash = reverse {0 => 'a', 1 => 'a'};
+
+    is(%hash.keys, <a>, 'hash reversal with collision (unspecced, keys)');
+    is(%hash.values.sort, <0 1>, 'hash reversal with collision (unspecced, values)');
+}