[Treebase-guts] SF.net SVN: treebase:[298] trunk/treebase-core/src/main/perl

[<mjd...@us...>]

Revision: 298
          http://treebase.svn.sourceforge.net/treebase/?rev=298&view=rev
Author:   mjdominus
Date:     2009-11-23 19:25:47 +0000 (Mon, 23 Nov 2009)

Log Message:
-----------
add trivial test using DBD::CSV

Added Paths:
-----------
    trunk/treebase-core/src/main/perl/t/01_basic.t
    trunk/treebase-core/src/main/perl/test_db/
    trunk/treebase-core/src/main/perl/test_db/study

Added: trunk/treebase-core/src/main/perl/t/01_basic.t
===================================================================
--- trunk/treebase-core/src/main/perl/t/01_basic.t	                        (rev 0)
+++ trunk/treebase-core/src/main/perl/t/01_basic.t	2009-11-23 19:25:47 UTC (rev 298)
@@ -0,0 +1,18 @@
+
+use Test::More tests => 10;
+
+warn(`pwd`);
+use_ok('DBI');
+use_ok('DBD::CSV');
+
+ok(my $dbh = DBI->connect("DBI:CSV:f_dir=test_db;csv_eol=\n"));
+ok(my $sth = $dbh->prepare("select id from study where interesting > 0"));
+ok($sth->execute());
+
+%x = (4 => 1, 6 => 1, 8 => 1, 9 => 1);
+while (my ($id) = $sth->fetchrow) {
+  ok($x{$id}, "found item $id");
+  delete $x{$id};
+}
+is(keys(%x), 0, "all items found");
+

Added: trunk/treebase-core/src/main/perl/test_db/study
===================================================================
--- trunk/treebase-core/src/main/perl/test_db/study	                        (rev 0)
+++ trunk/treebase-core/src/main/perl/test_db/study	2009-11-23 19:25:47 UTC (rev 298)
@@ -0,0 +1,10 @@
+name,id,interesting
+cube,8,1
+even prime,2,0
+five,5,0
+seven,7,0
+sphenic,6,1
+square 3,9,1
+square,4,1
+three,3,0
+unit,1,0


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.