1#!/usr/bin/perl
2use strict;
3use warnings;
4use Test::More tests => 18;
5BEGIN { use_ok('array_member') }
6require_ok('array_member');
7
8my $f = array_member::Foo->new();
9$f->{data} = $array_member::global_data;
10
11for(my $i=0; $i<8; $i++) {
12	is( array_member::get_value($f->{data},$i),
13		array_member::get_value($array_member::global_data,$i),
14		"array assignment");
15}
16
17for(my $i=0; $i<8; $i++) {
18	array_member::set_value($f->{data},$i,-$i);
19}
20
21$array_member::global_data = $f->{data};
22
23for(my $i=0; $i<8; $i++) {
24	is(array_member::get_value($f->{data},$i),
25		array_member::get_value($array_member::global_data,$i),
26		"array assignment");
27}
28
29