diff options
Diffstat (limited to 'test')
| -rwxr-xr-x | test/it_dbi.t | 4 |
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'); |