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)
cd $(BLD) && $(VOC) -s ../../src/vpkFsHelper.Mod ../testFsHelper.Mod -m
run:
mkfifo /tmp/fifo
$(BLD)/testFsHelper
rm /tmp/fifo
clean:
rm -rf $(BLD)

26
unit_tests/testFsHelper.Mod
View file

@ -2,13 +2,13 @@ MODULE testFsHelper;
IMPORT Out, vpkFsHelper;
VAR
dir : ARRAY 64 OF CHAR;
f : vpkFsHelper.fileInfo;
PROCEDURE test(f: vpkFsHelper.fileInfo);
VAR
b : BOOLEAN;
BEGIN
dir := "/home";
f.name := "/home";
Out.String(f.name); Out.Ln;
IF vpkFsHelper.Exists(f) THEN
Out.String("exists"); Out.Ln;
IF vpkFsHelper.dir IN f.attr THEN Out.String("directory"); Out.Ln; END;
@ -21,5 +21,23 @@ BEGIN
ELSE
Out.String("does not exist"); Out.Ln;
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.