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