fix 11940: quickCSV chokes on newlines in data

This commit is contained in:
Doug Bell 2010-11-01 14:39:44 -05:00
parent f2ac0bc67c
commit 4864a75340
2 changed files with 16 additions and 3 deletions

12
t/SQL.t
View file

@ -17,7 +17,7 @@ use WebGUI::Session;
use Data::Dumper;
use Test::Deep;
use Test::More tests => 56; # increment this value for each test you create
use Test::More tests => 57; # increment this value for each test you create
my $session = WebGUI::Test->session;
@ -299,3 +299,13 @@ cmp_deeply(
'Check table structure',
);
#----------------------------------------------------------------------------
# REGRESSIONS
# 11940 : quickCSV chokes on newlines
$session->db->write(
'INSERT INTO testTable (myIndex,message,myKey) VALUES (?,?,?)',
[ 10, "a\ntest", 'B' ],
);
ok( $session->db->quickCSV( 'SELECT * FROM testTable' ), 'get some output even with newlines in data' );