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