[svn:parrot] r33513 - in trunk/ext/SQLite3: . t

Author: tewk
Date: Fri Dec  5 08:18:43 2008
New Revision: 33513

Added:
   trunk/ext/SQLite3/t/
Modified:
   trunk/ext/SQLite3/Makefile.PL
   trunk/ext/SQLite3/Makefile.in
   trunk/ext/SQLite3/test.p6

Log:
[sqlite] make all and make test


Modified: trunk/ext/SQLite3/Makefile.PL
==============================================================================
--- trunk/ext/SQLite3/Makefile.PL	(original)
+++ trunk/ext/SQLite3/Makefile.PL	Fri Dec  5 08:18:43 2008
@@ -1,3 +1,4 @@
+use lib '../../lib';
 use Parrot::Configure;
 my $pc = Parrot::Configure->new();
 $pc->data->slurp();

Modified: trunk/ext/SQLite3/Makefile.in
==============================================================================
--- trunk/ext/SQLite3/Makefile.in	(original)
+++ trunk/ext/SQLite3/Makefile.in	Fri Dec  5 08:18:43 2008
@@ -64,6 +64,15 @@
 .c$(O) :
 	@$(CC) "" $(CFLAGS) -I$(@D) @cc_o_out@$@ -c $<
 
+
+all :
+	cd ../..; make perl6
+	cd ../../compilers/ncigen/; ../../parrot ../../languages/perl6/perl6.pbc gen_sqlite3.pl /usr/include/sqlite3.h > ../../ext/SQLite3/genSQLite3.pir
+
+test:
+	../../parrot ../../languages/perl6/perl6.pbc test.p6
+	
+
 $(SHARED_LIB) : $(C_FILES)
 	$(MKPATH) @blib_dir@
 	$(CC) $(CC_INC) $(LD_SHARE_FLAGS) $(LDFLAGS) @ld_out@$@ \
@@ -71,7 +80,6 @@
 		$(C_FILES) $(C_LIBS) $(ICU_SHARED)
 #CONDITIONED_LINE(win32):	if exist $@.manifest mt.exe -nologo -manifest $@.manifest -outputresource:$@;2
 
-all : $(SHARED_LIB)
 
 clean : 
 	$(RM_F) $(SHARED_LIB) @blib_dir@ $(O_FILES) Makefile

Modified: trunk/ext/SQLite3/test.p6
==============================================================================
--- trunk/ext/SQLite3/test.p6	(original)
+++ trunk/ext/SQLite3/test.p6	Fri Dec  5 08:18:43 2008
@@ -1,6 +1,10 @@
 # Andy the time-strapped test fairy says:
 # If this were Perl 5, I'd put in tests roughly like the following:
 use DBDI;
+use Test;
+
+plan 1;
+
 my $conn = DBDI::DriverManager.getConnection("dbdi:SQLite3:test.db", "", "");
 ### isa_ok($conn, 'DBDI::DriverManager');
 my $stm = $conn.createStatement();
@@ -19,7 +23,9 @@
 my $stm2 = $conn.createStatement();
 my $rs = $stm2.executeQuery("SELECT baz, bar FROM foo");
 while ($rs.next()) {
-    say $rs.getCol(1);
-    say $rs.getCol("baz");
+    if (($rs.getCol(1) eq "Thingy") && ($rs.getCol("baz") = 123)) {
+        ok(1, 'select equals insert');
+    }
 }
-### Check that we got back exactly one row.
+
+# vim: ft=perl6:

• [svn:parrot] r33513 - in trunk/ext/SQLite3: . t by tewk