[Glass] Nested transactions and 'CorruptObj error', or: how to abort in GLASS?

Still no luck with nested transactions on 3.1.0.5:

---
[1] AbstractException >> _signalFromPrimitive: (envId 0)
        handleInCextensionBool: nil
        num: nil
        res: nil
        .t1: nil
        .t2: a InternalError occurred (error 2261), The object with object ID
aGsMethodLookupCache( 284640->aGsNativeCode) is corrupt. Reason: 'attempt
to commit a hidden object'
        receiver: a InternalError occurred (error 2261), The object with object
ID aGsMethodLookupCache( 284640->aGsNativeCode) is corrupt. Reason:
'attempt to commit a hidden object'
[2] System class >> _primitiveCommit: (envId 0)
        commitMode: 0
        receiver: System
[3] System class >> __commit: (envId 0)
        commitMode: 0
        receiver: System
[4] [] in  System class >> _localCommit: (envId 0)
        actualMode: 0
        self: System
        receiver: System
[5] ExecBlock >> onException:do: (envId 0)
        anException: Error
        handlerBlock: anExecBlock1
        receiver: System
[6] System class >> _localCommit: (envId 0)
        commitMode: 0
        commitResult: nil
        actualMode: 0
        self: System
        .t1: anExecBlock0
        .t2: Error
        .t3: anExecBlock1
        receiver: System
[7] TransactionBoundaryDefaultPolicy >> commit: (envId 0)
        commitMode: 0
        res: nil
        .t1: System
        .t2: 0
        receiver: aSessionMethodTransactionBoundaryPolicy
[8] System class >> _commit: (envId 0)
        commitMode: 0
        coordinator: aSessionMethodTransactionBoundaryPolicy
        .t1: aSessionMethodTransactionBoundaryPolicy
        .t2: 0
        receiver: System
[9] System class >> commitTransaction (envId 0)
        receiver: System
[10] OBGemStonePlatform class >> doAutoCommit (envId 0)
        result: nil
        .t1: System
        receiver: OBGemStonePlatform
[11] JadeServer >> evaluate:inContext: (envId 0)
        aString: 'WonkaTestRunner runDomainTests.
'
        anObject: nil
        result: true
        .t1: OBGemStonePlatform
        receiver: aJadeServer
[12] JadeServer >> printIt:in: (envId 0)
        aString: 'WonkaTestRunner runDomainTests.
'
        aContext: nil
        receiver: aJadeServer
[13] GsNMethod class >> _gsReturnToC (envId 0)
        receiver: nil
---

This happens as part of the auto-commit that happens right at the end of
"print it"'ing the code that runs our entire unit test, so it is hard to
point a finger at which one of the many tests called caused the initial
corruption (except to say this does not happen when not using nested
transaction).

I've seen the above error many times under 3.1.0.4 as well.

_______________________________________________
Glass mailing list
[hidden email]
http://lists.gemtalksystems.com/mailman/listinfo/glass

I'm happy to report that our problems with aborting under Seaside in GS3
are now solved, thanks to advice that I received off-list from Michael
Veigl.

For the sake of others with this question who may search the archive, I
reproduce his email below, with his permission:

--- snip ---

Hello Pieter,

We are in the same situation that out of a couple of subsequent actions
one might
fail and every change done before must be rolled back to avoid
inconsistencies.
Maybe our approach can help you, it is similar to yours but does not use
native
nested transactions.
As you know aborting from within a seaside application is not recommended,
however
committing "carefully" should not do harm. Thus we split up execution of
our domain
code into two steps. You could as well say, we wrap our code into some
transaction
handler.
So the steps are these:

1. Do a commit
We assume that a commit prior to any changes generated by our domain logic
will not
lead to inconsistencies within continuations and other seaside specific data.
Such a commit however should be checked for conflicts already at this
time. Our code
fragment looks like this:
        System _validateTransaction <= 0 ifFalse: [WARetryHttpRequest
signal: 'Transaction
would not commit, retry'].
        System commitTransaction.
        System inTransaction ifFalse: [System beginTransaction]

2. Perform your domain specific code and check the result
        a. In case of an error do an abort:
                System inTransaction ifTrue: [System abortTransaction].
                System beginTransaction
        The abort is safe because seaside state has been saved before
        b. If everything goes well just continue, the seaside framework
will commit later on

It is worth mentioning that you have to guarantee the session being in a
transaction
when leaving your domain code, otherwise seaside's own commit would fail.
In 2.a.
#beginTransaction could be executed conditionally depending on the session
being in
transaction or not.

I hope you get the idea and it works out for you.

Good luck,
Michael Veigl

--- snip ---

The only thing I changed is, I do not call _validateTransaction before
commitTransaction. This reads to me like a potential race condition: what
if between the validate and commit something happens that will make the
commit fail?

Instead, I call commitTransaction and then do the WARetryHttpRequest in
case of failure, since commitTransaction will then either commit or fail
atomically.

_______________________________________________
Glass mailing list
[hidden email]
http://lists.gemtalksystems.com/mailman/listinfo/glass