view release on metacpan or  search on metacpan

t/85utf8.t  view on Meta::CPAN

  my $new_row = $rs->create({ label => 'dbio_create', content => $new_str });

  ok utf8::is_utf8($new_row->content), 'DBIO CREATE: utf8 flag set on fresh row';
  is $new_row->content, $new_str,      'DBIO CREATE: content correct';

  $new_row->discard_changes;
  ok utf8::is_utf8($new_row->content), 'DBIO CREATE: utf8 flag after discard_changes';
  is $new_row->content, $new_str,      'DBIO CREATE: content correct after reload';
}

# --- Part 5: LIKE search with unicode pattern ---

{
  my $count = $rs->search({ content => { like => "%\x{1f600}%" } })->count;
  cmp_ok $count, '>=', 1, 'LIKE search with unicode pattern returns results';
}

done_testing;