#!/usr/bin/perl use strict; use warnings; use Test::More tests => 5; use FindBin qw/$Bin/; use TheSchwartz::Schema; my $dbname = "$Bin/../db.sqlite"; my $schema = TheSchwartz::Schema->connect( "dbi:SQLite:dbname=$dbname", '', '', { RaiseError => 1, PrintError => 0, } ); isa_ok($schema, 'TheSchwartz::Schema'); foreach ('Exitstatus', 'Job', 'Error', 'Funcmap') { isa_ok( $schema->resultset($_), 'DBIx::Class::ResultSet' ); } 1;