X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Antlers.git;a=blobdiff_plain;f=t%2Fone.t;fp=t%2Fone.t;h=5694a071b2359c770588c12a4cf790f5b8d943a6;hp=e308c4468d52cb0388c2455f358a671c40d86a85;hb=de39aa891a9cab952356a03e3ed39277178cb673;hpb=5bd097e77c36517b6e983326120c5ced2c48d86b

diff --git a/t/one.t b/t/one.t
index e308c44..5694a07 100644
--- a/t/one.t
+++ b/t/one.t
@@ -33,7 +33,7 @@ sub test_One {
   foo_called(2 => 'trigger called for setter');
 }
 
-my %orig_src = map +($_ => join '', Dump(One->can($_))), qw(new DESTROY one);
+my %orig_src = map +($_ => join '', Dump(One->can($_))), qw(new DESTROY foo);
 
 my $orig_foo_meta = Dump(One->meta);
 
@@ -48,15 +48,17 @@ my $compiled = $compiler->compiled_source;
 Class::Unload->unload('One');
 Class::MOP::remove_metaclass_by_name('One');
 
-eval $compiled; die "Shit. failed.\n\n${compiled}\n\nError: $@" if $@;
+eval "no warnings; $compiled";
+
+die "Shit. failed.\n\n${compiled}\n\nError: $@" if $@;
 
 use Data::Dumper::Concise;
 
-my %compiled_src = map +($_ => join '', Dump(One->can($_))), qw(new DESTROY one);
+my %compiled_src = map +($_ => join '', Dump(One->can($_))), qw(new DESTROY foo);
 
-#foreach my $method (qw(new DESTROY one)) {
-#  is($compiled_src{$method}, $orig_src{$method}, "${method} restored ok");
-#}
+foreach my $method (qw(new DESTROY foo)) {
+  is($compiled_src{$method}, $orig_src{$method}, "${method} restored ok");
+}
 
 test_One;