more LibreCat.pm tests

LibreCat · Apr 9, 2018 · 1430883 · 1430883
1 parent e66f55d
commit 1430883
Showing 1 changed file with 29 additions and 5 deletions.
diff --git a/t/LibreCat.t b/t/LibreCat.t
@@ -1,15 +1,32 @@
 use Catmandu::Sane;
 use Test::More;
+use Test::Exception;
 use Path::Tiny;
-use LibreCat -load => {layer_paths => [qw(t/layer)]};
+use LibreCat;
 
-{
-    my $loaded = LibreCat->loaded;
-    like $loaded, qr/0|1/;
-}
+# class methods and loading
+
+ok(LibreCat->loaded == 0);
+
+dies_ok { LibreCat->instance } qr/must be loaded first/i;
+
+LibreCat->load({layer_paths => [qw(t/layer)]});
+
+ok(LibreCat->loaded == 1);
 
 my $instance = LibreCat->instance;
 
+ok($instance == LibreCat->instance, "instance is a singleton");
+
+# config
+
+is(ref $instance->config, 'HASH');
+ok($instance->config == Catmandu->config, "LibreCat and Catmandu share a config hash");
+
+# models
+ok($instance->has_model('user') == 1);
+ok($instance->has_model('gremlin') == 0);
+
 isa_ok(
     $instance->model('user'),
     "LibreCat::Model::User",
@@ -120,6 +137,13 @@ isa_ok(
     ok(!$model->search_bag->get($id), '...purged (index)');
 }
 
+# queue
+
+isa_ok(
+    $instance->queue,
+    "LibreCat::JobQueue"
+);
+
 # hooks
 
 {