+use FindBin qw/$Bin/;
+BEGIN {
+ my $env = "$FindBin::Bin/script/env";
+ if (-r $env) {
+ do $env or die $@;
+ }
+}
+
use strict;
use warnings;
-use FindBin qw/$Bin/;
use Test::More qw/no_plan/;
use Test::Exception;
use Test::utf8;
is($proj->name, qw/repo1/, 'repository name is set');
is($proj->description, qq/some test repository/, 'repository description loaded');
isa_ok($proj->last_change, 'DateTime', 'last_change');
-{
- my $packed = $proj->pack;
- use Data::Dumper;
- warn Dumper $packed;
-}
my %references = %{$proj->references};
ok(keys %references >= 2, '->references hash has elements');