- ok(!$@, "wizard creation error ($@)");
- ok(defined $wiz, 'wizard is defined');
- ok(ref $wiz eq 'SCALAR', 'wizard is a scalar ref');
+ is($@, '', 'wizard creation error doesn\'t croak');
+ ok(defined $wiz, 'wizard is defined');
+ is(ref $wiz, 'SCALAR', 'wizard is a scalar ref');