Add a test to detect error when attempting to syntax-check a directory.
authorJames E Keenan <jkeenan@cpan.org>
Sun, 6 Jan 2013 03:25:29 +0000 (22:25 -0500)
committerRicardo Signes <rjbs@cpan.org>
Sun, 13 Jan 2013 00:39:26 +0000 (19:39 -0500)
For: RT #61362

t/run/switches.t

index 5c3b5ee..07e96da 100644 (file)
@@ -11,7 +11,7 @@ BEGIN {
 
 BEGIN { require "./test.pl"; }
 
-plan(tests => 114);
+plan(tests => 115);
 
 use Config;
 
@@ -107,6 +107,17 @@ SWTEST
     );
 }
 
+{
+    my $tempdir = tempfile;
+    mkdir $tempdir, 0700 or die "Can't mkdir '$tempdir': $!";
+    like(
+        runperl( switches => [ '-c' ], args  => [ $tempdir ], stderr => 1),
+        qr/Can't open perl script.*$tempdir.*Is a directory/s,
+        "RT \#61362: Cannot syntax-check a directory"
+    );
+    rmdir $tempdir or die "Can't rmdir '$tempdir': $!";
+}
+
 # Tests for -l
 
 $r = runperl(