Added tests for mk_group_ro_accessors

[p5sagit/Class-Accessor-Grouped.git] / t / lib / AccessorGroupsRO.pm

diff --git a/t/lib/AccessorGroupsRO.pm b/t/lib/AccessorGroupsRO.pm
new file mode 100644 (file)
index 0000000..f666458
--- /dev/null
+++ b/t/lib/AccessorGroupsRO.pm
@@ -0,0 +1,23 @@
+package AccessorGroupsRO;
+use strict;
+use warnings;
+use base 'Class::Accessor::Grouped';
+
+__PACKAGE__->mk_group_ro_accessors('single', 'singlefield');
+__PACKAGE__->mk_group_ro_accessors('multiple', qw/multiple1 multiple2/);
+__PACKAGE__->mk_group_ro_accessors('listref', [qw/lr1name lr1field/], [qw/lr2name lr2field/]);
+
+sub new {
+    return bless {}, shift;
+};
+
+foreach (qw/single multiple listref/) {
+    no strict 'refs';
+
+    *{"get_$_"} = \&Class::Accessor::Grouped::get_simple;
+};
+
+# make cleanup DESTROY happy
+sub get_warnings {};
+
+1;