Update of /cvsroot/monetdb/MonetDB4/src/monet/Tests
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv4702/src/monet/Tests
Added Files:
Tag: GDK-2
bat_nil.milS const.milS modADTvar.milS modrefcnt1.milS
printf.milS printf_dbl.milS printf_nil.milS setaggr_exist.milS
setaggr_min.milS
Removed Files:
Tag: GDK-2
bat_nil.milM const.milM modADTvar.milM modrefcnt1.milM
printf.milM printf_dbl.milM printf_nil.milM setaggr_exist.milM
setaggr_min.milM
Log Message:
propagated changes of Monday Sep 10 2007 - Tuesday Sep 18 2007
from the development trunk to the GDK-2 branch
--- printf_dbl.milM DELETED ---
--- NEW FILE: const.milS ---
PROC plus( int a, int b ) : int {RETURN a + b; }
PROC PLUS( bat[void,int] a, bat[void,int] b ): bat[void,int] {RETURN [plus](a,
b); }
var bb := new( void, int ).insert(nil, 10).insert(nil,20);
var aaa := new( void, bat ).insert(nil, bb).insert(nil,[plus](bb, const
30)).insert(nil,[plus](bb, const 6).seqbase([EMAIL PROTECTED]));
aaa.seqbase([EMAIL PROTECTED]);
bb.seqbase([EMAIL PROTECTED]);
aaa.print();
aaa.[print]();
bb.print();
var x := [PLUS](aaa, const bb );
var y := [PLUS](aaa,aaa.project(bb));
print(x);
[print](x);
print(y);
[print](y);
quit();
--- NEW FILE: bat_nil.milS ---
VAR res := bat(nil);
res.print();
res := 1;
res.print();
quit();
--- setaggr_min.milM DELETED ---
--- NEW FILE: setaggr_exist.milS ---
var b := new(oid, bit);
b.insert(oid(4), true);
b.insert(oid(4), true);
b.insert(oid(4), true);
b.insert(oid(5), true);
b.insert(oid(5), true);
b.insert(oid(5), false);
b.insert(oid(6), true);
b.insert(oid(7), false);
b.insert(oid(8), false);
b.insert(oid(8), false);
b.insert(oid(8), false);
b.insert(oid(9), true);
b.insert(oid(9), bit(nil));
b.insert(oid(10), false);
b.insert(oid(10), bit(nil));
b.insert(oid(11), false);
b.insert(oid(11), bit(nil));
b.insert(oid(11), true);
b.insert(oid(12), bit(nil));
b.print();
proc exist(BAT[bit,bit] b) : bit {
return b.exist(true);
}
var x := {exist}(b);
x.print();
b.insert(oid(1), true);
x := {exist}(b);
x.print();
var bs := b.sort();
var bss := b.sort_ht();
printf("#~BeginVariableOutput~#\n");
bs.print();
printf("#~EndVariableOutput~#\n");
bss.print();
x := {exist}(bs);
x.print();
var y := {exist}(bss);
y.print();
var bst := b.reverse().sort().reverse();
var bsst := b.reverse().sort_ht().reverse();
x := {exist}(bst);
printf("#~BeginVariableOutput~#\n");
x.print();
printf("#~EndVariableOutput~#\n");
x.sort_ht().print();
y := {exist}(bsst);
y.print();
y.sort_ht().print();
bs.accbuild("hash");
bss.accbuild("hash");
printf("#~BeginVariableOutput~#\n");
[EMAIL PROTECTED](oid(5)) {
print($t);
}
printf("#~EndVariableOutput~#\n");
[EMAIL PROTECTED](oid(5)) {
print($t);
}
x := {exist}(bs);
x.print();
y := {exist}(bss);
y.print();
printf("#~BeginVariableOutput~#\n");
[EMAIL PROTECTED](oid(5)) {
print($t);
}
printf("#~EndVariableOutput~#\n");
[EMAIL PROTECTED](oid(5)) {
print($t);
}
bs.reverse().accbuild("hash");
bss.reverse().accbuild("hash");
x := {exist}(bs);
x.print();
y := {exist}(bss);
y.print();
printf("#~BeginVariableOutput~#\n");
[EMAIL PROTECTED](oid(5)) {
print($t);
}
printf("#~EndVariableOutput~#\n");
[EMAIL PROTECTED](oid(5)) {
print($t);
}
bs.reverse()@hashloop(true) {
print($t);
}
bss.reverse()@hashloop(true) {
print($t);
}
quit();
--- NEW FILE: modADTvar.milS ---
module(url);VAR u1:=new(void,url);
u1.insert(nil,url("http://www.cwi.nl/";));
u1.rename("u1");
u1.print();
VAR u2:=new(void,url);
u2.rename("u2");
u2.insert(nil,url("http://www.cwi.nl/~monet/";));
u2.print();
--- NEW FILE: modrefcnt1.milS ---
module("lock");
module("lock");
VAR test := new(int,lock);
loaded();
test.print();
test.count().print();
drop("lock");
loaded();
test.print();
test.count().print();
drop("lock");
loaded();
test.print();
test.count().print();
quit();
--- printf.milM DELETED ---
--- NEW FILE: printf_nil.milS ---
printf("%5d\n", int(nil) );
printf("%d\n", int(nil) );
printf("%s\n", str(nil) );
printf("%lf\n",dbl(nil) );
printf("%+5.4f and %s\n", flt(nil), str(nil) );
quit();
--- printf_nil.milM DELETED ---
--- NEW FILE: printf.milS ---
printf("X%2.3sX\n", "A");
printf("X%2.3sX\n", "AB");
printf("X%2.3sX\n", "ABC");
printf("X%2.3sX\n", "ABCD");
printf("X%3.2sX\n", "A");
printf("X%3.2sX\n", "AB");
printf("X%3.2sX\n", "ABC");
printf("X%3.2sX\n", "ABCD");
printf("X%-2.3sX\n", "A");
printf("X%-2.3sX\n", "AB");
printf("X%-2.3sX\n", "ABC");
printf("X%-2.3sX\n", "ABCD");
printf("X%-3.2sX\n", "A");
printf("X%-3.2sX\n", "AB");
printf("X%-3.2sX\n", "ABC");
printf("X%-3.2sX\n", "ABCD");
quit();
--- modrefcnt1.milM DELETED ---
--- setaggr_exist.milM DELETED ---
--- modADTvar.milM DELETED ---
--- NEW FILE: setaggr_min.milS ---
var b:=new(void,int);
b.seqbase([EMAIL PROTECTED]);
b.append(1);
b.append(1);
b.append(1);
b.append(1);
b.append(1);
b.append(2);
b.append(2);
b.append(2);
b.append(2);
b.append(4);
{min}(b.reverse()).print();
b.append(3);
{min}(b.reverse()).print();
quit();
--- const.milM DELETED ---
--- bat_nil.milM DELETED ---
--- NEW FILE: printf_dbl.milS ---
t :=
1.23453489312489436999999999999999999888734999999999999999999343443433499999999999888334383248904389014398034980785870LL;
t.print();
printf( "%lf\n",t );
t :*= 1.0E150LL;
t.print();
printf( "# That's what we would expect (output fixed by hand)\n" );
printf( "%lf\n",t );
printf( "# That's what we actually get (on Linux)\n" );
printf( "%lf\n",t );
t := dbl(nil);
t.print();
printf( "%lf\n",t );
t :=
1.23453489312489436999999999999999999888734999999999999999999343443433499999999999888334383248904389014398034980785870LL;
t.print();
printf( "%lf\n",t );
u := 1.0E150LL;
u.print();
printf( "# That's what we would expect (output fixed by hand)\n" );
printf( "%lf\n",u );
printf( "# That's what we actually get (on Linux)\n" );
printf( "%lf\n",u );
t :*= u;
t.print();
printf( "# That's what we would expect (output fixed by hand)\n" );
printf( "%lf\n",t );
printf( "# That's what we actually get (on Linux)\n" );
printf( "%lf\n",t );
t := dbl(nil);
t.print();
printf( "%lf\n",t );
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
