Add recursive transactions

[chaz/p5-File-KDBX] / t / kdb.t

diff --git a/t/kdb.t b/t/kdb.t
index ab4fea47818f838394d3a9fef6826b3280583add..6e1cda69f315ed030ea3b7f2ee6e9f82f8d58b92 100644 (file)
--- a/t/kdb.t
+++ b/t/kdb.t
@@ -103,7 +103,7 @@ sub test_custom_icons {
 for my $test (
     ['Custom icons' => $kdbx],
     ['Custom icons after dump & load roundtrip'
-        => File::KDBX->load_string($kdbx->dump_string('a', upgrade => 0, randomize_seeds => 0), 'a')],
+        => File::KDBX->load_string($kdbx->dump_string('a', allow_upgrade => 0, randomize_seeds => 0), 'a')],
 ) {
     my ($name, $kdbx) = @$test;
     subtest $name, \&test_custom_icons, $kdbx;