diff options
Diffstat (limited to 'Data-MultiValued/t/ranges-setting.t')
-rw-r--r-- | Data-MultiValued/t/ranges-setting.t | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/Data-MultiValued/t/ranges-setting.t b/Data-MultiValued/t/ranges-setting.t index ff6a6b3..b8d2a57 100644 --- a/Data-MultiValued/t/ranges-setting.t +++ b/Data-MultiValued/t/ranges-setting.t @@ -57,6 +57,23 @@ sub test_it { dies_ok { $obj->get({}); } 'default get dies'; + + $obj->clear({from=>10,to=>20}); + + dies_ok { + $obj->get({at => 15}) + } 'getting 15 after clearing dies'; + + cmp_deeply($obj->get({at => 30}), + [4,5,6], + 'getting 30 after clearing'); + + $obj->clear(); + + dies_ok { + $obj->get({at => 30}) + } 'getting 30 after clearing all dies'; + } subtest 'ranges' => sub { |