mirror of
https://github.com/jart/cosmopolitan.git
synced 2025-03-01 06:28:21 +00:00
93 lines
1.8 KiB
Text
93 lines
1.8 KiB
Text
|
# -*-perl-*-
|
||
|
|
$description = "Test the realpath functions.";
|
||
|
|
|
||
|
|
$details = "";
|
||
|
|
|
||
|
|
# Check the local directory's realpath
|
||
|
|
run_make_test('
|
||
|
|
ifneq ($(realpath .),$(CURDIR))
|
||
|
|
$(warning $(realpath .) != $(CURDIR))
|
||
|
|
endif
|
||
|
|
|
||
|
|
ifneq ($(realpath ./),$(CURDIR))
|
||
|
|
$(warning $(realpath ./) != $(CURDIR))
|
||
|
|
endif
|
||
|
|
|
||
|
|
ifneq ($(realpath .///),$(CURDIR))
|
||
|
|
$(warning $(realpath .///) != $(CURDIR))
|
||
|
|
endif
|
||
|
|
|
||
|
|
.PHONY: all
|
||
|
|
all: ; @:
|
||
|
|
',
|
||
|
|
'', '');
|
||
|
|
|
||
|
|
# Find the realpath to the root of the partition
|
||
|
|
create_file('root.mk', 'all:;$(info $(realpath /))');
|
||
|
|
my $root = `$make_path -sf root.mk`;
|
||
|
|
unlink('root.mk');
|
||
|
|
chomp $root;
|
||
|
|
|
||
|
|
my $tst = '
|
||
|
|
ifneq ($(realpath /.),#ROOT#)
|
||
|
|
$(warning $(realpath /.) != #ROOT#)
|
||
|
|
endif
|
||
|
|
|
||
|
|
ifneq ($(realpath /./),#ROOT#)
|
||
|
|
$(warning $(realpath /./) != #ROOT#)
|
||
|
|
endif
|
||
|
|
|
||
|
|
ifneq ($(realpath /.///),#ROOT#)
|
||
|
|
$(warning $(realpath /.///) != #ROOT#)
|
||
|
|
endif
|
||
|
|
|
||
|
|
ifneq ($(realpath /..),#ROOT#)
|
||
|
|
$(warning $(realpath /..) != #ROOT#)
|
||
|
|
endif
|
||
|
|
|
||
|
|
ifneq ($(realpath /../),#ROOT#)
|
||
|
|
$(warning $(realpath /../) != #ROOT#)
|
||
|
|
endif
|
||
|
|
|
||
|
|
ifneq ($(realpath /..///),#ROOT#)
|
||
|
|
$(warning $(realpath /..///) != #ROOT#)
|
||
|
|
endif
|
||
|
|
|
||
|
|
ifneq ($(realpath . /..),$(CURDIR) #ROOT#)
|
||
|
|
$(warning $(realpath . /..) != $(CURDIR) #ROOT#)
|
||
|
|
endif
|
||
|
|
|
||
|
|
.PHONY: all
|
||
|
|
all: ; @:
|
||
|
|
';
|
||
|
|
$tst =~ s/#ROOT#/$root/g;
|
||
|
|
run_make_test($tst, '', '');
|
||
|
|
|
||
|
|
# On Windows platforms "//" means something special. So, don't do these tests
|
||
|
|
# there.
|
||
|
|
|
||
|
|
if ($port_type ne 'W32') {
|
||
|
|
$tst = '
|
||
|
|
ifneq ($(realpath ///),#ROOT#)
|
||
|
|
$(warning $(realpath ///) != #ROOT#)
|
||
|
|
endif
|
||
|
|
|
||
|
|
ifneq ($(realpath ///.),#ROOT#)
|
||
|
|
$(warning $(realpath ///.) != #ROOT#)
|
||
|
|
endif
|
||
|
|
|
||
|
|
ifneq ($(realpath ///..),#ROOT#)
|
||
|
|
$(warning $(realpath ///..) != #ROOT#)
|
||
|
|
endif
|
||
|
|
|
||
|
|
.PHONY: all
|
||
|
|
all: ; @:';
|
||
|
|
$tst =~ s/#ROOT#/$root/g;
|
||
|
|
|
||
|
|
run_make_test($tst, '', '');
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
# This tells the test driver that the perl test script executed properly.
|
||
|
|
1;
|