ThreadCount Community edition
Uniform stock management for healthcare linen rooms: the coordinator app, the phone counter and the staff app, for your own server. Built from 38e16eb on 2026-09-15. Licensed under the Functional Source License (FSL-1.1-ALv2).
This commit is contained in:
ThreadCount
Executable
+115
@@ -0,0 +1,115 @@
|
||||
#!/usr/bin/env bash
|
||||
# The supplier order list: a code per size, needs built from reorder levels and split by supplier,
|
||||
# raised as one placed order per supplier (and one per person for a counter "order in"), the A4
|
||||
# sheet with the codes, the supplier email door, and the forecast arithmetic behind "Suggested".
|
||||
#
|
||||
# Needs a server in dev mode, like the other suites (`npm run dev -- -p 3111`). Nothing sends mail.
|
||||
set -u
|
||||
B=${BASE:-http://127.0.0.1:3111}
|
||||
. "$(dirname "$0")/e2e-preflight.sh"; e2e_preflight "$B"
|
||||
T=${TMP:-/tmp}; J="$T/tc-ord-cj.txt"; rm -f "$J"
|
||||
PASS=0; FAIL=0
|
||||
ok() { PASS=$((PASS+1)); echo " ✓ $1"; }
|
||||
fail() { FAIL=$((FAIL+1)); echo " ✗ $1 :: $(echo "$2" | head -c 300)"; }
|
||||
check(){ local name=$1 out=$2 pat=$3; if echo "$out" | grep -q "$pat"; then ok "$name"; else fail "$name" "$out"; fi; }
|
||||
no() { local name=$1 out=$2 pat=$3; if echo "$out" | grep -q "$pat"; then fail "$name" "$out"; else ok "$name"; fi; }
|
||||
mut() { curl -s -b "$J" -c "$J" -X POST "$B/api/mutate" -H 'content-type: application/json' -d "{\"op\":\"$1\",\"payload\":$2}"; }
|
||||
py() { python3 -c "import sys,json; d=json.load(sys.stdin); $1"; }
|
||||
bk() { curl -s -b "$J" "$B/api/backup"; }
|
||||
res() { py "print(d['result']$1)"; }
|
||||
page() { curl -s -b "$J" "$B$1"; }
|
||||
code() { curl -s -o /dev/null -w '%{http_code}' -b "$J" "$B$1"; }
|
||||
TS=$(date +%s)
|
||||
|
||||
echo "== a facility with two suppliers"
|
||||
check "signup" "$(curl -s -c "$J" -X POST "$B/api/auth/signup" -H 'content-type: application/json' -H "x-forwarded-for: 10.12.$((RANDOM%250)).$((RANDOM%250))" -d "{\"first\":\"Ord\",\"last\":\"Admin\",\"facility\":\"Order Hospital $TS\",\"email\":\"ord$TS@example.com\",\"password\":\"password123\"}")" '"ok":true'
|
||||
check " groups" "$(e2e_groups "$B" "$J")" '"ok":true'
|
||||
R=$(mut catalog.add '{"item":"Scrub Top","type":"Top","supplier":"Northline Workwear","sku":"ST","cost":22.5,"sizes":["S","M","L"]}'); ST=$(echo "$R" | res "['id']"); check "garment A (Northline)" "$R" '"id"'
|
||||
R=$(mut catalog.add '{"item":"Fleece Jacket","type":"Jacket","supplier":"Harbour Embroidery","sku":"FJ","cost":48,"sizes":["M","L"]}'); FJ=$(echo "$R" | res "['id']"); check "garment B (Harbour)" "$R" '"id"'
|
||||
check "both suppliers exist" "$(bk | py "print(sorted(s['name'] for s in d['suppliers']))")" "\['Harbour Embroidery', 'Northline Workwear'\]"
|
||||
SUPS=$(bk | py "print(json.dumps({s['name']: s['id'] for s in d['suppliers']}))")
|
||||
WWG=$(echo "$SUPS" | py "print(d['Northline Workwear'])"); QUA=$(echo "$SUPS" | py "print(d['Harbour Embroidery'])")
|
||||
|
||||
echo "== supplier codes, one per size"
|
||||
check "code on Scrub Top M" "$(mut stock.supplierCode "{\"itemId\":\"$ST\",\"si\":1,\"code\":\"NW-10422-M\"}")" '"ok":true'
|
||||
check "code on Scrub Top L" "$(mut stock.supplierCode "{\"itemId\":\"$ST\",\"si\":2,\"code\":\"NW-10422-L\"}")" '"ok":true'
|
||||
check "code on Fleece M" "$(mut stock.supplierCode "{\"itemId\":\"$FJ\",\"si\":0,\"code\":\"HE-7781-M\"}")" '"ok":true'
|
||||
check "a bad size is refused" "$(mut stock.supplierCode "{\"itemId\":\"$ST\",\"si\":9,\"code\":\"X\"}")" 'Invalid size'
|
||||
check "the code lands in the backup" "$(bk | py "print([x['supplierCode'] for x in d['stock'] if x['itemId']=='$ST' and x['sizeIndex']==1][0])")" 'NW-10422-M'
|
||||
check "the garment page shows it" "$(page "/app/stock/$ST")" 'NW-10422-M'
|
||||
|
||||
echo "== supplier email"
|
||||
check "an email is accepted" "$(mut supplier.update "{\"id\":\"$WWG\",\"email\":\"orders@example.com\"}")" '"ok":true'
|
||||
check "a bad one is refused" "$(mut supplier.update "{\"id\":\"$WWG\",\"email\":\"not-an-address\"}")" "doesn't look like an email"
|
||||
|
||||
echo "== stock below its reorder level"
|
||||
check "opening stock" "$(mut stock.moves "{\"mode\":\"Opening\",\"lines\":[{\"itemId\":\"$ST\",\"si\":1,\"qty\":2},{\"itemId\":\"$ST\",\"si\":2,\"qty\":40},{\"itemId\":\"$FJ\",\"si\":0,\"qty\":1}]}")" '"ok":true'
|
||||
check "reorder level 6 on Scrub Top M" "$(mut stock.reorder "{\"itemId\":\"$ST\",\"si\":1,\"reorder\":6}")" '"ok":true'
|
||||
check "reorder level 4 on Fleece M" "$(mut stock.reorder "{\"itemId\":\"$FJ\",\"si\":0,\"reorder\":4}")" '"ok":true'
|
||||
# The order list is the To order column on /app/orders since the portal overhaul; the old
|
||||
# /app/orders/list address redirects there.
|
||||
LIST=$(page /app/orders)
|
||||
check "the order list renders" "$(code /app/orders)" '200'
|
||||
check " as the To order column" "$LIST" '>To order</h2>'
|
||||
check " with the Northline code as a line" "$LIST" '>NW-10422-M</'
|
||||
check " and the Harbour code as a line" "$LIST" '>HE-7781-M</'
|
||||
no " not the size that is fine" "$LIST" '>NW-10422-L</'
|
||||
check "the old list address redirects to it" "$(curl -s -o /dev/null -w '%{http_code} %{redirect_url}' -b "$J" "$B/app/orders/list")" '^30[78] .*/app/orders$'
|
||||
|
||||
echo "== a person's order stays its own"
|
||||
R=$(mut staff.save '{"num":"4471","first":"Ali","last":"Hassan","dept":"Ward 4B","group":"Registered Nurse"}'); ALI=$(echo "$R" | res "['id']"); check "a staff member" "$R" '"id"'
|
||||
R=$(mut order.create "{\"orderFor\":\"Staff Member\",\"staffId\":\"$ALI\",\"supplier\":\"Northline Workwear\",\"lines\":[{\"itemId\":\"$ST\",\"size\":\"L\",\"qty\":1}]}"); PO=$(echo "$R" | res "['id']"); check "a draft order for Ali" "$R" '"code"'
|
||||
# React splits "for {who}" with an empty comment marker; read the text with those taken out.
|
||||
check "the list shows it as its own group" "$(page /app/orders | sed 's/<!-- -->//g')" '<span>for Ali Hassan · '
|
||||
|
||||
echo "== raise"
|
||||
R=$(mut order.raiseList "{\"groups\":[{\"kind\":\"stock\",\"supplier\":\"Northline Workwear\",\"ref\":\"NW-48211\",\"lines\":[{\"itemId\":\"$ST\",\"size\":\"M\",\"qty\":10}]},{\"kind\":\"stock\",\"supplier\":\"Harbour Embroidery\",\"lines\":[{\"itemId\":\"$FJ\",\"size\":\"M\",\"qty\":7}]},{\"kind\":\"draft\",\"id\":\"$PO\",\"ref\":\"NW-48212\"}]}")
|
||||
check "three orders raised" "$(echo "$R" | res "['raised'].__len__()")" '^3$'
|
||||
check " the stock one carries the supplier's number" "$(echo "$R" | py "print([o['ref'] for o in d['result']['raised'] if o['supplier']=='Northline Workwear' and len(o['lines'])==1 and o['lines'][0]['size']=='M'][0])")" 'NW-48211'
|
||||
check " all three are placed, none draft" "$(bk | py "print(sorted(set(o['status'] for o in d['orders'])))")" "^\['Ordered'\]$"
|
||||
check " Ali's is still Ali's" "$(bk | py "print([o['staffId'] for o in d['orders'] if o['ref']=='NW-48212'][0]=='$ALI')")" 'True'
|
||||
check " one order per supplier for stock" "$(bk | py "print(sorted(o['supplier'] for o in d['orders'] if not o['staffId']))")" "^\['Harbour Embroidery', 'Northline Workwear'\]$"
|
||||
WID=$(echo "$R" | py "print([o['id'] for o in d['result']['raised'] if o['ref']=='NW-48211'][0])")
|
||||
check "an empty raise is refused" "$(mut order.raiseList '{"groups":[]}')" 'Nothing to raise'
|
||||
check "a raised draft can't be raised twice" "$(mut order.raiseList "{\"groups\":[{\"kind\":\"draft\",\"id\":\"$PO\"}]}")" 'not a draft'
|
||||
# Since the portal overhaul a size still at its reorder level stays listed with 0 to order (its
|
||||
# need is on order), so "empty of needs" means: no draft left, nothing asks for stock, $0.00 panels.
|
||||
AFTER=$(page /app/orders | sed 's/<!-- -->//g')
|
||||
no "the list is now empty of needs: Ali's draft is gone" "$AFTER" '<span>for Ali Hassan · '
|
||||
no " no size still asks for stock" "$AFTER" 'tc-qty-val[^>]*>[1-9]'
|
||||
no " no panel carries a cost" "$AFTER" '[0-9] lines\? · \$[1-9]'
|
||||
check " the covered sizes stay listed at nothing to order" "$AFTER" '1 line · \$0\.00'
|
||||
|
||||
echo "== the sheet"
|
||||
SHEET=$(page "/print/supplier-order?id=$WID")
|
||||
check "sheet renders" "$(code "/print/supplier-order?id=$WID")" '200'
|
||||
check " with the code" "$SHEET" 'NW-10422-M'
|
||||
check " the supplier's number" "$SHEET" 'NW-48211'
|
||||
check " the total" "$SHEET" '225.00'
|
||||
check " a quote-the-order line" "$SHEET" 'Please quote order'
|
||||
check " and stamps printedAt" "$(bk | py "print([o.get('printedAt') is not None for o in d['orders'] if o['id']=='$WID'][0])")" 'True'
|
||||
PS=$(page "/print/supplier-order?id=$PO")
|
||||
check "Ali's sheet says who it is for" "$PS" 'Ordered for'
|
||||
check " by name" "$PS" 'Ali Hassan'
|
||||
check "a stranger's order id 404s to the list" "$(curl -s -o /dev/null -w '%{http_code}' -b "$J" "$B/print/supplier-order?id=nope")" '30[27]'
|
||||
|
||||
echo "== the email door"
|
||||
check "no mail server: refused clearly" "$(mut order.email "{\"id\":\"$WID\"}")" 'Email is not set up\|has no email address'
|
||||
QID=$(bk | py "print([o['id'] for o in d['orders'] if o['supplier']=='Harbour Embroidery'][0])")
|
||||
check "no address: refused clearly" "$(mut order.email "{\"id\":\"$QID\"}")" 'has no email address'
|
||||
|
||||
echo "== forecast"
|
||||
# 26 of Scrub Top L issued inside the 13-week window (today; issue.create carries no date) against
|
||||
# 40 opening less 26 = 14 on hand and a 14-day lead: ~2/wk, 7 weeks of cover, suggested
|
||||
# ceil(2 × (2 + 2)) = 8, and it does not run out before delivery. The override tick carries the
|
||||
# counter past the six-set ceiling; this is arithmetic, not entitlement.
|
||||
check "lead time 14 days on Northline" "$(mut supplier.update "{\"id\":\"$WWG\",\"lead\":14}")" '"ok":true'
|
||||
for i in $(seq 1 13); do mut issue.create "{\"staffId\":\"$ALI\",\"lines\":[{\"itemId\":\"$ST\",\"si\":2,\"qty\":2,\"src\":\"stock\"}],\"override\":true}" >/dev/null; done
|
||||
check "issues recorded" "$(bk | py "print(sum(i['qty'] for i in d['issues'] if i['itemId']=='$ST' and i['sizeIndex']==2))")" '^26$'
|
||||
G=$(page "/app/stock/$ST")
|
||||
# The count sits in its own mono span, so read the text with the tags taken out.
|
||||
check "suggested 8 for size L" "$(echo "$G" | sed 's/<[^>]*>//g')" 'Suggested 8'
|
||||
check " 7.0 wk cover · ~2/wk" "$G" '7.0 wk cover · ~2/wk'
|
||||
no " and it does not run out before delivery" "$G" 'runs out before delivery'
|
||||
|
||||
echo; echo "passed $PASS, failed $FAIL"; [ "$FAIL" -eq 0 ]
|
||||
Reference in New Issue
Block a user