From 071abbab23968c05fb52dde0215194e33b16204b Mon Sep 17 00:00:00 2001 From: Kenichi Ishigaki Date: Wed, 4 Sep 2013 12:10:18 +0900 Subject: [PATCH] these are not TODO any more --- t/27_metadata.t | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/t/27_metadata.t b/t/27_metadata.t index 1d1517b..13833c1 100644 --- a/t/27_metadata.t +++ b/t/27_metadata.t @@ -49,12 +49,9 @@ my $types = $sth->{TYPE}; my $names = $sth->{NAME}; # diag "Types: @$types\nNames: @$names"; is scalar @$types, scalar @$names, '$sth->{TYPE} array is same length as $sth->{NAME} array'; -# FIXME: This is wrong! $sth->{TYPE} should return an array of integers see: rt #46873 -TODO: { - local $TODO = '$sth->{TYPE} should return an array of integers.'; - isnt $types->[0], 'VARCHAR(2)', '$sth->{TYPE}[0] doesn\'t return a string'; - isnt $types->[1], 'CHAR(1)', '$sth->{TYPE}[1] doesn\'t return a string'; - like $types->[0], qr/^-?\d+$/, '$sth->{TYPE}[0] returns an integer'; - like $types->[1], qr/^-?\d+$/, '$sth->{TYPE}[1] returns an integer'; -} +# $sth->{TYPE} should return an array of integers see: rt #46873 +isnt $types->[0], 'VARCHAR(2)', '$sth->{TYPE}[0] doesn\'t return a string'; +isnt $types->[1], 'CHAR(1)', '$sth->{TYPE}[1] doesn\'t return a string'; +like $types->[0], qr/^-?\d+$/, '$sth->{TYPE}[0] returns an integer'; +like $types->[1], qr/^-?\d+$/, '$sth->{TYPE}[1] returns an integer';