diff --git a/Examples/test-suite/perl5/li_carrays_runme.pl b/Examples/test-suite/perl5/li_carrays_runme.pl
index fccc68009..51c813403 100644
--- a/Examples/test-suite/perl5/li_carrays_runme.pl
+++ b/Examples/test-suite/perl5/li_carrays_runme.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 use strict;
 use warnings;
-use Test::More tests => 38;
+use Test::More tests => 34;
 BEGIN { use_ok('li_carrays') }
 require_ok('li_carrays');