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

added tests; symlink dont work

Browse source
This commit is contained in:
Norayr Chilingarian 2020-05-07 23:58:43 +04:00
parent 37b554721f
commit 6011d9d401
2 changed files with 28 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
unit_tests/makefile
View file

@ -5,5 +5,11 @@ all:
mkdir -p $(BLD) mkdir -p $(BLD)
cd $(BLD) && $(VOC) -s ../../src/vpkFsHelper.Mod ../testFsHelper.Mod -m cd $(BLD) && $(VOC) -s ../../src/vpkFsHelper.Mod ../testFsHelper.Mod -m
run:
mkfifo /tmp/fifo
$(BLD)/testFsHelper
rm /tmp/fifo
clean: clean:
rm -rf $(BLD) rm -rf $(BLD)

26
unit_tests/testFsHelper.Mod
View file

@ -2,13 +2,13 @@ MODULE testFsHelper;
IMPORT Out, vpkFsHelper; IMPORT Out, vpkFsHelper;
VAR VAR
dir : ARRAY 64 OF CHAR;
f : vpkFsHelper.fileInfo; f : vpkFsHelper.fileInfo;
PROCEDURE test(f: vpkFsHelper.fileInfo);
VAR
b : BOOLEAN; b : BOOLEAN;
BEGIN BEGIN
dir := "/home"; Out.String(f.name); Out.Ln;
f.name := "/home";
IF vpkFsHelper.Exists(f) THEN IF vpkFsHelper.Exists(f) THEN
Out.String("exists"); Out.Ln; Out.String("exists"); Out.Ln;
IF vpkFsHelper.dir IN f.attr THEN Out.String("directory"); Out.Ln; END; IF vpkFsHelper.dir IN f.attr THEN Out.String("directory"); Out.Ln; END;
@ -21,5 +21,23 @@ BEGIN
ELSE ELSE
Out.String("does not exist"); Out.Ln; Out.String("does not exist"); Out.Ln;
END; END;
Out.Ln;
END test;
BEGIN
f.name := "/aosenth";
test(f);
f.name := "/dev/nvme0n1";
test(f);
f.name := "/home";
test(f);
f.name := "/etc/fstab";
test(f);
f.name := "/usr/src/linux";
test(f);
f.name := "/dev/video0";
test(f);
f.name := "/tmp/fifo";
test(f);
END testFsHelper. END testFsHelper.