Update of /cvsroot/monetdb/MonetDB5/src/mal/Tests
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv32095
Modified Files:
tst040.mal tst040.stable.out
Log Message:
Better test the character constants.
Index: tst040.stable.out
===================================================================
RCS file: /cvsroot/monetdb/MonetDB5/src/mal/Tests/tst040.stable.out,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- tst040.stable.out 4 Jul 2007 06:03:55 -0000 1.14
+++ tst040.stable.out 19 Aug 2007 16:34:55 -0000 1.15
@@ -31,17 +31,29 @@
i := true; # 6 (i:bit)<-(_10:bit)
w := 32767; # 7 (w:int)<-(_12:int)
b := 125; # 8 (b:int)<-(_14:int)
-# test for coercion errors # 9 (_15:str)
- x0 := 1:int; # 10 (x0:int)<-(_17:int)
- io.print(x0); # 11 IOprint_val (_18:void)<-(x0:int)
- x1 := 3:int; # 12 (x1:int)<-(_20:int)
- io.print(x1); # 13 IOprint_val (_21:void)<-(x1:int)
- x2 := "3":str; # 14 (x2:str)<-(_23:str)
- io.print(x2); # 15 IOprint_val (_24:void)<-(x2:str)
- x3 := nil:bte; # 16 (x3:bte)<-(_26:bte)
- x4 := -1:bte; # 17 (x4:bte)<-(_28:bte)
- x5 := 0:wrd; # 18 (x5:wrd)<-(_30:wrd)
-end main; # 19
+ c1 := 'a'; # 9 (c1:chr)<-(_16:chr)
+ io.print(c1); # 10 IOprint_val (_17:void)<-(c1:chr)
+ c2 := '\012'; # 11 (c2:chr)<-(_19:chr)
+ io.print(c2); # 12 IOprint_val (_20:void)<-(c2:chr)
+ c3 := '\011'; # 13 (c3:chr)<-(_22:chr)
+ io.print(c3); # 14 IOprint_val (_23:void)<-(c3:chr)
+ c4 := '\012'; # 15 (c4:chr)<-(_19:chr)
+ io.print(c4); # 16 IOprint_val (_25:void)<-(c4:chr)
+# test for coercion errors # 17 (_26:str)
+ x0 := 1:int; # 18 (x0:int)<-(_28:int)
+ io.print(x0); # 19 IOprint_val (_29:void)<-(x0:int)
+ x1 := 3:int; # 20 (x1:int)<-(_31:int)
+ io.print(x1); # 21 IOprint_val (_32:void)<-(x1:int)
+ x2 := "3":str; # 22 (x2:str)<-(_34:str)
+ io.print(x2); # 23 IOprint_val (_35:void)<-(x2:str)
+ x3 := nil:bte; # 24 (x3:bte)<-(_37:bte)
+ x4 := -1:bte; # 25 (x4:bte)<-(_39:bte)
+ x5 := 0:wrd; # 26 (x5:wrd)<-(_41:wrd)
+end main; # 27
+[ 'a' ]
+[ '\012' ]
+[ '\011' ]
+[ '\012' ]
[ 1 ]
[ 3 ]
[ "3" ]
Index: tst040.mal
===================================================================
RCS file: /cvsroot/monetdb/MonetDB5/src/mal/Tests/tst040.mal,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- tst040.mal 30 Jun 2007 10:28:38 -0000 1.3
+++ tst040.mal 19 Aug 2007 16:34:49 -0000 1.4
@@ -8,6 +8,11 @@
w := 32767;
b := 125;
+c1 :='a'; io.print(c1);
+c2 :='\n'; io.print(c2);
+c3 :='\t'; io.print(c3);
+c4 :='\012'; io.print(c4);
+
# test for coercion errors
x0 := "1":int; io.print(x0);
x1 := 3.2:int; io.print(x1);
-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems? Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >> http://get.splunk.com/
_______________________________________________
Monetdb-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-checkins
