# Insert this at the end of the test scenario.
    # Watch the unstore/store sequence carefully.

    [event]
        name=start
        [store_unit]
            [filter]
                {NOT_ON_RECALL_LIST}
            [/filter]
            variable=regression_test_1
            kill=yes
        [/store_unit]

        [message]
            speaker=narrator
            message="Regression test 1: $regression_test_1.length units."
        [/message]

        {FOREACH regression_test_1 k}
            [unstore_unit]
                variable="regression_test_1[$k]"
                find_vacant=yes
            [/unstore_unit]
        {NEXT k}

        [redraw][/redraw]

        [message]
            speaker=narrator
            message="Restored units."
        [/message]

        [store_unit]
            [filter]
                {NOT_ON_RECALL_LIST}
            [/filter]
            variable=regression_test_2.subcontainer
            kill=yes
        [/store_unit]

        [message]
            speaker=narrator
            message="Regression test 2: $regression_test_2.subcontainer.length units."
        [/message]

        {FOREACH regression_test_2.subcontainer k}
            [unstore_unit]
                variable="regression_test_2.subcontainer[$k]"
                find_vacant=yes
            [/unstore_unit]
        {NEXT k}

        [message]
            speaker=narrator
            message="Restored units again."
        [/message]

        {CLEAR_VARIABLE regression_test_1,regression_test_2}
    [/event]