From 6011d9d4010ab434612d8d6b701bf7d9b564f641 Mon Sep 17 00:00:00 2001
From: Norayr Chilingarian <norayr@arnet.am>
Date: Thu, 7 May 2020 23:58:43 +0400
Subject: [PATCH] added tests; symlink dont work

---
 unit_tests/makefile         |  6 ++++++
 unit_tests/testFsHelper.Mod | 26 ++++++++++++++++++++++----
 2 files changed, 28 insertions(+), 4 deletions(-)

diff --git a/unit_tests/makefile b/unit_tests/makefile
index 4b3b456..364ce60 100644
--- a/unit_tests/makefile
+++ b/unit_tests/makefile
@@ -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)
diff --git a/unit_tests/testFsHelper.Mod b/unit_tests/testFsHelper.Mod
index 505a3c8..e74832d 100644
--- a/unit_tests/testFsHelper.Mod
+++ b/unit_tests/testFsHelper.Mod
@@ -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.