view release on metacpan or  search on metacpan

t/07_no_utf8.t  view on Meta::CPAN

# -*- mode:perl -*-
use strict;
use Test::More qw/ no_plan /;

use Test::Requires qw/ DBD::SQLite /;
use Encode;
use Data::Dumper;
BEGIN { use_ok 'DBIx::CouchLike' }

my $dbh = require 't/connect.pl';
ok $dbh;

my $couch = DBIx::CouchLike->new({ dbh => $dbh, table => "foo", utf8 => 0 });
ok $couch->create_table;
is $couch->utf8 => 0;

my $text = 'UTF-8文字列が入ります';
ok !utf8::is_utf8($text);

my $id  = $couch->post({ text => $text });
my $obj = $couch->get($id);

is $obj->{text} => $text;
ok !utf8::is_utf8($obj->{text});

$dbh->commit unless $ENV{DSN};
$dbh->disconnect;