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