get test passing

tobyink · Aug 18, 2020 · 5875514 · 5875514
1 parent e70cd53
commit 5875514
Showing 1 changed file with 16 additions and 12 deletions.
diff --git a/t/08enum.t b/t/08enum.t
@@ -21,7 +21,7 @@ the same terms as the Perl 5 programming language system itself.
 
 use strict;
 use warnings;
-use Test::More tests => 21;
+use Test::More;
 
 use_ok('Type::Tiny::XS');
 
@@ -39,14 +39,18 @@ ok !$check->([])                            => 'no []';
 ok !$check->("")                            => 'no ""';
 ok !$check->(undef)                         => 'no undef';
 
-my $quoted_check = Type::Tiny::XS::get_coderef_for('Enum["a b", "c, d", "-\""]');
-
-ok  $quoted_check->("a b")                         => 'yes "a b"';
-ok  $quoted_check->("c, d")                        => 'yes "c, d"';
-ok  $quoted_check->("-\"")                         => 'yes "-\""';
-ok !$quoted_check->("quux")                        => 'no "quux"';
-ok !$quoted_check->("FOO")                         => 'no "FOO"';
-ok !$quoted_check->({})                            => 'no {}';
-ok !$quoted_check->([])                            => 'no []';
-ok !$quoted_check->("")                            => 'no ""';
-ok !$quoted_check->(undef)                         => 'no undef';
+if ( eval { require Type::Parser } ) {
+	my $quoted_check = Type::Tiny::XS::get_coderef_for('Enum["a b", "c, d", "-\""]');
+
+	ok  $quoted_check->("a b")                         => 'yes "a b"';
+	ok  $quoted_check->("c, d")                        => 'yes "c, d"';
+	ok  $quoted_check->("-\"")                         => 'yes "-\""';
+	ok !$quoted_check->("quux")                        => 'no "quux"';
+	ok !$quoted_check->("FOO")                         => 'no "FOO"';
+	ok !$quoted_check->({})                            => 'no {}';
+	ok !$quoted_check->([])                            => 'no []';
+	ok !$quoted_check->("")                            => 'no ""';
+	ok !$quoted_check->(undef)                         => 'no undef';
+}
+
+done_testing;