--- 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: {