vishapoberon/vipak
1
0
Fork 0
mirror of https://github.com/vishapoberon/vipak.git synced 2026-04-06 04:52:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

FsHelper checks if file/dir/symlink etc exists

Browse source
This commit is contained in:
Norayr Chilingarian 2020-05-07 23:33:11 +04:00
parent c02b5d6c83
commit 909c300c77
3 changed files with 114 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
unit_tests/makefile Normal file
View file

@ -0,0 +1,9 @@
BLD = build
VOC = /opt/voc/bin/voc
all:
mkdir -p $(BLD)
cd $(BLD) && $(VOC) -s ../../src/vpkFsHelper.Mod ../testFsHelper.Mod -m
clean:
rm -rf $(BLD)

25
unit_tests/testFsHelper.Mod Normal file
View file

@ -0,0 +1,25 @@
MODULE testFsHelper;
IMPORT Out, vpkFsHelper;
VAR
dir : ARRAY 64 OF CHAR;
f : vpkFsHelper.fileInfo;
b : BOOLEAN;
BEGIN
dir := "/home";
f.name := "/home";
IF vpkFsHelper.Exists(f) THEN
Out.String("exists"); Out.Ln;
IF vpkFsHelper.dir IN f.attr THEN Out.String("directory"); Out.Ln; END;
IF vpkFsHelper.char IN f.attr THEN Out.String("char"); Out.Ln; END;
IF vpkFsHelper.block IN f.attr THEN Out.String("block"); Out.Ln; END;
IF vpkFsHelper.file IN f.attr THEN Out.String("file"); Out.Ln; END;
IF vpkFsHelper.fifo IN f.attr THEN Out.String("fifo"); Out.Ln; END;
IF vpkFsHelper.symlink IN f.attr THEN Out.String("symlink"); Out.Ln; END;
IF vpkFsHelper.socket IN f.attr THEN Out.String("socket"); Out.Ln; END;
ELSE
Out.String("does not exist"); Out.Ln;
END;
END testFsHelper.