5 use Test::More tests => 13;
12 return bless {@_}, $class;
21 my $obj = new_ok("Foo");
29 $obj = new_ok("Foo", [this => 42]);
30 is_deeply $obj, { this => 42 };
33 $obj = new_ok("Foo", [], "Foo");
38 # And what if we give it nothing?
42 is $@, sprintf "new_ok() must be given at least a class at %s line %d.\n", $0, __LINE__ - 2;