Importing Variable-Magic-0.04.tar.gz

[perl/modules/Variable-Magic.git] / t / 12-data.t

diff --git a/t/12-data.t b/t/12-data.t
index b80fc8908cb4ef54a0d32ece9e08eed3f964d0c4..1e8b9eb0f340b5ca53f3037530f22fc91f255268 100644 (file)
--- a/t/12-data.t
+++ b/t/12-data.t
@@ -1,13 +1,16 @@
 #!perl -T
 
-use Test::More tests => 14;
+use strict;
+use warnings;
+
+use Test::More tests => 19;
 
 use Variable::Magic qw/wizard getdata cast dispell/;
 
 my $c = 1;
 
 my $wiz = eval {
- wizard data => sub { return { foo => 12, bar => 27 } },
+ wizard data => sub { return { foo => $_[1] || 12, bar => $_[3] || 27 } },
          get => sub { $c += $_[1]->{foo}; $_[1]->{foo} = $c },
          set => sub { $c += $_[1]->{bar}; $_[1]->{bar} = $c }
 };
@@ -17,15 +20,15 @@ ok(ref $wiz eq 'SCALAR', 'wizard is a scalar ref');
 
 my $a = 75;
 my $res = eval { cast $a, $wiz };
-ok(!$@, "cast error 1 ($@)");
-ok($res, 'cast error 2');
+ok(!$@, "cast croaks ($@)");
+ok($res, 'cast invalid');
 
 my $data = eval { getdata $a, $wiz };
-ok(!$@, "getdata error 1 ($@)");
-ok($res, 'getdata error 2');
+ok(!$@, "getdata croaks ($@)");
+ok($res, 'getdata invalid');
 ok($data && ref($data) eq 'HASH'
-         && exists $data->{foo} && $data->{foo} eq 12
-         && exists $data->{bar} && $data->{bar} eq 27,
+         && exists $data->{foo} && $data->{foo} == 12
+         && exists $data->{bar} && $data->{bar} == 27,
    'private data creation ok');
 
 my $b = $a;
@@ -37,5 +40,17 @@ ok($c == 40, 'set magic : pass data');
 ok($data->{bar} == 40, 'set magic : pass data');
 
 $res = eval { dispell $a, $wiz };
-ok(!$@, "dispell error 1 ($@)");
-ok($res, 'dispell error 2');
+ok(!$@, "dispell croaks ($@)");
+ok($res, 'dispell invalid');
+
+$res = eval { cast $a, $wiz, qw/z j t/ };
+ok(!$@, "cast with arguments croaks ($@)");
+ok($res, 'cast with arguments invalid');
+
+$data = eval { getdata $a, $wiz };
+ok(!$@, "getdata croaks ($@)");
+ok($res, 'getdata invalid');
+ok($data && ref($data) eq 'HASH'
+         && exists $data->{foo} && $data->{foo} eq 'z'
+         && exists $data->{bar} && $data->{bar} eq 't',
+   'private data creation with arguments ok');