# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 1.t'

#########################

# change 'tests => 1' to 'tests => last_test_to_print';

use Test::More tests => 4;
use File::Signature;

#########################

SKIP: {
    open F, '>', './testfile' or skip 'unable to create testfile.'; 
    my $obj = File::Signature->new('./testfile'); 
    is (undef, $obj->error(), 'object created.'); 
    is (1, $obj->is_same(), 'is_same() was true.'); 
    print F 'foo'; 
    close F;
    isnt (1, $obj->is_same(), 'is_same() is false.'); 
    unlink './testfile';
}

{
    my $errobj = File::Signature->new('./nonexistent');
    eval { $errobj->changed() };
    like( $@, qr/bad method call/, 'threw exception' );
}