This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add more tests to cproto.t
authorFather Chrysostomos <sprout@cpan.org>
Tue, 26 Jul 2011 16:57:09 +0000 (09:57 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 26 Jul 2011 16:57:09 +0000 (09:57 -0700)
It was missing tests for three keywords.

t/op/cproto.t

index da6380f..ee97433 100644 (file)
@@ -7,7 +7,7 @@ BEGIN {
 }
 
 BEGIN { require './test.pl'; }
-plan tests => 240;
+plan tests => 243;
 
 while (<DATA>) {
     chomp;
@@ -30,6 +30,8 @@ __DATA__
 __FILE__ ()
 __LINE__ ()
 __PACKAGE__ ()
+__DATA__ undef
+__END__ undef
 abs (_)
 accept (**)
 alarm (_)
@@ -55,6 +57,7 @@ cos (_)
 crypt ($$)
 dbmclose (\%)
 dbmopen (\%$$)
+default undef
 defined undef
 delete undef
 die (@)