Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

correct number of tests

  • Loading branch information...
commit 03d134058abb5989e46d4309ac4f0374cfcb132d 1 parent d3718c9
@FROGGS authored
Showing with 4 additions and 4 deletions.
  1. +4 −4 t/01_win32.t
View
8 t/01_win32.t
@@ -3,7 +3,7 @@ use lib 'lib';
use Test;
use File::Spec;
-plan 4;
+plan 5;
if $*OS !~~ any(<MSWin32 NetWare symbian>) {
skip_rest 'this is not Windows\'ish'
@@ -13,13 +13,13 @@ else {
#catdir
#catfile
is File::Spec.curdir, '.', 'curdir is "."';
- is File::Spec.devnull, 'nul', 'devnull is /dev/null';
- is File::Spec.rootdir, '\\', 'rootdir is "/"';
+ is File::Spec.devnull, 'nul', 'devnull is nul';
+ is File::Spec.rootdir, '\\', 'rootdir is "\\"';
#tmpdir
is File::Spec.updir, '..', 'updir is ".."';
#no_upwards
- is File::Spec.case_tolerant, 1, 'case_tolerant is 0';
+ is File::Spec.case_tolerant, 1, 'case_tolerant is 1';
#file_name_is_absolute
#path
Please sign in to comment.
Something went wrong with that request. Please try again.