X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-File-KDBX;a=blobdiff_plain;f=t%2Fkeys.t;h=65658e5a7391af4fb10ff2ca199ac22e5c2aa036;hp=62d2a1a35ab5be2f196427113345ff142831133d;hb=aeec1adc3f3a80967d0cd9ca2f712491e4ee9b9c;hpb=cfadf8415f8ffe74c0d1f8d890dc1c155cfecd4f

diff --git a/t/keys.t b/t/keys.t
index 62d2a1a..65658e5 100644
--- a/t/keys.t
+++ b/t/keys.t
@@ -89,7 +89,8 @@ subtest 'IO handle key files' => sub {
     is $key->type, 'hashed', 'file type is detected as hashed';
 
     my ($fh_save, $filepath) = tempfile('keyfile-XXXXXX', TMPDIR => 1, UNLINK => 1, SUFFIX => '.key');
-    ok $key->save(fh => $fh_save, type => KEY_FILE_TYPE_XML), 'Save key file using IO handle';
+    is exception { $key->save(fh => $fh_save, type => KEY_FILE_TYPE_XML) }, undef,
+        'Save key file using IO handle';
     close($fh_save);
 
     my $key2 = File::KDBX::Key::File->new($filepath);