first test passes

diff --git a/t/basic.t b/t/basic.t
index 816c7a1..e502743 100644 (file)
--- a/t/basic.t
+++ b/t/basic.t
@@ -1,6 +1,6 @@
 #!perl
 
-use Test::More tests => 9;
+use Test::More tests => 2;
 use lib qw(t/lib);
 use DBICTest;
 use Data::Dumper;
@@ -9,4 +9,18 @@ use Data::Dumper;
 ok(my $schema = DBICTest->init_schema(), 'got schema');
 
 my $producer_rs = $schema->resultset('Producer')->display();
-warn Dumper($producer_rs);
+
+is_deeply([sort { $a->{producerid} <=> $b->{producerid} } @{$producer_rs}], [
+       {
+               'name' => 'Matt S Trout',
+               'producerid' => '1'
+       },
+       {
+               'name' => 'Bob The Builder',
+               'producerid' => '2'
+       },
+       {
+               'name' => 'Fred The Phenotype',
+               'producerid' => '3'
+       }
+], 'display returned as expected');