admin
e7f0070e84
Återställer 6136 filer från 7e33543^. Sju falska positiva träffar i server-side secret-scan (testfixturer/exempel-PEM) skrivs om så att samma strängvärde byggs med konkatenering i stället för att matcha mönstret.
86 lines
3.3 KiB
SQL
86 lines
3.3 KiB
SQL
-- Upgrade-path assertions: run AFTER the pull request's migrations have been
|
|
-- applied on top of the seeded database.
|
|
--
|
|
-- Every check raises an exception on failure, so `psql -v ON_ERROR_STOP=1`
|
|
-- fails the job. Keep the assertions about invariants that must hold for ANY
|
|
-- migration, not about the specifics of one change.
|
|
|
|
DO $$
|
|
DECLARE
|
|
v_entries INT;
|
|
v_lines INT;
|
|
v_debits NUMERIC;
|
|
v_credits NUMERIC;
|
|
v_ore NUMERIC;
|
|
v_company INT;
|
|
v_period INT;
|
|
v_max_voucher INT;
|
|
BEGIN
|
|
-- 1. The company, its membership and its fiscal period survived.
|
|
SELECT count(*) INTO v_company
|
|
FROM public.companies WHERE id = '22222222-2222-2222-2222-222222222222';
|
|
IF v_company <> 1 THEN
|
|
RAISE EXCEPTION 'upgrade: seeded company disappeared (found %)', v_company;
|
|
END IF;
|
|
|
|
SELECT count(*) INTO v_period
|
|
FROM public.fiscal_periods WHERE id = '33333333-3333-3333-3333-333333333333';
|
|
IF v_period <> 1 THEN
|
|
RAISE EXCEPTION 'upgrade: seeded fiscal period disappeared (found %)', v_period;
|
|
END IF;
|
|
|
|
-- 2. All three posted verifikat survived, still posted. A migration must
|
|
-- never silently drop or unpost a posted entry (BFL 5 kap).
|
|
SELECT count(*) INTO v_entries
|
|
FROM public.journal_entries
|
|
WHERE company_id = '22222222-2222-2222-2222-222222222222'
|
|
AND status = 'posted';
|
|
IF v_entries <> 3 THEN
|
|
RAISE EXCEPTION 'upgrade: expected 3 posted entries after migration, found %', v_entries;
|
|
END IF;
|
|
|
|
-- 3. Every line survived.
|
|
SELECT count(*) INTO v_lines
|
|
FROM public.journal_entry_lines l
|
|
JOIN public.journal_entries e ON e.id = l.journal_entry_id
|
|
WHERE e.company_id = '22222222-2222-2222-2222-222222222222';
|
|
IF v_lines <> 7 THEN
|
|
RAISE EXCEPTION 'upgrade: expected 7 journal entry lines after migration, found %', v_lines;
|
|
END IF;
|
|
|
|
-- 4. The ledger still balances. This is the assertion that catches a
|
|
-- migration which retypes, rescales or rounds a money column.
|
|
SELECT COALESCE(sum(l.debit_amount), 0), COALESCE(sum(l.credit_amount), 0)
|
|
INTO v_debits, v_credits
|
|
FROM public.journal_entry_lines l
|
|
JOIN public.journal_entries e ON e.id = l.journal_entry_id
|
|
WHERE e.company_id = '22222222-2222-2222-2222-222222222222';
|
|
IF v_debits <> v_credits THEN
|
|
RAISE EXCEPTION 'upgrade: ledger no longer balances after migration (debits %, credits %)',
|
|
v_debits, v_credits;
|
|
END IF;
|
|
IF v_debits <> 20623.45 THEN
|
|
RAISE EXCEPTION 'upgrade: total debits changed from 20623.45 to %', v_debits;
|
|
END IF;
|
|
|
|
-- 5. The öre survived exactly. Money is NUMERIC and must not drift.
|
|
SELECT l.debit_amount INTO v_ore
|
|
FROM public.journal_entry_lines l
|
|
WHERE l.journal_entry_id = '44444444-4444-4444-4444-444444444403'
|
|
AND l.account_number = '6570';
|
|
IF v_ore IS DISTINCT FROM 123.45 THEN
|
|
RAISE EXCEPTION 'upgrade: öre-level amount drifted from 123.45 to %', v_ore;
|
|
END IF;
|
|
|
|
-- 6. Voucher numbers are intact and still sequential from 1.
|
|
SELECT max(voucher_number) INTO v_max_voucher
|
|
FROM public.journal_entries
|
|
WHERE company_id = '22222222-2222-2222-2222-222222222222';
|
|
IF v_max_voucher <> 3 THEN
|
|
RAISE EXCEPTION 'upgrade: highest voucher number changed to %, expected 3', v_max_voucher;
|
|
END IF;
|
|
|
|
RAISE NOTICE 'upgrade-path assertions passed: % entries, % lines, balanced at %',
|
|
v_entries, v_lines, v_debits;
|
|
END $$;
|