Data-MultiValued/t/simple-setting.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#!perl 
use strict;
use warnings;
use Test::Most 'die';
use Data::Printer;
use Data::MultiValued;
 
my $obj = Data::MultiValued->new();
ok($obj,'constructor works');
 
lives_ok {
    $obj->set({
        value => 1234,
    });
} 'setting';
 
cmp_ok($obj->get({}),'==',1234,
       'getting');
 
lives_ok { $obj->clear } 'clearing the object';
 
done_testing();