Changeset: d222c1c35635 for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=d222c1c35635
Added Files:
sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.SQL.bat
sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.SQL.sh
sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.pl
sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.stable.err
sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.stable.out
Modified Files:
sql/test/BugTracker-2013/Tests/All
Branch: Feb2013
Log Message:
Added test for bug 3235.
diffs (173 lines):
diff --git a/sql/test/BugTracker-2013/Tests/All
b/sql/test/BugTracker-2013/Tests/All
--- a/sql/test/BugTracker-2013/Tests/All
+++ b/sql/test/BugTracker-2013/Tests/All
@@ -2,3 +2,4 @@ HAVE_PHP?php-size-limit-bug
select-around-zero.Bug-3220
segfault_in_aggregation.Bug-3225
subtract-one-year.Bug-3215
+perl-undef-0.Bug-3235
diff --git a/sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.SQL.bat
b/sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.SQL.bat
new file mode 100644
--- /dev/null
+++ b/sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.SQL.bat
@@ -0,0 +1,6 @@
+@echo off
+
+prompt # $t $g
+echo on
+
+perl "%TSTSRCDIR%\perl-undef-0.Bug-3235.pl" %MAPIPORT% %TSTDB%
diff --git a/sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.SQL.sh
b/sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.SQL.sh
new file mode 100755
--- /dev/null
+++ b/sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.SQL.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+Mlog -x "perl $TSTSRCDIR/perl-undef-0.Bug-3235.pl $MAPIPORT $TSTDB"
diff --git a/sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.pl
b/sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.pl
new file mode 100644
--- /dev/null
+++ b/sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use Data::Dumper;
+
+$|++;
+
+use DBI();
+
+my $dbh = DBI->connect(
+ "dbi:monetdb:host=localhost;port=$ARGV[0];database=$ARGV[1]", 'monetdb',
'monetdb'
+);
+
+my $query = qq{
+ select 0;
+};
+
+my $sth = $dbh->prepare($query);
+$sth->execute;
+
+my $r = $sth->fetchall_arrayref();
+
+print Dumper($r);
+
+$dbh->disconnect();
diff --git a/sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.stable.err
b/sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.stable.err
new file mode 100644
--- /dev/null
+++ b/sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.stable.err
@@ -0,0 +1,40 @@
+stderr of test 'perl-undef-0.Bug-3235` in directory 'sql/test/BugTracker-2013`
itself:
+
+
+# 15:23:26 >
+# 15:23:26 > "mserver5" "--debug=10" "--set" "gdk_nr_threads=0" "--set"
"mapi_open=true" "--set" "mapi_port=31984" "--set"
"mapi_usock=/var/tmp/mtest-29493/.s.monetdb.31984" "--set" "monet_prompt="
"--forcemito" "--set" "mal_listing=2"
"--dbpath=/ufs/sjoerd/Monet-candidate/var/MonetDB/mTests_sql_test_BugTracker-2013"
"--set" "mal_listing=0"
+# 15:23:26 >
+
+# builtin opt gdk_dbpath =
/ufs/sjoerd/Monet-candidate/var/monetdb5/dbfarm/demo
+# builtin opt gdk_debug = 0
+# builtin opt gdk_vmtrim = yes
+# builtin opt monet_prompt = >
+# builtin opt monet_daemon = no
+# builtin opt mapi_port = 50000
+# builtin opt mapi_open = false
+# builtin opt mapi_autosense = false
+# builtin opt sql_optimizer = default_pipe
+# builtin opt sql_debug = 0
+# cmdline opt gdk_nr_threads = 0
+# cmdline opt mapi_open = true
+# cmdline opt mapi_port = 31984
+# cmdline opt mapi_usock = /var/tmp/mtest-29493/.s.monetdb.31984
+# cmdline opt monet_prompt =
+# cmdline opt mal_listing = 2
+# cmdline opt gdk_dbpath =
/ufs/sjoerd/Monet-candidate/var/MonetDB/mTests_sql_test_BugTracker-2013
+# cmdline opt mal_listing = 0
+
+# 15:23:26 >
+# 15:23:26 > "./perl-undef-0.Bug-3235.SQL.sh" "perl-undef-0.Bug-3235"
+# 15:23:26 >
+
+
+# 15:23:26 >
+# 15:23:26 > perl
/net/madrid/export/scratch2/sjoerd/src/MonetDB/candidate/sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.pl
31984 mTests_sql_test_BugTracker-2013
+# 15:23:26 >
+
+
+# 15:23:26 >
+# 15:23:26 > "Done."
+# 15:23:26 >
+
diff --git a/sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.stable.out
b/sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.stable.out
new file mode 100644
--- /dev/null
+++ b/sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.stable.out
@@ -0,0 +1,65 @@
+stdout of test 'perl-undef-0.Bug-3235` in directory 'sql/test/BugTracker-2013`
itself:
+
+
+# 15:23:26 >
+# 15:23:26 > "mserver5" "--debug=10" "--set" "gdk_nr_threads=0" "--set"
"mapi_open=true" "--set" "mapi_port=31984" "--set"
"mapi_usock=/var/tmp/mtest-29493/.s.monetdb.31984" "--set" "monet_prompt="
"--forcemito" "--set" "mal_listing=2"
"--dbpath=/ufs/sjoerd/Monet-candidate/var/MonetDB/mTests_sql_test_BugTracker-2013"
"--set" "mal_listing=0"
+# 15:23:26 >
+
+# MonetDB 5 server v11.15.2 (hg id: 6f180aa7ae7f)
+# This is an unreleased version
+# Serving database 'mTests_sql_test_BugTracker-2013', using 8 threads
+# Compiled for x86_64-unknown-linux-gnu/64bit with 64bit OIDs dynamically
linked
+# Found 15.629 GiB available main-memory.
+# Copyright (c) 1993-July 2008 CWI.
+# Copyright (c) August 2008-2013 MonetDB B.V., all rights reserved
+# Visit http://www.monetdb.org/ for further information
+# Listening for connection requests on mapi:monetdb://madrid.ins.cwi.nl:31984/
+# Listening for UNIX domain connection requests on
mapi:monetdb:///var/tmp/mtest-29493/.s.monetdb.31984
+# MonetDB/GIS module loaded
+# MonetDB/JAQL module loaded
+# MonetDB/SQL module loaded
+
+Ready.
+# SQL catalog created, loading sql scripts once
+# loading sql script: 09_like.sql
+# loading sql script: 10_math.sql
+# loading sql script: 11_times.sql
+# loading sql script: 12_url.sql
+# loading sql script: 13_date.sql
+# loading sql script: 14_inet.sql
+# loading sql script: 15_history.sql
+# loading sql script: 16_tracelog.sql
+# loading sql script: 17_compress.sql
+# loading sql script: 18_dictionary.sql
+# loading sql script: 19_cluster.sql
+# loading sql script: 20_vacuum.sql
+# loading sql script: 21_dependency_functions.sql
+# loading sql script: 22_clients.sql
+# loading sql script: 23_skyserver.sql
+# loading sql script: 24_zorder.sql
+# loading sql script: 25_debug.sql
+# loading sql script: 39_analytics.sql
+# loading sql script: 40_geom.sql
+# loading sql script: 75_storagemodel.sql
+# loading sql script: 80_udf.sql
+# loading sql script: 99_system.sql
+
+# 15:23:26 >
+# 15:23:26 > "./perl-undef-0.Bug-3235.SQL.sh" "perl-undef-0.Bug-3235"
+# 15:23:26 >
+
+
+# 15:23:26 >
+# 15:23:26 > perl
/net/madrid/export/scratch2/sjoerd/src/MonetDB/candidate/sql/test/BugTracker-2013/Tests/perl-undef-0.Bug-3235.pl
31984 mTests_sql_test_BugTracker-2013
+# 15:23:26 >
+
+$VAR1 = [
+ [
+ '0'
+ ]
+ ];
+
+# 15:23:26 >
+# 15:23:26 > "Done."
+# 15:23:26 >
+
_______________________________________________
checkin-list mailing list
[email protected]
http://mail.monetdb.org/mailman/listinfo/checkin-list
