X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F85utf8.t;h=ea630a247c2725699bf80de6bbacc506ebe2c35c;hb=5e0e5426b36b5df5f9d1394068cd9f7f1c81087a;hp=13b0398d6063d0cb68614eef1805f76e340c8474;hpb=5cfb131dba5f4ddfb4637804cdd254b172d50235;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/85utf8.t b/t/85utf8.t
index 13b0398..ea630a2 100644
--- a/t/85utf8.t
+++ b/t/85utf8.t
@@ -35,6 +35,20 @@ warnings_are (
   'no spurious warnings issued',
 );
 
+warnings_like (
+  sub {
+    package A::Test1Loud;
+    use base 'DBIx::Class::Core';
+    __PACKAGE__->load_components(qw(Core +A::Comp Ordered UTF8Columns));
+    __PACKAGE__->load_components(qw(Ordered +A::SubComp Row UTF8Columns Core));
+    sub store_column { shift->next::method (@_) };
+    1;
+  },
+  [qr/Use of DBIx::Class::UTF8Columns is strongly discouraged/],
+  'issued deprecation warning',
+);
+
+
 my $test1_mro;
 my $idx = 0;
 for (@{mro::get_linear_isa ('A::Test1')} ) {
@@ -96,7 +110,7 @@ $storage->debug ($orig_debug);
 
 # bind values are always alphabetically ordered by column, thus [1]
 # the single quotes are an artefact of the debug-system
-TODO: {
+{
   local $TODO = "This has been broken since rev 1191, Mar 2006";
   is ($bind[1], "'$bytestream_title'", 'INSERT: raw bytes sent to the database');
 }
@@ -160,7 +174,7 @@ $cd->update ({ title => $utf8_title });
 $cd->title('something_else');
 ok( $cd->is_column_changed('title'), 'column is dirty after setting to something completely different');
 
-TODO: {
+{
   local $TODO = 'There is currently no way to propagate aliases to inflate_result()';
   $cd = $schema->resultset('CD')->find ({ title => $utf8_title }, { select => 'title', as => 'name' });
   ok (utf8::is_utf8( $cd->get_column ('name') ), 'utf8 flag propagates via as');