Commit a495a848 authored by Eric Timmons's avatar Eric Timmons
Browse files

Add fifo test

parent a8cf320f
No preview for this file type
......@@ -12,6 +12,7 @@ touch_files () {
touch_file "$DIR/a.txt"
touch_file "$DIR/a-symlink.txt"
touch_file "$DIR/a-hardlink.txt"
touch_file "$DIR/fifo"
sudo touch -a --date "$MTIME" "$DIR/sda1"
sudo touch -a --date "$MTIME" "$DIR/tty0"
}
......@@ -19,6 +20,7 @@ touch_files () {
echo "Hello, world!" > "$DIR/a.txt"
ln -s a.txt "$DIR/a-symlink.txt"
ln "$DIR/a.txt" "$DIR/a-hardlink.txt"
mkfifo "$DIR/fifo"
sudo mknod "$DIR/sda1" b 8 1
sudo mknod "$DIR/tty0" c 4 0
......@@ -26,7 +28,7 @@ run_tar () {
files="a.txt a-symlink.txt a-hardlink.txt"
if [ "$1" != "v7" ]; then
files="$files sda1 tty0"
files="$files fifo sda1 tty0"
fi
tar -H "$1" -C "$DIR" \
......
No preview for this file type
......@@ -49,6 +49,18 @@
(para:is = (tar:gid entry) 0)
(para:is equal (tar:linkname entry) "a.txt")
;; fifo
(setf entry (tar:read-entry-from-archive a))
(para:is equal (tar:name entry) "fifo")
(para:is = (tar:size entry) 0)
(para:is equal (tar:uname entry) "root")
(para:is equal (tar:gname entry) "root")
(para:is = (tar:mode entry) #o644)
(para:true (tar:entry-fifo-p entry))
(para:is = (tar:mtime entry) 1628903146)
(para:is = (tar:uid entry) 0)
(para:is = (tar:gid entry) 0)
;; sda1
(setf entry (tar:read-entry-from-archive a))
(para:is equal (tar:name entry) "sda1")
......
No preview for this file type
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment