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