From: luke <luke@e47b97af-c36a-0410-b2ce-ad7e46669d08>
Date: Mon, 25 May 2009 23:40:07 +0000 (+0000)
Subject: first test passes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=770c880a0956f9cd46aee49be3b96b83b2317c3d;p=dbsrgits%2FDBIx-Class-ResultSet-WithMetaData.git

first test passes
---

diff --git a/t/basic.t b/t/basic.t
index 816c7a1..e502743 100644
--- 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');