Permalink
Browse files

added first test

  • Loading branch information...
1 parent 553c961 commit 7f454c48374853a7183b2eebb9807c05eded0043 @FROGGS committed Sep 13, 2012
Showing with 16 additions and 0 deletions.
  1. +16 −0 t/00_load.t
View
@@ -0,0 +1,16 @@
+
+use Test;
+use lib 'lib';
+use File::Spec;
+
+plan 20;
+
+eval_lives_ok 'use File::Spec', 'we can use File::Spec';
+ok $*OS, "your operating system is $*OS";
+_can_ok $_ for <canonpath catdir catfile curdir devnull rootdir tmpdir
+ updir no_upwards case_tolerant file_name_is_absolute path
+ join splitpath splitdir catpath abs2rel rel2abs>;
+
+sub _can_ok( $method ) {
+ ok File::Spec.^methods.grep( $method ), "we can call File::Spec.$method"
+}

0 comments on commit 7f454c4

Please sign in to comment.