Update of /cvsroot/monetdb/MonetDB4/tests/from_Twente/Bugs/Tests
In directory
sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv4702/tests/from_Twente/Bugs/Tests
Added Files:
Tag: GDK-2
Arjen_01.milS Arjen_01_noPropCheck.milS.src Arjen_02.milS
Arjen_02_noPropCheck.milS.src
Removed Files:
Tag: GDK-2
Arjen_01.milM Arjen_01_noPropCheck.milM.src Arjen_02.milM
Arjen_02_noPropCheck.milM.src
Log Message:
propagated changes of Monday Sep 10 2007 - Tuesday Sep 18 2007
from the development trunk to the GDK-2 branch
--- Arjen_02_noPropCheck.milM.src DELETED ---
--- Arjen_01_noPropCheck.milM.src DELETED ---
--- NEW FILE: Arjen_02_noPropCheck.milS.src ---
$RELSRCDIR/Arjen_02.milS
--- NEW FILE: Arjen_02.milS ---
#
# Another interesting bug in our newest (=august) Monet release:
#
# Arjen ([EMAIL PROTECTED])
#
setoid([EMAIL PROTECTED]);
var a := new( void, int );
a.insert( nil, 0 );
a.insert( nil, 1 );
a.insert( nil, 2 );
a.seqbase([EMAIL PROTECTED]).print();
var A := 0;
var aA := [=]( a, A ); aA.print();
var aA2 := uselect(aA, true).mark([EMAIL PROTECTED]); aA2.print();
print(a.info().access(BAT_WRITE).delete("batBuns.base").delete("batStamp").delete("lastUsed").delete("curStamp").delete("halign").delete("talign").sort().col_name("a"),aA.info().col_name("aA"),aA2.info().col_name("aA2"));
A := 1;
aA := [=]( a, A ); aA.print();
aA2 := uselect(aA, true).mark([EMAIL PROTECTED]); aA2.print();
print(a.info().access(BAT_WRITE).delete("batBuns.base").delete("batStamp").delete("lastUsed").delete("curStamp").delete("halign").delete("talign").sort().col_name("a"),aA.info().col_name("aA"),aA2.info().col_name("aA2"));
# BUT...
A := 2;
aA := [=]( a, A ); aA.print();
aA2 := uselect(aA, true).mark([EMAIL PROTECTED]); aA2.print();
print(a.info().access(BAT_WRITE).delete("batBuns.base").delete("batStamp").delete("lastUsed").delete("curStamp").delete("halign").delete("talign").sort().col_name("a"),aA.info().col_name("aA"),aA2.info().col_name("aA2"));
# interesting...
quit();
--- Arjen_02.milM DELETED ---
--- NEW FILE: Arjen_01_noPropCheck.milS.src ---
$RELSRCDIR/Arjen_01.milS
--- Arjen_01.milM DELETED ---
--- NEW FILE: Arjen_01.milS ---
#
# This program should select the valuesA that are larger than 20 and smaller
# than 30. But, _MMjoin_8 is constructed incorrectly, maybe due to
# property-propagation.
#
# Arjen ([EMAIL PROTECTED])
#
# Initialization:
setoid([EMAIL PROTECTED]);
var indexA := new(void,oid);
var valuesA := new(void,int);
indexA.insert(nil,[EMAIL PROTECTED]);
indexA.insert(nil,[EMAIL PROTECTED]);
indexA.insert(nil,[EMAIL PROTECTED]);
indexA.insert(nil,[EMAIL PROTECTED]);
valuesA.insert(nil,10);
valuesA.insert(nil,20);
valuesA.insert(nil,30);
valuesA.insert(nil,40);
indexA.seqbase([EMAIL PROTECTED]);
valuesA.seqbase([EMAIL PROTECTED]);
indexA.print();
valuesA.print();
# Test:
var _MMoper_2 := [>=](valuesA,20); _MMoper_2.print();
var _MMuselect_3 := uselect(_MMoper_2,true).mark([EMAIL PROTECTED]);
_MMuselect_3.print();
var _MMoper_4 := [<=](valuesA,30); _MMoper_4.print();
var _MMuselect_5 := uselect(_MMoper_4,true).mark([EMAIL PROTECTED]);
_MMuselect_5.print();
var _MMsemijoin_6 := semijoin(_MMuselect_3,_MMuselect_5);
_MMsemijoin_6.print();
var _MMcastnil_7 := _MMsemijoin_6.mark([EMAIL PROTECTED]);
_MMcastnil_7.print();
var _MMjoin_8 := join(indexA,_MMcastnil_7); _MMjoin_8.print();
var _MMreverse_9 := reverse(_MMcastnil_7); _MMreverse_9.print();
var _MMjoin_10 := join(_MMreverse_9,valuesA); _MMjoin_10.print();
# This gives <0,10>,<1,20> instead of <0,20>,<0,30>
# The cause is that _MMjoin_8 has 0,1 instead of 1,2:
print(indexA.info().access(BAT_WRITE).delete("batBuns.base").delete("batStamp").delete("lastUsed").delete("curStamp").delete("void_cnt").delete("void_tid").sort().col_name("indexA"),
valuesA.info().col_name("valuesA"),
_MMoper_2.info().col_name("MMoper_2"),
_MMuselect_3.info().col_name("MMuselect_3"),
_MMoper_4.info().col_name("MMoper_4"),
_MMuselect_5.info().col_name("MMuselect_5"),
_MMsemijoin_6.info().col_name("MMsemijoin_6"),
_MMcastnil_7.info().col_name("MMcastnil_7"),
_MMjoin_8.info().col_name("MMjoin_8"),
_MMreverse_9.info().col_name("MMreverse_9"),
_MMjoin_10.info().col_name("MMjoin_10"));
quit();
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Monetdb-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-checkins
