From c873b3f9fbe6c9ca5a1ff286614663fe05d19f94 Mon Sep 17 00:00:00 2001
From: Keita Jamadam Sugama <sugama@jamadam.com>
Date: Wed, 2 Apr 2025 10:46:18 +0900
Subject: [PATCH 1/2] use more cache driver for tests

---
 t/lib/cached/Recipe.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/t/lib/cached/Recipe.pm b/t/lib/cached/Recipe.pm
index cfde6cc5..daacda75 100644
--- a/t/lib/cached/Recipe.pm
+++ b/t/lib/cached/Recipe.pm
@@ -6,14 +6,17 @@ use base qw( Data::ObjectDriver::BaseObject );
 use DodTestUtil;
 
 use Data::ObjectDriver::Driver::DBI;
+use Data::ObjectDriver::Driver::Cache::RAM;
 
 __PACKAGE__->install_properties({
     columns => [ 'recipe_id', 'title' ],
     datasource => 'recipes',
     primary_key => 'recipe_id',
-    driver => Data::ObjectDriver::Driver::DBI->new(
-        dsn      => DodTestUtil::dsn('global'),
-        reuse_dbh => 1,
+    driver      => Data::ObjectDriver::Driver::Cache::RAM->new(
+        fallback => Data::ObjectDriver::Driver::DBI->new(
+            dsn      => DodTestUtil::dsn('global'),
+            reuse_dbh => 1,
+        ),
     ),
 });
 

From c43ef5b47427ec8a63142560edefedd1daab8d49 Mon Sep 17 00:00:00 2001
From: Keita Jamadam Sugama <sugama@jamadam.com>
Date: Thu, 3 Apr 2025 11:20:48 +0900
Subject: [PATCH 2/2] make sure cache is not changed before save

---
 lib/Data/ObjectDriver/Driver/Cache/RAM.pm |  4 ++--
 t/31-cached.t                             | 14 +++++++++++++-
 2 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/lib/Data/ObjectDriver/Driver/Cache/RAM.pm b/lib/Data/ObjectDriver/Driver/Cache/RAM.pm
index 0054d653..aa97e74f 100644
--- a/lib/Data/ObjectDriver/Driver/Cache/RAM.pm
+++ b/lib/Data/ObjectDriver/Driver/Cache/RAM.pm
@@ -30,7 +30,7 @@ sub add_to_cache {
     my $driver = shift;
 
     $driver->start_query('RAMCACHE_ADD ?', \@_);
-    my $ret = $Cache{$_[0]} = $_[1];
+    my $ret = $Cache{$_[0]} = $_[1]->clone;
     $driver->end_query(undef);
 
     return if !defined $ret;
@@ -41,7 +41,7 @@ sub update_cache {
     my $driver = shift;
 
     $driver->start_query('RAMCACHE_SET ?', \@_);
-    my $ret = $Cache{$_[0]} = $_[1];
+    my $ret = $Cache{$_[0]} = $_[1]->clone;
     $driver->end_query(undef);
 
     return if !defined $ret;
diff --git a/t/31-cached.t b/t/31-cached.t
index d334987f..817ef543 100644
--- a/t/31-cached.t
+++ b/t/31-cached.t
@@ -14,7 +14,7 @@ BEGIN {
         plan skip_all => 'Tests require Cache::Memory';
     }
 }
-plan tests => 105;
+plan tests => 106;
 
 setup_dbs({
     global   => [ qw( recipes ingredients ) ],
@@ -185,6 +185,18 @@ ok(! Ingredient->lookup(1), "really deleted");
 is($recipe->remove, 1, 'Recipe removed successfully');
 is($recipe2->remove, 1, 'Recipe removed successfully');
 
+# make sure cache is not changed before save
+{
+    my $r = Recipe->new;
+    $r->title('to replace');
+    $r->insert;
+    my $id = $r->recipe_id;
+    my $r1 = Recipe->lookup($id);
+    $r1->title('replaced');
+    my $r2 = Recipe->lookup($id);
+    is $r2->title, 'to replace', 'not replaced yet';
+}
+
 require './t/txn-common.pl';
 
 END {