Changeset 35510 for lang/perl/Util-Any/trunk/t/01-synopsis.t

Timestamp:

10/06/09 03:39:33 (4 years ago)

Author:

ktat

Message:

Checking in changes prior to tagging of version 0.17. Changelog diff is:

=== Changes
==================================================================
--- Changes (revision 39944)
+++ Changes (local)
@@ -1,5 +1,13 @@

Revision history for Util-Any

+0.17 2009/10/06 03:32
+ add -args option to give common arguments to all functions in same kind.
+ enable to work -all with kind setting. for example
+ -all, -list => {...}
+ fix typo: inherit Perl6::Exprot::Attr and ':ALL' keyword didn't work correctly.
+ fix typo: inherit Exproer and ':all' keyword didn't work correctly.
+ Thanks to Richard Jelinek, again.
+

0.16 2009/09/30 03:16

fix bug: using SubExportor?'s generator way and select functions with rename function,

didn't working correctly

@@ -58,7 +66,7 @@

0.07 2009/04/12 03:58

Fix bug when inheriting

- Thanks to Rechard Jelinek
+ Thanks to Richard Jelinek

0.06 2009/03/22 14:55

support Exporter and Exporter::Simple

Files:

• lang/perl/Util-Any/trunk/t/01-synopsis.t (modified) (1 diff)

lang/perl/Util-Any/trunk/t/01-synopsis.t

@@ -83 +83 @@
 ok(!defined &l_uniq);
 
+package EE;
+use Test::More;
+
+use Util::Any -list => {uniq => {-as => 'li_uniq'}, -prefix => "ll_"}, {smart_rename => 1};
+is_deeply([li_uniq qw/1 0 1 2 3 3/], [1,0,2,3]);
+is(ll_min(qw/10 9 8 4 5 7/), 4);
+ok(!defined &ll_uniq);
+