Add t/029-new.t for testing the constructor

diff --git a/t/029-new.t b/t/029-new.t
new file mode 100644 (file)
index 0000000..9ad1721
--- /dev/null
+++ b/t/029-new.t
@@ -0,0 +1,30 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 4;
+use Test::Exception;
+
+do {
+    package Class;
+    use Mouse;
+
+    has 'x';
+
+    has y => (
+        is => 'ro',
+    );
+
+    has z => (
+        is => 'rw',
+    );
+};
+
+my $object = Class->new({x => 1, y => 2, z => 3});
+is($object->{x}, 1);
+is($object->y, 2);
+is($object->z, 3);
+
+throws_ok {
+    Class->new('non-hashref scalar');
+} qr/Single parameters to new\(\) must be a HASH ref/;
+