From: Daisuke Murase <typester@cpan.org>
Date: Fri, 3 Mar 2006 04:12:33 +0000 (+0000)
Subject:  * added a test for UTF8Columns
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e59c17fe744031457d375cb464250950881f4c56;p=dbsrgits%2FDBIx-Class-Historic.git

 * added a test for UTF8Columns
---

diff --git a/t/basicrels/25utf8.t b/t/basicrels/25utf8.t
new file mode 100644
index 0000000..c5fe364
--- /dev/null
+++ b/t/basicrels/25utf8.t
@@ -0,0 +1,7 @@
+use Test::More;
+use lib qw(t/lib);
+use DBICTest;
+use DBICTest::BasicRels;
+
+require "t/run/25utf8.tl";
+run_tests(DBICTest->schema);
diff --git a/t/helperrels/25utf8.t b/t/helperrels/25utf8.t
new file mode 100644
index 0000000..ad3fe14
--- /dev/null
+++ b/t/helperrels/25utf8.t
@@ -0,0 +1,7 @@
+use Test::More;
+use lib qw(t/lib);
+use DBICTest;
+use DBICTest::HelperRels;
+
+require "t/run/25utf8.tl";
+run_tests(DBICTest->schema);
diff --git a/t/run/25utf8.tl b/t/run/25utf8.tl
new file mode 100644
index 0000000..278dde4
--- /dev/null
+++ b/t/run/25utf8.tl
@@ -0,0 +1,23 @@
+sub run_tests {
+    my $schema = shift;
+
+    eval 'use Encode ; 1'
+        or plan skip_all, 'Install Encode run this test';
+
+    plan tests => 2;
+
+    DBICTest::Schema::Artist->load_components('UTF8Columns');
+    DBICTest::Schema::Artist->utf8_columns('name');
+    Class::C3->reinitialize();
+
+    my $artist = $schema->resultset("Artist")->create( { name => 'uni' } );
+    ok( Encode::is_utf8( $artist->name ), 'got name with utf8 flag' );
+
+    my $utf8_char = 'uniuni';
+    Encode::_utf8_on($utf8_char);
+    $artist->name($utf8_char);
+    ok( !Encode::is_utf8( $artist->{_column_data}->{name} ),
+        'store utf8 less chars' );
+}
+
+1;