Unit tests for Champlain::Layer

diff --git a/bindings/perl/Champlain/MANIFEST b/bindings/perl/Champlain/MANIFEST
index a7b1cbe8ebc9976e3336b5dc9ebf90fff2e85eaa..8c5308425080306245cdcc80f665deca2b462392 100644 (file)
--- a/bindings/perl/Champlain/MANIFEST
+++ b/bindings/perl/Champlain/MANIFEST
@@ -16,5 +16,6 @@ xs/ChamplainTile.xs
 xs/ChamplainView.xs
 xs/Gtk2ChamplainViewEmbed.xs
 t/Champlain.t
+t/ChamplainLayer.t
 examples/launcher.pl
 examples/gtk2.pl

diff --git a/bindings/perl/Champlain/t/ChamplainLayer.t b/bindings/perl/Champlain/t/ChamplainLayer.t
new file mode 100644 (file)
index 0000000..d8cb352
--- /dev/null
+++ b/bindings/perl/Champlain/t/ChamplainLayer.t
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Clutter::TestHelper tests => 1;
+
+use Champlain;
+
+exit tests();
+
+sub tests {
+       my $layer = Champlain::Layer->new();
+       isa_ok($layer, 'Champlain::Layer');
+       return 0;
+}