From: Robin Edwards <robin.ge@gmail.com>
Date: Wed, 10 Feb 2010 13:56:38 +0000 (+0000)
Subject: moved usecases into subdir
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=56d50b323b4044278bb2cf5cbf022c6bdad8528e;p=p5sagit%2FDevel-Declare-Keyword.git

moved usecases into subdir
---

diff --git a/t/usecase/methods.t b/t/usecase/methods.t
new file mode 100644
index 0000000..e936a75
--- /dev/null
+++ b/t/usecase/methods.t
@@ -0,0 +1,19 @@
+package Foobar;
+use strict;
+use warnings;
+use lib 'examples/';
+use Methods;
+
+method add ($a, $b, $c) { 
+	return $a+$b+$c;
+}
+
+
+1;
+
+use Test::More qw/no_plan/;
+use Data::Dumper;
+
+ok (Foobar->add(1,2,3)==6);
+
+ok 1;
diff --git a/t/usecase/sql.t b/t/usecase/sql.t
new file mode 100644
index 0000000..371b5b0
--- /dev/null
+++ b/t/usecase/sql.t
@@ -0,0 +1,17 @@
+use Test::More qw/no_plan/;
+use strict;
+use warnings;
+use lib 'examples/';
+use SQL;
+use Data::Dumper;
+
+ok 1;
+
+SQL::CONNECT("dbi:Pg:dbname=humus;host=localhost;port=5432");
+
+my $r = SELECT * FROM TRACK;
+
+diag Dumper $r;
+#ok ($r);
+
+ok 1;