Permalink
Browse files

[t/spec] Add a dies_ok test for the old style filetest

git-svn-id: http://svn.pugscode.org/pugs@27952 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
kyle
kyle committed Aug 10, 2009
1 parent 1b29b79 commit c86e991a85be9d8018226a22aaa320f627639265
Showing with 3 additions and 1 deletion.
  1. +3 −1 S16-filehandles/filetest.t
@@ -10,7 +10,7 @@ This test tests the various filetest operators.
=end pod
-plan 39;
+plan 40;
if $*OS eq "browser" {
skip_rest "Programs running in browsers don't have access to regular IO.";
@@ -21,6 +21,8 @@ if $*OS eq "browser" {
# L<S03/Changes to Perl 5 operators/The filetest operators are gone.>
# old: L<S16/Filehandles, files, and directories/A file test, where X is one of the letters listed below.>
+dies_ok { 't' ~~ :d }, 'file test from before spec revision 27503 is error';
+
# Basic tests
ok 't'.IO ~~ :d, "~~:d returns true on directories";
lives_ok { 'non_existing_dir'.IO ~~ :d },

0 comments on commit c86e991

Please sign in to comment.