Add ARM files

[dh-make-perl] / dev / arm / libclass-accessor-perl / libclass-accessor-perl-0.31 / t / aliases.t

diff --git a/dev/arm/libclass-accessor-perl/libclass-accessor-perl-0.31/t/aliases.t b/dev/arm/libclass-accessor-perl/libclass-accessor-perl-0.31/t/aliases.t
new file mode 100644 (file)
index 0000000..8c45471
--- /dev/null
+++ b/dev/arm/libclass-accessor-perl/libclass-accessor-perl-0.31/t/aliases.t
@@ -0,0 +1,39 @@
+#!perl
+use strict;
+use Test::More tests => 36;
+
+for my $class (qw(Class::Accessor Class::Accessor::Fast Class::Accessor::Faster)) {
+    require_ok($class);
+    my $silly = "Silly::$class";
+    {
+        no strict 'refs';
+        @{"${silly}::ISA"} = ($class);
+        *{"${silly}::accessor_name_for"} = sub { "read_$_[1]" };
+        *{"${silly}::mutator_name_for"} = sub { "write_$_[1]" };
+        $silly->mk_accessors(qw( foo ));
+        $silly->mk_ro_accessors(qw(roro));
+        $silly->mk_wo_accessors(qw(wowo));
+    }
+
+    for my $f (qw/foo roro /) {
+        ok $silly->can("read_$f"), "'read_$f' method exists";
+    }
+
+    for my $f (qw/foo wowo/) {
+        ok $silly->can("write_$f"), "'write_$f' method exists";
+    }
+
+    for my $f (qw/foo roro wowo write_roro read_wowo/) {
+        ok !$silly->can($f), "no '$f' method";
+    }
+
+    my $test = $silly->new({
+            foo => "bar",
+            roro => "boat",
+            wowo => "huh",
+        });
+
+    is($test->read_foo, "bar", "initial foo");
+    $test->write_foo("stuff");
+    is($test->read_foo, "stuff", "new foo");
+}