Changeset: 55620f1360dd for MonetDB
URL: https://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=55620f1360dd
Modified Files:
clients/examples/perl/sqlsample.pl
sql/test/mapi/Tests/perl_dbi.stable.out
Branch: Jun2020
Log Message:
Add a test with a backslash in it.
diffs (36 lines):
diff --git a/clients/examples/perl/sqlsample.pl
b/clients/examples/perl/sqlsample.pl
--- a/clients/examples/perl/sqlsample.pl
+++ b/clients/examples/perl/sqlsample.pl
@@ -48,6 +48,9 @@ my $dbh = DBI->connect( $dsn,
$sth->bind_param( 1, 7 , DBI::SQL_INTEGER() );
$sth->bind_param( 2,'seven' );
$sth->execute;
+ $sth->bind_param( 1, 42 , DBI::SQL_INTEGER() );
+ $sth->bind_param( 2, '\\n' );
+ $sth->execute;
}
{
my $sth = $dbh->prepare('select * from perl_table;');
diff --git a/sql/test/mapi/Tests/perl_dbi.stable.out
b/sql/test/mapi/Tests/perl_dbi.stable.out
--- a/sql/test/mapi/Tests/perl_dbi.stable.out
+++ b/sql/test/mapi/Tests/perl_dbi.stable.out
@@ -33,14 +33,17 @@ Start a simple Monet SQL interaction
data sources: dbi:monetdb:
field[0]: 2, last index: 0
field[0]: 3, last index: 0
-ERROR REPORTED: DBD::monetdb::st execute failed: 42000!syntax error,
unexpected IDENT, expecting SELECT or '(' or VALUES in: "( xyz" at
/home/niels/scratch/clients/usr/local/share/perl5/MonetDB/CLI/MapiPP.pm line
123.
+ERROR REPORTED: DBD::monetdb::st execute failed: 42000!syntax error,
unexpected IDENT, expecting SELECT or '(' or VALUES in: "( xyz" at
/usr/share/perl5/vendor_perl/MonetDB/CLI/MapiPP.pm line 123.
bun: 3, three
bun: 7, seven
-rows: 2, fields: 2
+bun: 42, \n
+rows: 3, fields: 2
field[0,0]: 3
field[0,1]: three
field[1,0]: 7
field[1,1]: seven
+field[2,0]: 42
+field[2,1]: \n
head[0]: 3
head[1]: 7
field[0]: 3
_______________________________________________
checkin-list mailing list
checkin-list@monetdb.org
https://www.monetdb.org/mailman/listinfo/checkin-list
