fixed test suite

diff --git a/t/usecase/methods.t b/t/usecase/methods.t
index e936a75..6f47a28 100644 (file)
--- a/t/usecase/methods.t
+++ b/t/usecase/methods.t
@@ -14,6 +14,7 @@ method add ($a, $b, $c) {
 use Test::More qw/no_plan/;
 use Data::Dumper;
 
-ok (Foobar->add(1,2,3)==6);
+my $r = Foobar->add(1,2,3);
+ok($r = 6);
 
 ok 1;

diff --git a/t/usecase/sql.t b/t/usecase/sql.t
index 6eed274..8bfdb0a 100644 (file)
--- a/t/usecase/sql.t
+++ b/t/usecase/sql.t
@@ -5,13 +5,11 @@ use lib 'examples/';
 use SQL;
 use Data::Dumper;
 
-ok 1;
-
-SQL::CONNECT("dbi:Pg:dbname=test;host=localhost;port=5432");
-
-my $r = SELECT * FROM TRACK;
-
-diag Dumper $r;
-#ok ($r);
-
-ok 1;
+ok (1, 'parsed ok');
+SKIP: {
+       skip "need to setup db", 2;
+       ok(SQL::CONNECT("dbi:Pg:dbname=test;host=localhost;port=5432"));
+       my $r = SELECT * FROM TRACK;
+       diag Dumper $r;
+       ok ($r);
+};