1*69606e3fSchristos# -*-perl-*- 2*69606e3fSchristos$description = "Test the realpath functions."; 3*69606e3fSchristos 4*69606e3fSchristos$details = ""; 5*69606e3fSchristos 6*69606e3fSchristosrun_make_test(' 7*69606e3fSchristosifneq ($(realpath .),$(CURDIR)) 8*69606e3fSchristos $(error ) 9*69606e3fSchristosendif 10*69606e3fSchristos 11*69606e3fSchristosifneq ($(realpath ./),$(CURDIR)) 12*69606e3fSchristos $(error ) 13*69606e3fSchristosendif 14*69606e3fSchristos 15*69606e3fSchristosifneq ($(realpath .///),$(CURDIR)) 16*69606e3fSchristos $(error ) 17*69606e3fSchristosendif 18*69606e3fSchristos 19*69606e3fSchristosifneq ($(realpath /),/) 20*69606e3fSchristos $(error ) 21*69606e3fSchristosendif 22*69606e3fSchristos 23*69606e3fSchristosifneq ($(realpath /.),/) 24*69606e3fSchristos $(error ) 25*69606e3fSchristosendif 26*69606e3fSchristos 27*69606e3fSchristosifneq ($(realpath /./),/) 28*69606e3fSchristos $(error ) 29*69606e3fSchristosendif 30*69606e3fSchristos 31*69606e3fSchristosifneq ($(realpath /.///),/) 32*69606e3fSchristos $(error ) 33*69606e3fSchristosendif 34*69606e3fSchristos 35*69606e3fSchristosifneq ($(realpath /..),/) 36*69606e3fSchristos $(error ) 37*69606e3fSchristosendif 38*69606e3fSchristos 39*69606e3fSchristosifneq ($(realpath /../),/) 40*69606e3fSchristos $(error ) 41*69606e3fSchristosendif 42*69606e3fSchristos 43*69606e3fSchristosifneq ($(realpath /..///),/) 44*69606e3fSchristos $(error ) 45*69606e3fSchristosendif 46*69606e3fSchristos 47*69606e3fSchristosifneq ($(realpath . /..),$(CURDIR) /) 48*69606e3fSchristos $(error ) 49*69606e3fSchristosendif 50*69606e3fSchristos 51*69606e3fSchristos.PHONY: all 52*69606e3fSchristosall: ; @: 53*69606e3fSchristos', 54*69606e3fSchristos '', 55*69606e3fSchristos ''); 56*69606e3fSchristos 57*69606e3fSchristos# On Windows platforms, "//" means something special. So, don't do these 58*69606e3fSchristos# tests there. 59*69606e3fSchristos 60*69606e3fSchristosif ($port_type ne 'W32') { 61*69606e3fSchristos run_make_test(' 62*69606e3fSchristosifneq ($(realpath ///),/) 63*69606e3fSchristos $(error ) 64*69606e3fSchristosendif 65*69606e3fSchristos 66*69606e3fSchristosifneq ($(realpath ///.),/) 67*69606e3fSchristos $(error ) 68*69606e3fSchristosendif 69*69606e3fSchristos 70*69606e3fSchristosifneq ($(realpath ///..),/) 71*69606e3fSchristos $(error ) 72*69606e3fSchristosendif 73*69606e3fSchristos 74*69606e3fSchristos.PHONY: all 75*69606e3fSchristosall: ; @:', 76*69606e3fSchristos '', 77*69606e3fSchristos ''); 78*69606e3fSchristos} 79*69606e3fSchristos 80*69606e3fSchristos 81*69606e3fSchristos# This tells the test driver that the perl test script executed properly. 82*69606e3fSchristos1; 83