[svn:dbi] r14999 - dbi/trunk/ex

[mjevans]

Author: mjevans
Date: Tue Nov 15 07:33:17 2011
New Revision: 14999

Modified:
   dbi/trunk/ex/unicode_test.pl

Log:
test for unicode table name having utf8 set was on wrong field


Modified: dbi/trunk/ex/unicode_test.pl
==============================================================================
--- dbi/trunk/ex/unicode_test.pl        (original)
+++ dbi/trunk/ex/unicode_test.pl        Tue Nov 15 07:33:17 2011
@@ -286,9 +286,10 @@
     $found = first {$_->[2] =~ /$table/i} @$r;
     ok($found, 'unicode table found by qualified table_info');
     SKIP: {
-       skip "table not found", 1 if !$found;
+          skip "table not found", 1 if !$found;
 
-       ok(Encode::is_utf8($found), 'utf8 flag set of unicode table name');
+          ok(Encode::is_utf8($found->[2]),
+             'utf8 flag set on unicode table name');
     }
 }