Make getdata() return an empty list when no magic is present

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

diff --git a/t/13-data.t b/t/13-data.t
index a67b79cfa57e9aa6cd9103c0ad0e6df51caf3a48..41e0b3acfb41f769aea662e4cc50fd6c8ba737ba 100644 (file)
--- a/t/13-data.t
+++ b/t/13-data.t
@@ -78,9 +78,9 @@ $res = eval { cast $a, $wiz };
 is($@, '', 'cast non-data wizard doesn\'t croak');
 ok($res,   'cast non-data wizard returns true');
 
-$data = eval { getdata $a, $wiz };
-is($@, '',       'getdata from non-data wizard doesn\'t croak');
-is($data, undef, 'getdata from non-data wizard invalid returns undef');
+my @data = eval { getdata $a, $wiz };
+is($@,            '',  'getdata from non-data wizard doesn\'t croak');
+is_deeply(\@data, [ ], 'getdata from non-data wizard invalid returns undef');
 
 $wiz = wizard data => sub { ++$_[1] };
 my ($di, $ei) = (1, 10);