#!/usr/bin/env bash
. ./wvtest-bup.sh || exit $?
. dev/lib.sh || exit $?

set -o pipefail

top="$(WVPASS pwd)" || exit $?
tmpdir="$(WVPASS wvmktempdir)" || exit $?

export BUP_DIR="$tmpdir/bup"
export GIT_DIR="$tmpdir/bup"

if test "$BUP_TEST_REMOTE_REPO"; then
    ls_cmd_desc='ls -r'
else
    ls_cmd_desc='ls'
fi
    
bup() { "$top/bup" "$@"; }
with-tty() { "$top/dev/with-tty" "$@"; }

bup-ls() {
    if test "$BUP_TEST_REMOTE_REPO"; then
        "$top/bup" ls -r "$BUP_DIR" "$@"
    else
        "$top/bup" ls "$@"
    fi
}


export TZ=UTC

WVPASS bup init
WVPASS cd "$tmpdir"

WVPASS mkdir src
WVPASS touch src/.dotfile src/executable
WVPASS mkfifo src/fifo
WVPASS "$top"/dev/mksock src/socket
WVPASS bup random 1k > src/file
WVPASS chmod u+x src/executable
WVPASS chmod -R u=rwX,g-rwx,o-rwx .
WVPASS touch -t 200910032348 src/.dotfile src/*
(WVPASS cd src; WVPASS ln -s file symlink) || exit $?
(WVPASS cd src; WVPASS ln -s not-there bad-symlink) || exit $?
WVPASS touch -t 200910032348 src
WVPASS touch -t 200910032348 .
WVPASS bup index src
# Include two saves to test multiple results per ref from rev_list.
WVPASS bup save -n src -d 242312159 --strip src
WVPASS bup save -n src -d 242312160 --strip src
WVPASS bup tag some-tag src

uid="$(WVPASS id -u)" || exit $?
gid="$(WVPASS bup-cfg-py -c 'import os; print(os.stat("src").st_gid)')" || exit $?
user="$(WVPASS id -un)" || exit $?
group="$(WVPASS bup-cfg-py -c 'import grp, os;
print(grp.getgrgid(os.stat("src").st_gid)[0])')" || exit $?
src_commit_hash=$(git log --format=%H -n1 src)
src_tree_hash=$(git log --format=%T -n1 src)


WVSTART "$ls_cmd_desc (short)"

(export BUP_FORCE_TTY=3; WVPASSEQ "$(WVPASS bup-ls | tr -d ' ')" src)

WVPASSEQ "$(WVPASS bup-ls /)" "src"

WVPASSEQ "$(WVPASS bup-ls -A /)" ".tag
src"

WVPASSEQ "$(WVPASS bup-ls -AF /)" ".tag/
src/"

WVPASSEQ "$(WVPASS bup-ls -a /)" ".
..
.tag
src"

WVPASSEQ "$(WVPASS bup-ls -aF /)" "./
../
.tag/
src/"

WVPASSEQ "$(WVPASS bup-ls /.tag)" "some-tag"

WVPASSEQ "$(WVPASS bup-ls /src)" \
"1977-09-05-125559
1977-09-05-125600
latest"

WVPASSEQ "$(WVPASS bup-ls src/latest)" "bad-symlink
executable
fifo
file
socket
symlink"

WVPASSEQ "$(WVPASS bup-ls -A src/latest)" ".dotfile
bad-symlink
executable
fifo
file
socket
symlink"

WVPASSEQ "$(WVPASS bup-ls -a src/latest)" ".
..
.dotfile
bad-symlink
executable
fifo
file
socket
symlink"

WVPASSEQ "$(WVPASS bup-ls -F src/latest)" "bad-symlink@
executable*
fifo|
file
socket=
symlink@"

WVPASSEQ "$(WVPASS bup-ls --file-type src/latest)" "bad-symlink@
executable
fifo|
file
socket=
symlink@"

WVPASSEQ "$(WVPASS bup-ls -d src/latest)" "src/latest"


WVSTART "$ls_cmd_desc (long)"

WVPASSEQ "$(WVPASS bup-ls -l / | tr -s ' ' ' ')" \
"drwx------ $user/$group 0 2009-10-03 23:48 src"

WVPASSEQ "$(WVPASS bup-ls -lA / | tr -s ' ' ' ')" \
"drwxr-xr-x ?/? 0 1970-01-01 00:00 .tag
drwx------ $user/$group 0 2009-10-03 23:48 src"

WVPASSEQ "$(WVPASS bup-ls -lAF / | tr -s ' ' ' ')" \
"drwxr-xr-x ?/? 0 1970-01-01 00:00 .tag/
drwx------ $user/$group 0 2009-10-03 23:48 src/"

WVPASSEQ "$(WVPASS bup-ls -la / | tr -s ' ' ' ')" \
"drwxr-xr-x ?/? 0 1970-01-01 00:00 .
drwxr-xr-x ?/? 0 1970-01-01 00:00 ..
drwxr-xr-x ?/? 0 1970-01-01 00:00 .tag
drwx------ $user/$group 0 2009-10-03 23:48 src"

WVPASSEQ "$(WVPASS bup-ls -laF / | tr -s ' ' ' ')" \
"drwxr-xr-x ?/? 0 1970-01-01 00:00 ./
drwxr-xr-x ?/? 0 1970-01-01 00:00 ../
drwxr-xr-x ?/? 0 1970-01-01 00:00 .tag/
drwx------ $user/$group 0 2009-10-03 23:48 src/"

socket_mode="$(WVPASS ls -l src/socket | cut -b -10)" || exit $?


bad_symlink_mode="$(WVPASS ls -l src/bad-symlink | cut -b -10)" || exit $?

bad_symlink_bup_info="$(WVPASS bup-ls -l src/latest | grep bad-symlink)" \
    || exit $?
bad_symlink_date="$(WVPASS echo "$bad_symlink_bup_info" \
  | WVPASS perl -ne 'm/.*? (\d+) (\d\d\d\d-\d\d-\d\d \d\d:\d\d)/ and print $2')" \
    || exit $?

test "$bad_symlink_date" || exit 1

if test "$(uname -s)" != NetBSD; then
    bad_symlink_size="$(WVPASS bup-cfg-py -c "import os
print(os.lstat('src/bad-symlink').st_size)")" || exit $?
else
    # NetBSD appears to return varying sizes, so for now, just ignore it.
    bad_symlink_size="$(WVPASS echo "$bad_symlink_bup_info" \
      | WVPASS perl -ne 'm/.*? (\d+) (\d\d\d\d-\d\d-\d\d \d\d:\d\d)/ and print $1')" \
        || exit $?
fi


symlink_mode="$(WVPASS ls -l src/symlink | cut -b -10)" || exit $?

symlink_bup_info="$(WVPASS bup-ls -l src/latest | grep -E '[^-]symlink')" \
    || exit $?
symlink_date="$(WVPASS echo "$symlink_bup_info" \
  | WVPASS perl -ne 'm/.*? (\d+) (\d\d\d\d-\d\d-\d\d \d\d:\d\d)/ and print $2')" \
    || exit $?

test "$symlink_date" || exit 1

if test "$(uname -s)" != NetBSD; then
    symlink_size="$(WVPASS bup-cfg-py -c "import os
print(os.lstat('src/symlink').st_size)")" || exit $?
else
    # NetBSD appears to return varying sizes, so for now, just ignore it.
    symlink_size="$(WVPASS echo "$symlink_bup_info" \
      | WVPASS perl -ne 'm/.*? (\d+) (\d\d\d\d-\d\d-\d\d \d\d:\d\d)/ and print $1')" \
        || exit $?
fi

WVPASSEQ "$(bup-ls -l src/latest | tr -s ' ' ' ')" \
"$bad_symlink_mode $user/$group $bad_symlink_size $bad_symlink_date bad-symlink -> not-there
-rwx------ $user/$group 0 2009-10-03 23:48 executable
prw------- $user/$group 0 2009-10-03 23:48 fifo
-rw------- $user/$group 1024 2009-10-03 23:48 file
$socket_mode $user/$group 0 2009-10-03 23:48 socket
$symlink_mode $user/$group $symlink_size $symlink_date symlink -> file"

WVPASSEQ "$(bup-ls -la src/latest | tr -s ' ' ' ')" \
"drwx------ $user/$group 0 2009-10-03 23:48 .
drwx------ $user/$group 0 2009-10-03 23:48 ..
-rw------- $user/$group 0 2009-10-03 23:48 .dotfile
$bad_symlink_mode $user/$group $bad_symlink_size $bad_symlink_date bad-symlink -> not-there
-rwx------ $user/$group 0 2009-10-03 23:48 executable
prw------- $user/$group 0 2009-10-03 23:48 fifo
-rw------- $user/$group 1024 2009-10-03 23:48 file
$socket_mode $user/$group 0 2009-10-03 23:48 socket
$symlink_mode $user/$group $symlink_size $symlink_date symlink -> file"

WVPASSEQ "$(bup-ls -lA src/latest | tr -s ' ' ' ')" \
"-rw------- $user/$group 0 2009-10-03 23:48 .dotfile
$bad_symlink_mode $user/$group $bad_symlink_size $bad_symlink_date bad-symlink -> not-there
-rwx------ $user/$group 0 2009-10-03 23:48 executable
prw------- $user/$group 0 2009-10-03 23:48 fifo
-rw------- $user/$group 1024 2009-10-03 23:48 file
$socket_mode $user/$group 0 2009-10-03 23:48 socket
$symlink_mode $user/$group $symlink_size $symlink_date symlink -> file"

WVPASSEQ "$(bup-ls -lF src/latest | tr -s ' ' ' ')" \
"$bad_symlink_mode $user/$group $bad_symlink_size $bad_symlink_date bad-symlink@ -> not-there
-rwx------ $user/$group 0 2009-10-03 23:48 executable*
prw------- $user/$group 0 2009-10-03 23:48 fifo|
-rw------- $user/$group 1024 2009-10-03 23:48 file
$socket_mode $user/$group 0 2009-10-03 23:48 socket=
$symlink_mode $user/$group $symlink_size $symlink_date symlink@ -> file"

WVPASSEQ "$(bup-ls -l --file-type src/latest | tr -s ' ' ' ')" \
"$bad_symlink_mode $user/$group $bad_symlink_size $bad_symlink_date bad-symlink@ -> not-there
-rwx------ $user/$group 0 2009-10-03 23:48 executable
prw------- $user/$group 0 2009-10-03 23:48 fifo|
-rw------- $user/$group 1024 2009-10-03 23:48 file
$socket_mode $user/$group 0 2009-10-03 23:48 socket=
$symlink_mode $user/$group $symlink_size $symlink_date symlink@ -> file"

WVPASSEQ "$(bup-ls -ln src/latest | tr -s ' ' ' ')" \
"$bad_symlink_mode $uid/$gid $bad_symlink_size $bad_symlink_date bad-symlink -> not-there
-rwx------ $uid/$gid 0 2009-10-03 23:48 executable
prw------- $uid/$gid 0 2009-10-03 23:48 fifo
-rw------- $uid/$gid 1024 2009-10-03 23:48 file
$socket_mode $uid/$gid 0 2009-10-03 23:48 socket
$symlink_mode $uid/$gid $symlink_size $symlink_date symlink -> file"

WVPASSEQ "$(bup-ls -ld "src/latest" | tr -s ' ' ' ')" \
"lrwxr-xr-x ?/? 17 1970-01-01 00:00 src/latest -> 1977-09-05-125600"


WVSTART "$ls_cmd_desc (backup set - long)"
WVPASSEQ "$(bup-ls -l --numeric-ids src | cut -d' ' -f 1-2)" \
"drwx------ $uid/$gid
drwx------ $uid/$gid
lrwxr-xr-x ?/?"

WVPASSEQ "$(bup-ls -ds "src/1977-09-05-125600" | tr -s ' ' ' ')" \
"$src_tree_hash src/1977-09-05-125600"

WVPASSEQ "$(bup-ls -ds --commit-hash "src/1977-09-05-125600" | tr -s ' ' ' ')" \
"$src_commit_hash src/1977-09-05-125600"


WVSTART "$ls_cmd_desc (dates TZ != UTC)"
export TZ=America/Chicago
bad_symlink_date_central="$(bup-ls -l src/latest | grep bad-symlink)"
bad_symlink_date_central="$(echo "$bad_symlink_date_central" \
  | perl -ne 'm/.*? (\d+) (\d\d\d\d-\d\d-\d\d \d\d:\d\d)/ and print $2')"
symlink_date_central="$(bup-ls -l src/latest | grep -E '[^-]symlink')"
symlink_date_central="$(echo "$symlink_date_central" \
  | perl -ne 'm/.*? (\d+) (\d\d\d\d-\d\d-\d\d \d\d:\d\d)/ and print $2')"
WVPASSEQ "$(bup-ls -ln src/latest | tr -s ' ' ' ')" \
"$bad_symlink_mode $uid/$gid $bad_symlink_size $bad_symlink_date_central bad-symlink -> not-there
-rwx------ $uid/$gid 0 2009-10-03 18:48 executable
prw------- $uid/$gid 0 2009-10-03 18:48 fifo
-rw------- $uid/$gid 1024 2009-10-03 18:48 file
$socket_mode $uid/$gid 0 2009-10-03 18:48 socket
$symlink_mode $uid/$gid $symlink_size $symlink_date_central symlink -> file"
export TZ=UTC


WVSTART "$ls_cmd_desc bad-symlink"
WVPASSEQ "$(bup-ls "src/latest/bad-symlink")" "src/latest/bad-symlink"

WVSTART "$ls_cmd_desc -l bad-symlink"
WVPASSEQ "$(bup-ls -l src/latest/bad-symlink | tr -s ' ' ' ')" \
"$bad_symlink_mode $user/$group $bad_symlink_size $bad_symlink_date src/latest/bad-symlink -> not-there"


if ! with-tty true; then
    WVSKIP 'Skipping interactive output truncation test (no script command)'
else
    WVSTART "output isn't truncated when isatty"
    WVPASS rm -rf src
    WVPASS mkdir src
    echo src/some-longer-name-{1..3000} | WVPASS xargs touch
    WVPASS bup index src
    WVPASS bup save -n src --strip src
    WVPASS with-tty "$top/bup" ls -l src/latest | WVPASS wc -l > ls-rows
    WVPASSEQ 3000 $(<ls-rows)
fi


WVPASS cd "$top"
WVPASS rm -rf "$tmpdir"