Initial commit

[dbsrgits/DBIx-Class-Schema-ResultSetAccessors.git] / t / basic.t

diff --git a/t/basic.t b/t/basic.t
new file mode 100644 (file)
index 0000000..f3c3f81
--- /dev/null
+++ b/t/basic.t
@@ -0,0 +1,35 @@
+# DBIx::Class::Schema::ResultSetAccessors - check module loading and create testing directory
+
+use strict;
+use warnings;
+
+use lib qw(t/lib);
+
+use Test::More;
+use Test::Exception;
+
+BEGIN {
+    use_ok('MyApp1::Schema');
+}
+
+ok my $schema1 = MyApp1::Schema->connect('dbi:SQLite:dbname=:memory:', '', ''),
+    'Got schema 1';
+
+isa_ok $schema1->resultset('Artist'), 'DBIx::Class::ResultSet';
+can_ok $schema1, qw/cds artists/;
+isa_ok $schema1->artists, 'DBIx::Class::ResultSet';    # generic resultset
+isa_ok $schema1->cds, 'MyApp1::Schema::ResultSet::CD'; # custom ResultSet
+
+# overwrite the accessor name with resultset_accessor_name()
+can_ok $schema1, qw/source_resultset/;
+isa_ok $schema1->source_resultset, 'DBIx::Class::ResultSet';
+
+throws_ok {
+    # must use required, because for some reason throws_ok cannot catch
+    # erros with "use"
+    require MyApp2::Schema;
+    MyApp2::Schema->connect('dbi:SQLite:dbname=:memory:', '', '');
+} qr/Schema method with the same name already exists/,
+    'Schema method with the same name already exists';
+
+done_testing;