Changeset: 61f3aed5a5ab for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=61f3aed5a5ab
Modified Files:
sql/test/BugTracker-2011/Tests/All
sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.SQL.bat
sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.SQL.sh
sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.pl
sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.stable.err
sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.stable.out
Branch: Aug2011
Log Message:
Added test for bug 2897.
Unfortunately (?) the test doesn't fail because we test within a
single system.
diffs (truncated from 330 to 300 lines):
diff --git a/sql/test/BugTracker-2011/Tests/All
b/sql/test/BugTracker-2011/Tests/All
--- a/sql/test/BugTracker-2011/Tests/All
+++ b/sql/test/BugTracker-2011/Tests/All
@@ -44,3 +44,4 @@ div_by_zero.Bug-2887
cast-crash.Bug-2678
div_zero_problem.Bug-2893
non-stable-select-bug.Bug-2894
+HAVE_PERL?perl-short-read-bug.Bug-2897
diff --git
a/sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.SQL.bat
b/sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.SQL.bat
new file mode 100755
--- /dev/null
+++ b/sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.SQL.bat
@@ -0,0 +1,6 @@
+@echo off
+
+prompt # $t $g
+echo on
+
+perl "%TSTSRCDIR%\perl-short-read-bug.Bug-2897.pl" %MAPIPORT% %TSTDB% %HOST%
diff --git a/sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.SQL.sh
b/sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.SQL.sh
new file mode 100755
--- /dev/null
+++ b/sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.SQL.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+Mlog -x "perl $TSTSRCDIR/perl-short-read-bug.Bug-2897.pl $MAPIPORT $TSTDB
$HOST"
diff --git a/sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.pl
b/sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.pl
new file mode 100644
--- /dev/null
+++ b/sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.pl
@@ -0,0 +1,191 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+$|++;
+
+use DBI();
+
+my $dbh = DBI->connect(
+ "dbi:monetdb:host=$ARGV[2];port=$ARGV[0];database=$ARGV[1]", 'monetdb',
'monetdb'
+);
+
+my $query = qq{
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+UNION
+SELECT * FROM tables
+};
+
+my $sth = $dbh->prepare($query);
+$sth->execute;
+
+my $r = $sth->fetchall_arrayref();
+
+$dbh->disconnect();
diff --git
a/sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.stable.err
b/sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.stable.err
new file mode 100644
--- /dev/null
+++ b/sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.stable.err
@@ -0,0 +1,42 @@
+stderr of test 'perl-short-read-bug.Bug-2897` in directory
'test/BugTracker-2011` itself:
+
+
+# 16:13:38 >
+# 16:13:38 > "mserver5" "--debug=10" "--set" "gdk_nr_threads=0" "--set"
"gdk_dbfarm=/ufs/sjoerd/Monet-candidate/var/MonetDB" "--set" "mapi_open=true"
"--set" "mapi_port=34748" "--set" "monet_prompt=" "--trace" "--forcemito"
"--set" "mal_listing=2" "--dbname=mTests_test_BugTracker-2011" "--set"
"mal_listing=0"
+# 16:13:38 >
+
+# builtin opt gdk_dbname = demo
+# builtin opt gdk_dbfarm = /ufs/sjoerd/Monet-candidate/var/monetdb5/dbfarm
+# builtin opt gdk_debug = 0
+# builtin opt gdk_alloc_map = no
+# 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 gdk_dbfarm = /ufs/sjoerd/Monet-candidate/var/MonetDB
+# cmdline opt mapi_open = true
+# cmdline opt mapi_port = 34748
+# cmdline opt monet_prompt =
+# cmdline opt mal_listing = 2
+# cmdline opt gdk_dbname = mTests_test_BugTracker-2011
+# cmdline opt mal_listing = 0
+
+# 16:13:38 >
+# 16:13:38 > "./perl-short-read-bug.Bug-2897.SQL.sh"
"perl-short-read-bug.Bug-2897"
+# 16:13:38 >
+
+
+# 16:13:38 >
+# 16:13:38 > perl
/net/ottar/export/scratch1/sjoerd/src/MonetDB/candidate/sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.pl
34748 mTests_test_BugTracker-2011 ottar
+# 16:13:38 >
+
+
+# 16:13:45 >
+# 16:13:45 > "Done."
+# 16:13:45 >
+
diff --git
a/sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.stable.out
b/sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.stable.out
new file mode 100644
--- /dev/null
+++ b/sql/test/BugTracker-2011/Tests/perl-short-read-bug.Bug-2897.stable.out
@@ -0,0 +1,55 @@
+stdout of test 'perl-short-read-bug.Bug-2897` in directory
'test/BugTracker-2011` itself:
+
+
+# 16:13:38 >
+# 16:13:38 > "mserver5" "--debug=10" "--set" "gdk_nr_threads=0" "--set"
"gdk_dbfarm=/ufs/sjoerd/Monet-candidate/var/MonetDB" "--set" "mapi_open=true"
"--set" "mapi_port=34748" "--set" "monet_prompt=" "--trace" "--forcemito"
"--set" "mal_listing=2" "--dbname=mTests_test_BugTracker-2011" "--set"
"mal_listing=0"
+# 16:13:38 >
+
+# MonetDB 5 server v11.5.4
+# This is an unreleased version
+# Serving database 'mTests_test_BugTracker-2011', using 4 threads
+# Compiled for x86_64-unknown-linux-gnu/64bit with 64bit OIDs dynamically
linked
+# Found 7.749 GiB available main-memory.
+# Copyright (c) 1993-July 2008 CWI.
+# Copyright (c) August 2008-2011 MonetDB B.V., all rights reserved
+# Visit http://www.monetdb.org/ for further information
+# Listening for connection requests on mapi:monetdb://ottar.ins.cwi.nl:34748/
+# MonetDB/GIS module loaded
+# MonetDB/SQL module loaded
+
+Ready.
+# SQL catalog created, loading sql scripts once
+# SQL loading sql scripts
/net/ottar/export/scratch0/sjoerd/bin/candidate/.stowdir/MonetDB/lib64/monetdb5/createdb/10_math.sql
+# SQL loading sql scripts
/net/ottar/export/scratch0/sjoerd/bin/candidate/.stowdir/MonetDB/lib64/monetdb5/createdb/11_times.sql
+# SQL loading sql scripts
/net/ottar/export/scratch0/sjoerd/bin/candidate/.stowdir/MonetDB/lib64/monetdb5/createdb/12_url.sql
+# SQL loading sql scripts
/net/ottar/export/scratch0/sjoerd/bin/candidate/.stowdir/MonetDB/lib64/monetdb5/createdb/13_date.sql
_______________________________________________
Checkin-list mailing list
[email protected]
http://mail.monetdb.org/mailman/listinfo/checkin-list
