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