1use strict; 2use warnings; 3use Test::More; 4# Test member array feature (single-dimensional only). 5 6# this is needed to avoid false passes if was done first without 'info' 7use Inline CPP => config => force_build => 1, clean_after_build => 0; 8 9use Inline CPP => 'DATA'; 10 11my $obj = new_ok( 'TestMemberArray' ); 12is( $obj->get_value_at(1), 101, "Member array accessor gets correct value." ); 13 14done_testing(); 15 16 17__DATA__ 18__CPP__ 19 20class TestMemberArray { 21 public: 22 TestMemberArray() { for( size_t i = 0; i < 5; i++ ) member_array[i] = i + 100; } 23 ~TestMemberArray() {} 24 int get_value_at( int i ) { return member_array[i]; } 25 private: 26 int member_array[5]; 27}; 28 29