accounted/tests/pg/upgrade/assert.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 $$;