From: Lukas Mai <l.mai@web.de>
Date: Wed, 18 Jul 2012 19:11:54 +0000 (+0200)
Subject: remove duplicate test
X-Git-Tag: v0.08~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a04e810d4cb4bbc3dad505c7ca15f3f99b208dd0;p=p5sagit%2FFunction-Parameters.git

remove duplicate test
---

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 :(\[_;@]) {}';