The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More;
# Test member array feature (single-dimensional only).

use Inline CPP => 'DATA';

my $obj = new_ok( 'TestMemberArray' );
is( $obj->get_value_at(1), 101, "Member array accessor gets correct value." );

done_testing();


__DATA__
__CPP__

class TestMemberArray {
  public:
    TestMemberArray() { for( size_t i = 0; i < 5; i++ ) member_array[i] = i + 100; }
    ~TestMemberArray() {}
    int get_value_at( int i ) { return member_array[i]; }
  private:
    int member_array[5];
};