Add ARM files

[dh-make-perl] / dev / arm / libclass-accessor-chained-perl / libclass-accessor-chained-perl-0.01.1~debian / t / chained.t

diff --git a/dev/arm/libclass-accessor-chained-perl/libclass-accessor-chained-perl-0.01.1~debian/t/chained.t b/dev/arm/libclass-accessor-chained-perl/libclass-accessor-chained-perl-0.01.1~debian/t/chained.t
new file mode 100644 (file)
index 0000000..ea41abf
--- /dev/null
+++ b/dev/arm/libclass-accessor-chained-perl/libclass-accessor-chained-perl-0.01.1~debian/t/chained.t
@@ -0,0 +1,24 @@
+#!perl -w
+use strict;
+use Test::More tests => 6;
+
+package Foo;
+use base 'Class::Accessor::Chained';
+__PACKAGE__->mk_accessors(qw( foo bar baz ));
+package main;
+
+my $foo = Foo->new->foo(1)->baz(2)->bar(4);
+isa_ok( $foo, 'Foo' );
+is( $foo->bar, 4, "get gets the value" );
+is( $foo->foo( 5 ), $foo, "set gets the object" );
+
+# and again, but with Fast accessors
+package Bar;
+use base 'Class::Accessor::Chained::Fast';
+__PACKAGE__->mk_accessors(qw( foo bar baz ));
+package main;
+
+my $bar = Bar->new->foo(1)->baz(2)->bar(4);
+isa_ok( $bar, 'Bar' );
+is( $bar->bar, 4, "get gets the value" );
+is( $bar->foo( 5 ), $bar, "set gets the object" );