1 files changed, 28 insertions, 0 deletions
diff --git a/Examples/test-suite/perl5/array_member_runme.pl b/Examples/test-suite/perl5/array_member_runme.pl
new file mode 100644
index 0000000..77d28fe
--- /dev/null
+++ b/Examples/test-suite/perl5/array_member_runme.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Test::More tests => 18;
+BEGIN { use_ok('array_member') }
+require_ok('array_member');
+
+my $f = array_member::Foo->new();
+$f->{data} = $array_member::global_data;
+
+for(my $i=0; $i<8; $i++) {
+	is( array_member::get_value($f->{data},$i),
+		array_member::get_value($array_member::global_data,$i),
+		"array assignment");
+}
+
+for(my $i=0; $i<8; $i++) {
+	array_member::set_value($f->{data},$i,-$i);
+}
+
+$array_member::global_data = $f->{data};
+
+for(my $i=0; $i<8; $i++) {
+	is(array_member::get_value($f->{data},$i),
+		array_member::get_value($array_member::global_data,$i),
+		"array assignment");
+}
+