+++ /dev/null
-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;
+++ /dev/null
-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;