#!/usr/bin/perl

use strict;
use warnings;
use Test::More tests => 4;
use Derived;

my Derived $obj = Derived->new();

is( $obj->base(),    'base',    'Base::_f eq base' );
is( $obj->derived(), 'derived', 'Derived::_f eq derived' );

diag( 'Setting Base::_f to base2' );
$obj->set_base( 'base2' );

is( $obj->base(),    'base2',   'Base::_f eq base2' );
is( $obj->derived(), 'derived', 'Derived::_f still eq derived' );

1;