[libmoox-late-perl] 04/11: test some different class type names

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to tag 0.012
in repository libmoox-late-perl.

commit 89c2b19fc37ee3414d96ce0e4446fa7052326470
Author: Toby Inkster <mail at tobyinkster.co.uk>
Date:   Mon May 13 16:19:48 2013 +0100

    test some different class type names
---
 t/05haveimissedanytypes.t | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/t/05haveimissedanytypes.t b/t/05haveimissedanytypes.t
index f42430c..1166f6f 100644
--- a/t/05haveimissedanytypes.t
+++ b/t/05haveimissedanytypes.t
@@ -33,6 +33,12 @@ my @types_to_check = qw(
 	Object
 );
 
+my @class_types_to_check = qw(
+	Local::Test1
+	Local::Test::Two
+	LocalTest3
+);
+
 my $count = 0;
 sub constraint_for
 {
@@ -57,7 +63,7 @@ for my $type (@types_to_check)
 	is("$got", "$type", "Type constraint returned for '$type' looks right.");
 }
 
-for my $type ("Local::Test1")
+for my $type (@class_types_to_check)
 {
 	my $got = constraint_for($type);	
 	isa_ok($got, "Type::Tiny::Class", "constraint_for('$type')");

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmoox-late-perl.git