2024-04-25 17:20:55 -06:00
|
|
|
|
#!/bin/sh
|
|
|
|
|
|
# Copyright (c) 2024 Emma Tebibyte <emma@tebibyte.media>
|
|
|
|
|
|
# SPDX-License-Identifier: FSFAP
|
|
|
|
|
|
#
|
|
|
|
|
|
# Copying and distribution of this file, with or without modification, are
|
|
|
|
|
|
# permitted in any medium without royalty provided the copyright notice and this
|
|
|
|
|
|
# notice are preserved. This file is offered as-is, without any warranty.
|
|
|
|
|
|
|
2024-04-25 18:57:05 -06:00
|
|
|
|
. tests/bonsai/test_env
|
2024-04-25 17:20:55 -06:00
|
|
|
|
|
|
|
|
|
|
alias strcmp="$BIN/strcmp"
|
|
|
|
|
|
alias rpn="$BIN/rpn"
|
|
|
|
|
|
|
|
|
|
|
|
strcmp "$(printf '1234\n' | hru)" '1.2 kB'
|
|
|
|
|
|
strcmp "$(printf '0\n' | hru)" '0 B'
|
|
|
|
|
|
|
|
|
|
|
|
# doesn’t currently work but would be useful for testing for regressions
|
|
|
|
|
|
#n=1
|
|
|
|
|
|
#while "$BIN/true"; do
|
|
|
|
|
|
# n="$(rpn "$n" 10 ×)"
|
|
|
|
|
|
#
|
|
|
|
|
|
# printf '%s\n' "$n" | hru || break
|
|
|
|
|
|
#done
|
|
|
|
|
|
#printf 'integer limit: ~%s\n' "$(rpn "$n" 10 ÷)"
|
|
|
|
|
|
|
|
|
|
|
|
! printf '%s\n' '-1' | hru
|
