Fix it_dbi being used with it::map/iterator_to_array

1 files changed, 4 insertions, 0 deletions

diff --git a/test/it_dbi.t b/test/it_dbi.t
index b35c97d..2b5b0c5 100755
--- a/test/it_dbi.t
+++ b/test/it_dbi.t
@@ -444,6 +444,10 @@ $record->upsert(['ID' => 3, 'foo' => "c"]);
 is($record->delete_untouched([ 'ID >' => 2 ]), [], 'delete_untouched with query');
 is(allrecs(), '[{"ID":1,"foo":"A"},{"ID":2,"foo":"B"},{"ID":3,"foo":"c"}]', 'data after delete_untouched with query');
 
+# Test it::map with it_dbi (clone vs. reference issue)
+is(it::map('$v->foo', new it_dbi_test(['ID' => [1, 2, 3]])), [1 => 'A', 2 => 'B', 3 => 'c'], 'it_dbi with it::map');
+is(it::map('$v->foo', iterator_to_array(new it_dbi_test(['ID' => [1, 2, 3]]))), [1 => 'A', 2 => 'B', 3 => 'c'], 'it_dbi with iterator_to_array');
+
 $record->upsert(['ID' => 3, 'foo' => "C"]);
 is(it::sort($record->delete_untouched()), [1, 2], 'delete_untouched with query');
 is(allrecs(), '[{"ID":3,"foo":"C"}]', 'data after delete_untouched with query');