From 120cfbbb0a4e7115670c90e35688d94b8597ab6e Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <dakkar@thenautilus.net>
Date: Wed, 9 Nov 2011 16:34:42 +0000
Subject: split! tags, ranges, both, now separate classes

---
 Data-MultiValued/t/simple-setting.t | 46 ++++++++++++++++++++++++++++---------
 1 file changed, 35 insertions(+), 11 deletions(-)

(limited to 'Data-MultiValued/t/simple-setting.t')

diff --git a/Data-MultiValued/t/simple-setting.t b/Data-MultiValued/t/simple-setting.t
index b478e7a..9d9a9e2 100644
--- a/Data-MultiValued/t/simple-setting.t
+++ b/Data-MultiValued/t/simple-setting.t
@@ -3,20 +3,44 @@ use strict;
 use warnings;
 use Test::Most 'die';
 use Data::Printer;
-use Data::MultiValued;
+use Data::MultiValued::Ranges;
+use Data::MultiValued::Tags;
+use Data::MultiValued::TagsAndRanges;
 
-my $obj = Data::MultiValued->new();
-ok($obj,'constructor works');
+sub test_it {
+    my ($obj) = @_;
 
-lives_ok {
-    $obj->set({
-        value => 1234,
-    });
-} 'setting';
+    lives_ok {
+        $obj->set({
+            value => 1234,
+        });
+    } 'setting';
 
-cmp_ok($obj->get({}),'==',1234,
-       'getting');
+    cmp_ok($obj->get({}),'==',1234,
+           'getting');
 
-lives_ok { $obj->clear } 'clearing the object';
+    lives_ok { $obj->clear } 'clearing the object';
+}
+
+subtest 'ranges' => sub {
+    my $obj = Data::MultiValued::Ranges->new();
+    ok($obj,'constructor works');
+
+    test_it($obj);
+};
+
+subtest 'tags' => sub {
+    my $obj = Data::MultiValued::Tags->new();
+    ok($obj,'constructor works');
+
+    test_it($obj);
+};
+
+subtest 'tags and ranges' => sub {
+    my $obj = Data::MultiValued::TagsAndRanges->new();
+    ok($obj,'constructor works');
+
+    test_it($obj);
+};
 
 done_testing();
-- 
cgit v1.2.3