notes.t   [plain text]

use strict;
use Test;
plan tests => 5;

use Module::Build;
ok(1);

###################################
my $m = Module::Build->current;

# This was set in Build.PL
ok $m->notes('foo'), 'bar';

# Try setting & checking a new value
$m->notes(argh => 'new');
ok $m->notes('argh'), 'new';

# Change existing value
$m->notes(foo => 'foo');
ok $m->notes('foo'), 'foo';

# Change back so we can run this test again successfully
$m->notes(foo => 'bar');
ok $m->notes('foo'), 'bar';