# Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl lib-deep.t' ######################### # change 'tests => 1' to 'tests => last_test_to_print'; use strict; use warnings; no warnings 'once'; use Test::More 'no_plan'; BEGIN { require_ok('lib::deep') }; local *na_path = \&lib::deep::path_need_canonize; ok( na_path('.') ); ok( na_path('..') ); ok( na_path('a/..') ); ok( na_path('/a/..') ); ok( na_path('a/.') ); ok( na_path('/a/.') ); ok( na_path('a') ); ok( na_path('a123/b') ); ok( na_path('a123/.c') ); ok( na_path('/a/./b') ); ok( na_path('/a/../c') ); if ( $lib::deep::is_unix ){ ok( !na_path( '/a/b/c/')); } ######################### # Insert your test code below, the Test::More module is use()ed here so read # its man page ( perldoc Test::More ) for help writing this test script.