old stuff in the test
Stevan Little [Wed, 12 Mar 2008 21:03:23 +0000 (21:03 +0000)]
t/046_rebless_instance.t

index 5ee4b7c..196039f 100644 (file)
@@ -43,7 +43,7 @@ is($foo->whoami, "child", 'reblessed->whoami gives child');
 is($foo->parent, "parent", 'reblessed->parent gives parent');
 is($foo->child, "child", 'reblessed->child gives child');
 
-throws_ok { LeftField->meta->rebless_instance($foo, "LeftField") }
+throws_ok { LeftField->meta->rebless_instance($foo) }
           qr/You may rebless only into a subclass of \(Child\), of which \(LeftField\) isn't\./;
 
 throws_ok { Class::MOP::Class->initialize("NonExistent")->rebless_instance($foo) }