X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fprototype.t;h=69b1c604c02d305af4c09d2cd4596c85b47568eb;hb=8904fbfbc456c0e427fb72a3e2679caa2ab1dd46;hp=35b6925b4226e36c6a2b8b028f76f6549e79e722;hpb=b4f770c1d79568c6c9537579a4f917ab98eccfde;p=p5sagit%2FFunction-Parameters.git

diff --git a/t/prototype.t b/t/prototype.t
index 35b6925..69b1c60 100644
--- a/t/prototype.t
+++ b/t/prototype.t
@@ -1,5 +1,5 @@
 #!perl
-use Test::More tests => 27;
+use Test::More tests => 24;
 
 use warnings FATAL => 'all';
 use strict;
@@ -9,9 +9,6 @@ use Function::Parameters;
 is eval 'fun :([) {}', undef;
 like $@, qr/Illegal character in prototype/;
 
-is eval 'fun :([) {}', undef;
-like $@, qr/Illegal character in prototype/;
-
 is eval 'fun :(][[[[[[) {}', undef;
 like $@, qr/Illegal character in prototype/;
 
@@ -37,7 +34,6 @@ like $@, qr/Illegal character after '\\' in prototype/;
 	no warnings qw(illegalproto);
 
 	ok eval 'fun :([) {}';
-	ok eval 'fun :([) {}';
 	ok eval 'fun :(][[[[[[) {}';
 	ok eval 'fun :(\;) {}';
 	ok eval 'fun :(\[_;@]) {}';