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
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.