Add ARM files

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

diff --git a/dev/arm/libclass-accessor-perl/libclass-accessor-perl-0.31/t/getset.t b/dev/arm/libclass-accessor-perl/libclass-accessor-perl-0.31/t/getset.t
new file mode 100644 (file)
index 0000000..11a6f42
--- /dev/null
+++ b/dev/arm/libclass-accessor-perl/libclass-accessor-perl-0.31/t/getset.t
@@ -0,0 +1,14 @@
+#!perl
+use strict;
+use Test::More tests => 3;
+
+require_ok("Class::Accessor");
+
+@Foo::ISA = qw(Class::Accessor);
+Foo->mk_accessors(qw( foo ));
+
+my $test = Foo->new({ foo => 49 });
+
+is $test->get('foo'), 49, "get initial foo";
+$test->set('foo', 42);
+is $test->get('foo'), 42, "get new foo";