Skip to content
This repository
Browse code

Tests for resultsets

  • Loading branch information...
commit 665b8314a76c55957444ef23ac09c18889fbc043 1 parent a858cd6
Dave Cross authored January 30, 2014
8  t/Test/Lystyng/Schema.pm
@@ -16,4 +16,12 @@ sub check_connect : Tests {
16 16
   isa_ok($sch, 'Lystyng::Schema');
17 17
 }
18 18
 
  19
+sub check_rs : Tests {
  20
+  my $sch = shift->schema;
  21
+
  22
+  foreach (qw[User List ListItem]) {
  23
+    ok(my $rs = $sch->resultset($_), "Got resultset for $_");
  24
+  }
  25
+}
  26
+
19 27
 1;
3  t/Test/Role/WithSchema.pm
@@ -5,6 +5,7 @@ use warnings;
5 5
 use 5.010;
6 6
 
7 7
 use Moose::Role;
  8
+use Test::More;
8 9
 
9 10
 use Lystyng::Schema;
10 11
 
@@ -32,4 +33,4 @@ sub _build_schema {
32 33
   );
33 34
 }
34 35
 
35  
-1;
  36
+1;

0 notes on commit 665b831

Please sign in to comment.
Something went wrong with that request. Please try again.