rev 347 - trunk/pr
SVN User <[email protected]>
| Newsgroups | gmane.comp.lang.prothon.cvs |
|---|---|
| Message-ID | <[email protected]> |
Author: bcollins
Date: 2004-04-14 09:08:40 -0400 (Wed, 14 Apr 2004)
New Revision: 347
Modified:
trunk/pr/sqlite.pr
Log:
Set props
Modified: trunk/pr/sqlite.pr
===================================================================
--- trunk/pr/sqlite.pr 2004-04-14 13:05:33 UTC (rev 346)
+++ trunk/pr/sqlite.pr 2004-04-14 13:08:40 UTC (rev 347)
@@ -1,72 +1,72 @@
-#!/usr/bin/env prothon
-
-# sqlite.pr
-
-import SQLite
-
-conn = SQLite.connect('test.db')
-curs = conn.cursor()
-
-try: curs.execute!("drop table tbl1")
-except: print 3
-try: curs.execute!("drop table tbl2")
-except: pass
-
-curs.execute!("create table tbl1 (a INTEGER PRIMARY KEY, b INTEGER, c INTEGER)")
-curs.execute!("create table tbl2 (d INTEGER PRIMARY KEY, a INTEGER, e INTEGER)")
-
-curs.execute!("insert into tbl1 values (1, 10, 100)")
-
-curs.execute!("insert into tbl2 values (1, 1, 101)")
-curs.execute!("insert into tbl2 values (2, 1, 102)")
-curs.execute!("insert into tbl2 values (3, 1, 103)")
-curs.execute!("insert into tbl2 values (4, 1, 104)")
-curs.execute!("insert into tbl2 values (5, 1, 105)")
-curs.execute!("insert into tbl2 values (6, 1, 106)")
-curs.execute!("insert into tbl2 values (7, 1, 107)")
-curs.execute!("insert into tbl2 values (8, 1, 108)")
-curs.execute!("insert into tbl2 values (9, 1, 109)")
-
-curs.execute!("insert into tbl1 values (2, 20, 200)")
-
-curs.execute!("insert into tbl2 values (10, 2, 201)")
-curs.execute!("insert into tbl2 values (11, 2, 202)")
-curs.execute!("insert into tbl2 values (12, 2, 203)")
-curs.execute!("insert into tbl2 values (13, 2, 204)")
-curs.execute!("insert into tbl2 values (14, 2, 205)")
-curs.execute!("insert into tbl2 values (15, 2, 206)")
-curs.execute!("insert into tbl2 values (16, 2, 207)")
-curs.execute!("insert into tbl2 values (17, 2, 208)")
-curs.execute!("insert into tbl2 values (18, 2, 209)")
-
-curs1 = conn.cursor()
-curs2 = conn.cursor()
-
-curs1.execute!("select * from tbl1")
-
-if curs1.rowcount() != 2:
- print 'curs1.rowcount() error'
- Sys.exit(1)
-
-rows1 = curs1.fetchall()
-for row in rows1:
- curs2.execute!('select * from tbl2 where a='+row[0])
- if curs2.rowcount() != 9:
- print 'curs2.rowcount() error, rows1:', rows1, 'rowcount:',curs2.rowcount()
- Sys.exit(1)
- for i in 4:
- row2 = curs2.fetchone()
- if row2[2] != ''+(101+i) and row2[2] != ''+(201+i):
- print 'row2[2] error'
- Sys.exit(1)
- rows2 = curs2.fetchmany(3)
- if Len(rows2) != 3:
- print 'Len(rows2) error1, rows2:', rows2
- Sys.exit(1)
- rows2 = curs2.fetchmany(3)
- if Len(rows2) != 2:
- print 'Len(rows2) error2'
- Sys.exit(1)
-conn.close()
-
-print '\nall tests passed\n'
+#!/usr/bin/env prothon
+
+# sqlite.pr
+
+import SQLite
+
+conn = SQLite.connect('test.db')
+curs = conn.cursor()
+
+try: curs.execute!("drop table tbl1")
+except: print 3
+try: curs.execute!("drop table tbl2")
+except: pass
+
+curs.execute!("create table tbl1 (a INTEGER PRIMARY KEY, b INTEGER, c INTEGER)")
+curs.execute!("create table tbl2 (d INTEGER PRIMARY KEY, a INTEGER, e INTEGER)")
+
+curs.execute!("insert into tbl1 values (1, 10, 100)")
+
+curs.execute!("insert into tbl2 values (1, 1, 101)")
+curs.execute!("insert into tbl2 values (2, 1, 102)")
+curs.execute!("insert into tbl2 values (3, 1, 103)")
+curs.execute!("insert into tbl2 values (4, 1, 104)")
+curs.execute!("insert into tbl2 values (5, 1, 105)")
+curs.execute!("insert into tbl2 values (6, 1, 106)")
+curs.execute!("insert into tbl2 values (7, 1, 107)")
+curs.execute!("insert into tbl2 values (8, 1, 108)")
+curs.execute!("insert into tbl2 values (9, 1, 109)")
+
+curs.execute!("insert into tbl1 values (2, 20, 200)")
+
+curs.execute!("insert into tbl2 values (10, 2, 201)")
+curs.execute!("insert into tbl2 values (11, 2, 202)")
+curs.execute!("insert into tbl2 values (12, 2, 203)")
+curs.execute!("insert into tbl2 values (13, 2, 204)")
+curs.execute!("insert into tbl2 values (14, 2, 205)")
+curs.execute!("insert into tbl2 values (15, 2, 206)")
+curs.execute!("insert into tbl2 values (16, 2, 207)")
+curs.execute!("insert into tbl2 values (17, 2, 208)")
+curs.execute!("insert into tbl2 values (18, 2, 209)")
+
+curs1 = conn.cursor()
+curs2 = conn.cursor()
+
+curs1.execute!("select * from tbl1")
+
+if curs1.rowcount() != 2:
+ print 'curs1.rowcount() error'
+ Sys.exit(1)
+
+rows1 = curs1.fetchall()
+for row in rows1:
+ curs2.execute!('select * from tbl2 where a='+row[0])
+ if curs2.rowcount() != 9:
+ print 'curs2.rowcount() error, rows1:', rows1, 'rowcount:',curs2.rowcount()
+ Sys.exit(1)
+ for i in 4:
+ row2 = curs2.fetchone()
+ if row2[2] != ''+(101+i) and row2[2] != ''+(201+i):
+ print 'row2[2] error'
+ Sys.exit(1)
+ rows2 = curs2.fetchmany(3)
+ if Len(rows2) != 3:
+ print 'Len(rows2) error1, rows2:', rows2
+ Sys.exit(1)
+ rows2 = curs2.fetchmany(3)
+ if Len(rows2) != 2:
+ print 'Len(rows2) error2'
+ Sys.exit(1)
+conn.close()
+
+print '\nall tests passed\n'
Property changes on: trunk/pr/sqlite.pr
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:eol-style
+ native