From: <mjd...@us...> - 2009-11-23 19:26:39
|
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. |