moved usecases into subdir

diff --git a/t/usecase/methods.t b/t/usecase/methods.t
new file mode 100644 (file)
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 (file)
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;