--- t/test.t.orig	2007-04-29 14:21:59.437035109 -0700
+++ t/test.t	2007-04-29 14:35:42.247571286 -0700
@@ -7,6 +7,7 @@
 #########################
 
 use Test::More;
+use Test::Exception;
 use vars qw($have_file_temp $have_digest @methods @digest_methods);
 
 BEGIN {
@@ -122,6 +123,7 @@
 
   {
     package File::Modified::Signature::Complicated;
+    use base 'File::Modified::Signature';
 
     sub signature {
       my ($self) = @_;
@@ -130,9 +132,10 @@
     };
   };
 
-  my $d = File::Modified->new(method => 'Complex',files => ['does_not_need_to_exist']);
+  my $d = File::Modified->new(method => 'Complicated',files => ['does_not_need_to_exist']);
 
-  ok(! $d->changed);
+  lives_and {$d->changed, 0} "don't die on complex comparisons"; 
+  #lives_ok {$d->changed} "don't die on complex comparisons"; 
 };
 
 SKIP: {