Author: mjevans
Date: Mon Nov 14 11:09:19 2011
New Revision: 14998
Modified:
dbi/trunk/ex/unicode_test.pl
Log:
Ooops : missing from SKIP label
Modified: dbi/trunk/ex/unicode_test.pl
==============================================================================
--- dbi/trunk/ex/unicode_test.pl (original)
+++ dbi/trunk/ex/unicode_test.pl Mon Nov 14 11:09:19 2011
@@ -1,5 +1,5 @@
#
-# Copyright Martin J. Evans
+# Copyright Martin J. Evans
#
# Test unicode in a DBD - written for DBD::ODBC but should work for other
# DBDs if you change the column types at the start of this script.
@@ -64,7 +64,7 @@
my $h = do_connect();
-# output a load of data
+# output a load of data
my $driver = $h->{Driver}->{Name};
#note("Driver being used is $driver");
my $dbd="DBD::$h->{Driver}{Name}";
@@ -285,7 +285,7 @@
$r = $s->fetchall_arrayref;
$found = first {$_->[2] =~ /$table/i} @$r;
ok($found, 'unicode table found by qualified table_info');
- SKIP {
+ SKIP: {
skip "table not found", 1 if !$found;
ok(Encode::is_utf8($found), 'utf8 flag set of unicode table name');
@@ -319,8 +319,7 @@
drop_table($h, $table);
-
- my $created =
+ my $created =
create_table($h, 'unicode column name supported', $table,
[{name => $column, type => 'int'}]);
SKIP: {
