-- The generated sqitch migration bodies.
--
-- These are compared verbatim on purpose: the output has to stay byte for byte
-- what earlier versions produced, so that regenerating a chart does not show
-- up as a diff in the repository that stores it.
-- Error CONTEXT carries plpgsql line numbers, which would make this
-- expected output break on every unrelated edit.
\set SHOW_CONTEXT never
-- Quiet, so that the expected output is the same whether or not an earlier
-- test in the same database already created the extension.
set client_min_messages to warning;
create extension if not exists pg_statecharts_dev cascade;
reset client_min_messages;
\set chart '<scxml xmlns="http://www.w3.org/2005/07/scxml" name="orders.checkout" version="1.2.3" initial="pending"><state id="pending" name="Pending"><transition event="order.pay" target="paying"/><onentry><script src="billing.reserve_stock"/><script src="notify_pending"/></onentry><onexit><script src="billing.release_hold"/></onexit></state><state id="paying" name="Paying"><initial><transition target="authorizing"/></initial><state id="authorizing" name="Authorizing"/></state><final id="done" name="Done"/></scxml>'
-- dots in the chart name become directories
select fsm.__migration_name('orders.checkout', '1.2.3'), fsm.__migration_name('flat', '2.0');
         __migration_name         |  __migration_name   
----------------------------------+---------------------
 statechart/orders/checkout-1.2.3 | statechart/flat-2.0
(1 row)

\echo '--- deploy ---'
--- deploy ---
select fsm.__migration_deploy(:'chart'::xml, 'myproject', 'orders.checkout', '1.2.3');
                                                                                        __migration_deploy                                                                                         
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 -- Deploy myproject:statechart/orders/checkout-1.2.3 to pg                                                                                                                                       +
                                                                                                                                                                                                  +
 -- FILE AUTOMATICALLY GENERATED. MANUAL CHANGES MIGHT BE OVERWRITTEN                                                                                                                             +
                                                                                                                                                                                                  +
 BEGIN;                                                                                                                                                                                           +
 do $$                                                                                                                                                                                            +
 declare                                                                                                                                                                                          +
 chart bigint;                                                                                                                                                                                    +
 begin                                                                                                                                                                                            +
 insert into fsm.statechart (name, version) values ('orders.checkout', fsm.to_semver('1.2.3')) returning id into chart;                                                                           +
 insert into fsm.state (statechart_id, id, name, parent_id, is_initial, is_final, on_entry, on_exit) values                                                                                       +
 (chart, 'pending', 'Pending', null, true, false, array[('billing', 'reserve_stock'),('public', 'notify_pending')]::fsm_callback_name[], array[('billing', 'release_hold')]::fsm_callback_name[]),+
 (chart, 'paying', 'Paying', null, false, false, array[]::fsm_callback_name[], array[]::fsm_callback_name[]),                                                                                     +
 (chart, 'authorizing', 'Authorizing', 'paying', true, false, array[]::fsm_callback_name[], array[]::fsm_callback_name[]),                                                                        +
 (chart, 'done', 'Done', null, false, true, array[]::fsm_callback_name[], array[]::fsm_callback_name[]);                                                                                          +
 insert into fsm.transition (statechart_id, event, source_state, target_state) values                                                                                                             +
 (chart, 'order.pay', 'pending', 'paying');                                                                                                                                                       +
 end                                                                                                                                                                                              +
 $$;                                                                                                                                                                                              +
 COMMIT;                                                                                                                                                                                          +
 
(1 row)

\echo '--- revert ---'
--- revert ---
select fsm.__migration_revert('myproject', 'orders.checkout', '1.2.3');
                          __migration_revert                          
----------------------------------------------------------------------
 -- Revert myproject:statechart/orders/checkout-1.2.3 from pg        +
                                                                     +
 -- FILE AUTOMATICALLY GENERATED. MANUAL CHANGES MIGHT BE OVERWRITTEN+
                                                                     +
                                                                     +
 BEGIN;                                                              +
                                                                     +
 with chart as (                                                     +
     delete from fsm.statechart                                      +
     where name = 'orders.checkout'                                  +
     and version = fsm.to_semver('1.2.3')                            +
     returning id                                                    +
 )                                                                   +
 delete from fsm.state                                               +
     where statechart_id = (select id from chart);                   +
                                                                     +
 COMMIT;                                                             +
 
(1 row)

\echo '--- verify ---'
--- verify ---
select fsm.__migration_verify('myproject', 'orders.checkout', '1.2.3');
                               __migration_verify                               
--------------------------------------------------------------------------------
 -- Verify myproject:statechart/orders/checkout-1.2.3 on pg                    +
                                                                               +
 -- FILE AUTOMATICALLY GENERATED. MANUAL CHANGES MIGHT BE OVERWRITTEN          +
                                                                               +
 BEGIN;                                                                        +
                                                                               +
 -- Verify that the statechart is added                                        +
 select 1 / count(*)                                                           +
 from fsm.statechart                                                           +
 where                                                                         +
     name = 'orders.checkout'                                                  +
     and version = fsm.to_semver('1.2.3');                                     +
                                                                               +
 -- Verify that the functions that the statechart depends on exist             +
 do $$                                                                         +
 declare                                                                       +
     missing_funcs_count_ int;                                                 +
     missing_funcs_ text;                                                      +
 begin                                                                         +
                                                                               +
 select                                                                        +
   string_agg(distinct format('%s.%s', schema_name, function_name), ', '),     +
   count(*)                                                                    +
 into                                                                          +
   missing_funcs_,                                                             +
   missing_funcs_count_                                                        +
 from fsm.statechart                                                           +
 join fsm.state                                                                +
     on state.statechart_id = statechart.id                                    +
 , lateral unnest(on_entry || on_exit)                                         +
 where                                                                         +
   statechart.name = 'orders.checkout'                                         +
   and statechart.version = fsm.to_semver('1.2.3')                             +
   and not exists (                                                            +
     select 1                                                                  +
     from pg_proc p                                                            +
     join pg_namespace n                                                       +
       on p.pronamespace = n.oid                                               +
     where                                                                     +
       n.nspname = schema_name                                                 +
       and p.proname = function_name                                           +
       and p.pronargs = 1                                                      +
       and p.proargtypes[0] = 'fsm_event_payload'::regtype::oid                +
   );                                                                          +
                                                                               +
 if missing_funcs_count_ > 0 then                                              +
   raise exception                                                             +
     $err$                                                                     +
                                                                               +
     One or more missing or invalid functions: %                               +
     All functions must take exactly one argument of the type fsm_event_payload+
                                                                               +
     $err$, missing_funcs_;                                                    +
 end if;                                                                       +
                                                                               +
 end                                                                           +
 $$;                                                                           +
                                                                               +
 ROLLBACK;                                                                     +
 
(1 row)

-- Values are quoted rather than interpolated raw, so a quote in a chart name
-- cannot break out of the generated SQL.
select fsm.__migration_revert('proj', 'it''s', '1.0.0') ~ 'name = ''it''''s''' as name_is_escaped;
 name_is_escaped 
-----------------
 t
(1 row)

select fsm.__callback_literals(array[]::fsm_callback_name[]) = '' as empty_renders_empty;
 empty_renders_empty 
---------------------
 t
(1 row)

select fsm.__callback_literals(array[('a','b'),('c','d')]::fsm_callback_name[]);
  __callback_literals  
-----------------------
 ('a', 'b'),('c', 'd')
(1 row)